Changeset 6862 for branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

Timestamp:

2016-08-12T15:16:24+02:00 (8 years ago)

Author:

lovato

Message:

#1729 - trunk: removed key_bdy from the code and set usage of ln_bdy. Tested with SETTE.

File:

• branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90 (modified) (2 diffs)

branches/2016/dev_r6522_SIMPLIF_3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim_2.F90

@@ -54 +54 @@
 # endif
 
-#if defined key_bdy 
+   USE bdy_oce   , ONLY: ln_bdy
    USE bdyice_lim       ! unstructured open boundary data  (bdy_ice_lim routine)
-#endif
 
    IMPLICIT NONE
@@ -230 +229 @@
                            CALL lim_trp_2      ( kt )      ! Ice transport   ( Advection/diffusion )
            IF( ln_limdmp ) CALL lim_dmp_2      ( kt )      ! Ice damping 
-#if defined key_bdy
-                           CALL bdy_ice_lim( kt ) ! bdy ice thermo
-#endif
+           IF( ln_bdy    ) CALL bdy_ice_lim( kt ) ! bdy ice thermo
          END IF
          !                                             ! Ice surface fluxes in coupled mode