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

Timestamp:

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

Author:

schwenkel

Message:

add error number

File:

• palm/trunk/SOURCE/flow_statistics.f90 (modified) (3 diffs)

palm/trunk/SOURCE/flow_statistics.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Rename variable
+! 
+! 4502 2020-04-17 16:14:16Z schwenkel
 ! Implementation of ice microphysics
 ! 
@@ -97 +100 @@
     USE bulk_cloud_model_mod,                                                  &
         ONLY: bulk_cloud_model, microphysics_morrison, microphysics_seifert,   &
-              microphysics_ice_extension
+              microphysics_ice_phase
 
     USE chem_modules,                                                          &
@@ -1418 +1421 @@
                                                                 flag
                          ENDIF
-                         IF ( microphysics_ice_extension )  THEN
+                         IF ( microphysics_ice_phase )  THEN
                             sums_l(k,124,tn) = sums_l(k,124,tn) + ni(k,j,i) *  &
                                                                 rmask(j,i,sr) *&