Changeset 73 in lmdz_wrf for branches


Ignore:
Timestamp:
Jul 24, 2014, 2:55:35 PM (10 years ago)
Author:
lfita
Message:

Adding more checks

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r72 r73  
    705705      lvarname = 'pdtadj'
    706706      CALL check_var3D(lfname, lvarname, pdtadj, klon, klev, largest, .FALSE.)
     707      lvarname = 'zdthladj'
     708      CALL check_var3D(lfname, lvarname, zdthladj, ngrid, nlay, largest, .FALSE.)
     709      lvarname = 'zpspsk'
     710      CALL check_var3D(lfname, lvarname, zpspsk, ngrid, nlay, largest, .FALSE.)
    707711
    708712      if (prt_level.ge.1) print*,'14 OK convect8'
Note: See TracChangeset for help on using the changeset viewer.