Changeset 84 in lmdz_wrf for branches/LMDZ_WRFmeas/WRFV3/lmdz

Timestamp:

Jul 25, 2014, 11:11:49 AM (10 years ago)

Author:

lfita

Message:

Initializing tendencies (bad initilaized?)
Fixing some labels...

File:

• branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90 (modified) (5 diffs)

branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90

@@ -135 +135 @@
       endif
 
+! L. Fita, LMD July 2014. Initializing tendencies
+      d_t_the = 0.
+      d_q_the = 0.
+      d_u_the = 0.
+      d_v_the = 0.
+
 ! Incrementer le compteur de la physique
      itap   = itap + 1
@@ -188 +194 @@
       CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
       lvarname = 'Alp'
-      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
 
          zdt=dtime/REAL(nsplit_thermals)
@@ -298 +304 @@
       CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
       lvarname = 'Alp'
-      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, d_t_the, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
 
        flag_bidouille_stratocu=iflag_thermals<=12.or.iflag_thermals==14.or.iflag_thermals==16.or.iflag_thermals==18
@@ -364 +370 @@
       CALL check_var3D(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
 
        DO i=1,klon
@@ -382 +388 @@
       CALL check_var3D(lfname, lvarname, Alp_bl, klon, klev, largest, .FALSE.)
       lvarname = 'Alp'
-      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Alp, klon, klev, largest*10.e5, .FALSE.)
       lvarname = 'Ale_bl'
       CALL check_var3D(lfname, lvarname, Ale_bl, klon, klev, largest, .FALSE.)
       lvarname = 'Ale'
-      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest, .FALSE.)
+      CALL check_var3D(lfname, lvarname, Ale, klon, klev, largest*10.e5, .FALSE.)
 
 !IM 060508 marche pas comme cela !!!        enddo ! isplit