source:
utils/tools/DOMAINcfg/src/agrif_domzgr.F90
@
13840
Last change on this file since 13840 was 13204, checked in by smasson, 4 years ago | |
---|---|
File size: 1.4 KB |
Rev | Line | |
---|---|---|
[13204] | 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 | ||
[10727] | 14 | #if defined key_agrif |
15 | ||
[13204] | 16 | SUBROUTINE agrif_create_bathy_meter |
[10727] | 17 | |
[13204] | 18 | CALL Agrif_Init_variable(bathy_id, procname = init_bathy) |
[10727] | 19 | |
[13204] | 20 | END SUBROUTINE agrif_create_bathy_meter |
[10727] | 21 | |
[13204] | 22 | SUBROUTINE init_bathy( ptab, i1, i2, j1, j2, before, nb,ndir) |
[10727] | 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 | !!---------------------------------------------------------------------- | |
[13204] | 32 | INTEGER :: ji,jj |
33 | ||
[10727] | 34 | IF( before) THEN |
35 | ptab(i1:i2,j1:j2) = bathy(i1:i2,j1:j2) | |
[13204] | 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 | |
[10727] | 41 | ELSE |
42 | bathy(i1:i2,j1:j2)=ptab | |
43 | ENDIF | |
44 | ! | |
45 | END SUBROUTINE init_bathy | |
[13204] | 46 | |
[10727] | 47 | #else |
[13204] | 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.