source:
utils/tools_ticket2457/DOMAINcfg/src/agrif_parameters.F90
@
12871
| Last change on this file since 12871 was 12414, checked in by smueller, 4 years ago | |
|---|---|
| File size: 409 bytes | |
| Line | |
|---|---|
| 1 | #ifdef key_agrif |
| 2 | module agrif_parameters |
| 3 | USE par_kind |
| 4 | |
| 5 | INTEGER :: nn_cln_update |
| 6 | LOGICAL :: ln_spc_dyn |
| 7 | REAL(wp) :: rn_sponge_tra |
| 8 | REAL(wp) :: rn_sponge_dyn |
| 9 | LOGICAL :: ln_chk_bathy |
| 10 | INTEGER :: npt_copy |
| 11 | INTEGER :: npt_connect |
| 12 | |
| 13 | REAL(wp), PUBLIC, ALLOCATABLE, SAVE , DIMENSION(:,:) :: ztabramp |
| 14 | |
| 15 | end module agrif_parameters |
| 16 | #else |
| 17 | subroutine agrif_parameters_empty |
| 18 | end subroutine agrif_parameters_empty |
| 19 | #endif |
Note: See TracBrowser
for help on using the repository browser.
