Changeset 2198 for trunk/LMDZ.VENUS/libf/phyvenus/nirco2abs.F

Timestamp:

Dec 13, 2019, 1:14:02 PM (5 years ago)

Author:

flefevre

Message:

reglages Diogo Quirino & Gabriella Gilli pour la haute atmosphere

File:

• trunk/LMDZ.VENUS/libf/phyvenus/nirco2abs.F (modified) (4 diffs)

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

@@ -23 +23 @@
 c   Stephen Lewis 2000
 c
+c   apr 2019 d.quirino   Improving NLTE params, SOIR/SPICAV Temp comparison 
 c   oct 2014 g.gilli     Coupling with photochemical model
 C   jan 2014 g.gilli     Revision (following martian non-lte param)    
@@ -104 +105 @@
 
     
-cc "Nominal" values 
-       parameter (n_a = 18.13/86400.0)     !c     K/Eday  ---> K/sec   
-       parameter (p_ctop=13.2e2)
-c    -- NLTE Param v3  --
-       parameter (n_p0=0.008)  
+cc "Nominal" values used in Gilli+2'17
+c       parameter (n_a = 18.13/86400.0)     !c     K/Eday  ---> K/sec   
+c       parameter (p_ctop=13.2e2)
+c       parameter (n_p0=0.008) 
+
+cc "New" values used to improve SPICAV/SOIR Temperature comparision (D.Quirino)
+       parameter (n_a = 15.92/86400.0)     !c     K/Eday  ---> K/sec   
+       parameter (p_ctop=19.85e2)
+       parameter (n_p0=0.1)  
        parameter (n_b=1.362)
-
-cc   -- Varoxy5
-C       parameter (n_a = 20/86400.0)
-C       parameter (p_ctop=870)   ! [Pa] 
-C       parameter (n_b=1.98)
-C       parameter (n_p0=0.045) 
-
-c      parameter (n_p0=0.1) !!!!cccc test varoxy5mod
-c      parameter (n_b=0.9)
-
 
 c    -- NLTE Param v2  --
@@ -125 +120 @@
 c       parameter (n_b = 1.3)
    
-
 
 c     Variables added to implement NLTE correction factor (feb 2011)
@@ -141 +135 @@
 
 CCCCCC   TEST: reduce by X% nir Heating
-
 c      co2heat0  = co2heat0 * 0.8
-
 
 c----------------------------------------------------------------------