- Timestamp:
- 2020-06-03T16:26:23+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_domzgr.F90
r12414 r13024 23 23 ! 24 24 !!---------------------------------------------------------------------- 25 INTEGER :: ji,jj 25 26 ! 26 27 western_side = (nb == 1).AND.(ndir == 1) … … 30 31 IF( before) THEN 31 32 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 32 39 ELSE 33 40 bathy(i1:i2,j1:j2)=ptab
Note: See TracChangeset
for help on using the changeset viewer.