Changeset 520 for trunk/LMDZ.MARS/libf/phymars/testphys1d.F

Timestamp:

Feb 10, 2012, 12:33:14 PM (13 years ago)

Author:

tnavarro

Message:

10/02/12 == TN

Major update on watercycle: a smaller integration timestep is now used

in watercloud.F, sedimentation of clouds is done in watercloud instead of
callsedim.F

Temperature-dependant contact parameter in nuclea.F
No dust lifting if CO2 ice in vdif.c
Ice integrated column opacity is written in diagfi from physiq.F, instead

of aeropacity.F. Mandatory if iradia is not 1.

New definition of permanent ice in surfini.F and possibility to have an ice

cap in it in 1d.

Update in deftank: callphys.def.outliers,run.def.1d; added traceur.def.scavenging

File:

• trunk/LMDZ.MARS/libf/phymars/testphys1d.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/testphys1d.F

@@ -581 +581 @@
      $   thermo,qsurf)
       endif
-      watercaptag(ngridmx)=.false.
+
+c Regarder si le sol est un reservoir de glace d'eau 
+c --------------------------------------------------
+      watercaptag(ngridmx)=.false. ! Par defaut il n'y pas de glace au sol
+      print *,'Water ice cap on ground ?'
+      call getin("watercaptag",watercaptag)
+      write(*,*) " watercaptag = ",watercaptag