- Timestamp:
- 2015-06-05T11:53:44+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5218_CNRS17_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r5357 r5362 162 162 !! IF( nn_limflx /= 2 ) CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice , & 163 163 !! & dqns_ice, qla_ice, dqla_ice, nn_limflx ) 164 CALL blk_ice_clio_tau ( utau_ice, vtau_ice, cp_ice_msh )164 CALL blk_ice_clio_tau 165 165 166 166 CASE( jp_core ) ! CORE bulk formulation … … 238 238 ! In CLIO the cloud fraction is read in the climatology and the all-sky albedo 239 239 ! (zalb_ice) is computed within the bulk routine 240 CALL blk_ice_clio_flx( t_su , zalb_cs, zalb_os , zalb_ice, qns_ice , qsr_ice , & 241 & qla_ice, dqns_ice , dqla_ice , tprecip, sprecip , & 242 & fr1_i0 , fr2_i0 , jpl ) 243 ! 240 ! CALL blk_ice_clio_flx( t_su , zalb_cs, zalb_os , zalb_ice, qns_ice , qsr_ice , & 241 ! & qla_ice, dqns_ice , dqla_ice , tprecip, sprecip , & 242 ! & fr1_i0 , fr2_i0 , jpl ) 243 ! ! 244 CALL blk_ice_clio_flx( t_su, zalb_cs, zalb_os, zalb_ice ) 244 245 IF( nn_limflx /= 2 ) CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice , & 245 246 & dqns_ice, evap_ice, devap_ice, nn_limflx )
Note: See TracChangeset
for help on using the changeset viewer.