Changeset 9527 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2018-04-30T13:10:53+02:00 (6 years ago)

Author:

gm

Message:

dev_merge_2017: NO selection for lateral momentum boundary condition

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -126 +126 @@
       ELSEIF ( 2. < rn_shlat                     ) THEN   ;   IF(lwp) WRITE(numout,*) '   ==>>>   ocean lateral  strong-slip'
       ELSE
-         WRITE(ctmp1,*) ' rn_shlat is negative = ', rn_shlat
-         CALL ctl_stop( ctmp1 )
-      ENDIF
-
+         CALL ctl_stop( 'dom_msk: wrong value for rn_shlat (i.e. a negalive value). We stop.' )
+      ENDIF
 
       !  Ocean/land mask at t-point  (computed from ko_top and ko_bot)