Ignore:
Timestamp:
2017-06-01T09:54:36+02:00 (4 years ago)
Author:
vancop
Message:

Follow up on melt ponds and albedo

File:
1 edited

Legend:

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

    r8099 r8106  
    120120      ENDIF 
    121121 
    122  
    123122      ! 
    124123   END SUBROUTINE lim_mp_init 
     
    200199 
    201200       WHERE ( ( a_i > epsi10 ) .AND. ( t_su >= rt0-epsi06 ) )  
    202           a_ip      = rn_apnd * z1_jpl  
     201          a_ip_frac = rn_apnd 
    203202          h_ip      = rn_hpnd     
    204           v_ip      = a_ip * h_ip  
    205           a_ip_frac = a_ip / a_i 
     203          v_ip      = a_ip_frac * a_i * h_ip  
     204          a_ip      = a_ip_frac * a_i 
    206205       ELSE WHERE 
    207206          a_ip      = 0._wp 
Note: See TracChangeset for help on using the changeset viewer.