Changeset 2239 for branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/LDF

Timestamp:

2010-10-13T00:03:11+02:00 (14 years ago)

Author:

rblod

Message:

First commit to compile ORCA2_LIM for next nemo v3.3

File:

• branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/LDF/ldfslp.F90 (modified) (1 diff)

branches/DEV_r2106_LOCEAN2010/NEMO/OPA_SRC/LDF/ldfslp.F90

@@ -532 +532 @@
                  ikv  = MIN( mbathy(ji,jj), mbathy(ji  ,jj+1) ) - 1
                  ! i-gradient of T and S
-                 zdit (ji,jj,iku) = gtu(ji,jj)
-                 zdis (ji,jj,iku) = gsu(ji,jj)
+                 zdit (ji,jj,iku) = gtsu(ji,jj,jp_tem)
+                 zdis (ji,jj,iku) = gtsu(ji,jj,jp_sal)
                  ! j-gradient of T and S
-                 zdjt (ji,jj,ikv) = gtv(ji,jj)
-                 zdjs (ji,jj,ikv) = gsv(ji,jj)
+                 zdjt (ji,jj,ikv) = gtsv(ji,jj,jp_tem)
+                 zdjs (ji,jj,ikv) = gtsv(ji,jj,jp_sal)
 # if ! defined key_vectopt_loop   ||   defined key_mpp_omp
               END DO