Changeset 4295 for palm


Ignore:
Timestamp:
Nov 14, 2019 6:15:31 AM (4 years ago)
Author:
monakurppa
Message:

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

File:
1 edited

Legend:

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

    r4286 r4295  
    1147011470    resorted   = .FALSE.
    1147111471    grid       = 's'
     11472    tend       = 0.0_wp
    1147211473    temp_array = 0.0_wp
    1147311474    temp_bin   = 0.0_wp
     
    1166011661                      ENDDO
    1166111662                   ENDDO
    11662                 ENDDO 
     11663                ENDDO
    1166311664                IF ( .NOT. mask_surface(mid) )  THEN
    1166411665                   DO  i = 1, mask_size_l(mid,1)
     
    1166911670                      ENDDO
    1167011671                   ENDDO
    11671                 ELSE 
     11672                ELSE
    1167211673                   DO  i = 1, mask_size_l(mid,1)
    1167311674                      DO  j = 1, mask_size_l(mid,2)
     
    1189711898          CASE ( 's_BC', 's_DU', 's_NH', 's_NO', 's_OC', 's_SO4', 's_SS' )
    1189811899             IF ( av == 0 )  THEN
    11899                 IF ( is_used( prtcl, TRIM( variable(3:) ) ) )  THEN
    11900                    found_index = get_index( prtcl, TRIM( variable(3:) ) )
     11900                IF ( is_used( prtcl, TRIM( variable(9:) ) ) )  THEN
     11901                   found_index = get_index( prtcl, TRIM( variable(9:) ) )
    1190111902                   DO  i = nxl, nxr
    1190211903                      DO  j = nys, nyn
Note: See TracChangeset for help on using the changeset viewer.