Changeset 1102 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

Timestamp:

Feb 18, 2009, 4:29:33 PM (15 years ago)

Author:

idelkadi

Message:

Fichiers run.def gcm.def physiq.def adaptes pour la version actuelle
Nettoyage de physiq.F des appels aux ini_hists et write_hists

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F (modified) (4 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

@@ -41 +41 @@
 c   CLEFS CPP POUR LES IO
 c   =====================
-c#define histhf
-c#define histday
-c#define histmth
 c#define histmthNMC
-c#define histins
 c#define histISCCP
 c======================================================================
@@ -527 +523 @@
 c  QUESTION : noms de variables ?
 
-c#ifdef histhf
-c      data ok_hf/.true./
-c#else
-c      data ok_hf/.false./
-c#endif
       INTEGER        longcles
       PARAMETER    ( longcles = 20 )
@@ -1507 +1498 @@
 
 #ifdef CPP_IOIPSL
-
-c Commente par abderrahmane 11 2 08
-c#ifdef histhf
-c#include "ini_histhf.h"
-c#endif
-
-c#ifdef histday
-c#include "ini_histday.h"
-cIM rajout diagnostiques bilan KP pour analyse MJO par Jun-Ichi Yano
-c#include "ini_bilKP_ins.h"
-c#include "ini_bilKP_ave.h"
-c#endif
-
-c#ifdef histmth
-c#include "ini_histmth.h"
-c#endif
-
-c#ifdef histins
-c#include "ini_histins.h"
-c#endif
 
 c$OMP MASTER
@@ -3506 +3477 @@
 
 
-c Commente par abderrahmane le 11 2 08
-c#ifdef histhf
-c#include "write_histhf.h"
-c#endif
-
-c#ifdef histday
-c#include "write_histday.h"
-c#endif
-
-c#ifdef histmth
-c#include "write_histmth.h"
-c#endif
-
-c#ifdef histins
-c#include "write_histins.h"
-c#endif
-
 #include "phys_output_write.h"