- 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/nemogcm.F90
r12640 r12955 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,*) ' ==>>> Error detected in Agrif grid '//TRIM(ctmp9) 228 WRITE(ctmp3,*) ' ==>>> look for error messages in '//TRIM(ctmp9)//'_ocean_output* files' 229 CALL ctl_stop( ctmp1, ctmp2, ctmp3 ) 230 ELSE 231 CALL ctl_stop( ctmp1 ) 232 ENDIF 233 233 ENDIF 234 234 !
Note: See TracChangeset
for help on using the changeset viewer.