Changeset 4043 for branches/2013/dev_r4028_CNRS_LIM3

Timestamp:

2013-09-25T15:50:51+02:00 (11 years ago)

Author:

clem

Message:

remove bdy from this routine

File:

• branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (3 diffs)

branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -43 +43 @@
    USE closea           ! closed sea
    USE bdy_par          ! for lk_bdy
-   USE bdyice_lim2      ! unstructured open boundary data  (bdy_ice_lim_2 routine)
+   USE bdyice_lim      ! unstructured open boundary data  (bdy_ice_lim_2 routine)
    USE icbstp           ! Icebergs!
 
@@ -220 +220 @@
          IF( nsbc ==  6 )   WRITE(numout,*) '              MFS Bulk formulation'
       ENDIF
-      !
-                          CALL sbc_ssm_init               ! Sea-surface mean fields initialisation
       !
       IF( ln_ssr      )   CALL sbc_ssr_init               ! Sea-Surface Restoring initialisation
@@ -298 +296 @@
       CASE(  1 )   ;         CALL sbc_ice_if   ( kt )                ! Ice-cover climatology ("Ice-if" model)
       CASE(  2 )   ;         CALL sbc_ice_lim_2( kt, nsbc )          ! LIM-2 ice model
-              IF( lk_bdy )   CALL bdy_ice_lim_2( kt )                ! BDY boundary condition
+!!              IF( lk_bdy )   CALL bdy_ice_lim( kt )                ! BDY boundary condition
       CASE(  3 )   ;         CALL sbc_ice_lim  ( kt, nsbc )          ! LIM-3 ice model
-      CASE(  4 )   ;         CALL sbc_ice_cice ( kt, nsbc )          ! CICE ice model
+!!              IF( lk_bdy )   CALL bdy_ice_lim( kt )                ! BDY boundary condition
       END SELECT