Changeset 4226 for palm/trunk/SOURCE/virtual_measurement_mod.f90

Timestamp:

Sep 10, 2019 5:03:24 PM (5 years ago)

Author:

suehring

Message:

Offline nesting: data input modularized; time variable is defined relative to time_utc_init, so that input data is correctly mapped to actual model time; checks rephrased and new checks for the time dimension added; Netcdf input: routine to retrieve dimension length renamed

File:

• palm/trunk/SOURCE/virtual_measurement_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/virtual_measurement_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Netcdf input routine for dimension length renamed
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -435 +438 @@
  
     USE netcdf_data_input_mod,                                                 &
-        ONLY:  init_model, input_file_vm,                                      &
-               netcdf_data_input_get_dimension_length,                         &
-               netcdf_data_input_att, netcdf_data_input_var
+        ONLY:  get_dimension_length,                                           &
+               init_model,                                                     &
+               input_file_vm,                                                  &
+               netcdf_data_input_att,                                          &
+               netcdf_data_input_var
         
     IMPLICIT NONE
@@ -648 +653 @@
 !--          For non-stationary measurements read the number of trajectories
 !--          and the number of time coordinates.
-             CALL netcdf_data_input_get_dimension_length( vmea_general%id_vm, &
-                                                          vmea(l)%ntraj,      &
-                                                          "traj" //           &
-                                                          TRIM( dum ) )
-             CALL netcdf_data_input_get_dimension_length( vmea_general%id_vm, &
-                                                          dim_ntime,          &
-                                                          "ntime" //          &
-                                                          TRIM( dum ) )
+             CALL get_dimension_length( vmea_general%id_vm,                    &
+                                        vmea(l)%ntraj,                         &
+                                        "traj" //                              &
+                                        TRIM( dum ) )
+             CALL get_dimension_length( vmea_general%id_vm,                    &
+                                        dim_ntime,                             &
+                                        "ntime" //                             &
+                                        TRIM( dum ) )
 !
 !--       For stationary measurements the dimension for UTM and time