20 INTEGER(kind=ip_intwp_p) :: nulprt, nulprt1, nullucia
21 INTEGER(kind=ip_i4_p) :: oasis_debug
22 INTEGER(kind=ip_i4_p) :: timer_debug
23 INTEGER(kind=ip_i4_p) :: lucia_debug
25 logical :: enddef_called
27 INTEGER(kind=ip_i4_p) :: size_namfld
28 CHARACTER(len=ic_lvar),
POINTER :: total_namsrcfld(:), total_namdstfld(:)
33 INTEGER(kind=ip_i4_p),
parameter :: prism_mmodels = 20
34 INTEGER(kind=ip_i4_p) :: prism_nmodels
35 INTEGER(kind=ip_i4_p) :: prism_amodels
36 character(len=ic_lvar) :: prism_modnam(prism_mmodels)
37 logical :: prism_modcpl(prism_mmodels)
40 character(len=ic_lvar):: compnm
41 integer(kind=ip_i4_p) :: compid
42 logical :: oasis_coupled
47 INTEGER(kind=ip_i4_p) :: mpi_comm_global
48 INTEGER(kind=ip_i4_p) :: mpi_rank_global
49 INTEGER(kind=ip_i4_p) :: mpi_size_global
50 INTEGER(kind=ip_i4_p) :: mpi_comm_local
51 INTEGER(kind=ip_i4_p) :: mpi_rank_local
52 INTEGER(kind=ip_i4_p) :: mpi_size_local
53 INTEGER(kind=ip_i4_p) :: mpi_root_local
54 INTEGER(kind=ip_i4_p) :: mpi_err
55 INTEGER(kind=ip_i4_p),
allocatable :: mpi_root_global(:)
60 character(len=*) ,
parameter :: cspval =
"spval_undef"
61 real(ip_double_p),
parameter :: rspval = 1.0e36
62 integer(ip_i4_p) ,
parameter :: ispval = -999999
64 real(ip_double_p),
parameter :: prism_pi = 3.14159265358979323846
65 real(ip_double_p),
parameter :: eradius = 6371229.
77 character(len=*),
parameter :: subname =
'(oasis_data_zero)'
87 oasis_coupled = .false.
94 enddef_called = .false.
Provides a common location for several OASIS variables.
subroutine oasis_data_zero()