- Timestamp:
- 2014-06-11T14:52:23+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4624 r4666 40 40 USE sbcssr ! surface boundary condition: sea surface restoring 41 41 USE sbcrnf ! surface boundary condition: runoffs 42 USE sbcisf ! surface boundary condition: ice shelf 42 43 USE sbcfwb ! surface boundary condition: freshwater budget 43 44 USE closea ! closed sea … … 84 85 NAMELIST/namsbc/ nn_fsbc , ln_ana , ln_flx, ln_blk_clio, ln_blk_core, ln_cpl, & 85 86 & ln_blk_mfs, ln_apr_dyn, nn_ice, nn_ice_embd, ln_dm2dc , ln_rnf, & 86 & ln_ssr , nn_ fwb , ln_cdgw , ln_wave, ln_sdw, nn_lsm, cn_iceflx87 & ln_ssr , nn_isf , nn_fwb, ln_cdgw , ln_wave , ln_sdw, nn_lsm, cn_iceflx 87 88 INTEGER :: ios 88 89 !!---------------------------------------------------------------------- … … 131 132 WRITE(numout,*) ' daily mean to diurnal cycle qsr ln_dm2dc = ', ln_dm2dc 132 133 WRITE(numout,*) ' runoff / runoff mouths ln_rnf = ', ln_rnf 134 WRITE(numout,*) ' iceshelf formulation nn_isf = ', nn_isf 133 135 WRITE(numout,*) ' Sea Surface Restoring on SST and/or SSS ln_ssr = ', ln_ssr 134 136 WRITE(numout,*) ' FreshWater Budget control (=0/1/2) nn_fwb = ', nn_fwb … … 180 182 rnfmsk_z(:) = 0.0_wp 181 183 ENDIF 184 IF( nn_isf .EQ. 0 ) THEN ! no specific treatment in vicinity of ice shelf 185 IF( sbc_isf_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_isf arrays' ) 186 fwfisf (:,:) = 0.0_wp 187 END IF 182 188 IF( nn_ice == 0 ) fr_i(:,:) = 0.e0 ! no ice in the domain, ice fraction is always zero 183 189 … … 347 353 348 354 IF( ln_icebergs ) CALL icb_stp( kt ) ! compute icebergs 355 356 IF( nn_isf /= 0 ) CALL sbc_isf( kt ) ! compute iceshelves 349 357 350 358 IF( ln_rnf ) CALL sbc_rnf( kt ) ! add runoffs to fresh water fluxes … … 422 430 ! 423 431 IF(ln_ctl) THEN ! print mean trends (used for debugging) 424 CALL prt_ctl(tab2d_1=fr_i , clinfo1=' fr_i - : ', mask1=tmask, ovlap=1 )425 CALL prt_ctl(tab2d_1=(emp-rnf ), clinfo1=' emp-rnf - : ', mask1=tmask, ovlap=1 )426 CALL prt_ctl(tab2d_1=(sfx-rnf ), clinfo1=' sfx-rnf - : ', mask1=tmask, ovlap=1 )432 CALL prt_ctl(tab2d_1=fr_i , clinfo1=' fr_i - : ', mask1=tmask, ovlap=1 ) 433 CALL prt_ctl(tab2d_1=(emp-rnf + fwfisf), clinfo1=' emp-rnf - : ', mask1=tmask, ovlap=1 ) 434 CALL prt_ctl(tab2d_1=(sfx-rnf + fwfisf), clinfo1=' sfx-rnf - : ', mask1=tmask, ovlap=1 ) 427 435 CALL prt_ctl(tab2d_1=qns , clinfo1=' qns - : ', mask1=tmask, ovlap=1 ) 428 436 CALL prt_ctl(tab2d_1=qsr , clinfo1=' qsr - : ', mask1=tmask, ovlap=1 )
Note: See TracChangeset
for help on using the changeset viewer.