Changeset 892 for trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.NewtonCool

Timestamp:

Mar 5, 2013, 4:01:03 PM (12 years ago)

Author:

slebonnois

Message:

SL: Important commit ! Adaptation of Venus physics to parallel computation / template for arch on the LMD servers using ifort / documentation for 1D column physics and for parallel computations

File:

• trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.NewtonCool (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/radlwsw.NewtonCool

@@ -53 +53 @@
       real solsw(klon), sollw(klon)
       real sollwdown(klon)
-      REAL swnet(klon,kflev+1),lwnet(klon,kflev+1)
+      REAL swnet(klon,klev+1),lwnet(klon,klev+1)
 c
       INTEGER i,j,k
@@ -138 +138 @@
          sollwdown(j) = 0.        ! + vers bas
 
-        DO k = 1, kflev+1
+        DO k = 1, klev+1
          lwnet  (j,k)   = 0.
          swnet  (j,k)   = 0.
         ENDDO
 
-        DO k = 1, kflev
+        DO k = 1, klev
          heat (j,k) = dTsdt(k)*dureejour ! K/Venusday
          cool (j,k) = 0.