- Timestamp:
- 2015-04-17T11:50:03+02:00 (9 years ago)
- Location:
- branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3/limsbc.F90
r5187 r5220 94 94 !! - fr_i : ice fraction 95 95 !! - tn_ice : sea-ice surface temperature 96 !! - alb_ice : sea-ice albedo (l k_cpl=T)96 !! - alb_ice : sea-ice albedo (ln_cpl=T) 97 97 !! 98 98 !! References : Goosse, H. et al. 1996, Bul. Soc. Roy. Sc. Liege, 65, 87-90. … … 128 128 ! Solar heat flux reaching the ocean = zfcm1 (W.m-2) 129 129 !--------------------------------------------------- 130 IF( l k_cpl ) THEN130 IF( ln_cpl ) THEN 131 131 !!! LIM2 version zqsr = qsr_tot(ji,jj) + ( fstric(ji,jj) - qsr_ice(ji,jj,1) ) * ( 1.0 - pfrld(ji,jj) ) 132 132 zfcm1 = qsr_tot(ji,jj) … … 168 168 ! 169 169 ! computing freshwater exchanges at the ice/ocean interface 170 IF( l k_cpl ) THEN170 IF( ln_cpl ) THEN 171 171 zemp = emp_tot(ji,jj) & ! net mass flux over grid cell 172 172 & - emp_ice(ji,jj) * ( 1._wp - pfrld(ji,jj) ) & ! minus the mass flux intercepted by sea ice … … 216 216 ! Snow/ice albedo (only if sent to coupler) ! 217 217 !------------------------------------------------! 218 IF( l k_cpl ) THEN ! coupled case218 IF( ln_cpl ) THEN ! coupled case 219 219 220 220 CALL wrk_alloc( jpi, jpj, jpl, zalb_cs, zalb_os ) -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r5202 r5220 138 138 139 139 !--- Ocean solar and non solar fluxes to be used in zqld 140 IF ( .NOT. l k_cpl ) THEN ! --- forced case, fluxes to the lead are the same as over the ocean140 IF ( .NOT. ln_cpl ) THEN ! --- forced case, fluxes to the lead are the same as over the ocean 141 141 ! 142 142 zqsr(:,:) = qsr(:,:) ; zqns(:,:) = qns(:,:) … … 171 171 ! REMARK valid at least in forced mode from clem 172 172 ! precip is included in qns but not in qns_ice 173 IF ( l k_cpl ) THEN173 IF ( ln_cpl ) THEN 174 174 zqld = tmask(ji,jj,1) * rdt_ice * & 175 175 & ( zqsr(ji,jj) * fraqsr_1lev(ji,jj) + zqns(ji,jj) & ! pfrld already included in coupled mode … … 576 576 CALL tab_2d_1d( nbpb, qns_ice_1d (1:nbpb), qns_ice(:,:,jl) , jpi, jpj, npb(1:nbpb) ) 577 577 CALL tab_2d_1d( nbpb, ftr_ice_1d (1:nbpb), ftr_ice(:,:,jl) , jpi, jpj, npb(1:nbpb) ) 578 IF( .NOT. l k_cpl ) THEN578 IF( .NOT. ln_cpl ) THEN 579 579 CALL tab_2d_1d( nbpb, qla_ice_1d (1:nbpb), qla_ice(:,:,jl) , jpi, jpj, npb(1:nbpb) ) 580 580 CALL tab_2d_1d( nbpb, dqla_ice_1d(1:nbpb), dqla_ice(:,:,jl), jpi, jpj, npb(1:nbpb) ) -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3/limthd_dh.F90
r5202 r5220 280 280 ! clem comment: ice should also sublimate 281 281 zdeltah(:,:) = 0._wp 282 IF( l k_cpl ) THEN282 IF( ln_cpl ) THEN 283 283 ! coupled mode: sublimation already included in emp_ice (to do in limsbc_ice) 284 284 zdh_s_sub(:) = 0._wp -
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/LIM_SRC_3/limthd_dif.F90
r5202 r5220 24 24 USE wrk_nemo ! work arrays 25 25 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 26 USE sbc_oce, ONLY : l k_cpl26 USE sbc_oce, ONLY : ln_cpl 27 27 28 28 IMPLICIT NONE … … 747 747 DO ji = kideb, kiut 748 748 ! forced mode only : update of latent heat fluxes (sublimation) (always >=0, upward flux) 749 IF( .NOT. l k_cpl) qla_ice_1d (ji) = MAX( 0._wp, qla_ice_1d (ji) + dqla_ice_1d(ji) * ( t_su_1d(ji) - ztsub(ji) ) )749 IF( .NOT. ln_cpl) qla_ice_1d (ji) = MAX( 0._wp, qla_ice_1d (ji) + dqla_ice_1d(ji) * ( t_su_1d(ji) - ztsub(ji) ) ) 750 750 ! ! surface ice conduction flux 751 751 isnow(ji) = 1._wp - MAX( 0._wp, SIGN( 1._wp, -ht_s_1d(ji) ) )
Note: See TracChangeset
for help on using the changeset viewer.