Changeset 1974 for trunk/LMDZ.MARS/libf/phymars/callkeys.h

Timestamp:

Jul 18, 2018, 4:48:34 PM (6 years ago)

Author:

mvals

Message:

Mars GCM:
Integration of the detached dust layer parametrizations (rocket dust storm, slope wind lifting, CW, and dust injection scheme, DB).
Still experimental, default behaviour (rdstorm=.false., dustinjection=0) identical to previous revision.
NB: Updated newstart requires an updated "surface.nc" containing the "hmons" field.
EM+MV

File:

• trunk/LMDZ.MARS/libf/phymars/callkeys.h (modified) (3 diffs)

trunk/LMDZ.MARS/libf/phymars/callkeys.h

@@ -13 +13 @@
      &   ,lifting,freedust,callddevil,scavenging,sedimentation          &
      &   ,activice,water,tifeedback,microphys,supersat,caps,photochem   &
-     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4,co2clouds,&
-     &   co2useh2o,meteo_flux,CLFvaryingCO2,spantCO2,CLFvarying,        &
-     &   satindexco2
+     &   ,calltherm,callrichsl,callslope,tituscap,callyamada4,co2clouds &
+     &   ,co2useh2o,meteo_flux,CLFvaryingCO2,spantCO2,CLFvarying        &
+     &   ,satindexco2,rdstorm
      
       COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
-     &   ,dustbin,nltemodel,nircorr,solvarmod,solvaryear
+     &   ,dustbin,nltemodel,nircorr,solvarmod,solvaryear,dustinjection
      
       COMMON/callkeys_r/topdustref,semi,alphan,euveff,                  &
-     &   tke_heat_flux,dustrefir,fixed_euv_value,CLFfixval
+     &   tke_heat_flux,dustrefir,fixed_euv_value,CLFfixval,             &
+     &   coeff_injection
      
       LOGICAL callrad,calldifv,calladj,callcond,callsoil,               &
@@ -42 +43 @@
       real euveff
       real tke_heat_flux
+      real coeff_injection ! dust injection scheme coefficient
       real CLFfixval
 
@@ -53 +55 @@
       integer solvarmod   ! model for solar EUV variation
       integer solvaryear  ! mars year for realisticly varying solar EUV 
+      integer dustinjection ! dust injection scheme number 
 
       logical rayleigh
       logical tracer
       integer dustbin
-      logical freedust 
+      logical freedust  
       logical active,doubleq,submicron,lifting,callddevil,scavenging
+      logical rdstorm ! rocket dust storm parametrization
       logical sedimentation
       logical activice,tifeedback,supersat,caps