Last change
on this file since 264 was
221,
checked in by ymipsl, 10 years ago
|
Creating temporary dynamico/lmdz/saturn branche
YM
|
File size:
679 bytes
|
Line | |
---|
1 | MODULE physics_interface_mod |
---|
2 | |
---|
3 | USE prec |
---|
4 | |
---|
5 | PRIVATE |
---|
6 | |
---|
7 | TYPE :: physics_inout |
---|
8 | ! Input |
---|
9 | INTEGER :: ngrid |
---|
10 | REAL(rstd) :: dt_phys |
---|
11 | REAL(rstd), DIMENSION(:), POINTER :: lon, lat |
---|
12 | REAL(rstd), DIMENSION(:,:), POINTER :: p, Temp, ulon, ulat |
---|
13 | REAL(rstd), DIMENSION(:,:,:), POINTER :: q |
---|
14 | ! Output arrays |
---|
15 | REAL(rstd), DIMENSION(:,:), POINTER :: dTemp, dulon, dulat |
---|
16 | REAL(rstd), DIMENSION(:,:,:), POINTER :: dq |
---|
17 | ! extra output arrays (physics diagnostics) |
---|
18 | REAL(rstd), DIMENSION(:,:), POINTER :: extra_2D |
---|
19 | REAL(rstd), DIMENSION(:,:,:), POINTER :: extra_3D |
---|
20 | END TYPE physics_inout |
---|
21 | |
---|
22 | PUBLIC :: physics_inout |
---|
23 | |
---|
24 | END MODULE physics_interface_mod |
---|
Note: See
TracBrowser
for help on using the repository browser.