Ignore:
Timestamp:
Aug 2, 2019 12:34:17 PM (2 years ago)
Author:
suehring
Message:

Bugfix in masked data output for prognostic quantities

File:
1 edited

Legend:

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

    r4069 r4132  
    2525! -----------------
    2626! $Id$
     27! Bugfix in masked data output
     28!
     29! 4069 2019-07-01 14:05:51Z Giersch
    2730! Masked output running index mid has been introduced as a local variable to
    2831! avoid runtime error (Loop variable has been modified) in time_integration
     
    218221        ONLY:  average_count_3d
    219222
    220     CHARACTER (LEN=*) ::  mode    !<
    221     CHARACTER (LEN=*) :: variable !<
     223    CHARACTER (LEN=*) ::  mode     !<
     224    CHARACTER (LEN=*) ::  variable !<
    222225
    223226    INTEGER(iwp) ::  i !<
     
    10231026          DO  WHILE ( domask(mid,av,ivar)(1:1) /= ' ' )
    10241027             IF ( .NOT.  ANY( do_all == domask(mid,av,ivar) ) )  THEN
    1025                 do_all(ivar_all) = do2d_var(av,ivar)
     1028                do_all(ivar_all) = domask(mid,av,ivar)
    10261029             ENDIF
    10271030
Note: See TracChangeset for help on using the changeset viewer.