Changeset 14451
- Timestamp:
- 2021-02-15T15:59:14+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/ice.F90
r14302 r14451 213 213 REAL(wp), PUBLIC :: rn_apnd_max !: Maximum fraction of melt water contributing to ponds 214 214 REAL(wp), PUBLIC :: rn_pnd_flush !: Pond flushing efficiency (tuning parameter) 215 REAL(wp), PUBLIC :: rn_pnd_flush !: Pond flushing efficiency (tuning parameter)216 215 LOGICAL , PUBLIC :: ln_pnd_CST !: Melt ponds scheme with constant fraction and depth 217 216 REAL(wp), PUBLIC :: rn_apnd !: prescribed pond fraction (0<rn_apnd<1) -
NEMO/branches/UKMO/NEMO_4.0.4_GO8_package/src/ICE/icethd_pnd.F90
r14302 r14451 647 647 zTavg = zTavg + t_su(ji,jj,jl)*a_i(ji,jj,jl) 648 648 END DO 649 !! EWB: bug here - should be divided by at_i(ji,jj) but zTavg is not used anywhere 649 650 zTavg = zTavg / a_i(ji,jj,jl) !!! could get a division by zero here 650 651
Note: See TracChangeset
for help on using the changeset viewer.