Ignore:
Timestamp:
2013-12-06T11:25:13+01:00 (7 years ago)
Author:
davestorkey
Message:

Remove OBC module at NEMO 3.6. See ticket #1189.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90

    r3294 r4328  
    1414   USE dom_oce         ! ocean space and time domain 
    1515   USE phycst          ! physical constants 
    16    USE obc_par         ! open boundary condition parameters 
    1716   USE in_out_manager  ! I/O manager 
    1817   USE lib_mpp         ! distribued memory computing library 
     
    345344      IF( lk_mpp )   CALL mpp_sum( ijl   , jpnfl ) 
    346345       
    347       ! in the case of open boundaries we need to test if the floats don't 
    348       ! go out of the domain. If it goes out, the float is put at the  
    349       ! middle of the mesh in the domain but the trajectory isn't compute  
    350       ! more time.       
    351 # if defined key_obc 
    352       DO jfl = 1, jpnfl 
    353          IF( lp_obc_east ) THEN 
    354             IF( jped <=  zgjfl(jfl) .AND. zgjfl(jfl) <= jpef .AND. nieob-1 <=  zgifl(jfl) ) THEN 
    355                zgifl (jfl) = INT(zgifl(jfl)) + 0.5 
    356                zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5 
    357                zagefl(jfl) = rdt 
    358             END IF 
    359          END IF 
    360          IF( lp_obc_west ) THEN 
    361             IF( jpwd <= zgjfl(jfl) .AND. zgjfl(jfl) <= jpwf .AND. niwob >=  zgifl(jfl) ) THEN 
    362                zgifl (jfl) = INT(zgifl(jfl)) + 0.5 
    363                zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5 
    364                zagefl(jfl) = rdt 
    365             END IF 
    366          END IF 
    367          IF( lp_obc_north ) THEN 
    368             IF( jpnd <=  zgifl(jfl) .AND. zgifl(jfl) <= jpnf .AND. njnob-1 >=  zgjfl(jfl) ) THEN 
    369                zgifl (jfl) = INT(zgifl(jfl)) + 0.5 
    370                zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5 
    371                zagefl(jfl) = rdt 
    372             END IF 
    373          END IF 
    374          IF( lp_obc_south ) THEN 
    375             IF( jpsd <=  zgifl(jfl) .AND. zgifl(jfl) <= jpsf .AND.  njsob >= zgjfl(jfl) ) THEN 
    376                zgifl (jfl) = INT(zgifl(jfl)) + 0.5 
    377                zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5 
    378                zagefl(jfl) = rdt 
    379             END IF 
    380          END IF 
    381       END DO 
    382 #endif 
    383  
    384346      ! Test to know if a  float hasn't integrated enought time 
    385347      IF( ln_argo ) THEN 
Note: See TracChangeset for help on using the changeset viewer.