Changeset 1056 for trunk/LMDZ.TITAN/libf/phytitan/optci.F

Timestamp:

Oct 7, 2013, 6:42:03 PM (11 years ago)

Author:

slebonnois

Message:

SL: Titan runs ! see DOC/chantiers/commit_importants.log

File:

• trunk/LMDZ.TITAN/libf/phytitan/optci.F (modified) (5 diffs)

trunk/LMDZ.TITAN/libf/phytitan/optci.F

@@ -2 +2 @@
       use dimphy
       use infotrac
+      use common_mod, only:rmcbar,xfbar,ncount,TauHID,TauCID,TauGID
 #include "dimensions.h"
 #include "microtab.h"
@@ -42 +43 @@
      &                TAUHV(ngrid,NSPECV),TAUCV(ngrid,NSPECV),
      &                TAUGV(ngrid,NSPECV)
-
-      COMMON /TAUD/   TAUHID(ngrid,NLAYER,NSPECI)
-     &               ,TAUCID(ngrid,NLAYER,NSPECI)
-     &               ,TAUGID(ngrid,NLAYER,NSPECI)
-     &               ,TAUHVD(ngrid,NLAYER,NSPECV)
-     &               ,TAUCVD(ngrid,NLAYER,NSPECV)
-     &               ,TAUGVD(ngrid,NLAYER,NSPECV)
-
 
       COMMON /OPTICI/ DTAUI(ngrid,NLAYER,NSPECI)
@@ -70 +63 @@
       COMMON /CONST/RGAS,RHOP,PI,SIGMA
       COMMON /part/v,rayon,vrat,dr,dv
-
-c-----Rayons nuages et "composition" de la goutte
-c     sur la grille ...
-      integer ncount(ngrid,NLAYER)
-      real    rmcbar(ngrid,NLAYER)
-      real    xfbar(ngrid,NLAYER,4)
-      COMMON/rnuabar/ncount,rmcbar,xfbar
 
       DIMENSION PROD(NLEVEL)
@@ -164 +150 @@
       DO 420 K=1,NSPECI
 C LETS USE THE THOLIN OPTICAL CONSTANTS FOR THE HAZE.
-          CALL THOLIN(WLNI(K),TNR,TNI)
+c         CALL THOLIN(WLNI(K),TNR,TNI)
+          CALL THOLIN_CVD(WLNI(K),TNR,TNI)
           REALI(K)=TNR
           XIMGI(K)=TNI*FHIR
@@ -293 +280 @@
         TAUGI(ig,:)    = TAUGI_1pt(:) 
 
-        TAUHID(ig,:,:) = TAUHID_1pt(:,:) 
-        TAUCID(ig,:,:) = TAUCID_1pt(:,:) 
-        TAUGID(ig,:,:) = TAUGID_1pt(:,:) 
+        TauHID(ig,:,:) = TAUHID_1pt(:,:) 
+        TauCID(ig,:,:) = TAUCID_1pt(:,:) 
+        TauGID(ig,:,:) = TAUGID_1pt(:,:) 
 
 c************************************************************************