- Timestamp:
- 2021-02-16T14:41:33+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icethd_pnd.F90
r14451 r14468 779 779 ! recalculate equivalent pond variables 780 780 IF ( a_ip(ji,jj,jl) > epsi10) THEN 781 h_ip(ji,jj,jl) = v_ip(ji,jj,jl) / a_i (ji,jj,jl)781 h_ip(ji,jj,jl) = v_ip(ji,jj,jl) / a_ip(ji,jj,jl) 782 782 a_ip_frac(ji,jj,jl) = a_ip(ji,jj,jl) / a_i(ji,jj,jl) ! MV in principle, useless as computed in icevar 783 783 h_il(ji,jj,jl) = v_il(ji,jj,jl) / a_ip(ji,jj,jl) ! MV in principle, useless as computed in icevar
Note: See TracChangeset
for help on using the changeset viewer.