Changeset 1823 for trunk/LMDZ.TITAN/libf

Timestamp:

Nov 20, 2017, 3:27:01 PM (7 years ago)

Author:

jvatant

Message:

Fix a small omission in last revision
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/optcv.F90 (modified) (2 diffs)

trunk/LMDZ.TITAN/libf/phytitan/optcv.F90

@@ -50 +50 @@
   REAL*8, INTENT(OUT) :: COSBV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
   REAL*8, INTENT(OUT) :: WBARV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
+  REAL*8, INTENT(OUT) :: TAURAY(L_NSPECTV)
+  REAL*8, INTENT(OUT) :: TAUGSURF(L_NSPECTV,L_NGAUSS-1)
   ! ==========================================================
   
@@ -69 +71 @@
   integer MT(L_LEVELS), MP(L_LEVELS), NP(L_LEVELS)
   real*8  ANS, TAUGAS
-  real*8  TAURAY(L_NSPECTV)
   real*8  TRAY(L_LEVELS,L_NSPECTV)
   real*8  DPR(L_LEVELS), U(L_LEVELS)
   real*8  LCOEF(4), LKCOEF(L_LEVELS,4)
 
-  real*8 taugsurf(L_NSPECTV,L_NGAUSS-1)
   real*8 DCONT
   real*8 DRAYAER