- Timestamp:
- 2017-06-01T09:54:36+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6859_LIM3_meltponds/NEMOGCM/NEMO/LIM_SRC_3/limmp.F90
r8099 r8106 120 120 ENDIF 121 121 122 123 122 ! 124 123 END SUBROUTINE lim_mp_init … … 200 199 201 200 WHERE ( ( a_i > epsi10 ) .AND. ( t_su >= rt0-epsi06 ) ) 202 a_ip = rn_apnd * z1_jpl201 a_ip_frac = rn_apnd 203 202 h_ip = rn_hpnd 204 v_ip = a_ip * h_ip205 a_ip _frac = a_ip /a_i203 v_ip = a_ip_frac * a_i * h_ip 204 a_ip = a_ip_frac * a_i 206 205 ELSE WHERE 207 206 a_ip = 0._wp
Note: See TracChangeset
for help on using the changeset viewer.