Changeset 2067 for trunk


Ignore:
Timestamp:
Jan 14, 2019, 4:43:52 PM (6 years ago)
Author:
aboissinot
Message:

cf. commit 2066

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/physiq_mod.F90

    r2065 r2067  
    262262      INTEGER zlcl(ngrid)
    263263     
    264       real,save :: f0(ngrid)              ! Mass flux norm
     264      real,allocatable :: f0(:)           ! Mass flux norm
     265      save f0                             !
    265266      real fm0(ngrid, nlayer+1)           ! Mass flux
    266267      real entr0(ngrid, nlayer)           ! Entrainment
    … …  
    705706         endif
    706707         
     708         ALLOCATE(f0(ngrid))
     709         
    707710         call su_watercycle ! even if we don't have a water cycle, we might
    708711                            ! need epsi for the wvp definitions in callcorrk.F
Note: See TracChangeset for help on using the changeset viewer.