- Timestamp:
- 2020-06-09T17:00:38+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/r4.0-HEAD_ticket2425/src/OCE/nemogcm.F90
r12640 r13077 179 179 END DO 180 180 ! 181 IF( .NOT. Agrif_Root() ) THEN182 CALL Agrif_ParentGrid_To_ChildGrid()183 IF( ln_diaobs ) CALL dia_obs_wri184 IF( ln_timing ) CALL timing_finalize185 CALL Agrif_ChildGrid_To_ParentGrid()186 ENDIF187 !188 181 # else 189 182 ! … … 230 223 IF( nstop /= 0 .AND. lwp ) THEN ! error print 231 224 WRITE(ctmp1,*) ' ==>>> nemo_gcm: a total of ', nstop, ' errors have been found' 232 CALL ctl_stop( ctmp1 ) 225 IF( ngrdstop > 0 ) THEN 226 WRITE(ctmp9,'(i2)') ngrdstop 227 WRITE(ctmp2,*) ' E R R O R detected in Agrif grid '//TRIM(ctmp9) 228 WRITE(ctmp3,*) ' Look for "E R R O R" messages in all existing '//TRIM(ctmp9)//'_ocean_output* files' 229 CALL ctl_stop( ' ', ctmp1, ' ', ctmp2, ' ', ctmp3 ) 230 ELSE 231 WRITE(ctmp2,*) ' Look for "E R R O R" messages in all existing ocean_output* files' 232 CALL ctl_stop( ' ', ctmp1, ' ', ctmp2 ) 233 ENDIF 233 234 ENDIF 234 235 !
Note: See TracChangeset
for help on using the changeset viewer.