Changeset 13121 for NEMO/branches/2020/dev_r12953_ENHANCE-10_acc_fix_traqsr/tests/STATION_ASF/MY_SRC/nemogcm.F90
- Timestamp:
- 2020-06-17T13:01:47+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12953_ENHANCE-10_acc_fix_traqsr/tests/STATION_ASF/MY_SRC/nemogcm.F90
r12933 r13121 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.