Changeset 156 in lmdz_wrf for branches/LMDZ_WRFmeas_develop


Ignore:
Timestamp:
Aug 6, 2014, 10:52:47 AM (10 years ago)
Author:
lfita
Message:

q_seri is not defined at this stage, use input variables!

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r155 r156  
    13281328      varnamechk = 'pphi'
    13291329      CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.)
    1330       varnamechk = 't_seri'
    1331       CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.)
    1332       varnamechk = 'u_seri'
    1333       CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.)
    1334       varnamechk = 'v_seri'
    1335       CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.)
    1336       varnamechk = 'q_seri'
    1337       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
     1330      varnamechk = 't'
     1331      CALL check_var3D(fname, varnamechk, t, klon, klev, largest, .FALSE.)
     1332      varnamechk = 'u'
     1333      CALL check_var3D(fname, varnamechk, u, klon, klev, largest, .FALSE.)
     1334      varnamechk = 'v'
     1335      CALL check_var3D(fname, varnamechk, v, klon, klev, largest, .FALSE.)
     1336      varnamechk = 'qv'
     1337      CALL check_var3D(fname, varnamechk, qx(:,:,1), klon, klev, largest, .FALSE.)
     1338      varnamechk = 'ql'
     1339      CALL check_var3D(fname, varnamechk, qx(:,:,2), klon, klev, largest, .FALSE.)
    13381340
    13391341
    … …  
    18841886      varnamechk = 'pphi'
    18851887      CALL check_var3D(fname, varnamechk, pphi, klon, klev, largest, .FALSE.)
    1886       varnamechk = 't_seri'
    1887       CALL check_var3D(fname, varnamechk, t_seri, klon, klev, largest, .FALSE.)
    1888       varnamechk = 'u_seri'
    1889       CALL check_var3D(fname, varnamechk, u_seri, klon, klev, largest, .FALSE.)
    1890       varnamechk = 'v_seri'
    1891       CALL check_var3D(fname, varnamechk, v_seri, klon, klev, largest, .FALSE.)
    1892       varnamechk = 'q_seri'
    1893       CALL check_var3D(fname, varnamechk, q_seri, klon, klev, largest, .FALSE.)
     1888      varnamechk = 't'
     1889      CALL check_var3D(fname, varnamechk, t, klon, klev, largest, .FALSE.)
     1890      varnamechk = 'u'
     1891      CALL check_var3D(fname, varnamechk, u, klon, klev, largest, .FALSE.)
     1892      varnamechk = 'v'
     1893      CALL check_var3D(fname, varnamechk, v, klon, klev, largest, .FALSE.)
     1894      varnamechk = 'qv'
     1895      CALL check_var3D(fname, varnamechk, qx(:,:,1), klon, klev, largest, .FALSE.)
     1896      varnamechk = 'ql'
     1897      CALL check_var3D(fname, varnamechk, qx(:,:,2), klon, klev, largest, .FALSE.)
    18941898
    18951899!c
Note: See TracChangeset for help on using the changeset viewer.