Changeset 12622 for NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/ISF/isftbl.F90

Timestamp:

2020-03-27T20:55:44+01:00 (4 years ago)

Author:

techene

Message:

all: add e3 substitute (sometimes it requires to add ze3t/u/v/w) and limit precompiled files lines to about 130 character

File:

• NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/ISF/isftbl.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r12377_KERNEL-06_techene_e3/src/OCE/ISF/isftbl.F90

@@ -67 +67 @@
          zhtbl = phtbl
          !
-         DO jk = 1, jpkm1
+         DO jk = 1, jpk
             ze3u(:,:,jk) = e3u(:,:,jk,Kmm)
          END DO 
@@ -88 +88 @@
          zhtbl = phtbl
          !
-         DO jk = 1, jpkm1
+         DO jk = 1, jpk
             ze3v(:,:,jk) = e3v(:,:,jk,Kmm)
          END DO 
@@ -107 +107 @@
          !
          ! compute tbl property at T point
-         DO jk = 1, jpkm1
+         DO jk = 1, jpk
             ze3t(:,:,jk) = e3t(:,:,jk,Kmm)
          END DO