Changeset 2036 for trunk/LMDZ.VENUS/libf/phyvenus

Timestamp:

Nov 9, 2018, 12:11:08 PM (6 years ago)

Author:

emillour

Message:

Venus GCM:
Missing initializations of 3rd and 4th indexes of ksive(:,:,:,:)
EM

File:

• trunk/LMDZ.VENUS/libf/phyvenus/load_ksi.F (modified) (1 diff)

trunk/LMDZ.VENUS/libf/phyvenus/load_ksi.F

@@ -53 +53 @@
 c----------------------------------
 
-      ksive(0:klev+1,0:klev+1,nnuve,nbmat) = 0.0
+      ksive(0:klev+1,0:klev+1,1:nnuve,1:nbmat) = 0.0
 
 c ------------------------