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

Last change on this file since 2739 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
RevLine 
[38]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      &
[2559]9     &   ,season,diurnal,lwrite,calllott,calleofdump                    &
[38]10     &   ,callnirco2,callnlte,callthermos,callconduct,calleuv           &
11     &   ,callmolvis,callmoldiff,thermochem,thermoswater,callemis       &
[2409]12     &   ,callg2d,linear,rayleigh,tracer                                &
13     &   ,scavenging,sedimentation                                      &
[1467]14     &   ,activice,water,tifeedback,microphys,supersat,caps,photochem   &
[1974]15     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4,co2clouds &
[2447]16     &   ,co2useh2o,meteo_flux,activeco2ice,CLFvaryingCO2,spantCO2      &
[2628]17     &   ,CLFvarying,satindexco2,rdstorm,topflows,calllott_nonoro        &
[2312]18     &   ,latentheat_surfwater,gwd_convective_source,startphy_file      &
[2561]19     &   ,hdo,hdofrac,cst_cap_albedo,temp_dependant_m,refill_watercap
[2612]20!$OMP THREADPRIVATE(/callkeys_l/)
21
[2312]22     
[2409]23      COMMON/callkeys_i/iradia,iaervar,ilwd,ilwb,ilwn,ncouche           &
24     &   ,nltemodel,nircorr,solvarmod,solvaryear,dustinjection
[2612]25!$OMP THREADPRIVATE(/callkeys_i/)
[38]26     
[2409]27      COMMON/callkeys_r/semi,alphan,euveff,                             &
[1974]28     &   tke_heat_flux,dustrefir,fixed_euv_value,CLFfixval,             &
[2160]29     &   coeff_injection,ti_injection,tf_injection,coeff_detrainment
[2612]30!$OMP THREADPRIVATE(/callkeys_r/)
[38]31     
32      LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
[2149]33     &   season,diurnal,lwrite,calllott,calllott_nonoro                 &
[2559]34     &   ,calleofdump                                                   &
[38]35     &   ,callnirco2,callnlte,callthermos,callconduct,                  &
[161]36     &    calleuv,callmolvis,callmoldiff,thermochem,thermoswater        &
[1240]37     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4
[38]38
[1353]39      COMMON/aeroutput/dustiropacity
[2612]40!$OMP THREADPRIVATE(/aeroutput/)
[38]41
[2281]42      logical startphy_file
43
[38]44      logical callemis
45      logical callg2d
46      logical linear
[2220]47      logical gwd_convective_source
[38]48
49      real semi
50      real alphan
[1684]51      real fixed_euv_value
[552]52      real euveff
[544]53      real tke_heat_flux
[1974]54      real coeff_injection ! dust injection scheme coefficient
[2160]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
[1711]58      real CLFfixval
[38]59
60      integer iaervar
61      integer iradia
62      integer ilwd
63      integer ilwb
64      integer ilwn
65      integer ncouche
[705]66      integer solvarmod   ! model for solar EUV variation
67      integer solvaryear  ! mars year for realisticly varying solar EUV
[1974]68      integer dustinjection ! dust injection scheme number
[38]69
70      logical rayleigh
71      logical tracer
[2409]72      logical scavenging
[1974]73      logical rdstorm ! rocket dust storm parametrization
[2628]74      logical topflows ! entrainment by mountain top dust flows parametrization
[2218]75      logical latentheat_surfwater ! latent heat release from ground water ice sublimation/condensation
[2561]76      logical cst_cap_albedo ! polar cap albedo remains unchanged by water frost deposition
[2522]77      logical temp_dependant_m ! temperature-dependant water contact parameter
[2561]78      logical refill_watercap ! h2o_ice_s is converted to watercap when above threshold
[833]79      logical sedimentation
[1617]80      logical activice,tifeedback,supersat,caps
[1818]81      logical co2clouds,co2useh2o,meteo_flux,CLFvaryingCO2,satindexco2
[2447]82      logical activeco2ice
[1720]83      integer spantCO2
[1711]84      logical CLFvarying
[1617]85      logical water
[2312]86      logical hdo
87      logical hdofrac
[1617]88      logical microphys
[38]89      logical photochem
[414]90      integer nltemodel
91      integer nircorr
[38]92
[1353]93      character(len=100) dustiropacity
94      real               dustrefir
95 
[38]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.