source: codes/icosagcm/trunk/src/physics_interface.f90 @ 196

Last change on this file since 196 was 196, checked in by dubos, 10 years ago

First draft of generic dynamics-physics interface - works with DCMIP5.1
File size: 679 bytes
Line 
1MODULE 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
24END MODULE physics_interface_mod
Note: See TracBrowser for help on using the repository browser.