source: trunk/LMDZ.MARS/libf/phymars/callkeys.h @ 2800

Last change on this file since 2800 was 2628, checked in by abierjon, 3 years ago

Mars GCM:
Big changes on mountain top dust flows for GCM6:

  • the scheme now activates only in grid meshes that contain a mountain among a hard-written list, instead of every meshes. This is done to prevent strong artificial reinjections of dust in places that don't present huge converging slopes enabling the concentration of dust (ex: Valles Marineris, Hellas). Topdust is now also detrained as soon as it leaves the column it originated from.
  • the list of the 19 allowed mountains is used by the subroutine topmons_setup in module topmons_mod, to compute a logical array contains_mons(ngrid). alpha_hmons and hsummit are also set up once and for all by this subroutine, which is called in physiq_mod's firstcall.
  • contains_mons, alpha_hmons and hsummit are now saved variables of the module surfdat_h, and are called as such and not as arguments in the subroutines using them.
  • the logical flag "slpwind" and the comments in the code have also been updated to the new terminology "mountain top dust flows", accordingly to ticket #71. The new flag read in callphys.def is "topflows".

AB
File size: 4.0 KB
Line 
1!
2! For Fortran 77/Fortran 90 compliance always use line continuation
3! symbols '&' in columns 73 and 6
4!
5! NB: to keep commons aligned, it is better to split them in groups
6!     of given types (logical, integer, real, ...)
7
8      COMMON/callkeys_l/callrad,calldifv,calladj,callcond,callsoil      &
9     &   ,season,diurnal,lwrite,calllott,calleofdump                    &
10     &   ,callnirco2,callnlte,callthermos,callconduct,calleuv           &
11     &   ,callmolvis,callmoldiff,thermochem,thermoswater,callemis       &
12     &   ,callg2d,linear,rayleigh,tracer                                &
13     &   ,scavenging,sedimentation                                      &
14     &   ,activice,water,tifeedback,microphys,supersat,caps,photochem   &
15     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4,co2clouds &
16     &   ,co2useh2o,meteo_flux,activeco2ice,CLFvaryingCO2,spantCO2      &
17     &   ,CLFvarying,satindexco2,rdstorm,topflows,calllott_nonoro        &
18     &   ,latentheat_surfwater,gwd_convective_source,startphy_file      &
19     &   ,hdo,hdofrac,cst_cap_albedo,temp_dependant_m,refill_watercap
20!$OMP THREADPRIVATE(/callkeys_l/)
21
22     
23      COMMON/callkeys_i/iradia,iaervar,ilwd,ilwb,ilwn,ncouche           &
24     &   ,nltemodel,nircorr,solvarmod,solvaryear,dustinjection
25!$OMP THREADPRIVATE(/callkeys_i/)
26     
27      COMMON/callkeys_r/semi,alphan,euveff,                             &
28     &   tke_heat_flux,dustrefir,fixed_euv_value,CLFfixval,             &
29     &   coeff_injection,ti_injection,tf_injection,coeff_detrainment
30!$OMP THREADPRIVATE(/callkeys_r/)
31     
32      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
33     &   season,diurnal,lwrite,calllott,calllott_nonoro                 &
34     &   ,calleofdump                                                   &
35     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
36     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
37     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4
38
39      COMMON/aeroutput/dustiropacity
40!$OMP THREADPRIVATE(/aeroutput/)
41
42      logical startphy_file
43
44      logical callemis
45      logical callg2d
46      logical linear
47      logical gwd_convective_source
48
49      real semi
50      real alphan
51      real fixed_euv_value
52      real euveff
53      real tke_heat_flux
54      real coeff_injection ! dust injection scheme coefficient
55      real ti_injection ! local time of beginning injection
56      real tf_injection ! local time of end injection
57      real coeff_detrainment ! rocket dust detrainment coefficient
58      real CLFfixval
59
60      integer iaervar
61      integer iradia
62      integer ilwd
63      integer ilwb
64      integer ilwn
65      integer ncouche
66      integer solvarmod   ! model for solar EUV variation
67      integer solvaryear  ! mars year for realisticly varying solar EUV
68      integer dustinjection ! dust injection scheme number
69
70      logical rayleigh
71      logical tracer
72      logical scavenging
73      logical rdstorm ! rocket dust storm parametrization
74      logical topflows ! entrainment by mountain top dust flows parametrization
75      logical latentheat_surfwater ! latent heat release from ground water ice sublimation/condensation
76      logical cst_cap_albedo ! polar cap albedo remains unchanged by water frost deposition
77      logical temp_dependant_m ! temperature-dependant water contact parameter
78      logical refill_watercap ! h2o_ice_s is converted to watercap when above threshold
79      logical sedimentation
80      logical activice,tifeedback,supersat,caps
81      logical co2clouds,co2useh2o,meteo_flux,CLFvaryingCO2,satindexco2
82      logical activeco2ice
83      integer spantCO2
84      logical CLFvarying
85      logical water
86      logical hdo
87      logical hdofrac
88      logical microphys
89      logical photochem
90      integer nltemodel
91      integer nircorr
92
93      character(len=100) dustiropacity
94      real               dustrefir
95 
96      integer swrtype ! type of short wave (solar wavelength) radiative
97      ! transfer to use 1: Fouquart 2: Toon.
98      parameter (swrtype=2)
99!      parameter (swrtype=2)
Note: See TracBrowser for help on using the repository browser.