1 | #if defined key_agrif |
---|
2 | subroutine agrif_domzgr |
---|
3 | end subroutine agrif_domzgr |
---|
4 | |
---|
5 | subroutine agrif_create_bathy_meter |
---|
6 | use agrif_profiles |
---|
7 | external :: init_bathy |
---|
8 | |
---|
9 | call Agrif_Init_variable(bathy_id, procname = init_bathy) |
---|
10 | |
---|
11 | end 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 |
---|
38 | subroutine agrif_domzgr_empty |
---|
39 | end subroutine agrif_domzgr_empty |
---|
40 | #endif |
---|