Ignore:
Timestamp:
2018-04-30T13:10:53+02:00 (2 years ago)
Author:
gm
Message:

dev_merge_2017: NO selection for lateral momentum boundary condition

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r9169 r9527  
    126126      ELSEIF ( 2. < rn_shlat                     ) THEN   ;   IF(lwp) WRITE(numout,*) '   ==>>>   ocean lateral  strong-slip' 
    127127      ELSE 
    128          WRITE(ctmp1,*) ' rn_shlat is negative = ', rn_shlat 
    129          CALL ctl_stop( ctmp1 ) 
    130       ENDIF 
    131  
     128         CALL ctl_stop( 'dom_msk: wrong value for rn_shlat (i.e. a negalive value). We stop.' ) 
     129      ENDIF 
    132130 
    133131      !  Ocean/land mask at t-point  (computed from ko_top and ko_bot) 
Note: See TracChangeset for help on using the changeset viewer.