Changeset 13011 for NEMO/trunk/tests
- Timestamp:
- 2020-06-03T09:56:28+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/STATION_ASF/MY_SRC/nemogcm.F90
r12933 r13011 100 100 IF( nstop /= 0 .AND. lwp ) THEN ! error print 101 101 WRITE(ctmp1,*) ' ==>>> nemo_gcm: a total of ', nstop, ' errors have been found' 102 CALL ctl_stop( ctmp1 ) 102 WRITE(ctmp2,*) ' Look for "E R R O R" messages in all existing ocean_output* files' 103 CALL ctl_stop( ' ', ctmp1, ' ', ctmp2 ) 103 104 ENDIF 104 105 !
Note: See TracChangeset
for help on using the changeset viewer.