MODFLOW 6  version 6.5.0.dev2
MODFLOW 6 Code Documentation
Private Member Functions | List of all members
memorymanagermodule::mem_checkin Interface Reference
Collaboration diagram for memorymanagermodule::mem_checkin:
Collaboration graph

Private Member Functions

subroutine checkin_int1d (aint, name, mem_path, name2, mem_path2)
 Check in an existing 1d integer array with a new address (name + path) More...
 
subroutine checkin_int2d (aint2d, name, mem_path, name2, mem_path2)
 Check in an existing 2d integer array with a new address (name + path) More...
 
subroutine checkin_dbl1d (adbl, name, mem_path, name2, mem_path2)
 Check in an existing 1d double precision array with a new address (name + path) More...
 
subroutine checkin_dbl2d (adbl2d, name, mem_path, name2, mem_path2)
 Check in an existing 2d double precision array with a new address (name + path) More...
 
subroutine checkin_charstr1d (acharstr1d, ilen, name, mem_path, name2, mem_path2)
 Check in an existing 1d CharacterStringType array with a new address (name + path) More...
 

Detailed Description

Definition at line 69 of file MemoryManager.f90.

Member Function/Subroutine Documentation

◆ checkin_charstr1d()

subroutine memorymanagermodule::mem_checkin::checkin_charstr1d ( type(characterstringtype), dimension(:), intent(inout), pointer, contiguous  acharstr1d,
integer(i4b), intent(in)  ilen,
character(len=*), intent(in)  name,
character(len=*), intent(in)  mem_path,
character(len=*), intent(in)  name2,
character(len=*), intent(in)  mem_path2 
)
private
Parameters
[in,out]acharstr1dthe existing array
[in]namenew variable name
[in]mem_pathnew path where variable is stored
[in]name2existing variable name
[in]mem_path2existing path where variable is stored

Definition at line 1134 of file MemoryManager.f90.

1135  type(CharacterStringType), dimension(:), &
1136  pointer, contiguous, intent(inout) :: acharstr1d !< the existing array
1137  integer(I4B), intent(in) :: ilen
1138  character(len=*), intent(in) :: name !< new variable name
1139  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1140  character(len=*), intent(in) :: name2 !< existing variable name
1141  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1142  ! --local
1143  type(MemoryType), pointer :: mt
1144  integer(I4B) :: isize
1145  ! -- code
1146  !
1147  ! -- check variable name length
1148  call mem_check_length(name, lenvarname, "variable")
1149  !
1150  ! -- set isize
1151  isize = size(acharstr1d)
1152  !
1153  ! -- allocate memory type
1154  allocate (mt)
1155  !
1156  ! -- set memory type
1157  mt%acharstr1d => acharstr1d
1158  mt%element_size = ilen
1159  mt%isize = isize
1160  mt%name = name
1161  mt%path = mem_path
1162  write (mt%memtype, "(a,' LEN=',i0,' (',i0,')')") 'STRING', ilen, isize
1163  !
1164  ! -- set master information
1165  mt%master = .false.
1166  mt%mastername = name2
1167  mt%masterPath = mem_path2
1168  !
1169  ! -- add memory type to the memory list
1170  call memorylist%add(mt)
1171  !
1172  ! -- return
1173  return
Here is the call graph for this function:

◆ checkin_dbl1d()

subroutine memorymanagermodule::mem_checkin::checkin_dbl1d ( real(dp), dimension(:), intent(inout), pointer, contiguous  adbl,
character(len=*), intent(in)  name,
character(len=*), intent(in)  mem_path,
character(len=*), intent(in)  name2,
character(len=*), intent(in)  mem_path2 
)
private
Parameters
[in,out]adblthe existing array
[in]namenew variable name
[in]mem_pathnew path where variable is stored
[in]name2existing variable name
[in]mem_path2existing path where variable is stored

Definition at line 1049 of file MemoryManager.f90.

1050  real(DP), dimension(:), pointer, contiguous, intent(inout) :: adbl !< the existing array
1051  character(len=*), intent(in) :: name !< new variable name
1052  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1053  character(len=*), intent(in) :: name2 !< existing variable name
1054  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1055  ! -- local
1056  type(MemoryType), pointer :: mt
1057  integer(I4B) :: isize
1058  ! -- code
1059  !
1060  ! -- check the variable name length
1061  call mem_check_length(name, lenvarname, "variable")
1062  !
1063  ! -- set isize
1064  isize = size(adbl)
1065  !
1066  ! -- allocate memory type
1067  allocate (mt)
1068  !
1069  ! -- set memory type
1070  mt%adbl1d => adbl
1071  mt%element_size = dp
1072  mt%isize = isize
1073  mt%name = name
1074  mt%path = mem_path
1075  write (mt%memtype, "(a,' (',i0,')')") 'DOUBLE', isize
1076  !
1077  ! -- set master information
1078  mt%master = .false.
1079  mt%mastername = name2
1080  mt%masterPath = mem_path2
1081  !
1082  ! -- add memory type to the memory list
1083  call memorylist%add(mt)
1084  !
1085  ! -- return
1086  return
Here is the call graph for this function:

◆ checkin_dbl2d()

subroutine memorymanagermodule::mem_checkin::checkin_dbl2d ( real(dp), dimension(:, :), intent(inout), pointer, contiguous  adbl2d,
character(len=*), intent(in)  name,
character(len=*), intent(in)  mem_path,
character(len=*), intent(in)  name2,
character(len=*), intent(in)  mem_path2 
)
private
Parameters
[in,out]adbl2dthe existing 2d array
[in]namenew variable name
[in]mem_pathnew path where variable is stored
[in]name2existing variable name
[in]mem_path2existing path where variable is stored

Definition at line 1091 of file MemoryManager.f90.

1092  real(DP), dimension(:, :), pointer, contiguous, intent(inout) :: adbl2d !< the existing 2d array
1093  character(len=*), intent(in) :: name !< new variable name
1094  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1095  character(len=*), intent(in) :: name2 !< existing variable name
1096  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1097  ! -- local
1098  type(MemoryType), pointer :: mt
1099  integer(I4B) :: ncol, nrow, isize
1100  ! -- code
1101  !
1102  ! -- check the variable name length
1103  call mem_check_length(name, lenvarname, "variable")
1104  !
1105  ! -- set isize
1106  ncol = size(adbl2d, dim=1)
1107  nrow = size(adbl2d, dim=2)
1108  isize = ncol * nrow
1109  !
1110  ! -- allocate memory type
1111  allocate (mt)
1112  !
1113  ! -- set memory type
1114  mt%adbl2d => adbl2d
1115  mt%isize = isize
1116  mt%name = name
1117  mt%path = mem_path
1118  write (mt%memtype, "(a,' (',i0,',',i0,')')") 'DOUBLE', ncol, nrow
1119  !
1120  ! -- set master information
1121  mt%master = .false.
1122  mt%mastername = name2
1123  mt%masterPath = mem_path2
1124  !
1125  ! -- add memory type to the memory list
1126  call memorylist%add(mt)
1127  !
1128  ! -- return
1129  return
Here is the call graph for this function:

◆ checkin_int1d()

subroutine memorymanagermodule::mem_checkin::checkin_int1d ( integer(i4b), dimension(:), intent(in), pointer, contiguous  aint,
character(len=*), intent(in)  name,
character(len=*), intent(in)  mem_path,
character(len=*), intent(in)  name2,
character(len=*), intent(in)  mem_path2 
)
private
Parameters
[in]aintthe existing array
[in]namenew variable name
[in]mem_pathnew path where variable is stored
[in]name2existing variable name
[in]mem_path2existing path where variable is stored

Definition at line 964 of file MemoryManager.f90.

965  integer(I4B), dimension(:), pointer, contiguous, intent(in) :: aint !< the existing array
966  character(len=*), intent(in) :: name !< new variable name
967  character(len=*), intent(in) :: mem_path !< new path where variable is stored
968  character(len=*), intent(in) :: name2 !< existing variable name
969  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
970  ! --local
971  type(MemoryType), pointer :: mt
972  integer(I4B) :: isize
973  ! -- code
974  !
975  ! -- check variable name length
976  call mem_check_length(name, lenvarname, "variable")
977  !
978  ! -- set isize
979  isize = size(aint)
980  !
981  ! -- allocate memory type
982  allocate (mt)
983  !
984  ! -- set memory type
985  mt%aint1d => aint
986  mt%element_size = i4b
987  mt%isize = isize
988  mt%name = name
989  mt%path = mem_path
990  write (mt%memtype, "(a,' (',i0,')')") 'INTEGER', isize
991  !
992  ! -- set master information
993  mt%master = .false.
994  mt%mastername = name2
995  mt%masterPath = mem_path2
996  !
997  ! -- add memory type to the memory list
998  call memorylist%add(mt)
999  !
1000  ! -- return
1001  return
Here is the call graph for this function:

◆ checkin_int2d()

subroutine memorymanagermodule::mem_checkin::checkin_int2d ( integer(i4b), dimension(:, :), intent(inout), pointer, contiguous  aint2d,
character(len=*), intent(in)  name,
character(len=*), intent(in)  mem_path,
character(len=*), intent(in)  name2,
character(len=*), intent(in)  mem_path2 
)
private
Parameters
[in,out]aint2dthe existing 2d array
[in]namenew variable name
[in]mem_pathnew path where variable is stored
[in]name2existing variable name
[in]mem_path2existing path where variable is stored

Definition at line 1006 of file MemoryManager.f90.

1007  integer(I4B), dimension(:, :), pointer, contiguous, intent(inout) :: aint2d !< the existing 2d array
1008  character(len=*), intent(in) :: name !< new variable name
1009  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1010  character(len=*), intent(in) :: name2 !< existing variable name
1011  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1012  ! -- local
1013  type(MemoryType), pointer :: mt
1014  integer(I4B) :: ncol, nrow, isize
1015  ! -- code
1016  !
1017  ! -- check the variable name length
1018  call mem_check_length(name, lenvarname, "variable")
1019  !
1020  ! -- set isize
1021  ncol = size(aint2d, dim=1)
1022  nrow = size(aint2d, dim=2)
1023  isize = ncol * nrow
1024  !
1025  ! -- allocate memory type
1026  allocate (mt)
1027  !
1028  ! -- set memory type
1029  mt%aint2d => aint2d
1030  mt%isize = isize
1031  mt%name = name
1032  mt%path = mem_path
1033  write (mt%memtype, "(a,' (',i0,',',i0,')')") 'INTEGER', ncol, nrow
1034  !
1035  ! -- set master information
1036  mt%master = .false.
1037  mt%mastername = name2
1038  mt%masterPath = mem_path2
1039  !
1040  ! -- add memory type to the memory list
1041  call memorylist%add(mt)
1042  !
1043  ! -- return
1044  return
Here is the call graph for this function:
The documentation for this interface was generated from the following file: