Changeset 15045 for NEMO/releases/r4.0/r4.0-HEAD/src
- Timestamp:
- 2021-06-23T12:43:59+02:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/ICE/iceitd.F90
r14026 r15045 368 368 ! 369 369 ! Compute coefficients of g(eta) = g0 + g1*eta 370 zdhr = 1._wp / (phR(ji) - phL(ji)) 370 IF( phR(ji) > phL(ji) ) THEN ; zdhr = 1._wp / (phR(ji) - phL(ji)) 371 ELSE ; zdhr = 0._wp ! if hR=hL=hice => no remapping 372 ENDIF 373 !!zdhr = 1._wp / (phR(ji) - phL(ji)) 371 374 zwk1 = 6._wp * paice(ji) * zdhr 372 375 zwk2 = ( phice(ji) - phL(ji) ) * zdhr
Note: See TracChangeset
for help on using the changeset viewer.