Changeset 4204 for palm

Timestamp:

Aug 30, 2019 12:30:17 PM (5 years ago)

Author:

knoop

Message:

Bugfix in advec_s_ws: Changed sk_num initialization default to avoid implicit SAVE-attribut.

File:

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

palm/trunk/SOURCE/advec_ws.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix: Changed sk_num initialization default to avoid implicit SAVE-Attribut
+! 
+! 4182 2019-08-22 15:20:23Z scharf
 ! Corrected "Former revisions" section
 ! 
@@ -3566 +3569 @@
 
        CHARACTER (LEN = *), INTENT(IN)    ::  sk_char !< string identifier, used for assign fluxes to the correct dimension in the analysis array 
-       INTEGER(iwp) ::  sk_num = 0 !< integer identifier, used for assign fluxes to the correct dimension in the analysis array
+       INTEGER(iwp) ::  sk_num !< integer identifier, used for assign fluxes to the correct dimension in the analysis array
        
        INTEGER(iwp) ::  i          !< grid index along x-direction
@@ -3677 +3680 @@
            CASE ( 'aerosol_mass', 'aerosol_number', 'salsa_gas' )
               sk_num = 9
+           CASE DEFAULT
+              sk_num = 0
 
        END SELECT