Changeset 3347 for palm/trunk/SOURCE/netcdf_data_input_mod.f90

Timestamp:

Oct 15, 2018 2:21:08 PM (6 years ago)

Author:

suehring

Message:

Offline nesting revised and separated from large_scale_forcing_mod; Time-dependent synthetic turbulence generator; bugfixes in USM/LSM radiation model and init_pegrid

File:

• palm/trunk/SOURCE/netcdf_data_input_mod.f90 (modified) (6 diffs)

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Subroutine renamed
+! 
+! 3257 2018-09-17 17:11:46Z suehring
 ! (from branch resler)
 ! Formatting
@@ -678 +681 @@
     END INTERFACE netcdf_data_input_init_lsm
 
-    INTERFACE netcdf_data_input_lsf
-       MODULE PROCEDURE netcdf_data_input_lsf
-    END INTERFACE netcdf_data_input_lsf
+    INTERFACE netcdf_data_input_offline_nesting
+       MODULE PROCEDURE netcdf_data_input_offline_nesting
+    END INTERFACE netcdf_data_input_offline_nesting
 
     INTERFACE netcdf_data_input_surface_data
@@ -735 +738 @@
            netcdf_data_input_init, netcdf_data_input_init_lsm,                 &
            netcdf_data_input_init_3d,                                          &
-           netcdf_data_input_interpolate, netcdf_data_input_lsf,               &
+           netcdf_data_input_interpolate, netcdf_data_input_offline_nesting,   &
            netcdf_data_input_surface_data, netcdf_data_input_topo
 
@@ -3078 +3081 @@
 !> (COSMO) by Inifor.
 !------------------------------------------------------------------------------!
-    SUBROUTINE netcdf_data_input_lsf
+    SUBROUTINE netcdf_data_input_offline_nesting
 
        USE control_parameters,                                                 &
@@ -3157 +3160 @@
 !
 !--    Obtain time index for current input starting at 0.
-!--    @todo: At the moment time, in INIFOR and simulated time correspond
+!--    @todo: At the moment INIFOR and simulated time correspond
 !--           to each other. If required, adjust to daytime.
        nest_offl%tind = MINLOC( ABS( nest_offl%time -                          &
@@ -3348 +3351 @@
        CALL cpu_log( log_point_s(86), 'NetCDF input forcing', 'stop' )
 
-    END SUBROUTINE netcdf_data_input_lsf
+    END SUBROUTINE netcdf_data_input_offline_nesting