Changeset 416


Ignore:
Timestamp:
2006-03-21T08:52:26+01:00 (15 years ago)
Author:
opalod
Message:

nemo_v1_update_039 : CT : add some tests to catch user's mistakes

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/OBC/obcini.F90

    r367 r416  
    197197      ! ...  a small arbitrary value, (to avoid division by zero further on).  
    198198      ! ...  rdpxxx is not used anymore. 
    199       IF( lp_obc_east .AND. ( rdpein == 0 .AND. rdpeob == 0 ) )  THEN 
    200          lfbceast = .TRUE. 
    201          rdpein = 1e-3 
    202          rdpeob = 1e-3 
    203          inumfbc = inumfbc+1 
    204       END IF 
    205       IF( lp_obc_west .AND. ( rdpwin == 0 .AND. rdpwob == 0 ) )  THEN 
    206          lfbcwest = .TRUE. 
    207          rdpwin = 1e-3 
    208          rdpwob = 1e-3 
    209          inumfbc = inumfbc+1 
    210       END IF 
    211       IF( lp_obc_north .AND. ( rdpnin == 0 .AND. rdpnob == 0 ) )  THEN 
    212          lfbcnorth = .TRUE. 
    213          rdpnin = 1e-3 
    214          rdpnob = 1e-3 
    215          inumfbc = inumfbc+1 
    216       END IF 
    217       IF( lp_obc_south .AND. ( rdpsin == 0 .AND. rdpsob == 0 ) )  THEN 
    218          lfbcsouth = .TRUE. 
    219          rdpsin = 1e-3 
    220          rdpsob = 1e-3 
    221          inumfbc = inumfbc+1 
     199      IF( lp_obc_east )  THEN 
     200         IF( (rdpein+rdpeob) == 0 )  THEN 
     201            lfbceast = .TRUE. 
     202            rdpein = 1e-3 
     203            rdpeob = 1e-3 
     204            inumfbc = inumfbc+1 
     205         ELSEIF ( (rdpein*rdpeob) == 0 )  THEN 
     206            IF(lwp) THEN 
     207               WRITE(numout,cform_err) 
     208               WRITE(numout,*) 'obc_init : rdpein & rdpeob must be both zero or non zero' 
     209               nstop = nstop + 1 
     210            ENDIF 
     211         END IF 
     212      END IF 
     213      IF( lp_obc_west )  THEN 
     214         IF( (rdpwin + rdpwob) == 0 )  THEN 
     215            lfbcwest = .TRUE. 
     216            rdpwin = 1e-3 
     217            rdpwob = 1e-3 
     218            inumfbc = inumfbc+1 
     219         ELSEIF ( (rdpwin*rdpwob) == 0 )  THEN 
     220            IF(lwp) THEN 
     221               WRITE(numout,cform_err) 
     222               WRITE(numout,*) 'obc_init : rdpwin & rdpwob must be both zero or non zero' 
     223               nstop = nstop + 1 
     224            ENDIF 
     225         END IF 
     226      END IF 
     227      IF( lp_obc_north )  THEN 
     228         IF( (rdpnin + rdpnob) == 0 )  THEN 
     229            lfbcnorth = .TRUE. 
     230            rdpnin = 1e-3 
     231            rdpnob = 1e-3 
     232            inumfbc = inumfbc+1 
     233         ELSEIF ( (rdpnin*rdpnob) == 0 )  THEN 
     234            IF(lwp) THEN 
     235               WRITE(numout,cform_err) 
     236               WRITE(numout,*) 'obc_init : rdpnin & rdpnob must be both zero or non zero' 
     237               nstop = nstop + 1 
     238            ENDIF 
     239         END IF 
     240      END IF 
     241      IF( lp_obc_south )  THEN 
     242         IF( (rdpsin + rdpsob) == 0 )  THEN 
     243            lfbcsouth = .TRUE. 
     244            rdpsin = 1e-3 
     245            rdpsob = 1e-3 
     246            inumfbc = inumfbc+1 
     247         ELSEIF ( (rdpsin*rdpsob) == 0 )  THEN 
     248            IF(lwp) THEN 
     249               WRITE(numout,cform_err) 
     250               WRITE(numout,*) 'obc_init : rdpsin & rdpsob must be both zero or non zero' 
     251               nstop = nstop + 1 
     252            ENDIF 
     253         END IF 
    222254      END IF 
    223255 
Note: See TracChangeset for help on using the changeset viewer.