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

Timestamp:

Nov 20, 2017, 3:19:07 PM (7 years ago)

Author:

jvatant

Message:

Preliminary modifs for the optical coupling of haze
+ Moved inits of setspi/v before init of mufi
+ Added access to tarcers in optci/v
+ Some coherence in call to directories
JVO

File:

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

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

@@ -1 @@
-SUBROUTINE OPTCV(DTAUV,TAUV,TAUCUMV,PLEV,  &
-     WBARV,COSBV,TAURAY,TMID,PMID,TAUGSURF)
+SUBROUTINE OPTCV(PQ,PLEV,TMID,PMID,  &
+     DTAUV,TAUV,TAUCUMV,WBARV,COSBV,TAURAY,TAUGSURF)
 
   use radinc_h
@@ -19 +19 @@
   !     -------
   !     Adapted from the NASA Ames code by R. Wordsworth (2009)
+  !     Clean and adaptation to Titan by J. Vatant d'Ollone (2016-17)
   !     
   !==================================================================
@@ -37 +38 @@
 
 
-  real*8 DTAUV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
+  !==========================================================
+  ! Input/Output
+  !==========================================================
+  REAL*8, INTENT(IN)  :: PQ ! Tracers (kg/kg_of_air).
+  REAL*8, INTENT(IN)  :: PLEV(L_LEVELS)
+  REAL*8, INTENT(IN)  :: TMID(L_LEVELS), PMID(L_LEVELS)
+  
+  REAL*8, INTENT(OUT) :: DTAUV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
+  REAL*8, INTENT(OUT) :: TAUV(L_NLEVRAD,L_NSPECTV,L_NGAUSS)
+  REAL*8, INTENT(OUT) :: TAUCUMV(L_LEVELS,L_NSPECTV,L_NGAUSS)
+  REAL*8, INTENT(OUT) :: COSBV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
+  REAL*8, INTENT(OUT) :: WBARV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
+  ! ==========================================================
+  
   real*8 DTAUKV(L_LEVELS,L_NSPECTV,L_NGAUSS)
-  real*8 TAUV(L_NLEVRAD,L_NSPECTV,L_NGAUSS)
-  real*8 TAUCUMV(L_LEVELS,L_NSPECTV,L_NGAUSS)
-  real*8 PLEV(L_LEVELS)
-  real*8 TMID(L_LEVELS), PMID(L_LEVELS)
-  real*8 COSBV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
-  real*8 WBARV(L_NLAYRAD,L_NSPECTV,L_NGAUSS)
 
   ! Titan customisation