Changeset 1146 for trunk

Timestamp:

Jan 4, 2014, 4:52:48 PM (11 years ago)

Author:

aslmd

Message:

LMDZ.GENERIC. error prev commit: committed gfluxi with Saturn trick. reversed back.

File:

• trunk/LMDZ.GENERIC/libf/phystd/gfluxi.F (modified) (1 diff)

trunk/LMDZ.GENERIC/libf/phystd/gfluxi.F

@@ -104 +104 @@
       ! -- same results for most thin atmospheres
       ! -- and stabilizes integrations
-      !NT    = int(TLEV(2*L+1)*NTfac) - NTstar+1
+      NT    = int(TLEV(2*L+1)*NTfac) - NTstar+1
       !! For deep, opaque, thick first layers (e.g. Saturn)
       !! what is below works much better, not unstable, ...
       !! ... and actually fully accurate because 1st layer temp (JL) 
-      NT    = int(TLEV(2*L)*NTfac) - NTstar+1
+      !NT    = int(TLEV(2*L)*NTfac) - NTstar+1
       !! (or this one yields same results
       !NT    = int( (TLEV(2*L)+TLEV(2*L+1))*0.5*NTfac ) - NTstar+1