source:
utils/tools/NESTING_AGRIF/src/agrif_user.f90
@
13523
Last change on this file since 13523 was 10084, checked in by rblod, 6 years ago | |
---|---|
File size: 721 bytes |
Line | |
---|---|
1 | subroutine agrif_user |
2 | |
3 | end subroutine agrif_user |
4 | |
5 | subroutine agrif_initworkspace |
6 | |
7 | end subroutine agrif_initworkspace |
8 | |
9 | subroutine agrif_initvalues |
10 | |
11 | end subroutine agrif_initvalues |
12 | |
13 | SUBROUTINE Agrif_detect( kg, ksizex ) |
14 | !!---------------------------------------------------------------------- |
15 | !! *** ROUTINE Agrif_detect *** |
16 | !!---------------------------------------------------------------------- |
17 | INTEGER, DIMENSION(2) :: ksizex |
18 | INTEGER, DIMENSION(ksizex(1),ksizex(2)) :: kg |
19 | !!---------------------------------------------------------------------- |
20 | ! |
21 | RETURN |
22 | ! |
23 | END SUBROUTINE Agrif_detect |
24 | |
25 | SUBROUTINE agrif_before_regridding |
26 | END SUBROUTINE agrif_before_regridding |
Note: See TracBrowser
for help on using the repository browser.