[10727] | 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 |
---|