Changeset 973 for trunk/LMDZ.VENUS/libf/phyvenus/phys_state_var_mod.F90

Timestamp:

May 27, 2013, 9:47:37 AM (12 years ago)

Author:

slebonnois

Message:

EM+SL: bug corrections in Venus physics

File:

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

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

@@ -117 +117 @@
       ALLOCATE(zuthe(klon),zvthe(klon))
 !
-      ALLOCATE(swnet(klon,klev), lwnet(klon,klev)) 
+      ALLOCATE(swnet(klon,klev+1), lwnet(klon,klev+1)) 
       ALLOCATE(heat(klon,klev), heat0(klon,klev)) 
       ALLOCATE(cool(klon,klev), cool0(klon,klev))