Changeset 4231 for palm/trunk


Ignore:
Timestamp:
Sep 12, 2019 11:22:00 AM (5 years ago)
Author:
suehring
Message:

Bugfix in array deallocation

File:
1 edited

Legend:

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

    r4230 r4231  
    2525! -----------------
    2626! $Id$
     27! Bugfix in array deallocation
     28!
     29! 4230 2019-09-11 13:58:14Z suehring
    2730! Update mean chemistry profiles. These are also used for rayleigh damping.
    2831!
     
    15001503       ENDIF
    15011504
    1502        DEALLOCATE( ref_chem   )
    1503        DEALLOCATE( ref_chem_l )     
     1505       IF ( ALLOCATED( ref_chem   ) )  DEALLOCATE( ref_chem   )
     1506       IF ( ALLOCATED( ref_chem_l ) )  DEALLOCATE( ref_chem_l )     
    15041507!
    15051508!--    Further, adjust Rayleigh damping height in case of time-changing conditions.
Note: See TracChangeset for help on using the changeset viewer.