Changeset 3334 for branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90

Timestamp:

2012-03-20T14:26:17+01:00 (12 years ago)

Author:

sga

Message:

NEMO 2012 development branch dev_r3322_NOCS09_SAS: add some lines from rst_opn in order to allow correct ice restart creation;

and a little bit of light dusting.

File:

• branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90 (modified) (2 diffs)

branches/2012/dev_r3322_NOCS09_SAS/NEMOGCM/NEMO/SAS_SRC/sbcmod.F90

@@ -41 +41 @@
    USE sbcfwb           ! surface boundary condition: freshwater budget
    USE closea           ! closed sea
-   USE bdy_par          ! for lk_bdy
-   USE bdyice_lim2      ! unstructured open boundary data  (bdy_ice_lim_2 routine)
 
    USE prtctl           ! Print control                    (prt_ctl routine)
@@ -287 +285 @@
          !                                                      
       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
          !                                                     
       CASE(  3 )   ;       CALL sbc_ice_lim  ( kt, nsbc )            ! LIM-3 ice model