Changeset 97 in lmdz_wrf


Ignore:
Timestamp:
Jul 25, 2014, 3:02:02 PM (10 years ago)
Author:
lfita
Message:

More checks for zw2

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas/WRFV3/lmdz/thermcell_main.F90

    r94 r97  
    627627      lvarname = 'zgla'
    628628      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
     629      lvarname = 'zw2'
     630      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay+1, largest, .FALSE.)
    629631
    630632      CALL thermcell_flux2(ngrid,nlay,ptimestep,masse, &
    … …  
    636638      lvarname = 'fm'
    637639      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
     640      lvarname = 'zw2'
     641      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay+1, largest, .FALSE.)
    638642
    639643      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_flux'
Note: See TracChangeset for help on using the changeset viewer.