MODFLOW 6  version 6.9.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 1150 of file MemoryManager.f90.

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

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

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

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

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

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