Changeset 1537 for trunk/NEMO/OPA_SRC/TRA/trazdf_exp.F90

Timestamp:

2009-07-24T16:22:23+02:00 (15 years ago)

Author:

ctlod

Message:

ensure the restartability of the 2nd order advection scheme,see ticket: 489

File:

• trunk/NEMO/OPA_SRC/TRA/trazdf_exp.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/TRA/trazdf_exp.F90

@@ -90 +90 @@
       ! Initializations
       ! ---------------
-      zlavmr = 1. / float( n_zdfexp )                           ! Local constant
+      zlavmr = 1. / float( nn_zdfexp )                           ! Local constant
       !
       zwy(:,:, 1 ) = 0.e0        ;   zww(:,:, 1 ) = 0.e0        ! surface boundary conditions: no flux
@@ -100 +100 @@
       ! -------------------
       !
-      DO jl = 1, n_zdfexp
+      DO jl = 1, nn_zdfexp
          !                     ! first vertical derivative
          DO jk = 2, jpk
@@ -112 +112 @@
          END DO
          !
-         DO jk = 1, jpkm1      ! second vertical derivative   ==> tracer at kt+l*2*rdt/n_zdfexp
+         DO jk = 1, jpkm1      ! second vertical derivative   ==> tracer at kt+l*2*rdt/nn_zdfexp
             DO jj = 2, jpjm1 
                DO ji = fs_2, fs_jpim1   ! vector opt.