Changeset 285 for codes

Timestamp:

10/20/14 18:35:00 (10 years ago)

Author:

aslmd

Message:

modification proposed by Sandrine Guerlet to overcome the problem in the penultimate layer when calculating visible heating rates

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/optcv.F90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/optcv.F90

@@ -335 +335 @@
   DO NG=1,L_NGAUSS       ! full gauss loop
      DO NW=1,L_NSPECTV       
-        TAUV(1,NW,NG)=0.0D0
+        TAUV(1,NW,NG)=DTAUKV(2,NW,NG)
         DO L=1,L_NLAYRAD
            TAUV(L+1,NW,NG)=TAUV(L,NW,NG)+DTAUV(L,NW,NG)