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

Timestamp:

Feb 11, 2020 4:19:09 PM (5 years ago)

Author:

suehring

Message:

Define a default list of coordinate reference system variables used when no static driver input is available

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Define a default list of coordinate reference system variables used when
+! no static driver input is available
+! 
+! 4400 2020-02-10 20:32:41Z suehring
 ! - Routine to inquire default fill values added
 ! - netcdf_data_input_att and netcdf_data_input_var routines removed
@@ -846 +850 @@
        INTEGER(iwp) ::  var_id_crs !< NetCDF id of variable crs
 
+!
+!--    Define default list of crs attributes. This is required for coordinate
+!--    transformation.
+       crs_list = (/ coord_ref_sys%semi_major_axis,                            &
+                     coord_ref_sys%inverse_flattening,                         &
+                     coord_ref_sys%longitude_of_prime_meridian,                &
+                     coord_ref_sys%longitude_of_central_meridian,              &
+                     coord_ref_sys%scale_factor_at_central_meridian,           &
+                     coord_ref_sys%latitude_of_projection_origin,              &
+                     coord_ref_sys%false_easting,                              &
+                     coord_ref_sys%false_northing /)
+
        IF ( .NOT. input_pids_static )  RETURN
 
@@ -963 +979 @@
 
 !
-!--    Define list of crs attributes. This is required for coordinate 
+!--    Update list of crs attributes. This is required for coordinate 
 !--    transformation. 
        crs_list = (/ coord_ref_sys%semi_major_axis,                            &