Changeset 32 for trunk/NEMO/OPA_SRC/DOM/domain.F90

Timestamp:

2004-02-17T10:20:15+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/DOM/domain.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DOM/domain.F90

@@ -304 +304 @@
       ze1max = MAXVAL( e1t(:,:), mask = tmask(:,:,1) == 1.e0 )    
       ze2max = MAXVAL( e2t(:,:), mask = tmask(:,:,1) == 1.e0 )    
-#   if defined key_mpp    
-      CALL mpp_min( ze1min )
-      CALL mpp_min( ze2min )
-      CALL mpp_min( ze1max )
-      CALL mpp_min( ze2max )
-#   endif
+
+      IF( lk_mpp )   CALL mpp_min( ze1min )   ! min over the global domain
+      IF( lk_mpp )   CALL mpp_min( ze2min )
+      IF( lk_mpp )   CALL mpp_min( ze1max )
+      IF( lk_mpp )   CALL mpp_min( ze2max )
+
       iloc  = MINLOC( e1t(:,:), mask = tmask(:,:,1) == 1.e0 )
       iimi1 = iloc(1) + nimpp - 1
@@ -322 +322 @@
       iima2 = iloc(1) + nimpp - 1
       ijma2 = iloc(2) + njmpp - 1
-#   if defined key_mpp
-      CALL mpp_isl( iimi1 )
-      CALL mpp_isl( ijmi1 )
-      CALL mpp_isl( iimi2 )
-      CALL mpp_isl( ijmi2 )
-      CALL mpp_isl( iima1 )
-      CALL mpp_isl( ijma1 )
-      CALL mpp_isl( iima2 )
-      CALL mpp_isl( ijma2 )
-#   endif
+
+      IF( lk_mpp ) THEN
+         CALL mpp_isl( iimi1 )
+         CALL mpp_isl( ijmi1 )
+         CALL mpp_isl( iimi2 )
+         CALL mpp_isl( ijmi2 )
+         CALL mpp_isl( iima1 )
+         CALL mpp_isl( ijma1 )
+         CALL mpp_isl( iima2 )
+         CALL mpp_isl( ijma2 )
+      ENDIF
 
       IF(lwp) THEN