- Timestamp:
- 2010-07-22T12:48:59+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/src/histcom.f90
r1993 r2022 1604 1604 IF (l_dbg) WRITE(*,*) "histend : 4.0" 1605 1605 !- 1606 WRITE(str70,'("All variables have been initialized on file :",I3)') idf1607 CALL ipslerr (1,'histend',str70,'',' ')1606 !!$ WRITE(str70,'("All variables have been initialized on file :",I3)') idf 1607 !!$ CALL ipslerr (1,'histend',str70,'',' ') 1608 1608 !--------------------- 1609 1609 END SUBROUTINE histend … … 2258 2258 ENDIF 2259 2259 !- 2260 IF (varseq_err(idf) >= 10) THEN2261 WRITE(str70,'("for file ",I3)') idf2262 CALL ipslerr (2,"histvar_seq", &2263 & 'There were 10 errors in the learned sequence of variables',&2264 & str70,'This looks like a bug, please report it.')2265 varseq_err(idf) = 02266 ENDIF2260 !!$ IF (varseq_err(idf) >= 10) THEN 2261 !!$ WRITE(str70,'("for file ",I3)') idf 2262 !!$ CALL ipslerr (2,"histvar_seq", & 2263 !!$ & 'There were 10 errors in the learned sequence of variables',& 2264 !!$ & str70,'This looks like a bug, please report it.') 2265 !!$ varseq_err(idf) = 0 2266 !!$ ENDIF 2267 2267 ENDIF 2268 2268 !-
Note: See TracChangeset
for help on using the changeset viewer.