Changeset 4401


Ignore:
Timestamp:
Feb 11, 2020 4:19:09 PM (4 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_data_input_mod.f90

    r4400 r4401  
    2525! -----------------
    2626! $Id$
     27! Define a default list of coordinate reference system variables used when
     28! no static driver input is available
     29!
     30! 4400 2020-02-10 20:32:41Z suehring
    2731! - Routine to inquire default fill values added
    2832! - netcdf_data_input_att and netcdf_data_input_var routines removed
     
    846850       INTEGER(iwp) ::  var_id_crs !< NetCDF id of variable crs
    847851
     852!
     853!--    Define default list of crs attributes. This is required for coordinate
     854!--    transformation.
     855       crs_list = (/ coord_ref_sys%semi_major_axis,                            &
     856                     coord_ref_sys%inverse_flattening,                         &
     857                     coord_ref_sys%longitude_of_prime_meridian,                &
     858                     coord_ref_sys%longitude_of_central_meridian,              &
     859                     coord_ref_sys%scale_factor_at_central_meridian,           &
     860                     coord_ref_sys%latitude_of_projection_origin,              &
     861                     coord_ref_sys%false_easting,                              &
     862                     coord_ref_sys%false_northing /)
     863
    848864       IF ( .NOT. input_pids_static )  RETURN
    849865
     
    963979
    964980!
    965 !--    Define list of crs attributes. This is required for coordinate
     981!--    Update list of crs attributes. This is required for coordinate
    966982!--    transformation.
    967983       crs_list = (/ coord_ref_sys%semi_major_axis,                            &
Note: See TracChangeset for help on using the changeset viewer.