Changeset 1519 for trunk/LMDZ.VENUS/libf/phyvenus/phytrac_relax.F

Timestamp:

Mar 23, 2016, 12:09:36 PM (9 years ago)

Author:

slebonnois

Message:

SL: volcanisme et traceurs sur Venus

File:

• trunk/LMDZ.VENUS/libf/phyvenus/phytrac_relax.F (modified) (5 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/phytrac_relax.F

@@ -30 +30 @@
       use dimphy
       USE comgeomphy
+      USE chemparam_mod,only:M_tr
       IMPLICIT none
 #include "YOMCST.h"
@@ -95 +96 @@
       nqCO_OCS   = 6
 
+c !!!!!! ATTENTION: A REVOIR / A VERIFIER
+c   les traceurs sont en mass mixing ratio dans la dyn
+c   et convertis en frac mol avec M_tr dans les sorties...
+c   Mettre le profil de rappel en mass mixing ratio !!
+
+      print*,"METTRE A JOUR phytrac_relax"
+      stop
+
 c---------
 c debutphy
@@ -103 +112 @@
          allocate(zprof(nlev,nqtot),tau(nlev,nqtot))
 
+         ALLOCATE(M_tr(nqtot))
+      
 c=============================================================
 c=============================================================
@@ -144 +155 @@
       do it=1,3 
        print*,"INIT ZPROF ",tname(it)
+       M_tr(it)=28.       ! CO
        do k=1,nlev
          zprof(k,it)=0.
@@ -183 +195 @@
 c OCS
        print*,"INIT ZPROF ",tname(it+3)
+       M_tr(it+3)=60.       ! OCS
        do k=1,nlev
          zprof(k,it+3)=0.