Ignore:
Timestamp:
2017-05-29T16:58:42+02:00 (3 years ago)
Author:
vancop
Message:

More on melt ponds in LIM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limvar.F90

    r8063 r8085  
    526526      !!------------------------------------------------------------------- 
    527527      INTEGER  ::   ji, jj, jl, jk   ! dummy loop indices 
    528       REAL(wp) ::   zsal, zvi, zvs, zei, zes 
     528      REAL(wp) ::   zsal, zvi, zvs, zei, zes, zvp 
    529529      !!------------------------------------------------------------------- 
    530530      at_i (:,:) = 0._wp 
     
    566566               zvs  = v_s  (ji,jj,  jl) 
    567567               zes  = e_s  (ji,jj,1,jl) 
     568               zvp  = v_ip (ji,jj  ,jl) 
    568569               !----------------------------------------------------------------- 
    569570               ! Zap snow energy  
     
    582583               oa_i (ji,jj,jl) = oa_i (ji,jj,jl) * rswitch 
    583584               smv_i(ji,jj,jl) = smv_i(ji,jj,jl) * rswitch 
     585 
     586               ! MV MP 2016 
     587               a_ip (ji,jj,jl) = a_ip (ji,jj,jl) * rswitch 
     588               v_ip (ji,jj,jl) = v_ip (ji,jj,jl) * rswitch 
     589               wfx_res(ji,jj)  = wfx_res(ji,jj) - ( v_ip(ji,jj,jl)  - zvp  ) * rhofw * r1_rdtice 
     590               ! END MV MP 2016 
    584591 
    585592               ! update exchanges with ocean 
Note: See TracChangeset for help on using the changeset viewer.