Changeset 68 in lmdz_wrf


Ignore:
Timestamp:
Jul 24, 2014, 11:53:07 AM (10 years ago)
Author:
lfita
Message:

Fixing variables' names

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r66 r68  
    27712771      lfname='before thermals'
    27722772      lvarname = 't_seri'
    2773       CALL check_var3D(lfname, varname, t_seri, klon, klev, largest, .FALSE.)
     2773      CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)
    27742774      lvarname = 'q_seri'
    2775       CALL check_var3D(lfname, varname, q_seri, klon, klev, largest, .FALSE.)
     2775      CALL check_var3D(lfname, lvarname, q_seri, klon, klev, largest, .FALSE.)
    27762776      lvarname = 'd_t_ajsb'
    2777       CALL check_var3D(lfname, varname, d_t_ajsb, klon, klev, largest, .FALSE.)
     2777      CALL check_var3D(lfname, lvarname, d_t_ajsb, klon, klev, largest, .FALSE.)
    27782778      lvarname = 'd_q_ajsb'
    2779       CALL check_var3D(lfname, varname, d_q_ajsb, klon, klev, largest, .FALSE.)
     2779      CALL check_var3D(lfname, lvarname, d_q_ajsb, klon, klev, largest, .FALSE.)
    27802780
    27812781      IF(prt_level>9)WRITE(lunout,*)                                                 &
    … …  
    29682968      lfname='after thermals'
    29692969      lvarname = 't_seri'
    2970       CALL check_var3D(lfname, varname, t_seri, klon, klev, largest, .FALSE.)
     2970      CALL check_var3D(lfname, lvarname, t_seri, klon, klev, largest, .FALSE.)
    29712971      lvarname = 'q_seri'
    2972       CALL check_var3D(lfname, varname, q_seri, klon, klev, largest, .FALSE.)
     2972      CALL check_var3D(lfname, lvarname, q_seri, klon, klev, largest, .FALSE.)
    29732973      lvarname = 'd_t_ajsb'
    2974       CALL check_var3D(lfname, varname, d_t_ajsb, klon, klev, largest, .FALSE.)
     2974      CALL check_var3D(lfname, lvarname, d_t_ajsb, klon, klev, largest, .FALSE.)
    29752975      lvarname = 'd_q_ajsb'
    2976       CALL check_var3D(lfname, varname, d_q_ajsb, klon, klev, largest, .FALSE.)
     2976      CALL check_var3D(lfname, lvarname, d_q_ajsb, klon, klev, largest, .FALSE.)
    29772977
    29782978!c
Note: See TracChangeset for help on using the changeset viewer.