Changeset 42 for trunk/NEMO/OPA_SRC/DTA/dtatem.F90

Timestamp:

2004-02-20T10:34:58+01:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX021 : Indices errors for the ORCA2_LIM standard configuration only

File:

• trunk/NEMO/OPA_SRC/DTA/dtatem.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DTA/dtatem.F90

@@ -214 +214 @@
                ij0 = 101   ;   ij1 = 102
                ii0 = 139   ;   ii1 = 139
-               DO jl = mi0(ii0), mi1(ii1)                ! New temperature profile at Gibraltar
+               DO jl = mi0(il0), mi1(il1)                ! New temperature profile at Gibraltar
                   DO jj = mj0(ij0), mj1(ij1)
                      DO ji = mi0(ii0), mi1(ii1)
@@ -224 +224 @@
                ij0 =  88   ;   ij1 =  88
                ii0 = 161   ;   ii1 = 163
-               DO jl = mi0(ii0), mi1(ii1)                ! New temperature profile at Bab el Mandeb
+               DO jl = mi0(il0), mi1(il1)                ! New temperature profile at Bab el Mandeb
                   DO jj = mj0(ij0), mj1(ij1)
                      DO ji = mi0(ii0), mi1(ii1)