MODFLOW 6  version 6.8.0.dev0
USGS Modular Hydrologic Model
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_logical1d (alog, name, mem_path, name2, mem_path2)
 Check in an existing 1d logical array with a new address (name + path) More...
 
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 72 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 1149 of file MemoryManager.f90.

1150  type(CharacterStringType), dimension(:), &
1151  pointer, contiguous, intent(inout) :: acharstr1d !< the existing array
1152  integer(I4B), intent(in) :: ilen
1153  character(len=*), intent(in) :: name !< new variable name
1154  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1155  character(len=*), intent(in) :: name2 !< existing variable name
1156  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1157  ! --local
1158  type(MemoryType), pointer :: mt
1159  integer(I4B) :: isize
1160  ! -- code
1161  !
1162  ! -- check variable name length
1163  call mem_check_length(name, lenvarname, "variable")
1164  !
1165  ! -- set isize
1166  isize = size(acharstr1d)
1167  !
1168  ! -- allocate memory type
1169  allocate (mt)
1170  !
1171  ! -- set memory type
1172  mt%acharstr1d => acharstr1d
1173  mt%element_size = ilen
1174  mt%isize = isize
1175  mt%name = name
1176  mt%path = mem_path
1177  write (mt%memtype, "(a,' LEN=',i0,' (',i0,')')") 'STRING', ilen, isize
1178  !
1179  ! -- set master information
1180  mt%master = .false.
1181  mt%mastername = name2
1182  mt%masterPath = mem_path2
1183  !
1184  ! -- add memory type to the memory list
1185  call memorystore%add(mt)
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 1070 of file MemoryManager.f90.

1071  real(DP), dimension(:), pointer, contiguous, intent(inout) :: adbl !< the existing array
1072  character(len=*), intent(in) :: name !< new variable name
1073  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1074  character(len=*), intent(in) :: name2 !< existing variable name
1075  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1076  ! -- local
1077  type(MemoryType), pointer :: mt
1078  integer(I4B) :: isize
1079  ! -- code
1080  !
1081  ! -- check the variable name length
1082  call mem_check_length(name, lenvarname, "variable")
1083  !
1084  ! -- set isize
1085  isize = size(adbl)
1086  !
1087  ! -- allocate memory type
1088  allocate (mt)
1089  !
1090  ! -- set memory type
1091  mt%adbl1d => adbl
1092  mt%element_size = dp
1093  mt%isize = isize
1094  mt%name = name
1095  mt%path = mem_path
1096  write (mt%memtype, "(a,' (',i0,')')") 'DOUBLE', isize
1097  !
1098  ! -- set master information
1099  mt%master = .false.
1100  mt%mastername = name2
1101  mt%masterPath = mem_path2
1102  !
1103  ! -- add memory type to the memory list
1104  call memorystore%add(mt)
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 1109 of file MemoryManager.f90.

1110  real(DP), dimension(:, :), pointer, contiguous, intent(inout) :: adbl2d !< the existing 2d array
1111  character(len=*), intent(in) :: name !< new variable name
1112  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1113  character(len=*), intent(in) :: name2 !< existing variable name
1114  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1115  ! -- local
1116  type(MemoryType), pointer :: mt
1117  integer(I4B) :: ncol, nrow, isize
1118  ! -- code
1119  !
1120  ! -- check the variable name length
1121  call mem_check_length(name, lenvarname, "variable")
1122  !
1123  ! -- set isize
1124  ncol = size(adbl2d, dim=1)
1125  nrow = size(adbl2d, dim=2)
1126  isize = ncol * nrow
1127  !
1128  ! -- allocate memory type
1129  allocate (mt)
1130  !
1131  ! -- set memory type
1132  mt%adbl2d => adbl2d
1133  mt%isize = isize
1134  mt%name = name
1135  mt%path = mem_path
1136  write (mt%memtype, "(a,' (',i0,',',i0,')')") 'DOUBLE', ncol, nrow
1137  !
1138  ! -- set master information
1139  mt%master = .false.
1140  mt%mastername = name2
1141  mt%masterPath = mem_path2
1142  !
1143  ! -- add memory type to the memory list
1144  call memorystore%add(mt)
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 991 of file MemoryManager.f90.

992  integer(I4B), dimension(:), pointer, contiguous, intent(in) :: aint !< the existing array
993  character(len=*), intent(in) :: name !< new variable name
994  character(len=*), intent(in) :: mem_path !< new path where variable is stored
995  character(len=*), intent(in) :: name2 !< existing variable name
996  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
997  ! --local
998  type(MemoryType), pointer :: mt
999  integer(I4B) :: isize
1000  ! -- code
1001  !
1002  ! -- check variable name length
1003  call mem_check_length(name, lenvarname, "variable")
1004  !
1005  ! -- set isize
1006  isize = size(aint)
1007  !
1008  ! -- allocate memory type
1009  allocate (mt)
1010  !
1011  ! -- set memory type
1012  mt%aint1d => aint
1013  mt%element_size = i4b
1014  mt%isize = isize
1015  mt%name = name
1016  mt%path = mem_path
1017  write (mt%memtype, "(a,' (',i0,')')") 'INTEGER', isize
1018  !
1019  ! -- set master information
1020  mt%master = .false.
1021  mt%mastername = name2
1022  mt%masterPath = mem_path2
1023  !
1024  ! -- add memory type to the memory list
1025  call memorystore%add(mt)
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 1030 of file MemoryManager.f90.

1031  integer(I4B), dimension(:, :), pointer, contiguous, intent(inout) :: aint2d !< the existing 2d array
1032  character(len=*), intent(in) :: name !< new variable name
1033  character(len=*), intent(in) :: mem_path !< new path where variable is stored
1034  character(len=*), intent(in) :: name2 !< existing variable name
1035  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
1036  ! -- local
1037  type(MemoryType), pointer :: mt
1038  integer(I4B) :: ncol, nrow, isize
1039  ! -- code
1040  !
1041  ! -- check the variable name length
1042  call mem_check_length(name, lenvarname, "variable")
1043  !
1044  ! -- set isize
1045  ncol = size(aint2d, dim=1)
1046  nrow = size(aint2d, dim=2)
1047  isize = ncol * nrow
1048  !
1049  ! -- allocate memory type
1050  allocate (mt)
1051  !
1052  ! -- set memory type
1053  mt%aint2d => aint2d
1054  mt%isize = isize
1055  mt%name = name
1056  mt%path = mem_path
1057  write (mt%memtype, "(a,' (',i0,',',i0,')')") 'INTEGER', ncol, nrow
1058  !
1059  ! -- set master information
1060  mt%master = .false.
1061  mt%mastername = name2
1062  mt%masterPath = mem_path2
1063  !
1064  ! -- add memory type to the memory list
1065  call memorystore%add(mt)
Here is the call graph for this function:

◆ checkin_logical1d()

subroutine memorymanagermodule::mem_checkin::checkin_logical1d ( logical(lgp), dimension(:), intent(in), pointer, contiguous  alog,
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]alogthe 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 952 of file MemoryManager.f90.

953  logical(LGP), dimension(:), pointer, contiguous, intent(in) :: alog !< the existing array
954  character(len=*), intent(in) :: name !< new variable name
955  character(len=*), intent(in) :: mem_path !< new path where variable is stored
956  character(len=*), intent(in) :: name2 !< existing variable name
957  character(len=*), intent(in) :: mem_path2 !< existing path where variable is stored
958  ! --local
959  type(MemoryType), pointer :: mt
960  integer(I4B) :: isize
961  ! -- code
962  !
963  ! -- check variable name length
964  call mem_check_length(name, lenvarname, "variable")
965  !
966  ! -- set isize
967  isize = size(alog)
968  !
969  ! -- allocate memory type
970  allocate (mt)
971  !
972  ! -- set memory type
973  mt%alogical1d => alog
974  mt%element_size = lgp
975  mt%isize = isize
976  mt%name = name
977  mt%path = mem_path
978  write (mt%memtype, "(a,' (',i0,')')") 'LOGICAL', isize
979  !
980  ! -- set master information
981  mt%master = .false.
982  mt%mastername = name2
983  mt%masterPath = mem_path2
984  !
985  ! -- add memory type to the memory list
986  call memorystore%add(mt)
Here is the call graph for this function:
The documentation for this interface was generated from the following file: