Changeset 4328 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/FLO

Timestamp:

2013-12-06T11:25:13+01:00 (10 years ago)

Author:

davestorkey

Message:

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

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90 (modified) (2 diffs)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/FLO/floblk.F90

@@ -14 +14 @@
    USE dom_oce         ! ocean space and time domain
    USE phycst          ! physical constants
-   USE obc_par         ! open boundary condition parameters
    USE in_out_manager  ! I/O manager
    USE lib_mpp         ! distribued memory computing library
@@ -345 +344 @@
       IF( lk_mpp )   CALL mpp_sum( ijl   , jpnfl )
       
-      ! in the case of open boundaries we need to test if the floats don't
-      ! go out of the domain. If it goes out, the float is put at the 
-      ! middle of the mesh in the domain but the trajectory isn't compute 
-      ! more time.      
-# if defined key_obc
-      DO jfl = 1, jpnfl
-         IF( lp_obc_east ) THEN
-            IF( jped <=  zgjfl(jfl) .AND. zgjfl(jfl) <= jpef .AND. nieob-1 <=  zgifl(jfl) ) THEN
-               zgifl (jfl) = INT(zgifl(jfl)) + 0.5
-               zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5
-               zagefl(jfl) = rdt
-            END IF
-         END IF
-         IF( lp_obc_west ) THEN
-            IF( jpwd <= zgjfl(jfl) .AND. zgjfl(jfl) <= jpwf .AND. niwob >=  zgifl(jfl) ) THEN
-               zgifl (jfl) = INT(zgifl(jfl)) + 0.5
-               zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5
-               zagefl(jfl) = rdt
-            END IF
-         END IF
-         IF( lp_obc_north ) THEN
-            IF( jpnd <=  zgifl(jfl) .AND. zgifl(jfl) <= jpnf .AND. njnob-1 >=  zgjfl(jfl) ) THEN
-               zgifl (jfl) = INT(zgifl(jfl)) + 0.5
-               zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5
-               zagefl(jfl) = rdt
-            END IF
-         END IF
-         IF( lp_obc_south ) THEN
-            IF( jpsd <=  zgifl(jfl) .AND. zgifl(jfl) <= jpsf .AND.  njsob >= zgjfl(jfl) ) THEN
-               zgifl (jfl) = INT(zgifl(jfl)) + 0.5
-               zgjfl (jfl) = INT(zgjfl(jfl)) + 0.5
-               zagefl(jfl) = rdt
-            END IF
-         END IF
-      END DO
-#endif
-
       ! Test to know if a  float hasn't integrated enought time
       IF( ln_argo ) THEN