| Directory: | ./ |
|---|---|
| File: | dyn_phys/mod_interface_dyn_phys.f90 |
| Date: | 2022-01-11 19:19:34 |
| Exec | Total | Coverage | |
|---|---|---|---|
| Lines: | 2 | 2 | 100.0% |
| Branches: | 0 | 0 | -% |
| Line | Branch | Exec | Source |
|---|---|---|---|
| 1 | ! | ||
| 2 | ! $Id: mod_interface_dyn_phys.F90 2429 2016-01-27 12:43:09Z fairhead $ | ||
| 3 | ! | ||
| 4 | MODULE mod_interface_dyn_phys | ||
| 5 | INTEGER,SAVE,dimension(:),allocatable :: index_i | ||
| 6 | INTEGER,SAVE,dimension(:),allocatable :: index_j | ||
| 7 | |||
| 8 | |||
| 9 | CONTAINS | ||
| 10 | |||
| 11 | 1 | SUBROUTINE Init_interface_dyn_phys | |
| 12 | ! dummy routine for seq case | ||
| 13 | 1 | END SUBROUTINE Init_interface_dyn_phys | |
| 14 | ! of #ifdef CPP_PARA | ||
| 15 | END MODULE mod_interface_dyn_phys | ||
| 16 |