Changeset 123 in lmdz_wrf


Ignore:
Timestamp:
Jul 28, 2014, 11:56:11 AM (10 years ago)
Author:
lfita
Message:

Adding inialitzation of variables 'fraca0', 'w_conv'

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r122 r123  
    263263     zdthladj = 0.
    264264     pbl_tke_max0 = 0.
     265     fraca0 = 0.
     266     w_conv = 0.
    265267
    266268!-----------------------------------------------------------------------
    … …  
    782784      lvarname = 'zpspsk'
    783785      CALL check_var3D(lfname, lvarname, zpspsk, ngrid, nlay, largest, .FALSE.)
     786      lvarname = 'pduadj'
     787      CALL check_var3D(lfname, lvarname, pduadj, ngrid, nlay, largest, .FALSE.)
     788      lvarname = 'pdvadj'
     789      CALL check_var3D(lfname, lvarname, pdvadj, ngrid, nlay, largest, .FALSE.)
    784790
    785791      if (prt_level.ge.1) print*,'14 OK convect8'
Note: See TracChangeset for help on using the changeset viewer.