Changeset 1419 for trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

Timestamp:

Apr 17, 2015, 3:33:33 PM (10 years ago)

Author:

jleconte

Message:

• Correct radiative transfer bug for the Top layer in callcorrk following commit by SG.

File:

• trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90 (modified) (2 diffs)

trunk/LMDZ.GENERIC/libf/phystd/callcorrk.F90

@@ -608 +608 @@
       plevrad(1) = 0.
 
-      if (ptopzero) then
-         plevrad(2) = 0. 
-      else
-         plevrad(2) = max(pgasmin,0.0001*plevrad(3))
-      endif
-
       tlevrad(1) = tlevrad(2)
       tlevrad(2*nlayer+1)=tsurf(ig)
@@ -625 +619 @@
       pmid(3) = plevrad(2)
       pmid(4) = plevrad(2)
+
+      if (ptopzero) then
+         plevrad(2) = 0.
+      else
+         plevrad(2) = max(pgasmin,0.0001*plevrad(3))
+      endif
      
       DO l=2,L_NLAYRAD-1