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/OCE/OBS – NEMO

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/OBS
Files:
8 edited

Legend:

Unmodified
Added
Removed

  • 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 
Note: See TracChangeset for help on using the changeset viewer.