Changeset 1826 for trunk/LMDZ.TITAN/libf/phytitan/optcv.F90

Timestamp:

Nov 28, 2017, 4:55:47 PM (7 years ago)

Author:

jvatant

Message:

Correct non-initialized variables in rcm1d causing NaN's with exigent compilers !
Also correct a small error in optcv
--JVO

File:

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

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

@@ -44 +44 @@
   REAL*8, INTENT(IN)  :: PLEV(L_LEVELS)
   REAL*8, INTENT(IN)  :: TMID(L_LEVELS), PMID(L_LEVELS)
+  REAL*8, INTENT(IN)  :: TAURAY(L_NSPECTV)
   
   REAL*8, INTENT(OUT) :: DTAUV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
@@ -50 +51 @@
   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)
   ! ==========================================================