Changeset 1828 for LMDZ5/trunk/libf/phylmd/physiq.F

Timestamp:

Aug 6, 2013, 6:06:40 PM (12 years ago)

Author:

idelkadi

Message:

Gestion des fichiers de sorties sur les niveaux de pression NMC (hist*NMC.nc) via le meme mecanisme utilise pour les fichiers histoires (phys_output_mod, ...)
Ces sorties sont ainsi controles par les memes flags : phys_out_filekeys, phys_out_filenames, phys_out_filetimesteps, phys_out_filelevels, ...
(exemple dans config.def : phys_out_filenames=histmth histday histhf histins histLES histstn histmthNMC histdayNMC histhfNMC)

File:

• LMDZ5/trunk/libf/phylmd/physiq.F (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/physiq.F

@@ -1512 +1512 @@
        call phys_output_open(rlon,rlat,nCFMIP,tabijGCM,
      &                       iGCM,jGCM,lonGCM,latGCM,
-     &                       jjmp1,nlevSTD,clevSTD,
+     &                       jjmp1,nlevSTD,clevSTD,rlevSTD,
      &                       nbteta, ctetaSTD, dtime,ok_veget,
      &                       type_ocean,iflag_pbl,ok_mensuel,ok_journe,
@@ -1527 +1527 @@
 #ifdef histISCCP
 #include "ini_histISCCP.h"
-#endif
-
-#undef histNMC
-#ifdef histNMC
-#include "ini_histhfNMC.h"
-#include "ini_histdayNMC.h"
-#include "ini_histmthNMC.h"
 #endif
 
@@ -3954 +3947 @@
      &                  pplay, lmax_th, aerosol_couple,                 &
      &                  ok_ade, ok_aie, ivap, new_aod, ok_sync,         &
-     &                  ptconv, read_climoz, clevSTD, ptconvth,         &
-     &                  d_t, qx, d_qx, zmasse, flag_aerosol_strat)
+     &                  ptconv, read_climoz, clevSTD, freq_moyNMC,      &
+     &                  ptconvth, d_t, qx, d_qx, zmasse,                &
+     &                  flag_aerosol_strat)
 
 
@@ -3962 +3956 @@
 #ifdef histISCCP
 #include "write_histISCCP.h"
-#endif
-
-#ifdef histNMC
-#include "write_histhfNMC.h"
-#include "write_histdayNMC.h"
-#include "write_histmthNMC.h"
 #endif