- Timestamp:
- 2016-04-07T15:33:32+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/nemo_v3_6_STABLE_copy/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r6333 r6436 203 203 ! In CLIO the cloud fraction is read in the climatology and the all-sky albedo 204 204 ! (alb_ice) is computed within the bulk routine 205 CALL blk_ice_clio_flx( t_su, zalb_cs, zalb_os, alb_ice )205 CALL blk_ice_clio_flx( t_su, zalb_cs, zalb_os, alb_ice ) 206 206 IF( ln_mixcpl ) CALL sbc_cpl_ice_flx( p_frld=pfrld, palbi=alb_ice, psst=sst_m, pist=t_su ) 207 207 IF( nn_limflx /= 2 ) CALL ice_lim_flx( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_limflx ) … … 209 209 ! albedo depends on cloud fraction because of non-linear spectral effects 210 210 alb_ice(:,:,:) = ( 1. - cldf_ice ) * zalb_cs(:,:,:) + cldf_ice * zalb_os(:,:,:) 211 CALL blk_ice_core_flx( t_su, alb_ice )211 CALL blk_ice_core_flx( t_su, alb_ice ) 212 212 IF( ln_mixcpl ) CALL sbc_cpl_ice_flx( p_frld=pfrld, palbi=alb_ice, psst=sst_m, pist=t_su ) 213 213 IF( nn_limflx /= 2 ) CALL ice_lim_flx( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_limflx ) … … 216 216 alb_ice(:,:,:) = ( 1. - cldf_ice ) * zalb_cs(:,:,:) + cldf_ice * zalb_os(:,:,:) 217 217 CALL sbc_cpl_ice_flx( p_frld=pfrld, palbi=alb_ice, psst=sst_m, pist=t_su ) 218 ! clem: evap_ice is forced to 0 in coupled mode for now219 ! but it needs to be changed (along with modif in limthd_dh) once heat flux from evap will be avail. from atm. models220 evap_ice (:,:,:) = 0._wp ; devap_ice (:,:,:) = 0._wp221 218 IF( nn_limflx == 2 ) CALL ice_lim_flx( t_su, alb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_limflx ) 222 219 END SELECT … … 588 585 sfx_bog(:,:) = 0._wp ; sfx_dyn(:,:) = 0._wp 589 586 sfx_bom(:,:) = 0._wp ; sfx_sum(:,:) = 0._wp 590 sfx_res(:,:) = 0._wp 587 sfx_res(:,:) = 0._wp ; sfx_sub(:,:) = 0._wp 591 588 592 589 wfx_snw(:,:) = 0._wp ; wfx_ice(:,:) = 0._wp … … 604 601 hfx_spr(:,:) = 0._wp ; hfx_dif(:,:) = 0._wp 605 602 hfx_err(:,:) = 0._wp ; hfx_err_rem(:,:) = 0._wp 606 hfx_err_dif(:,:) = 0._wp ; 607 603 hfx_err_dif(:,:) = 0._wp 604 wfx_err_sub(:,:) = 0._wp 605 608 606 afx_tot(:,:) = 0._wp ; 609 607 afx_dyn(:,:) = 0._wp ; afx_thd(:,:) = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.