Changeset 11494 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90

Timestamp:

2019-09-03T12:46:35+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF: switch on isf param in WED025 and fix bugs in isf param code + cosmetic changes (ticket #2142)

File:

• NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90 (modified) (1 diff)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/isftbl.F90

@@ -210 +210 @@
       !
       ! phtbl need to be bounded by water column thickness before
-      ! test: if phtbl = water column thickness, should return mbathy
-      ! test: if phtbl = 0 should return ktop
+      ! test: if htbl = water column thickness, should return mbathy
+      ! test: if htbl = 0 should return ktop (phtbl cap to e3t(ji,jj,1))
       !
       ! get ktbl