00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022 module ice_work
00023
00024
00025
00026 use ice_kinds_mod
00027 use ice_blocks
00028 use ice_domain_size
00029
00030
00031
00032 implicit none
00033
00034
00035
00036 real (kind=dbl_kind), dimension(:,:), allocatable ::
00037 work_g1,
00038 work_g2,
00039 work_g3
00040
00041 real (kind=real_kind), dimension(:,:), allocatable ::
00042 work_gr
00043
00044 real (kind=real_kind), dimension(:,:,:), allocatable ::
00045 work_gr3
00046
00047 integer(kind=int_kind), dimension(:,:), allocatable ::
00048 work_gi4
00049
00050 integer(selected_int_kind(13)), dimension(:,:), allocatable ::
00051 work_gi8
00052
00053
00054 real (kind=dbl_kind), dimension (nx_block,ny_block,max_blocks) ::
00055 work1,
00056 work2
00057
00058
00059 real (kind=dbl_kind), dimension (nx_block,ny_block) ::
00060 worka,
00061 workb,
00062 workc,
00063 workd
00064
00065
00066
00067 contains
00068
00069
00070
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080
00081
00082
00083
00084 subroutine init_work
00085
00086
00087
00088 use ice_constants
00089
00090
00091
00092
00093
00094 work1(:,:,:) = c0
00095 work2(:,:,:) = c0
00096
00097 worka(:,:) = c0
00098 workb(:,:) = c0
00099 workc(:,:) = c0
00100 workd(:,:) = c0
00101
00102 end subroutine init_work
00103
00104
00105
00106 end module ice_work
00107
00108