Changeset 3432 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

Timestamp:

2012-07-11T13:22:58+02:00 (12 years ago)

Author:

trackstand2

Message:

Merge branch 'ksection_partition'

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90 (modified) (3 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90

@@ -129 +129 @@
       !!   8.5  !  02-08  (G. Madec)  F90 : free form
       !!----------------------------------------------------------------------
+      USE exchtestmod, ONLY: mpp_test_comms
       INTEGER  ::   ji, jj, jn   ! dummy loop indices
       INTEGER  ::   ii, ij, ifreq, il1, il2            ! local integers
@@ -134 +135 @@
       REAL(wp) ::   zidom, zjdom                       ! local scalars
       INTEGER, DIMENSION(jpni,jpnj) ::   iimppt, ijmppt, ilcit, ilcjt   ! local workspace
+      INTEGER, ALLOCATABLE, DIMENSION(:,:) :: imask ! Local fake global land mask
       !!----------------------------------------------------------------------
 
@@ -424 +426 @@
       CALL mpp_init_ioipsl
 
+      ! ARPDBG - test comms setup
+      ALLOCATE(imask(jpiglo,jpjglo))
+      imask(:,:) = 1
+      CALL mpp_test_comms(imask)
+      DEALLOCATE(imask)
+
    END SUBROUTINE mpp_init