Changeset 644 for LMDZ4/trunk/libf/phylmd/conf_phys.F90

Timestamp:

May 25, 2005, 3:10:09 PM (19 years ago)

Author:

Laurent Fairhead

Message:

Synchronisation avec tous les diagnostiques de Ionela IM
Inclusion du slab ocean IM
LF

File:

• LMDZ4/trunk/libf/phylmd/conf_phys.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -22 +22 @@
 include "clesphys.inc"
 include "compbl.h"
+#include "control.inc"
 !
 ! Configuration de la "physique" de LMDZ a l'aide de la fonction
@@ -577 +578 @@
 
 !
-!
-!Config Key  = 
-!Config Desc =  
-!Config Def  =
-!Config Help = 
-!
-!   =
-!  call getin('',)
-!
-!
-!
-!
+!Config Key  = type_run
+!Config Desc =
+!Config Def  = 'AMIP' ou 'ENSP'
+!Config Help =
+!
+  type_run = 'AMIP'
+  call getin('type_run',type_run)
+
+!
+!Config Key  = ok_isccp
+!Config Desc =
+!Config Def  = .true.
+!Config Help =
+!
+! ok_isccp = .true.
+  ok_isccp = .false.
+  call getin('ok_isccp',ok_isccp)
+
+!
+!
+!Config Key  = ok_regdyn
+!Config Desc =
+!Config Def  = 'AMIP'
+!Config Help =
+!
+! ok_regdyn = .true.
+  ok_regdyn = .false.
+  call getin('ok_regdyn',ok_regdyn)
+!
+! coordonnees (lonmin_ins, lonmax_ins, latmin_ins, latmax_ins) pour la zone 
+! avec sorties instantannees tous les pas de temps de la physique => "histbilKP_ins.nc"
+!
+!Config Key  = lonmin_ins
+!Config Desc = 100.  
+!Config Def  = longitude minimale sorties "bilKP_ins"
+!Config Help = 
+!
+   lonmin_ins = 100.
+   call getin('lonmin_ins',lonmin_ins)
+!
+!Config Key  = lonmax_ins
+!Config Desc = 130. 
+!Config Def  = longitude maximale sorties "bilKP_ins"
+!Config Help =
+!
+   lonmax_ins = 130.
+   call getin('lonmax_ins',lonmax_ins)
+!
+!Config Key  = latmin_ins
+!Config Desc = -20.  
+!Config Def  = latitude minimale sorties "bilKP_ins"
+!Config Help = 
+!
+   latmin_ins = -20.
+   call getin('latmin_ins',latmin_ins)
+!
+!Config Key  = latmax_ins
+!Config Desc = 20. 
+!Config Def  = latitude maximale sorties "bilKP_ins"
+!Config Help =
+!
+   latmax_ins = 20.
+   call getin('latmax_ins',latmax_ins)
+!
+!Config Key  = ecrit_ins
+!Config Desc =
+!Config Def  = NINT(86400./dtime/48.) !a chaque pas de temps physique
+!Config Help =
+!
+! ecrit_ins = NINT(86400./dtime/48.)
+  ecrit_ins = NINT(86400./48.)
+  call getin('ecrit_ins',ecrit_ins)
+!
+!Config Key  = ecrit_hf
+!Config Desc =
+!Config Def  = NINT(86400./dtime *0.25) !toutes les 6h
+!Config Help =
+!
+! ecrit_hf = NINT(86400./dtime *0.25)
+  ecrit_hf = NINT(86400. *0.25)
+  call getin('ecrit_hf',ecrit_hf)
+!
+!Config Key  = ecrit_hf2mth
+!Config Desc =
+!Config Def  = 4*30 !ecriture mens. a partir de val. inst. toutes les 6h
+!Config Help =
+!
+  ecrit_hf2mth = 4*30
+  call getin('ecrit_hf2mth',ecrit_hf2mth)
+!
+!Config Key  = ecrit_day
+!Config Desc =
+!Config Def  = NINT(86400./dtime *1.0) !tous les jours
+!Config Help =
+!
+! ecrit_day = NINT(86400./dtime *1.0)
+  ecrit_day = NINT(86400. *1.0)
+  call getin('ecrit_day',ecrit_day)
+!
+!Config Key  = ecrit_mth
+!Config Desc =
+!Config Def  = NINT(86400./dtime *ecritphy) !1fois par mois
+!Config Help =
+!
+! ecrit_mth = NINT(86400./dtime *ecritphy)
+  ecrit_mth = NINT(86400. *ecritphy)
+  call getin('ecrit_mth',ecrit_mth)
+!
+!Config Key  = ecrit_tra
+!Config Desc =
+!Config Def  = NINT(86400./dtime * ecritphy) !tous les pas de temps physiques
+!Config Help =
+!
+! ecrit_tra = NINT(86400./dtime * ecritphy)
+  ecrit_tra = NINT(86400.* ecritphy)
+  call getin('ecrit_tra',ecrit_tra)
+!
+!Config Key  = ecrit_reg
+!Config Desc =
+!Config Def  = NINT(86400./dtime *0.25)  !4 fois par jour
+!Config Help =
+!
+! ecrit_reg = NINT(86400./dtime *0.25)  !4 fois par jour
+  ecrit_reg = NINT(86400. *0.25)  !4 fois par jour
+  call getin('ecrit_reg',ecrit_reg)
+!
+
 
   write(numout,*)' ##############################################'
@@ -642 +758 @@
   write(numout,*)' iflag_pbl = ', iflag_pbl
   write(numout,*)' iflag_thermals = ', iflag_thermals
-
+  write(numout,*)' type_run = ',type_run 
+  write(numout,*)' ok_isccp = ',ok_isccp 
+  write(numout,*)' ok_regdyn = ',ok_regdyn
+  write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',&
+ & lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
+  write(numout,*)' ecrit_ ins, hf, hf2mth, day, mth, reg, tra',&
+ & ecrit_ins, ecrit_hf, ecrit_hf2mth, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra
   return