Changeset 702 for LMDZ4/trunk/libf/phylmd

Timestamp:

May 15, 2006, 1:51:55 PM (19 years ago)

Author:

lmdzadmin

Message:

Frequence sortie traceurs (ecrit_tra) en jours. MAF
CVS

Location:

LMDZ4/trunk/libf/phylmd

Files:

• conf_phys.F90 (modified) (2 diffs)
• physiq.F (modified) (2 diffs)

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -657 +657 @@
   ecrit_mth = 30.
   call getin('ecrit_mth',ecrit_mth)
+!
+!Config Key  = ecrit_tra
+!Config Desc =
+!Config Def  = 30. !tous les 30jours (1 fois par mois)
+!Config Help =
+!
+  ecrit_tra = 30.
+  call getin('ecrit_tra',ecrit_tra)
 !
 !Config Key  = ecrit_reg
@@ -733 +741 @@
   write(numout,*)' lonmin lonmax latmin latmax bilKP_ins =',&
  & lonmin_ins, lonmax_ins, latmin_ins, latmax_ins
-  write(numout,*)' ecrit_ hf, day, mth, reg',&
- & ecrit_hf, ecrit_day, ecrit_mth, ecrit_reg
+  write(numout,*)' ecrit_ hf, day, mth, reg, tra',&
+ & ecrit_hf, ecrit_day, ecrit_mth, ecrit_reg, ecrit_tra
   return
 

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1554 +1554 @@
 c
          ecrit_hf2mth = 30*1/ecrit_hf 
-c ecrit_ins, ecrit_tra en secondes, chaque pas de temps de la physique
+c ecrit_ins en secondes, chaque pas de temps de la physique
          ecrit_ins = dtime
-         ecrit_tra = dtime
 cIM on passe les frequences de jours en secondes : ecrit_ins, ecrit_hf, ecrit_day, ecrit_mth, ecrit_tra, ecrit_reg
          ecrit_hf = ecrit_hf * un_jour
@@ -1562 +1561 @@
          ecrit_mth = ecrit_mth * un_jour
          ecrit_reg = ecrit_reg * un_jour
+         ecrit_tra = ecrit_tra * un_jour
 cIM 030306 END
 c