Changeset 4132 for palm/trunk/SOURCE


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

Bugfix in masked data output for prognostic quantities

Location:
palm/trunk/SOURCE
Files:
2 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
  • palm/trunk/SOURCE/module_interface.f90

    r4131 r4132  
    2525! -----------------
    2626! $Id$
     27! Bugfix in masked data output for diagnostic quantities
     28!
     29! 4131 2019-08-02 11:06:18Z monakurppa
    2730! Add output of 3D plant-canopy outputs (merge from branch resler)
    2831!
     
    905908       CALL chem_check_data_output( variable, unit, 0, 0, 0 )
    906909    ENDIF
     910   
     911    IF ( unit == 'illegal' )  THEN
     912       CALL doq_check_data_output( variable, unit )
     913    ENDIF
    907914
    908915    IF ( unit == 'illegal'  .AND.  radiation )  THEN
Note: See TracChangeset for help on using the changeset viewer.