source: trunk/LMDZ.MARS/libf/phymars/tcr_15um.h @ 455

Last change on this file since 455 was 414, checked in by aslmd, 14 years ago

LMDZ.MARS : NEW NLTE MODEL FROM GRANADA AMIGOS

23/11/11 == FGG + MALV

New parameterization of the NLTE 15 micron cooling. The old parameterization is kept as an option, including or not variable atomic oxygen concentration. A new flag is introduced in callphys.def, nltemodel, to select which parameterization wants to be used (new one, old one with variable [O], or old one with fixed [O], see below). Includes many new subroutines and commons in phymars. Some existing routines are also modified:

-physiq.F. Call to the new subroutine NLTE_leedat in first call. Call to nltecool modified to allow for variable atomic oxygen. Depending on the value of nltemodel, the new subroutine NLTEdlvr09_TCOOL is called instead of nltecool.

-inifis.F. Reading of nltemodel is added.

-callkeys.h Declaration of nltemodel is added.

The following lines should be added to callphys.def (ideally after setting callnlte):

# NLTE 15um scheme to use.
# 0-> Old scheme, static oxygen
# 1-> Old scheme, dynamic oxygen
# 2-> New scheme
nltemodel = 2

A new directory, NLTEDAT, has to be included in datagcm.

Improvements into NLTE NIR heating parameterization to take into account variability with O/CO2 ratio and SZA. A new subroutine, NIR_leedat.F, and a new common, NIRdata.h, are included. A new flag, nircorr, is added in callphys.def, to include or not these corrections. The following files are modified:

-nirco2abs.F: nq and pq are added in the arguments. The corrections factors are interpolated to the GCM grid and included in the clculation. A new subroutine, interpnir, is added at the end of the file.

-physiq.F: Call to NIR_leedat added at first call. Modified call to nirco2abs

-inifis: Reading new flag nircorr.

-callkeys.h: Declaration of nircorr.

The following lines have to be added to callphys.def (ideally after callnirco2):

# NIR NLTE correction for variable SZA and O/CO2?
# matters only if callnirco2=T
# 0-> no correction
# 1-> include correction
nircorr=1

A new data file, NIRcorrection_feb2011.dat, has to be included in datagcm.

Small changes to the molecular diffusion scheme to fix the number of species considered, to avoid problems when compiling with more than 15 tracers (for example, when CH4 is included). Modified subroutines: aeronomars/moldiff.F and aeronomars/moldiffcoeff.F

File size: 2.6 KB
Line 
1c****************************************************************************
2c
3c       tcr_15um.cmn
4c
5c       Common blocks of coefficients and constants for NLTE CR
6c       (for the NLTE driver table)
7c     
8c       JAN 98  MALV            Based on SOLAR10s mztv1.cmn
9c       MAR 2010 FGG            Adaptation to GCM
10c****************************************************************************
11c
12      integer   irw_mztf,imu,ioverlap,nw,itt_cza,icls_mztf,nan
13c
14      parameter (irw_mztf     = 2)
15      parameter (imu          = 1)
16      parameter (ioverlap     = 0)
17      parameter (nw           = 3)
18      parameter (itt_cza      = 13)
19      parameter (icls_mztf    = 5)
20      parameter (nan          = 0)
21c
22c
23      integer iopt3, iopt19,iopt20, iopt21,iopt27,iopt26
24c
25      parameter (iopt3        = 1)
26      parameter (iopt19       = 2)
27      parameter (iopt20       = 2)
28      parameter (iopt21       = 1)
29      parameter (iopt27       = 1)
30      parameter (iopt26       = 2)
31c
32c
33      integer   iopt41,iopt43, iopt6
34c
35      parameter (iopt6        = 2)
36      parameter (iopt41       = 2)
37      parameter (iopt43       = 2)
38c
39c
40      real   tsurf_excess,Pbottom_atm,Ptop_atm
41c
42      parameter (tsurf_excess = 0.)
43      parameter (Pbottom_atm  = 2.e-5)
44      parameter (Ptop_atm     = 5.e-12)
45c
46c
47      real*8 rf1,rf2desac,rf2iso,rf3,rf6
48c
49      parameter (rf1          = 1.d0)
50      parameter (rf2desac     = 1.d0)
51      parameter (rf2iso       = 1.d0)
52      parameter (rf3          = 1.d0)
53      parameter (rf6          = 1.d0) 
54c
55c
56      real*8 rf7,rf19,rf20,rf21a,rf21b,rf21c
57c
58      parameter (rf7          = 1.d0)
59      parameter (rf19         = 1.d0)
60      parameter (rf20         = 1.d0)
61      parameter (rf21a        = 1.d0)
62      parameter (rf21b        = 1.d0)
63      parameter (rf21c        = 1.d0)
64c
65c
66      real*8 rf26,rf27f,rf27s,rf28,rf31,rf32,rf33a,rf33bc
67c
68      parameter (rf26         = 1.d0)
69      parameter (rf27f        = 1.d0)
70      parameter (rf27s        = 1.d0)
71      parameter (rf28         = 1.d0)
72      parameter (rf31         = 1.d0)
73      parameter (rf32         = 1.d0)
74      parameter (rf33a        = 1.d0)
75      parameter (rf33bc       = 1.d0)
76c
77c
78      real*8 rf41,rf42,rf43,rf_hcl,rf44
79c
80      parameter (rf41         = 1.d0)
81      parameter (rf42         = 1.d0)
82      parameter (rf43         = 1.d0)
83      parameter (rf_hcl       = 1.d0)
84      parameter (rf44         = 1.d0)
85c
86c                 
87      real*8 frac6,frac21,frac33
88c
89      parameter (frac6        = 1.d0)
90      parameter (frac21       = 1.d0)
91      parameter (frac33       = 1.d0)                   
92
Note: See TracBrowser for help on using the repository browser.