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 13024 for utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_domzgr.F90 – NEMO

Ignore:
Timestamp:
2020-06-03T16:26:23+02:00 (4 years ago)
Author:
rblod
Message:

First version of new nesting tools merged with domaincfg, see ticket #2129

File:
1 edited

Legend:

Unmodified
Added
Removed
  • utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_domzgr.F90

    r12414 r13024  
    2323      ! 
    2424      !!----------------------------------------------------------------------   
     25      INTEGER :: ji,jj 
    2526      ! 
    2627         western_side  = (nb == 1).AND.(ndir == 1) 
     
    3031      IF( before) THEN 
    3132         ptab(i1:i2,j1:j2) = bathy(i1:i2,j1:j2) 
     33 
     34         do jj=j1,j2 
     35            do ji=i1,i2 
     36         ptab(ji,jj) = SUM ( e3t_0(ji,jj, 1:mbkt(ji,jj) ) ) * ssmask(ji,jj) 
     37      enddo 
     38      enddo 
    3239      ELSE 
    3340         bathy(i1:i2,j1:j2)=ptab 
Note: See TracChangeset for help on using the changeset viewer.