Changeset 15 for trunk/NEMO/OPA_SRC/cla_div.F90

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

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

trunk/NEMO/OPA_SRC/cla_div.F90

@@ -126 +126 @@
          END DO
       END DO
-
-      ! mpp
-# if defined key_mpp
-      CALL mpp_sum( zempred )
-# endif
+      IF( lk_mpp )   CALL mpp_sum( zempred )      ! sum with other processors value
+
 
       ! convert in m3
@@ -239 +236 @@
          END DO
       END DO
-
-      ! mpp
-# if defined key_mpp
-      CALL mpp_sum( zempmed )
-# endif
+      IF( lk_mpp )   CALL mpp_sum( zempmed )      ! sum with other processors value
 
       ! minus 2 points in Red Sea and 3 in Atlantic 
@@ -536 +529 @@
 #else
    !!----------------------------------------------------------------------
-   !!   Default key                                            Empty module
+   !!   Default key                                            Dummy module
    !!----------------------------------------------------------------------
 CONTAINS
    SUBROUTINE div_cla( kt )
-      WRITE(*,*) kt                         ! suppress compilation warning
+      WRITE(*,*) 'div_cla: You should have not see this print! error?', kt
    END SUBROUTINE div_cla
 #endif