Changeset 2096

Timestamp:

2010-09-15T14:48:45+02:00 (13 years ago)

Author:

smasson

Message:

DEV_r1879_FCM: use cpp keys to define the domain decomposition

File:

• branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/par_oce.F90 (modified) (1 diff)

branches/DEV_r1879_FCM/NEMOGCM/NEMO/OPA_SRC/par_oce.F90

@@ -26 +26 @@
 
 #if ! defined key_mpp_dyndist 
-   INTEGER, PUBLIC, PARAMETER ::    &  !: 
-      jpni   = 1,                   &  !: number of processors following i 
+
+   INTEGER, PUBLIC, PARAMETER ::    &  !:
+# if ! defined key_nproci
+      jpni   = 1,                   &  !: number of processors following i
       jpnj   = 1,                   &  !: number of processors following j
       jpnij  = 1                       !: nb of local domain = nb of processors 
       !                                !  ( <= jpni x jpnj )
+# else
+      jpni   = key_nproci,          &  !: number of processors following i
+      jpnj   = key_nprocj,          &  !: number of processors following j
+#  if ! defined key_nprocij
+      jpnij  = key_nproci * key_nprocj !: nb of local domain = nb of processors 
+      !                                !  ( <= jpni x jpnj )
+#  else
+      jpnij  = key_nprocij             !: nb of local domain = nb of processors 
+      !                                !  ( <= jpni x jpnj )
+#  endif
+# endif
 #else
    INTEGER, PUBLIC ::               &  !