Changeset 4521 for palm/trunk/SOURCE/init_masks.f90

Timestamp:

May 6, 2020 11:39:49 AM (4 years ago)

Author:

schwenkel

Message:

add error number

File:

• palm/trunk/SOURCE/init_masks.f90 (modified) (4 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Rename variable
+! 
+! 4502 2020-04-17 16:14:16Z schwenkel
 ! Implementation of ice microphysics
 ! 
@@ -62 +65 @@
     USE bulk_cloud_model_mod,                                                  &
         ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert,   &
-              microphysics_ice_extension
+              microphysics_ice_phase
 
     USE control_parameters,                                                    &
@@ -277 +280 @@
                         '" requires bulk_cloud_model = .TRUE.'
                    CALL message( 'init_masks', 'PA0108', 1, 2, 0, 6, 0 )
-                 ELSEIF ( .NOT. microphysics_ice_extension ) THEN
+                 ELSEIF ( .NOT. microphysics_ice_phase ) THEN
                    message_string = 'output of "' // TRIM( var ) // '" ' //    &
-                         'requires  microphysics_ice_extension = .TRUE.'
+                         'requires  microphysics_ice_phase = .TRUE.'
                    CALL message( 'check_parameters', 'PA0359', 1, 2, 0, 6, 0 )
                 ENDIF
@@ -355 +358 @@
                             'requires bulk_cloud_model = .TRUE.'
                    CALL message( 'check_parameters', 'PA0108', 1, 2, 0, 6, 0 )
-                ELSEIF ( .NOT. microphysics_ice_extension ) THEN
+                ELSEIF ( .NOT. microphysics_ice_phase ) THEN
                    message_string = 'output of "' // TRIM( var ) // '" ' //    &
-                            'requires microphysics_ice_extension = .TRUE.'
+                            'requires microphysics_ice_phase = .TRUE.'
                    CALL message( 'check_parameters', 'PA0359', 1, 2, 0, 6, 0 )
                 ENDIF