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

Timestamp:

Sep 17, 2020, 10:42:57 AM (4 years ago)

Author:

emillour

Message:

Mars GCM:
Code tidying : make a "dust_param_mod" module to store dust cycle relevant flags
and variables (and remove them from callkeys.h)
EM

File:

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

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

@@ -10 +10 @@
      &   ,callnirco2,callnlte,callthermos,callconduct,calleuv           &
      &   ,callmolvis,callmoldiff,thermochem,thermoswater,callemis       &
-     &   ,callg2d,linear,rayleigh,tracer,active,doubleq,submicron       &
-     &   ,lifting,freedust,callddevil,scavenging,sedimentation          &
+     &   ,callg2d,linear,rayleigh,tracer                                &
+     &   ,scavenging,sedimentation                                      &
      &   ,activice,water,tifeedback,microphys,supersat,caps,photochem   &
      &   ,calltherm,callrichsl,callslope,tituscap,callyamada4,co2clouds &
@@ -19 +19 @@
      &   ,hdo,hdofrac
      
-      COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
-     &   ,dustbin,nltemodel,nircorr,solvarmod,solvaryear,dustinjection
+      COMMON/callkeys_i/iradia,iaervar,ilwd,ilwb,ilwn,ncouche           &
+     &   ,nltemodel,nircorr,solvarmod,solvaryear,dustinjection
      
-      COMMON/callkeys_r/topdustref,semi,alphan,euveff,                  &
+      COMMON/callkeys_r/semi,alphan,euveff,                             &
      &   tke_heat_flux,dustrefir,fixed_euv_value,CLFfixval,             &
      &   coeff_injection,ti_injection,tf_injection,coeff_detrainment
@@ -42 +42 @@
       logical gwd_convective_source
 
-      real topdustref
       real semi
       real alphan
@@ -54 +53 @@
       real CLFfixval
 
-      integer iddist
       integer iaervar
       integer iradia
@@ -67 +65 @@
       logical rayleigh
       logical tracer
-      integer dustbin
-      logical freedust  
-      logical active,doubleq,submicron,lifting,callddevil,scavenging
+      logical scavenging
       logical rdstorm ! rocket dust storm parametrization
       logical slpwind ! entrainment by slope wind parametrization