- Timestamp:
- 2013-09-25T15:50:51+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r4028_CNRS_LIM3/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4028 r4043 43 43 USE closea ! closed sea 44 44 USE bdy_par ! for lk_bdy 45 USE bdyice_lim 2! unstructured open boundary data (bdy_ice_lim_2 routine)45 USE bdyice_lim ! unstructured open boundary data (bdy_ice_lim_2 routine) 46 46 USE icbstp ! Icebergs! 47 47 … … 220 220 IF( nsbc == 6 ) WRITE(numout,*) ' MFS Bulk formulation' 221 221 ENDIF 222 !223 CALL sbc_ssm_init ! Sea-surface mean fields initialisation224 222 ! 225 223 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) 299 297 CASE( 2 ) ; CALL sbc_ice_lim_2( kt, nsbc ) ! LIM-2 ice model 300 IF( lk_bdy ) CALL bdy_ice_lim_2( kt ) ! BDY boundary condition298 !! IF( lk_bdy ) CALL bdy_ice_lim( kt ) ! BDY boundary condition 301 299 CASE( 3 ) ; CALL sbc_ice_lim ( kt, nsbc ) ! LIM-3 ice model 302 CASE( 4 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model 300 !! IF( lk_bdy ) CALL bdy_ice_lim( kt ) ! BDY boundary condition 303 301 END SELECT 304 302
Note: See TracChangeset
for help on using the changeset viewer.