source:
utils/tools_dev_r12970_AGRIF_CMEMS/DOMAINcfg/src/agrif_domzgr.F90
@
13616
Last change on this file since 13616 was 13056, checked in by rblod, 4 years ago | |
---|---|
File size: 1.4 KB |
Line | |
---|---|
1 | MODULE agrif_domzgr |
2 | |
3 | USE agrif_profiles |
4 | USE dom_oce |
5 | |
6 | IMPLICIT NONE |
7 | PRIVATE |
8 | |
9 | PUBLIC :: agrif_create_bathy_meter |
10 | |
11 | |
12 | CONTAINS |
13 | |
14 | #if defined key_agrif |
15 | |
16 | SUBROUTINE agrif_create_bathy_meter |
17 | |
18 | CALL Agrif_Init_variable(bathy_id, procname = init_bathy) |
19 | |
20 | END SUBROUTINE agrif_create_bathy_meter |
21 | |
22 | SUBROUTINE init_bathy( ptab, i1, i2, j1, j2, before, nb,ndir) |
23 | !!---------------------------------------------------------------------- |
24 | !! *** ROUTINE interpsshn *** |
25 | !!---------------------------------------------------------------------- |
26 | INTEGER , INTENT(in ) :: i1, i2, j1, j2 |
27 | REAL, DIMENSION(i1:i2,j1:j2), INTENT(inout) :: ptab |
28 | LOGICAL , INTENT(in ) :: before |
29 | INTEGER , INTENT(in ) :: nb , ndir |
30 | ! |
31 | !!---------------------------------------------------------------------- |
32 | INTEGER :: ji,jj |
33 | |
34 | IF( before) THEN |
35 | ptab(i1:i2,j1:j2) = bathy(i1:i2,j1:j2) |
36 | DO jj=j1,j2 |
37 | DO ji=i1,i2 |
38 | ptab(ji,jj) = SUM( e3t_0(ji,jj, 1:mbkt(ji,jj) ) ) * ssmask(ji,jj) |
39 | END DO |
40 | END DO |
41 | ELSE |
42 | bathy(i1:i2,j1:j2)=ptab |
43 | ENDIF |
44 | ! |
45 | END SUBROUTINE init_bathy |
46 | |
47 | #else |
48 | SUBROUTINE agrif_create_bathy_meter |
49 | END SUBROUTINE agrif_create_bathy_meter |
50 | #endif |
51 | END MODULE agrif_domzgr |
Note: See TracBrowser
for help on using the repository browser.