Last change
on this file since 198 was
196,
checked in by dubos, 10 years ago
|
First draft of generic dynamics-physics interface - works with DCMIP5.1
|
File size:
679 bytes
|
Rev | Line | |
---|
[196] | 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.