- Timestamp:
- 2016-05-17T12:35:16+02:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 7 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r6542 r6545 1062 1062 ENDIF 1063 1063 #endif 1064 1064 IF (cdfile_name == "output.abort") THEN 1065 CALL ctl_stop('STOP', 'NEMO abort from dia_wri_state') 1066 END IF 1067 1065 1068 ! IF( nn_timing == 1 ) CALL timing_stop('dia_wri_state') ! not sure this works for routines not called in first timestep 1066 1069 ! -
branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r6542 r6545 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_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r6542 r6545 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 aborted from dia_wri') 551 551 ENDIF 552 552 -
branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r6544 r6545 3785 3785 100 CONTINUE 3786 3786 IF( iost /= 0 ) THEN 3787 IF(ldwp) THEN 3788 WRITE(kout,*) 3789 WRITE(kout,*) ' ===>>>> : bad opening file: ', clfile 3790 WRITE(kout,*) ' ======= === ' 3791 WRITE(kout,*) ' unit = ', knum 3792 WRITE(kout,*) ' status = ', cdstat 3793 WRITE(kout,*) ' form = ', cdform 3794 WRITE(kout,*) ' access = ', cdacce 3795 WRITE(kout,*) ' iostat = ', iost 3796 WRITE(kout,*) ' we stop. verify the file ' 3797 WRITE(kout,*) 3798 ENDIF 3799 STOP 'ctl_opn bad opening' 3787 ! If the run is about to fail we ALWAYS want to know 3788 ! the full details! This must not be hidden behind 3789 ! "IF(ldwp)" or other irrelevant conditional tests. 3790 WRITE(kout,*) 3791 WRITE(kout,*) ' ===>>>> : bad opening file: ', clfile 3792 WRITE(kout,*) ' ======= === ' 3793 WRITE(kout,*) ' unit = ', knum 3794 WRITE(kout,*) ' status = ', cdstat 3795 WRITE(kout,*) ' form = ', cdform 3796 WRITE(kout,*) ' access = ', cdacce 3797 WRITE(kout,*) ' iostat = ', iost 3798 WRITE(kout,*) ' we stop. verify the file ' 3799 WRITE(kout,*) 3800 3801 CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 3800 3802 ENDIF 3801 3803 -
branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r6542 r6545 196 196 ENDIF 197 197 198 CALL oasis_def_partition ( id_part, paral, nerror 198 CALL oasis_def_partition ( id_part, paral, nerror, jpiglo*jpjglo) 199 199 ! 200 200 ! ... Announce send variables. -
branches/UKMO/dev_r5518_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r6543 r6545 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_MO_couple_package/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90
r6542 r6545 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 END DO486 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!) END DO 487 488 488 489 IF( SUM( tree(ii)%ishape ) == 0 ) THEN ! create a new branch
Note: See TracChangeset
for help on using the changeset viewer.