- Timestamp:
- 2021-02-16T14:41:33+01:00 (3 years ago)
- Location:
- NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE
- Files:
-
- 2 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 -
NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/iceupdate.F90
r14075 r14468 146 146 ! 147 147 ! the non-solar is simply derived from the solar flux 148 qns(ji,jj) = qt_oce_ai(ji,jj) - zqsr148 qns(ji,jj) = qt_oce_ai(ji,jj) - qsr(ji,jj) 149 149 150 150 ! Mass flux at the atm. surface
Note: See TracChangeset
for help on using the changeset viewer.