Changeset 2093 for branches/DEV_r1986_BDY_updates/NEMO/OPA_SRC/SBC/sbcmod.F90

Timestamp:

2010-09-15T09:39:38+02:00 (14 years ago)

Author:

davestorkey

Message:

Main change set.

File:

• branches/DEV_r1986_BDY_updates/NEMO/OPA_SRC/SBC/sbcmod.F90 (modified) (3 diffs)

branches/DEV_r1986_BDY_updates/NEMO/OPA_SRC/SBC/sbcmod.F90

@@ -6 +6 @@
    !! History :  3.0   !  07-2006  (G. Madec)  Original code
    !!             -    !  08-2008  (S. Masson, E. .... ) coupled interface
+   !!            3.3   !  09-2010  (D. Storkey) add ice boundary conditions (BDY)
    !!----------------------------------------------------------------------
 
@@ -32 +33 @@
    USE sbcfwb          ! surface boundary condition: freshwater budget
    USE closea          ! closed sea
+   USE bdy_par         ! unstructured open boundary data variables
+   USE bdyice          ! unstructured open boundary data  (bdy_ice routine)
 
    USE prtctl          ! Print control                    (prt_ctl routine)
@@ -223 +226 @@
          !                                                      
       CASE(  2 )   ;       CALL sbc_ice_lim_2( kt, nsbc )             ! LIM 2.0 ice model
+                           IF( lk_bdy ) CALL bdy_ice( kt )
          !                                                     
       CASE(  3 )   ;       CALL sbc_ice_lim  ( kt, nsbc, nn_ico_cpl)  ! LIM 3.0 ice model