Ignore:
Timestamp:
2017-06-06T09:39:43+02:00 (3 years ago)
Author:
vancop
Message:

Melt pond interfaces practically operational

File:
1 edited

Legend:

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

    r8098 r8142  
    566566               zvs  = v_s  (ji,jj,  jl) 
    567567               zes  = e_s  (ji,jj,1,jl) 
    568                IF ( ln_pnd ) zvp  = v_ip (ji,jj  ,jl) 
     568               IF ( ( nn_pnd_scheme > 0 ) .AND. ln_pnd_fw )  zvp  = v_ip (ji,jj  ,jl) 
    569569               !----------------------------------------------------------------- 
    570570               ! Zap snow energy  
     
    588588                  a_ip (ji,jj,jl) = a_ip (ji,jj,jl) * rswitch 
    589589                  v_ip (ji,jj,jl) = v_ip (ji,jj,jl) * rswitch 
    590                   wfx_res(ji,jj)  = wfx_res(ji,jj) - ( v_ip(ji,jj,jl)  - zvp  ) * rhofw * r1_rdtice 
     590                  IF ( ln_pnd_fw )   wfx_res(ji,jj)  = wfx_res(ji,jj) - ( v_ip(ji,jj,jl)  - zvp  ) * rhofw * r1_rdtice 
    591591               ENDIF 
    592592               ! END MV MP 2016 
Note: See TracChangeset for help on using the changeset viewer.