Changeset 16 for trunk/NEMO/OPA_SRC/TRD/trdtra.F90

Timestamp:

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

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/OPA_SRC/TRD/trdtra.F90 (modified) (5 diffs)

trunk/NEMO/OPA_SRC/TRD/trdtra.F90

@@ -33 +33 @@
 
    !! * Shared module variables
-   LOGICAL, PUBLIC, PARAMETER ::   lk_trdtra = .TRUE.   ! momentum trend flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trdtra = .TRUE.    !: momentum trend flag
 
    !! * Substitutions
@@ -95 +95 @@
             END DO
          END DO
-#if defined key_mpp
-         CALL mpp_sum( tvolt )
-#endif
+         IF( lk_mpp )   CALL mpp_sum( tvolt )   ! sum over the global domain
+
          IF(lwp) THEN
             WRITE(numout,*)
@@ -208 +207 @@
          END DO
          
-#if defined key_mpp
-         CALL mpp_sum( ztmo, 10 )
-         CALL mpp_sum( zsmo, 10 )
-         CALL mpp_sum( zt2 , 10 )
-         CALL mpp_sum( zs2 , 10 )
-#endif
+         IF( lk_mpp ) THEN
+            CALL mpp_sum( ztmo, 10 )   ! sums over the global domain
+            CALL mpp_sum( zsmo, 10 )
+            CALL mpp_sum( zt2 , 10 )
+            CALL mpp_sum( zs2 , 10 )
+         ENDIF
          
          ! 4. Print
@@ -358 +357 @@
          END DO
       END DO
-#if defined key_mpp
-      CALL mpp_sum( tvolt )
-#endif
-      IF(lwp) THEN
-         WRITE(numout,*) '          total ocean volume at T-point   tvolt = ',tvolt
-      ENDIF
+      IF( lk_mpp )   CALL mpp_sum( tvolt )   ! sum over the global domain
+
+      IF(lwp) WRITE(numout,*) '          total ocean volume at T-point   tvolt = ',tvolt
 
    END SUBROUTINE trd_tra_init
@@ -371 +367 @@
    !!   Default case :                                         Empty module
    !!----------------------------------------------------------------------
-   LOGICAL, PUBLIC, PARAMETER ::   lk_trdtra = .FALSE.   ! momentum trend flag
+   LOGICAL, PUBLIC, PARAMETER ::   lk_trdtra = .FALSE.   !: momentum trend flag
 CONTAINS
    SUBROUTINE trd_tra( kt )        ! Empty routine
-      WRITE(*,*) kt
+      WRITE(*,*) 'trd_tra: You should not have seen this print! error?', kt
    END SUBROUTINE trd_tra
    SUBROUTINE trd_tra_init         ! Empty routine