Changeset 12 for trunk/NEMO/LIM_SRC/limhdf.F90

Timestamp:

2004-02-17T07:56:53+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

• trunk/NEMO/LIM_SRC/limhdf.F90 (modified) (3 diffs)

trunk/NEMO/LIM_SRC/limhdf.F90

@@ -16 +16 @@
 !  USE limdyn
    USE lbclnk
+   USE lib_mpp
 
    IMPLICIT NONE
@@ -83 +84 @@
       zdiv0(:, 1 ) = 0.e0
       zdiv0(:,jpj) = 0.e0
-#if ! defined key_vectopt_loop
-      zflu (jpi,:) = 0.e0   
-      zflv (jpi,:) = 0.e0
-      zdiv0(1,  :) = 0.e0
-      zdiv0(jpi,:) = 0.e0
-#endif
+      IF( .NOT.lk_vopt_loop ) THEN
+         zflu (jpi,:) = 0.e0   
+         zflv (jpi,:) = 0.e0
+         zdiv0(1,  :) = 0.e0
+         zdiv0(jpi,:) = 0.e0
+      ENDIF
 
       ! Metric coefficient (compute at the first call and saved in
@@ -149 +150 @@
             END DO
          END DO
-#if defined key_mpp
-         CALL mpp_max( zconv )
-#endif
+         IF( lk_mpp )   CALL mpp_max( zconv )   ! max over the global domain
+
          DO jj = 2, jpjm1
             DO ji = 2 , jpim1