- Timestamp:
- 2017-07-05T10:28:51+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r6491 r8280 550 550 IF(lwp) WRITE(numout,*) 'dom_msk_nsa : noslip accurate boundary condition' 551 551 IF(lwp) WRITE(numout,*) '~~~~~~~~~~~ using Schchepetkin and O Brian scheme' 552 IF( lk_mpp ) CALL ctl_stop( ' mpp version is not yet implemented' )552 IF( lk_mpp ) CALL ctl_stop('STOP', ' mpp version is not yet implemented' ) 553 553 554 554 ! mask for second order calculation of vorticity … … 572 572 WRITE(numout,*) ' symetric boundary conditions need special' 573 573 WRITE(numout,*) ' treatment not implemented. we stop.' 574 STOP574 CALL ctl_stop('STOP', 'NEMO abort from dom_msk_nsa') 575 575 ENDIF 576 576
Note: See TracChangeset
for help on using the changeset viewer.