Changeset 2513

Timestamp:

2010-12-23T17:01:47+01:00 (13 years ago)

Author:

smasson

Message:

v33b: unexplained changes needed to compile with agrif on IBM PW6 (xlf90 v12.1.0.9)

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90 (modified) (9 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/OBS/obs_mpp.F90

@@ -58 +58 @@
       INTEGER                , INTENT(in   ) ::   kroot   ! Processor to send data
       INTEGER, DIMENSION(kno), INTENT(inout) ::   kvals   ! Array to send on kroot, receive for non-kroot
-      !!
-#if defined key_mpp_mpi
+      !
+#if defined key_mpp_mpi
+      !
       INTEGER :: ierr 
-
+      !
 INCLUDE 'mpif.h'
       !!----------------------------------------------------------------------
@@ -91 +92 @@
       INTEGER                , INTENT(in   ) ::   kno     ! Number of elements in array
       INTEGER, DIMENSION(kno), INTENT(inout) ::   kvals   ! Array to send on kroot, receive for non-kroot  
-      !!
-#if defined key_mpp_mpi
+      !
+#if defined key_mpp_mpi
+      !
       INTEGER :: ierr 
       INTEGER, DIMENSION(kno) ::   ivals
-
+      !
 INCLUDE 'mpif.h'
       !!----------------------------------------------------------------------
@@ -130 +132 @@
       INTEGER, DIMENSION(kno), INTENT(in   ) ::   kobsi, kobsj
       INTEGER, DIMENSION(kno), INTENT(inout) ::   kobsp
-      !!
-#if defined key_mpp_mpi
+      !
+#if defined key_mpp_mpi
+      !
       INTEGER :: ji
       INTEGER :: jj
@@ -241 +244 @@
       INTEGER, DIMENSION(kno), INTENT(in   ) ::   kvalsin
       INTEGER, DIMENSION(kno), INTENT(  out) ::   kvalsout
-      !!
-#if defined key_mpp_mpi
-      INTEGER :: ierr
-      !!
+      !
+#if defined key_mpp_mpi
+      !
+      INTEGER :: ierr
+      !
 INCLUDE 'mpif.h'
       !!----------------------------------------------------------------------
@@ -278 +282 @@
       INTEGER, INTENT(in   ) ::   kvalin
       INTEGER, INTENT(  out) ::   kvalout
-      !!
-#if defined key_mpp_mpi
-      INTEGER :: ierr
-      !!
+      !
+#if defined key_mpp_mpi
+      !
+      INTEGER :: ierr
+      !
 INCLUDE 'mpif.h'
       !!----------------------------------------------------------------------
@@ -315 +320 @@
       !!----------------------------------------------------------------------
       REAL(KIND=wp), DIMENSION(jpiglo,jpjglo), INTENT(inout) ::   pval
-      !!
-      INTEGER :: ierr
-#if defined key_mpp_mpi
+      !
+      INTEGER :: ierr
+      !
+#if defined key_mpp_mpi
+      !
 INCLUDE 'mpif.h'
       REAL(KIND=wp), DIMENSION(:,:), ALLOCATABLE ::   zcp
@@ -363 +370 @@
       !!
       INTEGER :: ierr
-#if defined key_mpp_mpi
+      !
+#if defined key_mpp_mpi
+      !
 INCLUDE 'mpif.h'
       !-----------------------------------------------------------------------
@@ -403 +412 @@
       INTEGER :: ierr
       INTEGER :: jproc
-#if defined key_mpp_mpi
+      !
+#if defined key_mpp_mpi
+      !
 INCLUDE 'mpif.h'
       INTEGER, DIMENSION(jpnij) ::   irdsp, isdsp
@@ -453 +464 @@
       INTEGER :: ierr
       INTEGER :: jproc
-#if defined key_mpp_mpi
+      !
+#if defined key_mpp_mpi
+      !
 INCLUDE 'mpif.h'
       INTEGER, DIMENSION(jpnij) ::   irdsp, isdsp