Changeset 926

Timestamp:

06/21/19 00:42:30 (5 years ago)

Author:

dubos

Message:

devel and trunk : let iim_glo=nbp+1 so that MOD(nbp,npslit_X)==0 implies equal-sized domains and good load balancing

Location:

codes/icosagcm

Files:

• devel/src/base/init_grid_param.f90 (modified) (1 diff)
• trunk/src/base/grid_param.f90 (modified) (2 diffs)

codes/icosagcm/devel/src/base/init_grid_param.f90

@@ -30 +30 @@
        IF (is_mpi_root) PRINT *,'DYNAMICO mesh is icosahedral.'
        CALL getin('nbp',iim_glo)
+       IF(is_mpi_root) PRINT *, 'GETIN nbp = ',iim_glo
+       iim_glo=iim_glo+1
        jjm_glo=iim_glo
-       IF(is_mpi_root) PRINT *, 'GETIN nbp = ',iim_glo
        CALL select_compute_hex
     CASE('unstructured')

codes/icosagcm/trunk/src/base/grid_param.f90

@@ -14 +14 @@
     LOGICAL :: is_mpi_root
     CALL getin('nbp',iim_glo)
-    jjm_glo=iim_glo
     CALL getin('llm',llm)
     nqtot=1
@@ -23 +22 @@
        PRINT *, 'GETIN nqtot = ',nqtot
     END IF
+    iim_glo=iim_glo+1
+    jjm_glo=iim_glo
     
   END SUBROUTINE  init_grid_param