-
Notifications
You must be signed in to change notification settings - Fork 41
/
stochy_internal_state_mod.F90
89 lines (71 loc) · 3.26 KB
/
stochy_internal_state_mod.F90
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
!>@brief The module 'stochy_internal_state_mod' contains the spherical harmonic definitions and arrays
!! describing the target gaussian grid
!
! !module: stochy_internal_state_mod
! --- internal state definition of the
! gridded component of the spectral random patterns
!
! !description: define the spectral internal state used to
! create the internal state.
!---------------------------------------------------------------------------
! !revision history:
!
! Oct 11 2016 P Pegion port of gfs_dynamics_interal_state
!
! !interface:
!
module stochy_internal_state_mod
!!uses:
!------
! use spectral_layout_mod
use kinddef
implicit none
private
! -----------------------------------------------
type,public::stochy_internal_state ! start type define
! -----------------------------------------------
integer :: nodes
integer :: lats_node_a
integer :: mype
integer :: lon_dim_a
integer :: lats_dim_a
integer :: ipt_lats_node_a
integer ,allocatable :: ls_node (:,:)
integer ,allocatable :: ls_nodes (:,:)
integer ,allocatable :: max_ls_nodes (:)
integer ,allocatable :: lats_nodes_a (:)
integer ,allocatable :: global_lats_a (:)
integer ,allocatable :: global_lats_h (:)
integer :: xhalo,yhalo
real(kind_dbl_prec),allocatable :: epse (:)
real(kind_dbl_prec),allocatable :: epso (:)
real(kind_dbl_prec),allocatable :: epsedn(:)
real(kind_dbl_prec),allocatable :: epsodn(:)
real(kind_dbl_prec),allocatable :: kenorm_e(:)
real(kind_dbl_prec),allocatable :: kenorm_o(:)
real(kind_dbl_prec),allocatable :: snnp1ev(:)
real(kind_dbl_prec),allocatable :: snnp1od(:)
real(kind_dbl_prec),allocatable :: plnev_a(:,:)
real(kind_dbl_prec),allocatable :: plnod_a(:,:)
real(kind_dbl_prec),allocatable :: plnew_a(:,:)
real(kind_dbl_prec),allocatable :: plnow_a(:,:)
real(kind_dbl_prec),allocatable :: trie_ls(:,:,:)
real(kind_dbl_prec),allocatable :: trio_ls(:,:,:)
integer lotls
integer nlunit
integer k,l,locl,n
integer lan,lat
integer nx,ny,nz
integer, allocatable :: len(:)
real(kind_dbl_prec), allocatable :: parent_lons(:,:),parent_lats(:,:)
!
! -----------------------------------------------------
end type stochy_internal_state ! end type define
! -----------------------------------------------------
! this state is supported by c pointer not f90 pointer, thus
! need this wrap.
!-----------------------------------------------------------
type stochy_wrap ! begin type define
type (stochy_internal_state), pointer :: int_state
end type stochy_wrap ! end type define
end module stochy_internal_state_mod