Changeset 522 for LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90

Timestamp:

May 6, 2004, 10:57:36 AM (20 years ago)

Author:

lmdzadmin

Message:

Modifications pour la fermeture en eau (fonte des glaciers) JLD, OM
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90 (modified) (3 diffs)

LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90

@@ -17 +17 @@
 #include "YOMCST.inc"
 !IM : on inclut/initialise les taux de CH4, N2O, CFC11 et CFC12
-include "clesphys.inc"
+#include "clesphys.inc"
 !
 ! Configuration de la "physique" de LMDZ a l'aide de la fonction
@@ -44 +44 @@
   real                 :: fact_cldcon, facttemps,ratqsbas,ratqshaut
   integer              :: iflag_cldcon, if_ebil
+
 ! Local
   integer              :: numout = 6
@@ -608 +609 @@
   end subroutine conf_phys
 
+!
+!#################################################################
+!
+
+   subroutine conf_interface(tau_calv)
+
+   use IOIPSL
+   implicit none
+
+! Configuration de l'interace atm/surf
+!
+! tau_calv:    temps de relaxation pour la fonte des glaciers
+
+  REAL          :: tau_calv
+
+! Local
+  integer              :: numout = 6
+!
+!Config Key  = tau_calv
+!Config Desc = temps de relaxation pour fonte des glaciers en jours
+!Config Def  = 1 an 
+!Config Help = 
+!
+  tau_calv = 360.
+  call getin('tau_calv',tau_calv)
+
+  write(numout,*)' ##############################################'
+  WRITE(numout,*)' Configuration de l''interface atm/surfaces  : '
+  WRITE(numout,*)' tau_calv = ',tau_calv
+  return
+
+  end subroutine conf_interface