Changeset 161 in lmdz_wrf


Ignore:
Timestamp:
Aug 8, 2014, 12:03:53 PM (10 years ago)
Author:
lfita
Message:

Fixing REAL/INTEGER issue on calling threscheck_var3D thres is real!

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/LMDZ_WRFmeas_develop/WRFV3/lmdz/physiq.F90

    r160 r161  
    42264226      CALL threscheck_var3D(fname, varnamechk, qx(:,:,1), klon, klev, 0.,-1, .FALSE.)
    42274227      varnamechk = 'q_seri'
    4228       CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0, -1, .FALSE.)
     4228      CALL threscheck_var3D(fname, varnamechk, q_seri, klon, klev, 0., -1, .FALSE.)
    42294229      varnamechk = 'pphi'
    42304230      CALL threscheck_var3D(fname, varnamechk, pphi, klon, klev, 0., -1, .FALSE.)
Note: See TracChangeset for help on using the changeset viewer.