Changeset 86 in lmdz_wrf

Timestamp:

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

Author:

lfita

Message:

Adding checks for initialization of Ale, Alp

File:

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

branches/LMDZ_WRFmeas/WRFV3/lmdz/calltherm.F90

@@ -135 +135 @@
       endif
 
-! L. Fita, LMD July 2014. Initializing tendencies
+! L. Fita, LMD July 2014. Initializing tendencies and variables
       d_t_the = 0.
       d_q_the = 0.
@@ -143 +143 @@
       Ale = 0.
 
+      PRINT *,'  Lluis SUm(Alp): ', SUM(Alp),' SUM Ale: ',SUM(Ale)
+      IF (SUM(Alp) /= 0.) STOP
+      IF (SUM(Ale) /= 0.) STOP
 
 ! Incrementer le compteur de la physique