Changeset 3849 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

Timestamp:

2013-03-26T11:45:16+01:00 (11 years ago)

Author:

trackstand2

Message:

Merge branch 'partitioner'

File:

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

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

@@ -157 +157 @@
    INTEGER, SAVE, PUBLIC                 :: nn_cpnode = 4 ! Number of cores per 
                                                           ! compute node on current computer
- 
+   LOGICAL, SAVE, PUBLIC                 :: nn_readpart = .FALSE. ! Whether to read partition from
+                                                            ! file (1) or not (0)
    REAL(wp), DIMENSION(:), ALLOCATABLE, SAVE :: tampon  ! buffer in case of bsend
 
@@ -263 +264 @@
       !
       NAMELIST/nammpp/ cn_mpi_send, nn_buffer, jpni, jpnj, jpnij, &
-                       nn_xfactors, nn_yfactors, nn_pttrim, nn_cpnode
+                       nn_readpart, nn_xfactors, nn_yfactors,     &
+                       nn_pttrim, nn_cpnode
       !!----------------------------------------------------------------------
       !