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.
agrif_domzgr.F90 in utils/tools_AGRIF_CMEMS_2020/DOMAINcfg/src – NEMO

source: utils/tools_AGRIF_CMEMS_2020/DOMAINcfg/src/agrif_domzgr.F90 @ 10727

Last change on this file since 10727 was 10727, checked in by rblod, 5 years ago

new nesting tools (attempt) and brutal cleaning of DOMAINcfg, see ticket #2129

File size: 1.4 KB
Line 
1#if defined key_agrif
2subroutine agrif_domzgr
3end subroutine agrif_domzgr
4
5subroutine agrif_create_bathy_meter
6use agrif_profiles
7external :: init_bathy
8
9call Agrif_Init_variable(bathy_id, procname = init_bathy)
10
11end subroutine agrif_create_bathy_meter
12
13    SUBROUTINE init_bathy( ptab, i1, i2, j1, j2, before, nb,ndir)
14    use dom_oce
15      !!----------------------------------------------------------------------
16      !!                  ***  ROUTINE interpsshn  ***
17      !!---------------------------------------------------------------------- 
18      INTEGER                         , INTENT(in   ) ::   i1, i2, j1, j2
19      REAL, DIMENSION(i1:i2,j1:j2), INTENT(inout) ::   ptab
20      LOGICAL                         , INTENT(in   ) ::   before
21      INTEGER                         , INTENT(in   ) ::   nb , ndir
22      LOGICAL  ::   western_side, eastern_side,northern_side,southern_side
23      !
24      !!---------------------------------------------------------------------- 
25      !
26         western_side  = (nb == 1).AND.(ndir == 1)
27         eastern_side  = (nb == 1).AND.(ndir == 2)
28         southern_side = (nb == 2).AND.(ndir == 1)
29         northern_side = (nb == 2).AND.(ndir == 2)
30      IF( before) THEN
31         ptab(i1:i2,j1:j2) = bathy(i1:i2,j1:j2)
32      ELSE
33         bathy(i1:i2,j1:j2)=ptab
34      ENDIF
35      !
36   END SUBROUTINE init_bathy
37#else
38subroutine agrif_domzgr_empty
39end subroutine agrif_domzgr_empty
40#endif
Note: See TracBrowser for help on using the repository browser.