Changeset 6576
- Timestamp:
- 2016-05-19T15:21:32+02:00 (8 years ago)
- Location:
- branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DIA/diadimg.F90
r6574 r6576 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 127 WRITE(numout,*) 'dia_wri_dimg : E R R O R : bad cd_type in dia_wri_dimg' 128 CALL ctl_stop( 'STOP', 'dia_wri_dimg :bad cd_type in dia_wri_dimg ' ) 128 129 129 130 END SELECT -
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r6574 r6576 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_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DIA/diawri_dimg.h90
r6574 r6576 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_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r6574 r6576 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_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90
r6574 r6576 465 465 END DO 466 466 ELSE 467 IF(lwp)WRITE(numout,*) ' ldfguv: kahm= 1 or 2, here =', kahm 468 IF(lwp)WRITE(numout,*) ' We stop' 469 STOP 'ldfguv' 467 468 WRITE(numout,*) ' ldfguv: kahm= 1 or 2, here =', kahm 469 WRITE(numout,*) ' We stop' 470 CALL ctl_stop('STOP', 'ldfguv: Unexpected kahm value') 471 470 472 ENDIF 471 473 ! ! =============== -
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r6574 r6576 62 62 USE lbcnfd ! north fold treatment 63 63 USE in_out_manager ! I/O manager 64 USE mod_oasis ! coupling routines 64 65 65 66 IMPLICIT NONE … … 2006 2007 2007 2008 SUBROUTINE mppstop 2009 2010 2008 2011 !!---------------------------------------------------------------------- 2009 2012 !! *** routine mppstop *** … … 2015 2018 !!---------------------------------------------------------------------- 2016 2019 ! 2020 2021 #if defined key_oasis3 2022 ! If we're trying to shut down cleanly then we need to consider the fact 2023 ! that this could be part of an MPMD configuration - we don't want to 2024 ! leave other components deadlocked. 2025 2026 CALL oasis_abort(nproc,"mppstop","NEMO initiated abort") 2027 2028 2029 #else 2030 2017 2031 CALL mppsync 2018 2032 CALL mpi_finalize( info ) 2033 #endif 2034 2019 2035 ! 2020 2036 END SUBROUTINE mppstop … … 3784 3800 WRITE(kout,*) 3785 3801 ENDIF 3786 STOP 'ctl_opn bad opening'3802 CALL ctl_stop ('STOP', 'NEMO abort ctl_opn bad opening') 3787 3803 ENDIF 3788 3804 -
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/SBC/cpl_oasis3.F90
r6574 r6576 31 31 USE in_out_manager ! I/O manager 32 32 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 33 34 34 IMPLICIT NONE 35 35 PRIVATE … … 41 41 PUBLIC cpl_freq 42 42 PUBLIC cpl_finalize 43 #if defined key_mpp_mpi 44 INCLUDE 'mpif.h' 45 #endif 46 47 INTEGER, PARAMETER :: localRoot = 0 48 LOGICAL :: commRank ! true for ranks doing OASIS communication 49 #if defined key_cpl_rootexchg 50 LOGICAL :: rootexchg =.true. ! logical switch 51 #else 52 LOGICAL :: rootexchg =.false. ! logical switch 53 #endif 43 54 44 55 INTEGER, PUBLIC :: OASIS_Rcv = 1 !: return code if received field … … 82 93 83 94 REAL(wp), DIMENSION(:,:), ALLOCATABLE :: exfld ! Temporary buffer for receiving 84 95 INTEGER, PUBLIC :: localComm 96 85 97 !!---------------------------------------------------------------------- 86 98 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 120 132 IF ( nerror /= OASIS_Ok ) & 121 133 CALL oasis_abort (ncomp_id, 'cpl_init','Failure in oasis_get_localcomm' ) 134 localComm = kl_comm 122 135 ! 123 136 END SUBROUTINE cpl_init … … 177 190 IF( nerror > 0 ) THEN 178 191 CALL oasis_abort ( ncomp_id, 'cpl_define', 'Failure in allocating exfld') ; RETURN 179 ENDIF 192 ENDIF 180 193 ! 181 194 ! ----------------------------------------------------------------- 182 195 ! ... Define the partition 183 196 ! ----------------------------------------------------------------- 184 197 185 198 paral(1) = 2 ! box partitioning 186 199 paral(2) = jpiglo * (nldj-1+njmpp-1) + (nldi-1+nimpp-1) ! NEMO lower left corner global offset … … 241 254 END DO 242 255 ENDIF 243 END DO 256 END DO 244 257 ! 245 258 ! ... Announce received variables. … … 373 386 IF( srcv(kid)%nid(jc,jm) /= -1 ) THEN 374 387 375 CALL oasis_get ( srcv(kid)%nid(jc,jm), kstep, exfld, kinfo ) 388 CALL oasis_get ( srcv(kid)%nid(jc,jm), kstep, exfld, kinfo ) 376 389 377 390 llaction = kinfo == OASIS_Recvd .OR. kinfo == OASIS_FromRest .OR. & … … 384 397 kinfo = OASIS_Rcv 385 398 IF( llfisrt ) THEN 386 pdata(nldi:nlei,nldj:nlej,jc) = exfld(:,:) * pmask(nldi:nlei,nldj:nlej,jm) 399 pdata(nldi:nlei,nldj:nlej,jc) = exfld(:,:) * pmask(nldi:nlei,nldj:nlej,jm) 387 400 llfisrt = .FALSE. 388 401 ELSE … … 463 476 CALL oasis_get_freqs(id, mop, 1, itmp, info) 464 477 #else 465 CALL oasis_get_freqs(id, 1, itmp, info)466 #endif 467 cpl_freq = itmp(1) 478 ! CALL oasis_get_freqs(id, 1, itmp, info) 479 cpl_freq = namflddti( id ) 480 #endif 468 481 ENDIF 469 482 ! -
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/TRA/traldf_bilapg.F90
r6574 r6576 330 330 END DO 331 331 ELSE 332 IF(lwp)WRITE(numout,*) ' ldfght: kaht= 1 or 2, here =', kaht333 IF(lwp)WRITE(numout,*) ' We stop'334 STOP 'ldfght'332 WRITE(numout,*) ' ldfght: kaht= 1 or 2, here =', kaht 333 WRITE(numout,*) ' We stop' 334 CALL ctl_stop( 'STOP', 'ldfght : unexpected kaht value') 335 335 ENDIF 336 336 ! ! =============== -
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r6575 r6576 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_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/step.F90
r6574 r6576 346 346 CALL ctl_stop( 'step: indic < 0' ) 347 347 CALL dia_wri_state( 'output.abort', kstp ) 348 CALL ctl_stop('STOP','NEMO failure in stp') 348 349 ENDIF 349 350 IF( kstp == nit000 ) THEN -
branches/UKMO/dev_r5518_GC3_couple_pkg/NEMOGCM/NEMO/OPA_SRC/wrk_nemo.F90
r6574 r6576 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.