New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 14275 for NEMO/trunk/src – NEMO

Changeset 14275 for NEMO/trunk/src


Ignore:
Timestamp:
2021-01-07T13:13:16+01:00 (3 years ago)
Author:
smasson
Message:

trunk: suppress nproc ( = mpprank = narea-1)

Location:
NEMO/trunk/src/OCE
Files:
13 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/CRS/crsdom.F90

    r13286 r14275  
    19601960           ENDDO 
    19611961        ENDDO  
    1962         Nje0_crs  = nje0all_crs(nproc + 1)  
    1963         jpj_crs   = jpjall_crs (nproc + 1) 
    1964         Njs0_crs  = njs0all_crs(nproc + 1) 
    1965         njmpp_crs = njmppt_crs (nproc + 1) 
     1962        Nje0_crs  = nje0all_crs(narea)  
     1963        jpj_crs   = jpjall_crs (narea) 
     1964        Njs0_crs  = njs0all_crs(narea) 
     1965        njmpp_crs = njmppt_crs (narea) 
    19661966 
    19671967        ! Calcul suivant un decoupage en i 
    … …  
    20042004         ENDDO  
    20052005         
    2006          Nie0_crs  = nie0all_crs(nproc + 1)  
    2007          jpi_crs   = jpiall_crs (nproc + 1) 
    2008          Nis0_crs  = nis0all_crs(nproc + 1) 
    2009          nimpp_crs = nimppt_crs (nproc + 1) 
     2006         Nie0_crs  = nie0all_crs(narea)  
     2007         jpi_crs   = jpiall_crs (narea) 
     2008         Nis0_crs  = nis0all_crs(narea) 
     2009         nimpp_crs = nimppt_crs (narea) 
    20102010 
    20112011         DO ji = 1, jpi_crs 
    … …  
    20682068         WRITE(numout,*) '~~~~~~~   coarse domain local  j-dimension              jpj = ', jpj 
    20692069         WRITE(numout,*) 
    2070          WRITE(numout,*) ' nproc  = '     , nproc 
     2070         WRITE(numout,*) ' narea  = '     , narea 
    20712071         WRITE(numout,*) ' jpi    = '     , jpi 
    20722072         WRITE(numout,*) ' jpj    = '     , jpj 

  • NEMO/trunk/src/OCE/DOM/dom_oce.F90

    r14223 r14275  
    8686   !                             !: domain MPP decomposition parameters 
    8787   INTEGER             , PUBLIC ::   nimpp, njmpp     !: i- & j-indexes for mpp-subdomain left bottom 
    88    INTEGER             , PUBLIC ::   nproc            !: number for local processor 
    89    INTEGER             , PUBLIC ::   narea            !: number for local area 
     88   INTEGER             , PUBLIC ::   narea            !: number for local area = MPI rank + 1 
    9089   INTEGER             , PUBLIC ::   nbondi, nbondj   !: mark of i- and j-direction local boundaries 
    9190   INTEGER, ALLOCATABLE, PUBLIC ::   nbondi_bdy(:)    !: mark i-direction local boundaries for BDY open boundaries 

  • NEMO/trunk/src/OCE/LBC/lib_mpp.F90

    r14229 r14275  
    122122#endif 
    123123 
    124    INTEGER, PARAMETER         ::   nprocmax = 2**10   ! maximun dimension (required to be a power of 2) 
    125  
    126124   INTEGER, PUBLIC ::   mppsize        ! number of process 
    127125   INTEGER, PUBLIC ::   mpprank        ! process number  [ 0 - size-1 ] 
    … …  
    10021000      !!---------------------------------------------------------------------- 
    10031001#if ! defined key_mpi_off 
    1004       !-$$     WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - ngrp_world     : ', ngrp_world 
    1005       !-$$     WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - mpi_comm_world : ', mpi_comm_world 
    1006       !-$$     WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - mpi_comm_oce   : ', mpi_comm_oce 
     1002      !-$$     WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - ngrp_world     : ', ngrp_world 
     1003      !-$$     WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - mpi_comm_world : ', mpi_comm_world 
     1004      !-$$     WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - mpi_comm_oce   : ', mpi_comm_oce 
    10071005      ! 
    10081006      ALLOCATE( kwork(jpnij), STAT=ierr ) 
    … …  
    10151013         ! 
    10161014         CALL MPI_ALLGATHER ( njmpp, 1, mpi_integer, kwork, 1, mpi_integer, mpi_comm_oce, ierr ) 
    1017          !-$$        WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - kwork pour njmpp : ', kwork 
     1015         !-$$        WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - kwork pour njmpp : ', kwork 
    10181016         !-$$        CALL flush(numout) 
    10191017         ! 
    … …  
    10251023            ENDIF 
    10261024         END DO 
    1027          !-$$        WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - ndim_rank_znl : ', ndim_rank_znl 
     1025         !-$$        WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - ndim_rank_znl : ', ndim_rank_znl 
    10281026         !-$$        CALL flush(numout) 
    10291027         ! Allocate the right size to nrank_znl 
    … …  
    10381036            ENDIF 
    10391037         END DO 
    1040          !-$$        WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - nrank_znl : ', nrank_znl 
     1038         !-$$        WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - nrank_znl : ', nrank_znl 
    10411039         !-$$        CALL flush(numout) 
    10421040 
    10431041         ! Create the opa group 
    10441042         CALL MPI_COMM_GROUP(mpi_comm_oce,ngrp_opa,ierr) 
    1045          !-$$        WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - ngrp_opa : ', ngrp_opa 
     1043         !-$$        WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - ngrp_opa : ', ngrp_opa 
    10461044         !-$$        CALL flush(numout) 
    10471045 
    10481046         ! Create the znl group from the opa group 
    10491047         CALL MPI_GROUP_INCL  ( ngrp_opa, ndim_rank_znl, nrank_znl, ngrp_znl, ierr ) 
    1050          !-$$        WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - ngrp_znl ', ngrp_znl 
     1048         !-$$        WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - ngrp_znl ', ngrp_znl 
    10511049         !-$$        CALL flush(numout) 
    10521050 
    10531051         ! Create the znl communicator from the opa communicator, ie the pool of procs in the same row 
    10541052         CALL MPI_COMM_CREATE ( mpi_comm_oce, ngrp_znl, ncomm_znl, ierr ) 
    1055          !-$$        WRITE (numout,*) 'mpp_ini_znl ', nproc, ' - ncomm_znl ', ncomm_znl 
     1053         !-$$        WRITE (numout,*) 'mpp_ini_znl ', mpprank, ' - ncomm_znl ', ncomm_znl 
    10561054         !-$$        CALL flush(numout) 
    10571055         ! 

  • NEMO/trunk/src/OCE/LBC/mppini.F90

    r14229 r14275  
    133133      !!                    nbondi    : mark for "east-west local boundary" 
    134134      !!                    nbondj    : mark for "north-south local boundary" 
    135       !!                    nproc     : number for local processor 
    136135      !!                    noea      : number for local neighboring processor 
    137136      !!                    nowe      : number for local neighboring processor 
    … …  
    506505 
    507506      ! just to save nono etc for all proc 
    508       ! warning ii*ij (zone) /= nproc (processors)! 
     507      ! warning ii*ij (zone) /= mpprank (processors)! 
    509508      ! ioso = zone number, ii_noso = proc number 
    510509      ii_noso(:) = -1 
    … …  
    641640         WRITE(inum,'(6i8,a,3i8,a)') jpnij,jpimax,jpjmax,jpk,jpiglo,jpjglo,& 
    642641   &           ' ( local: ',narea,jpi,jpj,' )' 
    643          WRITE(inum,'(a)') 'nproc   jpi  jpj Nis0 Njs0 Nie0 Nje0 nimp njmp nono noso nowe noea nbondi nbondj ' 
     642         WRITE(inum,'(a)') 'narea   jpi  jpj Nis0 Njs0 Nie0 Nje0 nimp njmp nono noso nowe noea nbondi nbondj ' 
    644643 
    645644         DO jproc = 1, jpnij 
    646             WRITE(inum,'(13i5,2i7)')   jproc-1,  jpiall(jproc),  jpjall(jproc),   & 
     645            WRITE(inum,'(13i5,2i7)')     jproc,  jpiall(jproc),  jpjall(jproc),   & 
    647646               &                                nis0all(jproc), njs0all(jproc),   & 
    648647               &                                nie0all(jproc), nje0all(jproc),   & 
    … …  
    668667      ENDIF 
    669668      ! 
    670       nproc = narea-1 
    671669      IF(lwp) THEN 
    672670         WRITE(numout,*) 
    673671         WRITE(numout,*) '   resulting internal parameters : ' 
    674          WRITE(numout,*) '      nproc  = ', nproc 
     672         WRITE(numout,*) '      narea  = ', narea 
    675673         WRITE(numout,*) '      nowe   = ', nowe  , '   noea  =  ', noea 
    676674         WRITE(numout,*) '      nono   = ', nono  , '   noso  =  ', noso 
    … …  
    13261324      ENDIF 
    13271325      ! 
    1328       CALL flio_dom_set ( jpnij, nproc, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom) 
     1326      CALL flio_dom_set ( jpnij, narea-1, idid, iglo, iloc, iabsf, iabsl, ihals, ihale, 'BOX', nidom) 
    13291327      ! 
    13301328   END SUBROUTINE init_ioipsl 

  • NEMO/trunk/src/OCE/OBS/obs_averg_h2d.F90

    r12377 r14275  
    2121      & e1t, e2t, & 
    2222      & e1f, e2f, & 
    23       & glamt, gphit, & 
    24       & nproc 
     23      & glamt, gphit 
    2524   USE in_out_manager 
    2625   USE obs_const, ONLY : & 

  • NEMO/trunk/src/OCE/OBS/obs_grid.F90

    r13286 r14275  
    130130               CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 
    131131                  &                             1, jpi, 1, jpj,           & 
    132                   &                             nproc, jpnij,             & 
     132                  &                             narea-1, jpnij,           & 
    133133                  &                             glamt, gphit, tmask,      & 
    134134                  &                             kobsin, plam, pphi,       & 
    … …  
    137137               CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 
    138138                  &                             1, jpi, 1, jpj,           & 
    139                   &                             nproc, jpnij,             & 
     139                  &                             narea-1, jpnij,           & 
    140140                  &                             glamu, gphiu, umask,      & 
    141141                  &                             kobsin, plam, pphi,       & 
    … …  
    144144               CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 
    145145                  &                             1, jpi, 1, jpj,           & 
    146                   &                             nproc, jpnij,             & 
     146                  &                             narea-1, jpnij,           & 
    147147                  &                             glamv, gphiv, vmask,      & 
    148148                  &                             kobsin, plam, pphi,       & 
    … …  
    151151               CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo, & 
    152152                  &                             1, jpi, 1, jpj,           & 
    153                   &                             nproc, jpnij,             & 
     153                  &                             narea-1, jpnij,           & 
    154154                  &                             glamf, gphif, fmask,      & 
    155155                  &                             kobsin, plam, pphi,       & 
    … …  
    176176      !! 
    177177      !! ** Action  : Return kproc holding the observation and kiobsi,kobsj 
    178       !!              valid on kproc=nproc processor only. 
     178      !!              valid on kproc=narea-1 processor only. 
    179179      !!    
    180180      !! History : 
    … …  
    248248         jlon     = jpiglo 
    249249         jlat     = jpjglo 
    250          joffset  = nproc 
     250         joffset  = narea-1 
    251251         jostride = jpnij 
    252252      ELSE 
    … …  
    513513                        IF ( ABS( zlam - zplam(jo) ) < 1e-6 ) THEN 
    514514                           IF ( llinvalidcell(ji,jj) ) THEN 
    515                               kproc(jo) = nproc + 1000000 
     515                              kproc(jo) = narea-1 + 1000000 
    516516                              kobsi(jo) = ji + 1 
    517517                              kobsj(jo) = jj + 1 
    518518                              CYCLE 
    519519                           ELSE 
    520                               kproc(jo) = nproc 
     520                              kproc(jo) = narea-1 
    521521                              kobsi(jo) = ji + 1 
    522522                              kobsj(jo) = jj + 1 
    … …  
    552552                           &          zlamtm(:,ji,jj), zphitm(:,ji,jj) ) ) THEN 
    553553                           IF ( llinvalidcell(ji,jj) ) THEN 
    554                               kproc(jo) = nproc + 1000000 
     554                              kproc(jo) = narea-1 + 1000000 
    555555                              kobsi(jo) = ji + 1 
    556556                              kobsj(jo) = jj + 1 
    557557                              CYCLE 
    558558                           ELSE 
    559                               kproc(jo) = nproc 
     559                              kproc(jo) = narea-1 
    560560                              kobsi(jo) = ji + 1 
    561561                              kobsj(jo) = jj + 1 
    … …  
    584584                           &          zlamtm(:,ji,jj), zphitm(:,ji,jj) ) ) THEN 
    585585                           IF ( llinvalidcell(ji,jj) ) THEN 
    586                               kproc(jo) = nproc + 1000000 
     586                              kproc(jo) = narea-1 + 1000000 
    587587                              kobsi(jo) = ji + 1 
    588588                              kobsj(jo) = jj + 1 
    589589                              CYCLE 
    590590                           ELSE 
    591                               kproc(jo) = nproc 
     591                              kproc(jo) = narea-1 
    592592                              kobsi(jo) = ji + 1 
    593593                              kobsj(jo) = jj + 1 
    … …  
    716716            ! define the following format: "(a,a,ix.x,a,ix.x,a,ix.x,a)" 
    717717            WRITE(clfmt, "('(a,a,i', i1, '.', i1',a,i', i1, '.', i1',a,i', i1, '.', i1',a)')") idg, idg, idg, idg, idg, idg 
    718             WRITE(cfname,      clfmt     ) TRIM(cn_gridsearchfile),'_', nproc,'of', jpni,'by', jpnj,'.nc' 
     718            WRITE(cfname,      clfmt     ) TRIM(cn_gridsearchfile),'_', narea-1,'of', jpni,'by', jpnj,'.nc' 
    719719         ENDIF 
    720720 
    … …  
    820820            CALL obs_grd_bruteforce( jpi, jpj, jpiglo, jpjglo,  & 
    821821               &                     1, jpi, 1, jpj,            & 
    822                &                     nproc, jpnij,              & 
     822               &                     narea-1, jpnij,            & 
    823823               &                     glamt, gphit, tmask,       & 
    824824               &                     nlons*nlats, lonsi, latsi, & 
    … …  
    10701070 
    10711071            IF ( ( .NOT. ln_grid_global ) .OR. & 
    1072                & ( ( ln_grid_global ) .AND. ( nproc==0 ) ) ) THEN 
     1072               & ( ( ln_grid_global ) .AND. ( narea-1==0 ) ) ) THEN 
    10731073 
    10741074               CALL chkerr( nf90_create (TRIM(cfname), nf90_clobber, idfile), & 

  • NEMO/trunk/src/OCE/OBS/obs_mpp.F90

    r14229 r14275  
    1818   !! obs_mpp_sum_integer   : Sum an integer from all processors 
    1919   !!---------------------------------------------------------------------- 
    20    USE dom_oce, ONLY :   nproc, mig, mjg   ! Ocean space and time domain variables 
    2120   USE mpp_map, ONLY :   mppmap 
    2221   USE in_out_manager 

  • NEMO/trunk/src/OCE/OBS/obs_prep.F90

    r14056 r14275  
    6262      !! * Modules used 
    6363      USE par_oce             ! Ocean parameters 
    64       USE dom_oce, ONLY       :   glamt, gphit, tmask, nproc   ! Geographical information 
     64      USE dom_oce, ONLY       :   glamt, gphit, tmask   ! Geographical information 
    6565      !! * Arguments 
    6666      TYPE(obs_surf), INTENT(INOUT) :: surfdata    ! Full set of surface data 
    … …  
    263263      USE par_oce             ! Ocean parameters 
    264264      USE dom_oce, ONLY : &   ! Geographical information 
    265          & gdept_1d,             & 
    266          & nproc 
     265         & gdept_1d 
    267266 
    268267      !! * Arguments 

  • NEMO/trunk/src/OCE/OBS/obs_read_prof.F90

    r14056 r14275  
    404404               IF ( ( inpfiles(jj)%ptim(ji) >  djulini(jj) ) .AND. & 
    405405                  & ( inpfiles(jj)%ptim(ji) <= djulend(jj) )       ) THEN 
    406                   IF ( nproc == 0 ) THEN 
    407                      IF ( inpfiles(jj)%iproc(ji,1) >  nproc ) CYCLE 
     406                  IF ( narea == 1 ) THEN 
     407                     IF ( inpfiles(jj)%iproc(ji,1) >  narea-1 ) CYCLE 
    408408                  ELSE 
    409                      IF ( inpfiles(jj)%iproc(ji,1) /= nproc ) CYCLE 
     409                     IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 
    410410                  ENDIF 
    411411                  llvalprof = .FALSE. 
    … …  
    538538            & ( inpfiles(jj)%ptim(ji) <= djulend(jj) ) ) THEN 
    539539 
    540             IF ( nproc == 0 ) THEN 
    541                IF ( inpfiles(jj)%iproc(ji,1) >  nproc ) CYCLE 
     540            IF ( narea == 1 ) THEN 
     541               IF ( inpfiles(jj)%iproc(ji,1) >  narea-1 ) CYCLE 
    542542            ELSE 
    543                IF ( inpfiles(jj)%iproc(ji,1) /= nproc ) CYCLE 
     543               IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 
    544544            ENDIF 
    545545 

  • NEMO/trunk/src/OCE/OBS/obs_read_surf.F90

    r14056 r14275  
    300300               IF ( ( inpfiles(jj)%ptim(ji) >  djulini(jj) ) .AND. & 
    301301                  & ( inpfiles(jj)%ptim(ji) <= djulend(jj) )       ) THEN 
    302                   IF ( nproc == 0 ) THEN 
    303                      IF ( inpfiles(jj)%iproc(ji,1) >  nproc ) CYCLE 
     302                  IF ( narea == 1 ) THEN 
     303                     IF ( inpfiles(jj)%iproc(ji,1) >  narea-1 ) CYCLE 
    304304                  ELSE 
    305                      IF ( inpfiles(jj)%iproc(ji,1) /= nproc ) CYCLE 
     305                     IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 
    306306                  ENDIF 
    307307                  llvalprof = .FALSE. 
    … …  
    371371            & ( inpfiles(jj)%ptim(ji) <= djulend(jj) ) ) THEN 
    372372 
    373             IF ( nproc == 0 ) THEN 
    374                IF ( inpfiles(jj)%iproc(ji,1) >  nproc ) CYCLE 
     373            IF ( narea == 1 ) THEN 
     374               IF ( inpfiles(jj)%iproc(ji,1) >  narea-1 ) CYCLE 
    375375            ELSE 
    376                IF ( inpfiles(jj)%iproc(ji,1) /= nproc ) CYCLE 
     376               IF ( inpfiles(jj)%iproc(ji,1) /= narea-1 ) CYCLE 
    377377            ENDIF 
    378378 

  • NEMO/trunk/src/OCE/OBS/obs_utils.F90

    r10068 r14275  
    6666      !! * Modules used 
    6767      USE netcdf             ! NetCDF library 
    68       USE dom_oce, ONLY : &  ! Ocean space and time domain variables 
    69          & nproc 
    7068 
    7169      !! * Arguments 
    … …  
    102100      !! * Modules used 
    103101      USE netcdf             ! NetCDF library 
    104       USE dom_oce, ONLY : &  ! Ocean space and time domain variables 
    105          & nproc 
    106102 
    107103      !! * Arguments 

  • NEMO/trunk/src/OCE/OBS/obs_write.F90

    r14056 r14275  
    210210      idg = MAX( INT(LOG10(REAL(jpnij,wp))) + 1, 4 )            ! how many digits to we need to write? min=4, max=9 
    211211      WRITE(clfmt, "('(a,a,i', i1, '.', i1, ',a)')") idg, idg   ! '(a,a,ix.x,a)' 
    212       WRITE(clfname,clfmt) TRIM(clfiletype), '_fdbk_', nproc, '.nc' 
     212      WRITE(clfname,clfmt) TRIM(clfiletype), '_fdbk_', narea-1, '.nc' 
    213213 
    214214      IF(lwp) THEN 
    … …  
    475475      idg = MAX( INT(LOG10(REAL(jpnij,wp))) + 1, 4 )            ! how many digits to we need to write? min=4, max=9 
    476476      WRITE(clfmt, "('(a,a,i', i1, '.', i1, ',a)')") idg, idg   ! '(a,a,ix.x,a)' 
    477       WRITE(clfname,clfmt) TRIM(clfiletype), '_fdbk_', nproc, '.nc' 
     477      WRITE(clfname,clfmt) TRIM(clfiletype), '_fdbk_', narea-1, '.nc' 
    478478 
    479479      IF(lwp) THEN 

  • NEMO/trunk/src/OCE/SBC/sbcice_cice.F90

    r14215 r14275  
    877877! (may be OK but not 100% sure) 
    878878 
    879       IF(nproc==0) THEN      
     879      IF(narea==1) THEN      
    880880!        pcg(:,:)=0.0 
    881881         DO jn=1,jpnij 
    … …  
    998998! the lbclnk call on pn will replace these with sensible values 
    999999 
    1000       IF(nproc==0) THEN 
     1000      IF(narea==1) THEN 
    10011001         png(:,:,:)=0.0 
    10021002         DO jn=1,jpnij 
Note: See TracChangeset for help on using the changeset viewer.