- Timestamp:
- 2012-11-22T16:28:42+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_NOC_2012_rev3555/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r3625 r3632 289 289 ! !== Misc. Options ==! 290 290 291 SELECT CASE( nn_ice ) ! Update heat and freshwater fluxes over sea-ice areas 292 CASE( 1 ) ; CALL sbc_ice_if ( kt ) ! Ice-cover climatology ("Ice-if" model) 293 ! 294 CASE( 2 ) ; CALL sbc_ice_lim_2( kt, nsbc ) ! LIM-2 ice model 295 IF( lk_bdy ) CALL bdy_ice_lim_2( kt ) ! BDY boundary condition 296 ! 297 CASE( 3 ) ; CALL sbc_ice_lim ( kt, nsbc ) ! LIM-3 ice model 298 ! 299 CASE( 4 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model 291 SELECT CASE( nn_ice ) ! Update heat and freshwater fluxes over sea-ice areas 292 CASE( 1 ) ; CALL sbc_ice_if ( kt ) ! Ice-cover climatology ("Ice-if" model) 293 CASE( 2 ) ; CALL sbc_ice_lim_2( kt, nsbc ) ! LIM-2 ice model 294 IF( lk_bdy ) CALL bdy_ice_lim_2( kt ) ! BDY boundary condition 295 CASE( 3 ) ; CALL sbc_ice_lim ( kt, nsbc ) ! LIM-3 ice model 296 CASE( 4 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model 300 297 END SELECT 301 298 302 IF( ln_icebergs )CALL icb_stp( kt ) ! compute icebergs303 304 IF( ln_rnf ) CALL sbc_rnf( kt ) ! add runoffs to fresh water fluxes299 IF( ln_icebergs ) CALL icb_stp( kt ) ! compute icebergs 300 301 IF( ln_rnf ) CALL sbc_rnf( kt ) ! add runoffs to fresh water fluxes 305 302 306 IF( ln_ssr ) CALL sbc_ssr( kt ) ! add SST/SSS damping term307 308 IF( nn_fwb /= 0 ) CALL sbc_fwb( kt, nn_fwb, nn_fsbc ) ! control the freshwater budget309 310 IF( n closea == 1 ) CALL sbc_clo( kt ) ! treatment of closed sea in the model domain311 ! ! (update freshwater fluxes)303 IF( ln_ssr ) CALL sbc_ssr( kt ) ! add SST/SSS damping term 304 305 IF( nn_fwb /= 0 ) CALL sbc_fwb( kt, nn_fwb, nn_fsbc ) ! control the freshwater budget 306 307 IF( nn_closea == 1 ) CALL sbc_clo( kt ) ! treatment of closed sea in the model domain 308 ! ! (update freshwater fluxes) 312 309 !RBbug do not understand why see ticket 667 313 310 CALL lbc_lnk( emp, 'T', 1. )
Note: See TracChangeset
for help on using the changeset viewer.