Changeset 1355

Timestamp:

Apr 14, 2010, 3:27:18 PM (15 years ago)

Author:

musat

Message:

use of phys_cal_mod in conf_phys (and change call order in physiq.F) to
automatically calculate the output frequency of standard pressure monthly
file (histmthNMC.nc)
IM

Location:

LMDZ4/trunk/libf/phylmd

Files:

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

LMDZ4/trunk/libf/phylmd/conf_phys.F90

@@ -26 +26 @@
    use IOIPSL
    USE surface_data
+   USE phys_cal_mod
    USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl
 
@@ -1094 +1095 @@
 !Config Help =
 !
-  freq_outNMC_omp(1) = 2592000.
+! freq_outNMC_omp(1) = 2592000.
+  freq_outNMC_omp(1) = mth_len*86400.
   freq_outNMC_omp(2) = 86400.
   freq_outNMC_omp(3) = 21600.

LMDZ4/trunk/libf/phylmd/physiq.F

@@ -1155 +1155 @@
       missing_val=nf90_fill_real
 c======================================================================
+! Gestion calendrier : mise a jour du module phys_cal_mod
+!
+      CALL phys_cal_update(jD_cur,jH_cur)
+
+c======================================================================
 ! Ecriture eventuelle d'un profil verticale en entree de la physique.
 ! Utilise notamment en 1D mais peut etre active egalement en 3D
@@ -1260 +1265 @@
 ! Gestion calendrier : mise a jour du module phys_cal_mod
 !
-      CALL phys_cal_update(jD_cur,jH_cur)
+cIM     CALL phys_cal_update(jD_cur,jH_cur)
 
 c