|
integer,
|
public, |
pointer
|
:: |
Npoints |
|
|
|
|
integer,
|
public, |
pointer
|
:: |
Ncolumns |
|
|
|
|
integer,
|
public, |
pointer
|
:: |
Nlevels |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:), pointer
|
:: |
beta_mol |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:), pointer
|
:: |
tau_mol |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:,:), pointer
|
:: |
betatot |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:,:), pointer
|
:: |
tautot |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:,:), pointer
|
:: |
betatot_ice |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:,:), pointer
|
:: |
betatot_liq |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:,:), pointer
|
:: |
tautot_ice |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:,:), pointer
|
:: |
tautot_liq |
|
|
|
|
real(kind=wp),
|
public, |
dimension(:,:,:,:), pointer
|
:: |
taupart |
|
|
|