Changeset 5675 for branches/UKMO
- Timestamp:
- 2015-08-10T16:39:02+02:00 (9 years ago)
- Location:
- branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90
r5674 r5675 124 124 125 125 CASE DEFAULT 126 IF(lwp) WRITE(numout,*) ' E R R O R : bad cd_type in dia_wri_dimg ' 127 STOP 'dia_wri_dimg'126 IF(lwp) WRITE(numout,*) ' E R R O R : bad cd_type in dia_wri_dimg ',cd_type 127 CALL ctl_stop('STOP', 'NEMO aborted from dia_wri_dimg') 128 128 129 129 END SELECT -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r5674 r5675 1062 1062 ENDIF 1063 1063 #endif 1064 1065 IF (cdfile_name == "output.abort") THEN 1066 CALL ctl_stop('STOP', 'NEMO abort from dia_wri_state') 1067 END IF 1064 1068 1065 1069 ! IF( nn_timing == 1 ) CALL timing_stop('dia_wri_state') ! not sure this works for routines not called in first timestep -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r5674 r5675 112 112 IF( inbsel > jpk ) THEN 113 113 IF(lwp) WRITE(numout,*) ' STOP inbsel =',inbsel,' is larger than jpk=',jpk 114 STOP114 CALL ctl_stop('STOP', 'NEMO aborted from dia_wri') 115 115 ENDIF 116 116 -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r5674 r5675 526 526 IF(lwp) WRITE(numout,*) 'dom_msk_nsa : noslip accurate boundary condition' 527 527 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ using Schchepetkin and O Brian scheme' 528 IF( lk_mpp ) CALL ctl_stop( ' mpp version is not yet implemented' )528 IF( lk_mpp ) CALL ctl_stop('STOP', ' mpp version is not yet implemented' ) 529 529 530 530 ! mask for second order calculation of vorticity … … 548 548 WRITE(numout,*) ' symetric boundary conditions need special' 549 549 WRITE(numout,*) ' treatment not implemented. we stop.' 550 STOP550 CALL ctl_stop('STOP', 'NEMO abort from dom_msk_nsa') 551 551 ENDIF 552 552 -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90
r5674 r5675 467 467 IF(lwp)WRITE(numout,*) ' ldfguv: kahm= 1 or 2, here =', kahm 468 468 IF(lwp)WRITE(numout,*) ' We stop' 469 STOP 'ldfguv'469 CALL ctl_stop( 'STOP', 'NEMO abort ldfguv') 470 470 ENDIF 471 471 ! ! =============== -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r5674 r5675 2006 2006 2007 2007 SUBROUTINE mppstop 2008 2009 #if defined key_oasis3 || defined key_oasis3mct 2010 2011 #if defined key_oasis3mct 2012 USE mod_oasis 2013 #endif 2014 2015 #endif 2008 2016 !!---------------------------------------------------------------------- 2009 2017 !! *** routine mppstop *** … … 2015 2023 !!---------------------------------------------------------------------- 2016 2024 ! 2025 #if defined key_oasis3 || defined key_oasis3mct 2026 ! If we're trying to shut down cleanly then we need to consider the fact 2027 ! that this could be part of an MPMD configuration - we don't want to 2028 ! leave other components deadlocked. 2029 2030 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2031 2032 #else 2033 2017 2034 CALL mppsync 2018 2035 CALL mpi_finalize( info ) 2019 ! 2036 2037 #endif 2020 2038 END SUBROUTINE mppstop 2021 2039 … … 3784 3802 WRITE(kout,*) 3785 3803 ENDIF 3786 STOP 'ctl_opn bad opening'3804 CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 3787 3805 ENDIF 3788 3806 -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilapg.F90
r5674 r5675 332 332 IF(lwp) WRITE(numout,*) ' ldfght: kaht= 1 or 2, here =', kaht 333 333 IF(lwp) WRITE(numout,*) ' We stop' 334 STOP 'ldfght'334 CALL ctl_stop ('STOP', 'NEMO abort ldfght') 335 335 ENDIF 336 336 ! ! =============== -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5674 r5675 461 461 IF( lk_asminc ) CALL asm_inc_init ! Initialize assimilation increments 462 462 IF(lwp) WRITE(numout,*) 'Euler time step switch is ', neuler 463 464 IF (nstop > 0) THEN 465 CALL CTL_STOP('STOP','Critical errors in NEMO initialisation') 466 END IF 467 463 468 ! 464 469 END SUBROUTINE nemo_init -
branches/UKMO/dev_r5518_clean_shutdown/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90
r5674 r5675 72 72 !!---------------------------------------------------------------------- 73 73 USE par_oce ! ocean parameters 74 USE lib_mpp 74 75 75 76 IMPLICIT NONE … … 483 484 & .AND. SUM( tree(ii)%ishape ) /= 0 ) 484 485 ii = ii + 1 485 IF (ii > jparray) STOP ! increase the value of jparray (should not be needed as already very big!) 486 IF (ii > jparray) CALL ctl_stop('STOP', 'NEMO aborted wrk_allocbase') 487 ! increase the value of jparray (should not be needed as already very big!) 486 488 END DO 487 489
Note: See TracChangeset
for help on using the changeset viewer.