Changeset 6619

Timestamp:

2016-05-25T14:52:53+02:00 (8 years ago)

Author:

cetlod

Message:

Minor bug correction, see ticket #1667

File:

• trunk/NEMOGCM/NEMO/TOP_SRC/trcdta.F90 (modified) (2 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

@@ -199 +199 @@
                   DO ji = 1, jpi
                      DO jk = 1, jpk                        ! determines the intepolated T-S profiles at each (i,j) points
-                        zl = fsdept_n(ji,jj,jk)
+                        zl = gdept_n(ji,jj,jk)
                         IF(     zl < gdept_1d(1  ) ) THEN         ! above the first level of data
                            ztp(jk) =  ptrc(ji,jj,1,jl)
@@ -230 +230 @@
                         ik = mbkt(ji,jj) 
                         IF( ik > 1 ) THEN
-                           zl = ( gdept_1d(ik) - fsdept_n(ji,jj,ik) ) / ( gdept_1d(ik) - gdept_1d(ik-1) )
+                           zl = ( gdept_1d(ik) - gdept_n(ji,jj,ik) ) / ( gdept_1d(ik) - gdept_1d(ik-1) )
                            ptrc(ji,jj,ik,jl) = (1.-zl) * ptrc(ji,jj,ik,jl) + zl * ptrc(ji,jj,ik-1,jl)
                         ENDIF