Changeset 4481 for branches

Timestamp:

2014-02-04T13:19:22+01:00 (10 years ago)

Author:

trackstand2

Message:

Replace jpk with jpkorig in original lbc code

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90 (modified) (5 diffs)

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

@@ -547 +547 @@
       !
       !                           ! Migrations
-      imigr = jpreci * jpj * jpk
+      imigr = jpreci * jpj * jpkorig
       !
       SELECT CASE ( nbondi ) 
@@ -600 +600 @@
       !
       !                           ! Migrations
-      imigr = jprecj * jpi * jpk
+      imigr = jprecj * jpi * jpkorig
       !
       SELECT CASE ( nbondj )     
@@ -942 +942 @@
       !
       !                           ! Migrations
-      imigr = jpreci * jpj * jpk *2
+      imigr = jpreci * jpj * jpkorig *2
       !
       SELECT CASE ( nbondi ) 
@@ -1001 +1001 @@
       !
       !                           ! Migrations
-      imigr = jprecj * jpi * jpk * 2
+      imigr = jprecj * jpi * jpkorig * 2
       !
       SELECT CASE ( nbondj )     
@@ -2388 +2388 @@
       !
       !                                     ! Build in procs of ncomm_north the znorthgloio
-      itaille = jpi * jpk * ijpj
+      itaille = jpi * jpkorig * ijpj
       CALL MPI_ALLGATHER( znorthloc  , itaille, MPI_DOUBLE_PRECISION,                &
          &                znorthgloio, itaille, MPI_DOUBLE_PRECISION, ncomm_north, ierr )