Changeset 4295 for palm/trunk/SOURCE/salsa_mod.f90

Timestamp:

Nov 14, 2019 6:15:31 AM (5 years ago)

Author:

monakurppa

Message:

salsa_mod.f90: small bug in mask output of aerosol chemical composition

File:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -11470 +11470 @@
     resorted   = .FALSE.
     grid       = 's'
+    tend       = 0.0_wp
     temp_array = 0.0_wp
     temp_bin   = 0.0_wp
@@ -11660 +11661 @@
                       ENDDO
                    ENDDO
-                ENDDO 
+                ENDDO
                 IF ( .NOT. mask_surface(mid) )  THEN
                    DO  i = 1, mask_size_l(mid,1)
@@ -11669 +11670 @@
                       ENDDO
                    ENDDO
-                ELSE 
+                ELSE
                    DO  i = 1, mask_size_l(mid,1)
                       DO  j = 1, mask_size_l(mid,2)
@@ -11897 +11898 @@
           CASE ( 's_BC', 's_DU', 's_NH', 's_NO', 's_OC', 's_SO4', 's_SS' )
              IF ( av == 0 )  THEN
-                IF ( is_used( prtcl, TRIM( variable(3:) ) ) )  THEN
-                   found_index = get_index( prtcl, TRIM( variable(3:) ) )
+                IF ( is_used( prtcl, TRIM( variable(9:) ) ) )  THEN
+                   found_index = get_index( prtcl, TRIM( variable(9:) ) )
                    DO  i = nxl, nxr
                       DO  j = nys, nyn