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 14789 for NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/OBS/obs_grid.F90 – NEMO

Ignore:
Timestamp:
2021-05-05T13:18:04+02:00 (3 years ago)
Author:
mcastril
Message:

[2021/HPC-11_mcastril_HPDAonline_DiagGPU] Update externals

Location:
NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU

    • Property svn:externals

      •  

        old new  
        33^/utils/build/mk@HEAD         mk 
        44^/utils/tools@HEAD            tools 
        5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS      ext/AGRIF 
         5^/vendors/AGRIF/dev@HEAD      ext/AGRIF 
        66^/vendors/FCM@HEAD            ext/FCM 
        77^/vendors/IOIPSL@HEAD         ext/IOIPSL 
         8^/vendors/PPR@HEAD            ext/PPR 
        89 
        910# SETTE 
        10 ^/utils/CI/sette@13559        sette 
         11^/utils/CI/sette@14244        sette 

  • NEMO/branches/2021/dev_r13747_HPC-11_mcastril_HPDAonline_DiagGPU/src/OCE/OBS/obs_grid.F90

    r13286 r14789  
    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), & 
Note: See TracChangeset for help on using the changeset viewer.