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

Timestamp:

Nov 8, 2012, 7:03:03 PM (12 years ago)

Author:

jbmadeleine

Message:

Mars GCM:

Implemented the thermal inertia feedback:

• Added a flag in callphys.def called tifeedback, set to false by default;
• Changed physiq.F to call soil.F with a new thermal inertia if tifeedback = true;
• Added a routine called soil_tifeedback.F that computes the new thermal inertia of the subsurface when ice is deposited;

  Modified files: soil.F, physiq.F, inifis.F, callkeys.h
  Added files: soil_tifeedback.F
  

File:

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

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

@@ -12 +12 @@
      &   ,callg2d,linear,rayleigh,tracer,active,doubleq,submicron       &
      &   ,lifting,callddevil,scavenging,sedimentation,activice,water    &
-     &   ,microphys,caps,photochem,calltherm,outptherm,callrichsl       &
-     &   ,callslope,tituscap
+     &   ,tifeedback,microphys,caps,photochem,calltherm,outptherm       &
+     &   ,callrichsl,callslope,tituscap
      
       COMMON/callkeys_i/iradia,iaervar,iddist,ilwd,ilwb,ilwn,ncouche    &
@@ -54 +54 @@
       integer dustbin
       logical active,doubleq,submicron,lifting,callddevil,scavenging
-      logical sedimentation,activice,water,microphys,caps
+      logical sedimentation
+      logical water,activice,tifeedback,microphys,caps
       logical photochem
       integer nltemodel