Ignore:
Timestamp:
Feb 18, 2009, 4:29:33 PM (16 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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

    r1095 r1102  
    4141c   CLEFS CPP POUR LES IO
    4242c   =====================
    43 c#define histhf
    44 c#define histday
    45 c#define histmth
    4643c#define histmthNMC
    47 c#define histins
    4844c#define histISCCP
    4945c======================================================================
     
    527523c  QUESTION : noms de variables ?
    528524
    529 c#ifdef histhf
    530 c      data ok_hf/.true./
    531 c#else
    532 c      data ok_hf/.false./
    533 c#endif
    534525      INTEGER        longcles
    535526      PARAMETER    ( longcles = 20 )
     
    15071498
    15081499#ifdef CPP_IOIPSL
    1509 
    1510 c Commente par abderrahmane 11 2 08
    1511 c#ifdef histhf
    1512 c#include "ini_histhf.h"
    1513 c#endif
    1514 
    1515 c#ifdef histday
    1516 c#include "ini_histday.h"
    1517 cIM rajout diagnostiques bilan KP pour analyse MJO par Jun-Ichi Yano
    1518 c#include "ini_bilKP_ins.h"
    1519 c#include "ini_bilKP_ave.h"
    1520 c#endif
    1521 
    1522 c#ifdef histmth
    1523 c#include "ini_histmth.h"
    1524 c#endif
    1525 
    1526 c#ifdef histins
    1527 c#include "ini_histins.h"
    1528 c#endif
    15291500
    15301501c$OMP MASTER
     
    35063477
    35073478
    3508 c Commente par abderrahmane le 11 2 08
    3509 c#ifdef histhf
    3510 c#include "write_histhf.h"
    3511 c#endif
    3512 
    3513 c#ifdef histday
    3514 c#include "write_histday.h"
    3515 c#endif
    3516 
    3517 c#ifdef histmth
    3518 c#include "write_histmth.h"
    3519 c#endif
    3520 
    3521 c#ifdef histins
    3522 c#include "write_histins.h"
    3523 c#endif
    3524 
    35253479#include "phys_output_write.h"
    35263480
Note: See TracChangeset for help on using the changeset viewer.