Changeset 93 in lmdz_wrf


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

Including checks for wth3, NaN source?!

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r92 r93  
    818818         enddo
    819819      enddo
     820      lfname='thermcell_main calculation of wth3'
     821      lvarname = 'wth3'
     822      CALL check_var3D(lfname, lvarname, wth3, ngrid, nlay, largest, .FALSE.)
     823      lvarname = 'fraca'
     824      CALL check_var3D(lfname, lvarname, fraca, ngrid, nlay, largest, .FALSE.)
     825      lvarname = 'zw2'
     826      CALL check_var3D(lfname, lvarname, zw2, ngrid, nlay, largest, .FALSE.)
     827      lvarname = '1-fraca'
     828      CALL check_var3D(lfname, lvarname, 1./(1.-fraca), ngrid, nlay, largest, .FALSE.)
    820829!calcul des flux: q, thetal et thetav
    821830      do l=1,nlay
Note: See TracChangeset for help on using the changeset viewer.