- Timestamp:
- 2012-04-02T13:05:35+02:00 (12 years ago)
- Location:
- branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r3294 r3340 39 39 LOGICAL , PUBLIC :: ln_ssr = .FALSE. !: Sea Surface restoring on SST and/or SSS 40 40 LOGICAL , PUBLIC :: ln_apr_dyn = .FALSE. !: Atmospheric pressure forcing used on dynamics (ocean & ice) 41 LOGICAL , PUBLIC :: ln_icebergs = .FALSE. !: Icebergs 41 42 INTEGER , PUBLIC :: nn_ice = 0 !: flag on ice in the surface boundary condition (=0/1/2/3) 42 43 INTEGER , PUBLIC :: nn_fwb = 0 !: FreshWater Budget: -
branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r3294 r3340 43 43 USE bdy_par ! for lk_bdy 44 44 USE bdyice_lim2 ! unstructured open boundary data (bdy_ice_lim_2 routine) 45 USE icbrun ! Icebergs! 45 46 46 47 USE prtctl ! Print control (prt_ctl routine) … … 282 283 CASE( 4 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model 283 284 END SELECT 285 286 IF( ln_icebergs ) CALL icb_stp( kt ) ! compute icebergs 284 287 285 288 IF( ln_rnf ) CALL sbc_rnf( kt ) ! add runoffs to fresh water fluxes
Note: See TracChangeset
for help on using the changeset viewer.