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 |