Changeset 1115 for LMDZ4/branches/LMDZ4-dev/libf
- Timestamp:
- Mar 4, 2009, 10:24:39 AM (16 years ago)
- Location:
- LMDZ4/branches/LMDZ4-dev/libf/phylmd
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/ini_histrac.h
r1114 r1115 2 2 ! $Header$ 3 3 ! 4 IF ( config_inca == 'none') THEN4 IF (ecrit_tra>0. .AND. config_inca == 'none') THEN 5 5 c$OMP MASTER 6 6 CALL ymds2ju(annee_ref, 1, day_ref, 0.0, zjulian) … … 121 121 ndex = 0 122 122 c$OMP END MASTER 123 END IF 123 END IF ! ecrit_tra>0. .AND. config_inca == 'none' -
LMDZ4/branches/LMDZ4-dev/libf/phylmd/write_histrac.h
r1114 r1115 3 3 ! 4 4 5 IF ( config_inca == 'none') THEN5 IF (ecrit_tra>0. .AND. config_inca == 'none') THEN 6 6 ndex = 0 7 7 ndex2d = 0 … … 78 78 endif 79 79 80 END IF 80 END IF !ecrit_tra>0. .AND. config_inca == 'none' 81 81 82 82
Note: See TracChangeset
for help on using the changeset viewer.