Changeset 2004 for trunk/LMDZ.GENERIC/libf/phystd

Timestamp:

Oct 2, 2018, 10:54:53 AM (7 years ago)

Author:

jleconte

Message:

02/10/2018 == JL

• correct a bug introduced in commit 1987 in optcv.

File:

• trunk/LMDZ.GENERIC/libf/phystd/optcv.F90 (modified) (1 diff)

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

@@ -361 +361 @@
         END DO
 
-        DO L=1,L_NLAYRAD+1
+        DO L=1,L_NLAYRAD
            TAUV(L,NW,NG)=TAUCUMV(2*L,NW,NG)
         END DO
+        TAUV(L,NW,NG)=TAUCUMV(2*L_NLAYRAD+1,NW,NG)
      END DO            
   END DO                 ! end full gauss loop