Changeset 4204 for palm/trunk/SOURCE


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/advec_ws.f90

    r4182 r4204  
    2525! -----------------
    2626! $Id$
     27! Bugfix: Changed sk_num initialization default to avoid implicit SAVE-Attribut
     28!
     29! 4182 2019-08-22 15:20:23Z scharf
    2730! Corrected "Former revisions" section
    2831!
     
    35663569
    35673570       CHARACTER (LEN = *), INTENT(IN)    ::  sk_char !< string identifier, used for assign fluxes to the correct dimension in the analysis array
    3568        INTEGER(iwp) ::  sk_num = 0 !< integer identifier, used for assign fluxes to the correct dimension in the analysis array
     3571       INTEGER(iwp) ::  sk_num !< integer identifier, used for assign fluxes to the correct dimension in the analysis array
    35693572       
    35703573       INTEGER(iwp) ::  i          !< grid index along x-direction
     
    36773680           CASE ( 'aerosol_mass', 'aerosol_number', 'salsa_gas' )
    36783681              sk_num = 9
     3682           CASE DEFAULT
     3683              sk_num = 0
    36793684
    36803685       END SELECT
Note: See TracChangeset for help on using the changeset viewer.