Changeset 95 for trunk/NEMO/OPA_SRC/SOL

Timestamp:

2004-06-25T10:07:15+02:00 (20 years ago)

Author:

opalod

Message:

CT : BUGFIX061 : mpp correction on ijmppeven and ijmppodd indices

File:

• trunk/NEMO/OPA_SRC/SOL/solsor.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SOL/solsor.F90

@@ -70 +70 @@
       !!----------------------------------------------------------------------
       
-      ijmppeven = MOD(njmpp  ,2)
-      ijmppodd  = MOD(njmpp+1,2)
+      ijmppeven = MOD(nimpp+njmpp  ,2)
+      ijmppodd  = MOD(nimpp+njmpp+1,2)
       !                                                       ! ==============
       DO jn = 1, nmax                                         ! Iterative loop 
@@ -141 +141 @@
             niter = jn
             ncut = 999
-            write(numout,*) 'solsor : res max = ', zres2, 'niter= ', niter
+         !  write(numout,*) 'solsor : res max = ', zres2, 'niter= ', niter
          ENDIF