Changeset 826 for trunk/LMDZ.VENUS/libf

Timestamp:

Oct 30, 2012, 12:18:36 PM (12 years ago)

Author:

slebonnois

Message:

SL: amelioration angmom.F90 (Venus, Titan Tools) + correction bug GW non-oro (Venus)

File:

• trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90 (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/flott_gwd_ran.F90

@@ -120 +120 @@
       IF (firstcall) THEN
         allocate(d_u_sav(NLON,NLEV),d_v_sav(NLON,NLEV))
+        d_u_sav = 0.
+        d_v_sav = 0.
         firstcall=.false.
       ENDIF