Changeset 2219 for branches/DEV_r2191_3partymerge2010/NEMO/OPA_SRC/SOL/solsor.F90

Timestamp:

2010-10-12T15:06:30+02:00 (14 years ago)

Author:

rblod

Message:

Merge branch DEV_1879_mpp_rep into DEV_r2191_3partymerge2010

File:

• branches/DEV_r2191_3partymerge2010/NEMO/OPA_SRC/SOL/solsor.F90 (modified) (3 diffs)

branches/DEV_r2191_3partymerge2010/NEMO/OPA_SRC/SOL/solsor.F90

@@ -22 +22 @@
    USE lib_mpp         ! distributed memory computing
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
+   USE lib_fortran
 
    IMPLICIT NONE
@@ -64 +65 @@
       INTEGER  ::   ijmppodd, ijmppeven, ijpr2d
       REAL(wp) ::   ztmp, zres, zres2
+      REAL(wp), DIMENSION(jpi,jpj) ::ztab
       !!----------------------------------------------------------------------
       
@@ -131 +133 @@
                ENDIF
             CASE ( 1 )                 ! relative precision
-               rnorme = SUM( gcr(2:nlci-1,2:nlcj-1) )
-               IF( lk_mpp )   CALL mpp_sum( rnorme )   ! sum over the global domain
+               ztab = 0.
+               ztab(:,:) = gcr(2:nlci-1,2:nlcj-1)
+               rnorme = glob_sum( ztab)    ! sum over the global domain
                ! test of convergence
                IF( rnorme < epsr .OR. jn == nn_nmax ) THEN