Ignore:
Timestamp:
Nov 3, 2018 5:09:40 PM (4 years ago)
Author:
gronemeier
Message:

Add information about reference point to output files; corrected calculation of longitude values in case crs is not defined in input file

File:
1 edited

Legend:

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

    r3483 r3485  
    2525! -----------------
    2626! $Id$
     27! - get central meridian from origin_lon if crs does not exist
     28! - set default origin_lon to 0
     29!
     30! 3483 2018-11-02 14:19:26Z raasch
    2731! bugfix: misplaced directives for netCDF fixed
    2832!
     
    362366       REAL(wp) ::  fill_w                  !< fill value for w
    363367       REAL(wp) ::  latitude = 0.0_wp       !< latitude of the lower left corner
    364        REAL(wp) ::  longitude = -3.0_wp     !< longitude of the lower left corner
     368       REAL(wp) ::  longitude = 0.0_wp      !< longitude of the lower left corner
    365369       REAL(wp) ::  origin_x = 500000.0_wp  !< UTM easting of the lower left corner
    366370       REAL(wp) ::  origin_y = 0.0_wp       !< UTM northing of the lower left corner
     
    958962                              coord_ref_sys%units,                             &
    959963                              .FALSE., 'crs' )
     964       ELSE
     965!
     966!--       Calculate central meridian from origin_lon
     967          coord_ref_sys%longitude_of_central_meridian = &
     968             CEILING( input_file_atts%origin_lon / 6.0_wp ) * 6.0_wp - 3.0_wp
    960969       ENDIF
    961970!
Note: See TracChangeset for help on using the changeset viewer.