Changeset 8138 for branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F90
- Timestamp:
- 2017-06-05T12:01:03+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8126_UKMO_AGRIF_vert_interp/NEMOGCM/EXTERNAL/AGRIF/AGRIF_FILES/modtypes.F90
r5656 r8138 109 109 real(4), dimension(:,:,:,:,:,:), allocatable :: sarray6 110 110 !> @} 111 !> \name Arrays containing the values of the grid variables (real) 112 !> @{ 113 real, dimension(:) , pointer :: parray1 114 real, dimension(:,:) , pointer :: parray2 115 real, dimension(:,:,:) , pointer :: parray3 116 real, dimension(:,:,:,:) , pointer :: parray4 117 real, dimension(:,:,:,:,:) , pointer :: parray5 118 real, dimension(:,:,:,:,:,:), pointer :: parray6 119 !> @} 120 !> \name Arrays containing the values of the grid variables (real*8) 121 !> @{ 122 real(8), dimension(:) , pointer :: pdarray1 123 real(8), dimension(:,:) , pointer :: pdarray2 124 real(8), dimension(:,:,:) , pointer :: pdarray3 125 real(8), dimension(:,:,:,:) , pointer :: pdarray4 126 real(8), dimension(:,:,:,:,:) , pointer :: pdarray5 127 real(8), dimension(:,:,:,:,:,:), pointer :: pdarray6 128 !> @} 129 !> \name Arrays containing the values of the grid variables (real*4) 130 !> @{ 131 real(4), dimension(:) , pointer :: psarray1 132 real(4), dimension(:,:) , pointer :: psarray2 133 real(4), dimension(:,:,:) , pointer :: psarray3 134 real(4), dimension(:,:,:,:) , pointer :: psarray4 135 real(4), dimension(:,:,:,:,:) , pointer :: psarray5 136 real(4), dimension(:,:,:,:,:,:), pointer :: psarray6 137 !> @} 111 138 !> \name Arrays used to restore the values 112 139 !> @{ … … 153 180 !> \name Arrays containing the values of the grid variables (character) 154 181 !> @{ 155 character( 2400) :: carray0156 character( 200), dimension(:) , allocatable :: carray1157 character( 200), dimension(:,:), allocatable :: carray2182 character(4000) :: carray0 183 character(400), dimension(:) , allocatable :: carray1 184 character(400), dimension(:,:), allocatable :: carray2 158 185 !> @} 159 186 !--------------------------------------------------------------------------------------------------- … … 218 245 !> \name Arrays containing the values of the grid variables (logical) 219 246 !> @{ 220 logical :: larray0 247 logical :: larray0 = .FALSE. 221 248 logical, dimension(:) , allocatable :: larray1 222 249 logical, dimension(:,:) , allocatable :: larray2 … … 242 269 !> \name Arrays containing the values of the grid variables (integer) 243 270 !> @{ 244 integer :: iarray0 271 integer :: iarray0 = 0 245 272 integer, dimension(:) , allocatable :: iarray1 246 273 integer, dimension(:,:) , allocatable :: iarray2
Note: See TracChangeset
for help on using the changeset viewer.