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

Timestamp:

Oct 24, 2018 6:39:32 PM (5 years ago)

Author:

gronemeier

Message:

new surface-data output; renamed output variables (pt to theta, rho_air to rho, rho_ocean to rho_sea_water)

File:

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

palm/trunk/SOURCE/netcdf_data_input_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! add default values of origin_x/y/z
+! 
+! 3404 2018-10-23 13:29:11Z suehring
 ! Consider time-dependent geostrophic wind components in offline nesting
 ! 
@@ -328 +331 @@
        LOGICAL ::  from_file_w      = .FALSE. !< flag indicating whether w is already initialized from file
 
-       REAL(wp) ::  fill_msoil       !< fill value for soil moisture
-       REAL(wp) ::  fill_pt          !< fill value for pt
-       REAL(wp) ::  fill_q           !< fill value for q
-       REAL(wp) ::  fill_tsoil       !< fill value for soil temperature
-       REAL(wp) ::  fill_u           !< fill value for u
-       REAL(wp) ::  fill_v           !< fill value for v
-       REAL(wp) ::  fill_w           !< fill value for w
-       REAL(wp) ::  latitude         !< latitude of the southern model boundary
-       REAL(wp) ::  longitude        !< longitude of the western model boundary
-       REAL(wp) ::  origin_x         !< x position of the western model boundary
-       REAL(wp) ::  origin_y         !< y position of the northern model boundary
-       REAL(wp) ::  origin_z         !< reference height of input data
-       REAL(wp) ::  rotation_angle   !< rotation angle of input data
+       REAL(wp) ::  fill_msoil              !< fill value for soil moisture
+       REAL(wp) ::  fill_pt                 !< fill value for pt
+       REAL(wp) ::  fill_q                  !< fill value for q
+       REAL(wp) ::  fill_tsoil              !< fill value for soil temperature
+       REAL(wp) ::  fill_u                  !< fill value for u
+       REAL(wp) ::  fill_v                  !< fill value for v
+       REAL(wp) ::  fill_w                  !< fill value for w
+       REAL(wp) ::  latitude                !< latitude of the southern model boundary
+       REAL(wp) ::  longitude               !< longitude of the western model boundary
+       REAL(wp) ::  origin_x = 0.0_wp       !< x position of the western model boundary (default: Hannover)
+       REAL(wp) ::  origin_y = 0.0_wp       !< y position of the northern model boundary (default: Hannover)
+       REAL(wp) ::  origin_z = 0.0_wp       !< reference height of input data (default: Hannover)
+       REAL(wp) ::  rotation_angle = 0.0_wp !< rotation angle of input data
 
        REAL(wp), DIMENSION(:), ALLOCATABLE ::  msoil_1d     !< initial vertical profile of soil moisture