Changeset 1192 for LMDZ4


Ignore:
Timestamp:
Jun 24, 2009, 7:09:28 PM (15 years ago)
Author:
jghattas
Message:

Deplace #ifdef CPP_IOIPSL de ini_histrac et write_histrac vers phytrac.
Sur VARGAS ca ne compile pas avec des #ifdef dans des fichiers include.

Location:
LMDZ4/branches/LMDZ4-dev/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histrac.h

    r1191 r1192  
    22! $Id $
    33!
    4 #ifdef CPP_IOIPSL
    5 
    64  IF (ecrit_tra>0. .AND. config_inca == 'none') THEN
    75!$OMP MASTER
     
    124122!$OMP END MASTER
    125123  END IF ! ecrit_tra>0. .AND. config_inca == 'none'
    126 
    127 #endif
    128124 
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F90

    r1191 r1192  
    220220! Initialize diagnostic output
    221221! ----------------------------
     222#ifdef CPP_IOIPSL
    222223     INCLUDE "ini_histrac.h"
    223        
     224#endif
    224225  END IF
    225226!############################################ END INITIALIZATION #######
     
    405406!   Ecriture des sorties
    406407!=============================================================
     408#ifdef CPP_IOIPSL
    407409  INCLUDE "write_histrac.h"
    408 
     410#endif
    409411
    410412END SUBROUTINE phytrac
  • LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histrac.h

    r1191 r1192  
    33!  ECRITURE DU FICHIER :  histrac.nc
    44!***************************************
    5 #ifdef CPP_IOIPSL
    65  IF (ecrit_tra > 0. .AND. config_inca == 'none') THEN
    76     
     
    8382  ENDIF !ecrit_tra>0. .AND. config_inca == 'none'
    8483
    85 #endif
Note: See TracChangeset for help on using the changeset viewer.