Changeset 1356

Timestamp:

Apr 14, 2010, 3:27:53 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/branches/LMDZ4V5.0-dev/libf/phylmd

Files:

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

LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/conf_phys.F90

@@ -27 +27 @@
    use IOIPSL
    USE surface_data
+   USE phys_cal_mod
    USE carbon_cycle_mod, ONLY : carbon_cycle_tr, carbon_cycle_cpl
    use control_mod
@@ -1105 +1106 @@
 !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/branches/LMDZ4V5.0-dev/libf/phylmd/physiq.F

@@ -1161 +1161 @@
       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
@@ -1265 +1270 @@
 ! Gestion calendrier : mise a jour du module phys_cal_mod
 !
-      CALL phys_cal_update(jD_cur,jH_cur)
+c     CALL phys_cal_update(jD_cur,jH_cur)
 
 c