Changeset 4204
- Timestamp:
- Aug 30, 2019 12:30:17 PM (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/advec_ws.f90
r4182 r4204 25 25 ! ----------------- 26 26 ! $Id$ 27 ! Bugfix: Changed sk_num initialization default to avoid implicit SAVE-Attribut 28 ! 29 ! 4182 2019-08-22 15:20:23Z scharf 27 30 ! Corrected "Former revisions" section 28 31 ! … … 3566 3569 3567 3570 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 array3571 INTEGER(iwp) :: sk_num !< integer identifier, used for assign fluxes to the correct dimension in the analysis array 3569 3572 3570 3573 INTEGER(iwp) :: i !< grid index along x-direction … … 3677 3680 CASE ( 'aerosol_mass', 'aerosol_number', 'salsa_gas' ) 3678 3681 sk_num = 9 3682 CASE DEFAULT 3683 sk_num = 0 3679 3684 3680 3685 END SELECT
Note: See TracChangeset
for help on using the changeset viewer.