Changeset 4853 for branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
- Timestamp:
- 2014-11-13T15:42:21+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_4728_CNRS04_coupled_interface/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r4732 r4853 193 193 CALL sbc_cpl_ice_tau( utau_ice , vtau_ice ) 194 194 195 CALL sbc_cpl_ice_flx( p_frld=ato_i, palbi=zalb_ice, psst=sst_m, pist=t_su ) 196 197 IF( nn_limflx == 2 ) CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice , & 198 & dqns_ice, qla_ice, dqla_ice, nn_limflx ) 199 ! Latent heat flux is forced to 0 in coupled : 200 ! it is included in qns (non-solar heat flux) 201 qla_ice (:,:,:) = 0._wp 202 dqla_ice (:,:,:) = 0._wp 195 ! MV -> seb 196 ! CALL sbc_cpl_ice_flx( p_frld=ato_i, palbi=zalb_ice, psst=sst_m, pist=t_su ) 197 198 ! IF( nn_limflx == 2 ) CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice , & 199 ! & dqns_ice, qla_ice, dqla_ice, nn_limflx ) 200 ! ! Latent heat flux is forced to 0 in coupled : 201 ! ! it is included in qns (non-solar heat flux) 202 ! qla_ice (:,:,:) = 0._wp 203 ! dqla_ice (:,:,:) = 0._wp 204 ! END MV -> seb 203 205 ! 204 206 END SELECT … … 313 315 pfrld(:,:) = 1._wp - at_i(:,:) 314 316 phicif(:,:) = vt_i(:,:) 317 318 ! MV -> seb 319 SELECT CASE( kblk ) 320 CASE ( 5 ) 321 CALL sbc_cpl_ice_flx( p_frld=pfrld, palbi=zalb_ice, psst=sst_m, pist=t_su ) 322 IF( nn_limflx == 2 ) CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice , & 323 & dqns_ice, qla_ice, dqla_ice, nn_limflx ) 324 ! Latent heat flux is forced to 0 in coupled : 325 ! it is included in qns (non-solar heat flux) 326 qla_ice (:,:,:) = 0._wp 327 dqla_ice (:,:,:) = 0._wp 328 END SELECT 329 ! END MV -> seb 315 330 ! 316 331 CALL lim_var_bv ! bulk brine volume (diag)
Note: See TracChangeset
for help on using the changeset viewer.