- Timestamp:
- 2020-05-20T16:08:51+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_r12713_clem_dan_fixcpl/src/OCE/LBC/lib_mpp.F90
r12518 r12955 1084 1084 CHARACTER(len=*), INTENT(in ), OPTIONAL :: cd2, cd3, cd4, cd5 1085 1085 CHARACTER(len=*), INTENT(in ), OPTIONAL :: cd6, cd7, cd8, cd9, cd10 1086 ! 1087 INTEGER :: inum 1086 1088 !!---------------------------------------------------------------------- 1087 1089 ! 1088 1090 nstop = nstop + 1 1089 1091 ! 1090 ! force to open ocean.output file if not already opened 1091 IF( numout == 6 ) CALL ctl_opn( numout, 'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 1092 IF( numout == 6 ) THEN ! force to open ocean.output file if not already opened 1093 CALL ctl_opn( numout, 'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 1094 ELSE 1095 IF( narea > 1 .AND. cd1 == 'STOP' ) THEN ! add an error message in ocean.output 1096 CALL ctl_opn( inum,'ocean.output', 'APPEND', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 1097 WRITE(inum,*) 1098 WRITE(inum,'(a,i4.4)') ' ===>>> : see E R R O R in ocean.output_', narea - 1 1099 ENDIF 1100 ENDIF 1092 1101 ! 1093 1102 WRITE(numout,*) … … 1117 1126 WRITE(numout,*) 'huge E-R-R-O-R : immediate stop' 1118 1127 WRITE(numout,*) 1128 CALL FLUSH(numout) 1129 CALL SLEEP(60) ! make sure that all output and abort files are written by all cores. 60s should be enough... 1119 1130 CALL mppstop( ld_abort = .true. ) 1120 1131 ENDIF … … 1206 1217 & OPEN(UNIT=knum,FILE='NUL', FORM=cdform, ACCESS=cdacce, STATUS=cdstat , ERR=100, IOSTAT=iost ) 1207 1218 IF( iost == 0 ) THEN 1208 IF(ldwp ) THEN1219 IF(ldwp .AND. kout > 0) THEN 1209 1220 WRITE(kout,*) ' file : ', TRIM(clfile),' open ok' 1210 1221 WRITE(kout,*) ' unit = ', knum
Note: See TracChangeset
for help on using the changeset viewer.