New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1245 for trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90 – NEMO

Ignore:
Timestamp:
2009-01-06T12:29:15+01:00 (15 years ago)
Author:
ctlod
Message:

write a message and stop if parameter kn_fwb is set to zero, see ticket: #288

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/SBC/sbcfwb.F90

    r1218 r1245  
    8484      SELECT CASE ( kn_fwb ) 
    8585      ! 
     86      CASE ( 0 )                                
     87         WRITE(ctmp1,*)'sbc_fwb : nn_fwb = ', kn_fwb, ' is not yet associated to an option, choose either 1/2' 
     88         CALL ctl_stop( ctmp1 ) 
     89         ! 
     90          
     91      ! 
    8692      CASE ( 1 )                               ! global mean emp set to zero 
    8793         IF( MOD( kt-1, kn_fsbc ) == 0 ) THEN 
     
    137143         ! 
    138144      CASE DEFAULT    ! you should never be there 
    139          WRITE(ctmp1,*)'sbc_fwb : nn_fwb = ', kn_fwb, ' is not permitted for the FreshWater Budget correction, choose either 0/1/2' 
     145         WRITE(ctmp1,*)'sbc_fwb : nn_fwb = ', kn_fwb, ' is not permitted for the FreshWater Budget correction, choose either 1/2' 
    140146         CALL ctl_stop( ctmp1 ) 
    141147         ! 
Note: See TracChangeset for help on using the changeset viewer.