Changeset 63 in lmdz_wrf for branches

Timestamp:

Jul 24, 2014, 11:42:22 AM (10 years ago)

Author:

lfita

Message:

Fixing typo

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90 (modified) (1 diff)

branches/LMDZ_WRFmeas/WRFV3/lmdz/physiq.F90

@@ -2957 +2957 @@
       endif
       lvarname = 't_seri'
-      fname='after thermals'
-      CALL check_var3D(fname, varname, t_seri, klon, klev, largest, .FALSE.)
+      lfname='after thermals'
+      CALL check_var3D(lfname, varname, t_seri, klon, klev, largest, .FALSE.)
       lvarname = 'q_seri'
-      CALL check_var3D(fname, varname, q_seri, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, varname, q_seri, klon, klev, largest, .FALSE.)
       lvarname = 'd_t_ajsb'
-      CALL check_var3D(fname, varname, d_t_ajsb, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, varname, d_t_ajsb, klon, klev, largest, .FALSE.)
       lvarname = 'd_q_ajsb'
-      CALL check_var3D(fname, varname, d_q_ajsb, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, varname, d_q_ajsb, klon, klev, largest, .FALSE.)
 
 !c