Changeset 10397 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mppini.F90

Timestamp:

2018-12-14T17:27:24+01:00 (5 years ago)

Author:

smasson

Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 5 introduce mpp_delay_sum, see #2133

File:

• NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mppini.F90 (modified) (1 diff)

NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/OCE/LBC/mppini.F90

@@ -182 +182 @@
       ! then we calculate them here now that we have our communicator size
       IF( jpni < 1 .OR. jpnj < 1 )   CALL mpp_init_bestpartition( mppsize, jpni, jpnj )
+!!$      IF( jpni < 1 .OR. jpnj < 1 ) THEN
+!!$         CALL mpp_init_bestpartition( mppsize, jpni, jpnj )
+!!$      ELSE
+!!$         CALL mpp_init_bestpartition( mppsize, inbi, inbj )
+!!$         CALL mpp_basic_decomposition( jpni, jpnj, jpimax, jpjmax )
+!!$         CALL mpp_basic_decomposition( inbi, inbj,  iimax,  ijmax )
+!!$         IF( iimax*ijmax < jpimax*jpjmax ) THEN
+!!$            WRITE(ctmp1,*) '   The chossen domain decomposition ', jpni, jpnj
+!!$            WRITE(ctmp2,*) '   exceeds the maximum number of ocean subdomains = ', inijmin
+!!$            WRITE(ctmp3,*) '   we suppressed ', jpni*jpnj - mppsize, ' land subdomains '
+!!$            WRITE(ctmp4,*) '   BUT we had to keep ', mppsize - inijmin, ' land subdomains that are useless...'
+!!$            CALL ctl_warn( 'mpp_init:', '~~~~~~~~ ', ctmp1, ctmp2, ctmp3, ctmp4 )
+!!$         ENDIF
+!!$      ENDIF
       
       ! look for land mpi subdomains...