Changeset 1192
- Timestamp:
- Jun 24, 2009, 7:09:28 PM (16 years ago)
- 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 2 2 ! $Id $ 3 3 ! 4 #ifdef CPP_IOIPSL5 6 4 IF (ecrit_tra>0. .AND. config_inca == 'none') THEN 7 5 !$OMP MASTER … … 124 122 !$OMP END MASTER 125 123 END IF ! ecrit_tra>0. .AND. config_inca == 'none' 126 127 #endif128 124 -
LMDZ4/branches/LMDZ4-dev/libf/phylmd/phytrac.F90
r1191 r1192 220 220 ! Initialize diagnostic output 221 221 ! ---------------------------- 222 #ifdef CPP_IOIPSL 222 223 INCLUDE "ini_histrac.h" 223 224 #endif 224 225 END IF 225 226 !############################################ END INITIALIZATION ####### … … 405 406 ! Ecriture des sorties 406 407 !============================================================= 408 #ifdef CPP_IOIPSL 407 409 INCLUDE "write_histrac.h" 408 410 #endif 409 411 410 412 END SUBROUTINE phytrac -
LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histrac.h
r1191 r1192 3 3 ! ECRITURE DU FICHIER : histrac.nc 4 4 !*************************************** 5 #ifdef CPP_IOIPSL6 5 IF (ecrit_tra > 0. .AND. config_inca == 'none') THEN 7 6 … … 83 82 ENDIF !ecrit_tra>0. .AND. config_inca == 'none' 84 83 85 #endif
Note: See TracChangeset
for help on using the changeset viewer.