Changeset 5471


Ignore:
Timestamp:
2015-06-24T15:05:43+02:00 (5 years ago)
Author:
clem
Message:

initialization of evap_ice and devap_ice for coupled mode

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_lim.F90

    r5429 r5471  
    216216            zalb_ice(:,:,:) = ( 1. - cldf_ice ) * zalb_cs(:,:,:) + cldf_ice * zalb_os(:,:,:) 
    217217                                 CALL sbc_cpl_ice_flx( p_frld=pfrld, palbi=zalb_ice, psst=sst_m, pist=t_su ) 
     218            ! clem: evap_ice is forced to 0 in coupled mode for now  
     219            !       but it needs to be changed (along with modif in limthd_dh) once heat flux from evap will be avail. from atm. models 
     220            evap_ice  (:,:,:) = 0._wp   ;   devap_ice (:,:,:) = 0._wp 
    218221            IF( nn_limflx == 2 ) CALL ice_lim_flx( t_su, zalb_ice, qns_ice, qsr_ice, dqns_ice, evap_ice, devap_ice, nn_limflx ) 
    219             ! Latent heat flux is forced to 0 in coupled: it is included in qns (non-solar heat flux) 
    220             evap_ice  (:,:,:) = 0._wp 
    221             devap_ice (:,:,:) = 0._wp 
    222222         END SELECT 
    223223         CALL wrk_dealloc( jpi,jpj,jpl, zalb_os, zalb_cs, zalb_ice ) 
Note: See TracChangeset for help on using the changeset viewer.