Changeset 4732
- Timestamp:
- 2014-07-29T11:43:18+02:00 (10 years ago)
- Location:
- branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r4731 r4732 138 138 ! masked sea surface freezing temperature [Kelvin] 139 139 t_bo(:,:) = ( tfreez( sss_m ) + rt0 ) * tmask(:,:,1) + rt0 * ( 1. - tmask(:,:,1) ) 140 140 141 141 142 ! ! Ice albedo … … 367 368 !! 368 369 !! ** Purpose : update the ice surface boundary condition by averaging and / or 369 370 !! redistributing fluxes on ice categories 370 371 !! 371 372 !! ** Method : average then redistribute … … 408 409 z_dql_m(:,:) = fice_ice_ave ( pdql_ice (:,:,:) ) 409 410 DO jl = 1, jpl 410 pdqn s_ice(:,:,jl) = z_dqn_m(:,:)411 pdql a_ice(:,:,jl) = z_dql_m(:,:)411 pdqn_ice(:,:,jl) = z_dqn_m(:,:) 412 pdql_ice(:,:,jl) = z_dql_m(:,:) 412 413 END DO 413 414 ! -
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4730 r4732 84 84 NAMELIST/namsbc/ nn_fsbc , ln_ana , ln_flx, ln_blk_clio, ln_blk_core, ln_cpl, & 85 85 & 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, nn_ iceflx86 & ln_ssr , nn_fwb , ln_cdgw , ln_wave , ln_sdw, nn_lsm, nn_limflx 87 87 INTEGER :: ios 88 88 !!---------------------------------------------------------------------- … … 140 140 SELECT CASE ( nn_limflx) 141 141 CASE ( -1 ) 142 IF(lwp) THENWRITE(numout,*) ' Use of per-category fluxes (nn_limflx = -1) '142 IF(lwp) WRITE(numout,*) ' Use of per-category fluxes (nn_limflx = -1) ' 143 143 CASE ( 0 ) 144 IF(lwp) THENWRITE(numout,*) ' Average per-category fluxes (nn_limflx = 0) '144 IF(lwp) WRITE(numout,*) ' Average per-category fluxes (nn_limflx = 0) ' 145 145 CASE ( 1 ) 146 IF(lwp) THENWRITE(numout,*) ' Average then redistribute per-category fluxes (nn_limflx = 1) '146 IF(lwp) WRITE(numout,*) ' Average then redistribute per-category fluxes (nn_limflx = 1) ' 147 147 CASE ( 2 ) 148 IF(lwp) THENWRITE(numout,*) ' Redistribute a single flux over categories (nn_limflx = 2) '148 IF(lwp) WRITE(numout,*) ' Redistribute a single flux over categories (nn_limflx = 2) ' 149 149 END SELECT 150 150 !
Note: See TracChangeset
for help on using the changeset viewer.