Changeset 78 in lmdz_wrf


Ignore:
Timestamp:
Jul 25, 2014, 9:50:16 AM (10 years ago)
Author:
lfita
Message:

Addgin checks to found where fm gets NaN

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r74 r78  
    610610!deduction des flux
    611611!-------------------------------------------------------------------------------
     612      lfname='before flux'
     613      lvarname = 'fm'
     614      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
     615      lvarname = 'fm'
     616      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
     617      lvarname = 'entr'
     618      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
     619      lvarname = 'detr'
     620      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
     621      lvarname = 'zgla'
     622      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
     623      lvarname = 'fm'
     624      CALL check_var3D(lfname, lvarname, fm, ngrid, nlay, largest, .FALSE.)
    612625
    613626      CALL thermcell_flux2(ngrid,nlay,ptimestep,masse, &
    … …  
    616629     &       detr,zqla,lev_out,lunout1,igout)
    617630!IM 060508    &       detr,zqla,zmax,lev_out,lunout,igout)
     631      lfname='after flux'
     632      lvarname = 'fm'
     633      CALL check_var3D(lfname, lvarname, fm, klon, klev, largest, .FALSE.)
    618634
    619635      if (prt_level.ge.1) print*,'thermcell_main apres thermcell_flux'
Note: See TracChangeset for help on using the changeset viewer.