Changeset 1722 for trunk/LMDZ.GENERIC/libf

Timestamp:

Jul 18, 2017, 4:15:23 PM (7 years ago)

Author:

jvatant

Message:

Adapt various modifs of LMDZ.GENERIC to LMDZ.TITAN from r1690-1694-1699-1709-1715
--JVO

File:

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

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

@@ -269 +269 @@
         NG              = L_NGAUSS
         DTAUKV(K,nw,ng) = DRAYAER + DCONT ! Scattering + parameterized continuum absorption
-
-!        do iaer=1,naerkind
-!           DTAUKV(K,nw,ng) = DTAUKV(K,nw,ng) +  TAEROS(K,NW,IAER)
-!        end do ! a bug was here!
 
      end do
@@ -329 +325 @@
 
         WBARV(L,NW,NG) = ctemp(L,NW) / DTAUV(L,NW,NG)
+
      END DO                 ! NW spectral loop
   END DO                    ! NG Gauss loop