Changeset 3421 for palm/trunk/SOURCE/init_masks.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/init_masks.f90 (modified) (7 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Renamed output variables
+! 
+! 3419 2018-10-24 17:27:31Z gronemeier
 ! ocean renamed ocean_mode
 ! 
@@ -316 +319 @@
                 unit = 'm2/s2'
 
-             CASE ( 'lpt' )
+             CASE ( 'thetal' )
                 IF ( .NOT. bulk_cloud_model )  THEN
                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
@@ -358 +361 @@
                 IF ( TRIM( var ) == 'pr' )  unit = 'm'
 
-             CASE ( 'q', 'vpt' )
+             CASE ( 'q', 'thetav' )
                 IF ( .NOT. humidity )  THEN
                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
@@ -365 +368 @@
                 ENDIF
                 IF ( TRIM( var ) == 'q'   )  unit = 'kg/kg'
-                IF ( TRIM( var ) == 'vpt' )  unit = 'K'
+                IF ( TRIM( var ) == 'thetav' )  unit = 'K'
 
              CASE ( 'qc' )
@@ -414 +417 @@
                 unit = 'kg/kg'
 
-             CASE ( 'rho_ocean' )
+             CASE ( 'rho_sea_water' )
                 IF ( .NOT. ocean_mode )  THEN
                    WRITE ( message_string, * ) 'output of "', TRIM( var ),     &
@@ -438 +441 @@
                 unit = 'psu'
 
-             CASE ( 'u*', 't*', 'lwp*', 'pra*', 'prr*', 'z0*', 'z0h*' )
+             CASE ( 'us*', 't*', 'lwp*', 'pra*', 'prr*', 'z0*', 'z0h*' )
                 WRITE ( message_string, * ) 'illegal value for data_',         &
                      'output: "', TRIM( var ), '" is only allowed',            &
@@ -444 +447 @@
                 CALL message( 'init_masks', 'PA0111', 1, 2, 0, 6, 0 )
 
-             CASE ( 'p', 'pt', 'u', 'v', 'w' )
+             CASE ( 'p', 'theta', 'u', 'v', 'w' )
                 IF ( TRIM( var ) == 'p'  )  unit = 'Pa'
-                IF ( TRIM( var ) == 'pt' )  unit = 'K'
+                IF ( TRIM( var ) == 'theta' )  unit = 'K'
                 IF ( TRIM( var ) == 'u'  )  unit = 'm/s'
                 IF ( TRIM( var ) == 'v'  )  unit = 'm/s'