MODFLOW 6  version 6.6.0.dev0
USGS Modular Hydrologic Model
Private Member Functions | List of all members
disncstructuredmodule::nc_export_array Interface Reference
Collaboration diagram for disncstructuredmodule::nc_export_array:
Collaboration graph

Private Member Functions

subroutine nc_export_int1d (ncid, dim_ids, var_ids, dis, p_mem, nc_varname, pkgname, tagname, shapestr, longname, nc_tag, gridmap_name, latlon, deflate, shuffle, chunk_z, chunk_y, chunk_x, iper, nc_fname)
 netcdf export 1D integer More...
 
subroutine nc_export_int2d (ncid, dim_ids, var_ids, dis, p_mem, nc_varname, pkgname, tagname, shapestr, longname, nc_tag, gridmap_name, latlon, deflate, shuffle, chunk_z, chunk_y, chunk_x, nc_fname)
 netcdf export 2D integer More...
 
subroutine nc_export_int3d (ncid, dim_ids, var_ids, dis, p_mem, nc_varname, pkgname, tagname, shapestr, longname, nc_tag, gridmap_name, latlon, deflate, shuffle, chunk_z, chunk_y, chunk_x, nc_fname)
 netcdf export 3D integer More...
 
subroutine nc_export_dbl1d (ncid, dim_ids, var_ids, dis, p_mem, nc_varname, pkgname, tagname, shapestr, longname, nc_tag, gridmap_name, latlon, deflate, shuffle, chunk_z, chunk_y, chunk_x, iper, nc_fname)
 netcdf export 1D double More...
 
subroutine nc_export_dbl2d (ncid, dim_ids, var_ids, dis, p_mem, nc_varname, pkgname, tagname, shapestr, longname, nc_tag, gridmap_name, latlon, deflate, shuffle, chunk_z, chunk_y, chunk_x, nc_fname)
 netcdf export 2D double More...
 
subroutine nc_export_dbl3d (ncid, dim_ids, var_ids, dis, p_mem, nc_varname, pkgname, tagname, shapestr, longname, nc_tag, gridmap_name, latlon, deflate, shuffle, chunk_z, chunk_y, chunk_x, iper, iaux, nc_fname)
 netcdf export 3D double More...
 

Detailed Description

Definition at line 83 of file DisNCStructured.f90.

Member Function/Subroutine Documentation

◆ nc_export_dbl1d()

subroutine disncstructuredmodule::nc_export_array::nc_export_dbl1d ( integer(i4b), intent(in)  ncid,
type(structuredncdimidtype), intent(inout)  dim_ids,
type(structuredncvaridtype), intent(inout)  var_ids,
type(distype), intent(in), pointer  dis,
real(dp), dimension(:), intent(in), pointer, contiguous  p_mem,
character(len=*), intent(in)  nc_varname,
character(len=*), intent(in)  pkgname,
character(len=*), intent(in)  tagname,
character(len=*), intent(in)  shapestr,
character(len=*), intent(in)  longname,
character(len=*), intent(in)  nc_tag,
character(len=*), intent(in)  gridmap_name,
logical(lgp), intent(in)  latlon,
integer(i4b), intent(in)  deflate,
integer(i4b), intent(in)  shuffle,
integer(i4b), intent(in)  chunk_z,
integer(i4b), intent(in)  chunk_y,
integer(i4b), intent(in)  chunk_x,
integer(i4b), intent(in)  iper,
character(len=*), intent(in)  nc_fname 
)
private

Definition at line 1219 of file DisNCStructured.f90.

1223  use constantsmodule, only: dnodata
1224  integer(I4B), intent(in) :: ncid
1225  type(StructuredNCDimIdType), intent(inout) :: dim_ids
1226  type(StructuredNCVarIdType), intent(inout) :: var_ids
1227  type(DisType), pointer, intent(in) :: dis
1228  real(DP), dimension(:), pointer, contiguous, intent(in) :: p_mem
1229  character(len=*), intent(in) :: nc_varname
1230  character(len=*), intent(in) :: pkgname
1231  character(len=*), intent(in) :: tagname
1232  character(len=*), intent(in) :: shapestr
1233  character(len=*), intent(in) :: longname
1234  character(len=*), intent(in) :: nc_tag
1235  character(len=*), intent(in) :: gridmap_name
1236  logical(LGP), intent(in) :: latlon
1237  integer(I4B), intent(in) :: deflate
1238  integer(I4B), intent(in) :: shuffle
1239  integer(I4B), intent(in) :: chunk_z
1240  integer(I4B), intent(in) :: chunk_y
1241  integer(I4B), intent(in) :: chunk_x
1242  integer(I4B), intent(in) :: iper
1243  character(len=*), intent(in) :: nc_fname
1244  integer(I4B) :: var_id, axis_sz
1245  real(DP) :: fill_value
1246  character(len=LINELENGTH) :: longname_l
1247 
1248  if (shapestr == 'NROW' .or. &
1249  shapestr == 'NCOL' .or. &
1250  shapestr == 'NCPL') then
1251 
1252  select case (shapestr)
1253  case ('NROW')
1254  axis_sz = dim_ids%y
1255  case ('NCOL')
1256  axis_sz = dim_ids%x
1257  case ('NCPL')
1258  axis_sz = dim_ids%ncpl
1259  end select
1260 
1261  ! reenter define mode and create variable
1262  call nf_verify(nf90_redef(ncid), nc_fname)
1263  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_double, &
1264  (/axis_sz/), var_id), &
1265  nc_fname)
1266 
1267  ! NROW/NCOL shapes use default chunking
1268  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1269 
1270  ! put attr
1271  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1272  (/nf90_fill_double/)), nc_fname)
1273  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1274  longname), nc_fname)
1275 
1276  ! add mf6 attr
1277  call ncvar_mf6attr(ncid, var_id, 0, 0, nc_tag, nc_fname)
1278 
1279  ! exit define mode and write data
1280  call nf_verify(nf90_enddef(ncid), nc_fname)
1281  call nf_verify(nf90_put_var(ncid, var_id, p_mem), &
1282  nc_fname)
1283 
1284  else
1285  if (iper > 0) then
1286  fill_value = dnodata
1287  else
1288  fill_value = nf90_fill_double
1289  end if
1290 
1291  longname_l = export_longname(longname, pkgname, tagname, layer=0, iper=iper)
1292 
1293  ! reenter define mode and create variable
1294  call nf_verify(nf90_redef(ncid), nc_fname)
1295  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_double, &
1296  (/dim_ids%x, dim_ids%y, dim_ids%z/), var_id), &
1297  nc_fname)
1298 
1299  ! apply chunking parameters
1300  call ncvar_chunk3d(ncid, var_id, chunk_x, chunk_y, chunk_z, nc_fname)
1301  ! deflate and shuffle
1302  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1303 
1304  ! put attr
1305  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1306  (/fill_value/)), nc_fname)
1307  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1308  longname_l), nc_fname)
1309 
1310  ! add grid mapping and mf6 attr
1311  call ncvar_gridmap(ncid, var_id, gridmap_name, latlon, nc_fname)
1312  call ncvar_mf6attr(ncid, var_id, iper, 0, nc_tag, nc_fname)
1313 
1314  ! exit define mode and write data
1315  call nf_verify(nf90_enddef(ncid), nc_fname)
1316  call nf_verify(nf90_put_var(ncid, var_id, p_mem, start=(/1, 1, 1/), &
1317  count=(/dis%ncol, dis%nrow, dis%nlay/)), &
1318  nc_fname)
1319  end if
constantsmodule
This module contains simulation constants.
Definition: Constants.f90:9
constantsmodule::dnodata
real(dp), parameter dnodata
real no data constant
Definition: Constants.f90:95
Here is the call graph for this function:

◆ nc_export_dbl2d()

subroutine disncstructuredmodule::nc_export_array::nc_export_dbl2d ( integer(i4b), intent(in)  ncid,
type(structuredncdimidtype), intent(inout)  dim_ids,
type(structuredncvaridtype), intent(inout)  var_ids,
type(distype), intent(in), pointer  dis,
real(dp), dimension(:, :), intent(in), pointer, contiguous  p_mem,
character(len=*), intent(in)  nc_varname,
character(len=*), intent(in)  pkgname,
character(len=*), intent(in)  tagname,
character(len=*), intent(in)  shapestr,
character(len=*), intent(in)  longname,
character(len=*), intent(in)  nc_tag,
character(len=*), intent(in)  gridmap_name,
logical(lgp), intent(in)  latlon,
integer(i4b), intent(in)  deflate,
integer(i4b), intent(in)  shuffle,
integer(i4b), intent(in)  chunk_z,
integer(i4b), intent(in)  chunk_y,
integer(i4b), intent(in)  chunk_x,
character(len=*), intent(in)  nc_fname 
)
private

Definition at line 1324 of file DisNCStructured.f90.

1328  integer(I4B), intent(in) :: ncid
1329  type(StructuredNCDimIdType), intent(inout) :: dim_ids
1330  type(StructuredNCVarIdType), intent(inout) :: var_ids
1331  type(DisType), pointer, intent(in) :: dis
1332  real(DP), dimension(:, :), pointer, contiguous, intent(in) :: p_mem
1333  character(len=*), intent(in) :: nc_varname
1334  character(len=*), intent(in) :: pkgname
1335  character(len=*), intent(in) :: tagname
1336  character(len=*), intent(in) :: shapestr
1337  character(len=*), intent(in) :: longname
1338  character(len=*), intent(in) :: nc_tag
1339  character(len=*), intent(in) :: gridmap_name
1340  logical(LGP), intent(in) :: latlon
1341  integer(I4B), intent(in) :: deflate
1342  integer(I4B), intent(in) :: shuffle
1343  integer(I4B), intent(in) :: chunk_z
1344  integer(I4B), intent(in) :: chunk_y
1345  integer(I4B), intent(in) :: chunk_x
1346  character(len=*), intent(in) :: nc_fname
1347  integer(I4B) :: var_id
1348 
1349  ! reenter define mode and create variable
1350  call nf_verify(nf90_redef(ncid), nc_fname)
1351  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_double, &
1352  (/dim_ids%x, dim_ids%y/), var_id), &
1353  nc_fname)
1354 
1355  ! apply chunking parameters
1356  call ncvar_chunk2d(ncid, var_id, chunk_x, chunk_y, nc_fname)
1357  ! deflate and shuffle
1358  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1359 
1360  ! put attr
1361  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1362  (/nf90_fill_double/)), nc_fname)
1363  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1364  longname), nc_fname)
1365 
1366  ! add grid mapping and mf6 attr
1367  call ncvar_gridmap(ncid, var_id, gridmap_name, latlon, nc_fname)
1368  call ncvar_mf6attr(ncid, var_id, 0, 0, nc_tag, nc_fname)
1369 
1370  ! exit define mode and write data
1371  call nf_verify(nf90_enddef(ncid), nc_fname)
1372  call nf_verify(nf90_put_var(ncid, var_id, p_mem, start=(/1, 1/), &
1373  count=(/dis%ncol, dis%nrow/)), &
1374  nc_fname)
Here is the call graph for this function:

◆ nc_export_dbl3d()

subroutine disncstructuredmodule::nc_export_array::nc_export_dbl3d ( integer(i4b), intent(in)  ncid,
type(structuredncdimidtype), intent(inout)  dim_ids,
type(structuredncvaridtype), intent(inout)  var_ids,
type(distype), intent(in), pointer  dis,
real(dp), dimension(:, :, :), intent(in), pointer, contiguous  p_mem,
character(len=*), intent(in)  nc_varname,
character(len=*), intent(in)  pkgname,
character(len=*), intent(in)  tagname,
character(len=*), intent(in)  shapestr,
character(len=*), intent(in)  longname,
character(len=*), intent(in)  nc_tag,
character(len=*), intent(in)  gridmap_name,
logical(lgp), intent(in)  latlon,
integer(i4b), intent(in)  deflate,
integer(i4b), intent(in)  shuffle,
integer(i4b), intent(in)  chunk_z,
integer(i4b), intent(in)  chunk_y,
integer(i4b), intent(in)  chunk_x,
integer(i4b), intent(in)  iper,
integer(i4b), intent(in)  iaux,
character(len=*), intent(in)  nc_fname 
)
private

Definition at line 1379 of file DisNCStructured.f90.

1383  use constantsmodule, only: dnodata
1384  integer(I4B), intent(in) :: ncid
1385  type(StructuredNCDimIdType), intent(inout) :: dim_ids
1386  type(StructuredNCVarIdType), intent(inout) :: var_ids
1387  type(DisType), pointer, intent(in) :: dis
1388  real(DP), dimension(:, :, :), pointer, contiguous, intent(in) :: p_mem
1389  character(len=*), intent(in) :: nc_varname
1390  character(len=*), intent(in) :: pkgname
1391  character(len=*), intent(in) :: tagname
1392  character(len=*), intent(in) :: shapestr
1393  character(len=*), intent(in) :: longname
1394  character(len=*), intent(in) :: nc_tag
1395  character(len=*), intent(in) :: gridmap_name
1396  logical(LGP), intent(in) :: latlon
1397  integer(I4B), intent(in) :: deflate
1398  integer(I4B), intent(in) :: shuffle
1399  integer(I4B), intent(in) :: chunk_z
1400  integer(I4B), intent(in) :: chunk_y
1401  integer(I4B), intent(in) :: chunk_x
1402  integer(I4B), intent(in) :: iper
1403  integer(I4B), intent(in) :: iaux
1404  character(len=*), intent(in) :: nc_fname
1405  integer(I4B) :: var_id
1406  real(DP) :: fill_value
1407  character(len=LINELENGTH) :: longname_l
1408 
1409  if (iper > 0) then
1410  fill_value = dnodata
1411  else
1412  fill_value = nf90_fill_double
1413  end if
1414 
1415  longname_l = export_longname(longname, pkgname, tagname, layer=0, iper=iper)
1416 
1417  ! reenter define mode and create variable
1418  call nf_verify(nf90_redef(ncid), nc_fname)
1419  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_double, &
1420  (/dim_ids%x, dim_ids%y, dim_ids%z/), var_id), &
1421  nc_fname)
1422 
1423  ! apply chunking parameters
1424  call ncvar_chunk3d(ncid, var_id, chunk_x, chunk_y, chunk_z, nc_fname)
1425  ! deflate and shuffle
1426  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1427 
1428  ! put attr
1429  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1430  (/fill_value/)), nc_fname)
1431  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1432  longname_l), nc_fname)
1433 
1434  ! add grid mapping and mf6 attr
1435  call ncvar_gridmap(ncid, var_id, gridmap_name, latlon, nc_fname)
1436  call ncvar_mf6attr(ncid, var_id, iper, iaux, nc_tag, nc_fname)
1437 
1438  ! exit define mode and write data
1439  call nf_verify(nf90_enddef(ncid), nc_fname)
1440  call nf_verify(nf90_put_var(ncid, var_id, p_mem, start=(/1, 1, 1/), &
1441  count=(/dis%ncol, dis%nrow, dis%nlay/)), &
1442  nc_fname)
Here is the call graph for this function:

◆ nc_export_int1d()

subroutine disncstructuredmodule::nc_export_array::nc_export_int1d ( integer(i4b), intent(in)  ncid,
type(structuredncdimidtype), intent(inout)  dim_ids,
type(structuredncvaridtype), intent(inout)  var_ids,
type(distype), intent(in), pointer  dis,
integer(i4b), dimension(:), intent(in), pointer, contiguous  p_mem,
character(len=*), intent(in)  nc_varname,
character(len=*), intent(in)  pkgname,
character(len=*), intent(in)  tagname,
character(len=*), intent(in)  shapestr,
character(len=*), intent(in)  longname,
character(len=*), intent(in)  nc_tag,
character(len=*), intent(in)  gridmap_name,
logical(lgp), intent(in)  latlon,
integer(i4b), intent(in)  deflate,
integer(i4b), intent(in)  shuffle,
integer(i4b), intent(in)  chunk_z,
integer(i4b), intent(in)  chunk_y,
integer(i4b), intent(in)  chunk_x,
integer(i4b), intent(in)  iper,
character(len=*), intent(in)  nc_fname 
)
private

Definition at line 1012 of file DisNCStructured.f90.

1016  integer(I4B), intent(in) :: ncid
1017  type(StructuredNCDimIdType), intent(inout) :: dim_ids
1018  type(StructuredNCVarIdType), intent(inout) :: var_ids
1019  type(DisType), pointer, intent(in) :: dis
1020  integer(I4B), dimension(:), pointer, contiguous, intent(in) :: p_mem
1021  character(len=*), intent(in) :: nc_varname
1022  character(len=*), intent(in) :: pkgname
1023  character(len=*), intent(in) :: tagname
1024  character(len=*), intent(in) :: shapestr
1025  character(len=*), intent(in) :: longname
1026  character(len=*), intent(in) :: nc_tag
1027  character(len=*), intent(in) :: gridmap_name
1028  logical(LGP), intent(in) :: latlon
1029  integer(I4B), intent(in) :: deflate
1030  integer(I4B), intent(in) :: shuffle
1031  integer(I4B), intent(in) :: chunk_z
1032  integer(I4B), intent(in) :: chunk_y
1033  integer(I4B), intent(in) :: chunk_x
1034  integer(I4B), intent(in) :: iper
1035  character(len=*), intent(in) :: nc_fname
1036  integer(I4B) :: var_id, axis_sz
1037  character(len=LINELENGTH) :: longname_l
1038 
1039  if (shapestr == 'NROW' .or. &
1040  shapestr == 'NCOL' .or. &
1041  shapestr == 'NCPL') then
1042 
1043  select case (shapestr)
1044  case ('NROW')
1045  axis_sz = dim_ids%y
1046  case ('NCOL')
1047  axis_sz = dim_ids%x
1048  case ('NCPL')
1049  axis_sz = dim_ids%ncpl
1050  end select
1051 
1052  longname_l = export_longname(longname, pkgname, tagname, layer=0, iper=iper)
1053 
1054  ! reenter define mode and create variable
1055  call nf_verify(nf90_redef(ncid), nc_fname)
1056  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_int, &
1057  (/axis_sz/), var_id), &
1058  nc_fname)
1059 
1060  ! NROW/NCOL shapes use default chunking
1061  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1062 
1063  ! put attr
1064  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1065  (/nf90_fill_int/)), nc_fname)
1066  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1067  longname_l), nc_fname)
1068 
1069  ! add mf6 attr
1070  call ncvar_mf6attr(ncid, var_id, iper, 0, nc_tag, nc_fname)
1071 
1072  ! exit define mode and write data
1073  call nf_verify(nf90_enddef(ncid), nc_fname)
1074  call nf_verify(nf90_put_var(ncid, var_id, p_mem), &
1075  nc_fname)
1076 
1077  else
1078  ! reenter define mode and create variable
1079  call nf_verify(nf90_redef(ncid), nc_fname)
1080  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_int, &
1081  (/dim_ids%x, dim_ids%y, dim_ids%z/), var_id), &
1082  nc_fname)
1083 
1084  ! apply chunking parameters
1085  call ncvar_chunk3d(ncid, var_id, chunk_x, chunk_y, chunk_z, nc_fname)
1086  ! deflate and shuffle
1087  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1088 
1089  ! put attr
1090  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1091  (/nf90_fill_int/)), nc_fname)
1092  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1093  longname), nc_fname)
1094 
1095  ! add grid mapping and mf6 attr
1096  call ncvar_gridmap(ncid, var_id, gridmap_name, latlon, nc_fname)
1097  call ncvar_mf6attr(ncid, var_id, 0, 0, nc_tag, nc_fname)
1098 
1099  ! exit define mode and write data
1100  call nf_verify(nf90_enddef(ncid), nc_fname)
1101  call nf_verify(nf90_put_var(ncid, var_id, p_mem, start=(/1, 1, 1/), &
1102  count=(/dis%ncol, dis%nrow, dis%nlay/)), &
1103  nc_fname)
1104  end if
Here is the call graph for this function:

◆ nc_export_int2d()

subroutine disncstructuredmodule::nc_export_array::nc_export_int2d ( integer(i4b), intent(in)  ncid,
type(structuredncdimidtype), intent(inout)  dim_ids,
type(structuredncvaridtype), intent(inout)  var_ids,
type(distype), intent(in), pointer  dis,
integer(i4b), dimension(:, :), intent(in), pointer, contiguous  p_mem,
character(len=*), intent(in)  nc_varname,
character(len=*), intent(in)  pkgname,
character(len=*), intent(in)  tagname,
character(len=*), intent(in)  shapestr,
character(len=*), intent(in)  longname,
character(len=*), intent(in)  nc_tag,
character(len=*), intent(in)  gridmap_name,
logical(lgp), intent(in)  latlon,
integer(i4b), intent(in)  deflate,
integer(i4b), intent(in)  shuffle,
integer(i4b), intent(in)  chunk_z,
integer(i4b), intent(in)  chunk_y,
integer(i4b), intent(in)  chunk_x,
character(len=*), intent(in)  nc_fname 
)
private

Definition at line 1109 of file DisNCStructured.f90.

1113  integer(I4B), intent(in) :: ncid
1114  type(StructuredNCDimIdType), intent(inout) :: dim_ids
1115  type(StructuredNCVarIdType), intent(inout) :: var_ids
1116  type(DisType), pointer, intent(in) :: dis
1117  integer(I4B), dimension(:, :), pointer, contiguous, intent(in) :: p_mem
1118  character(len=*), intent(in) :: nc_varname
1119  character(len=*), intent(in) :: pkgname
1120  character(len=*), intent(in) :: tagname
1121  character(len=*), intent(in) :: shapestr
1122  character(len=*), intent(in) :: longname
1123  character(len=*), intent(in) :: nc_tag
1124  character(len=*), intent(in) :: gridmap_name
1125  logical(LGP), intent(in) :: latlon
1126  integer(I4B), intent(in) :: deflate
1127  integer(I4B), intent(in) :: shuffle
1128  integer(I4B), intent(in) :: chunk_z
1129  integer(I4B), intent(in) :: chunk_y
1130  integer(I4B), intent(in) :: chunk_x
1131  character(len=*), intent(in) :: nc_fname
1132  integer(I4B) :: var_id
1133 
1134  ! reenter define mode and create variable
1135  call nf_verify(nf90_redef(ncid), nc_fname)
1136  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_int, &
1137  (/dim_ids%x, dim_ids%y/), var_id), &
1138  nc_fname)
1139 
1140  ! apply chunking parameters
1141  call ncvar_chunk2d(ncid, var_id, chunk_x, chunk_y, nc_fname)
1142  ! deflate and shuffle
1143  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1144 
1145  ! put attr
1146  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1147  (/nf90_fill_int/)), nc_fname)
1148  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1149  longname), nc_fname)
1150 
1151  ! add grid mapping and mf6 attr
1152  call ncvar_gridmap(ncid, var_id, gridmap_name, latlon, nc_fname)
1153  call ncvar_mf6attr(ncid, var_id, 0, 0, nc_tag, nc_fname)
1154 
1155  ! exit define mode and write data
1156  call nf_verify(nf90_enddef(ncid), nc_fname)
1157  call nf_verify(nf90_put_var(ncid, var_id, p_mem, start=(/1, 1/), &
1158  count=(/dis%ncol, dis%nrow/)), &
1159  nc_fname)
Here is the call graph for this function:

◆ nc_export_int3d()

subroutine disncstructuredmodule::nc_export_array::nc_export_int3d ( integer(i4b), intent(in)  ncid,
type(structuredncdimidtype), intent(inout)  dim_ids,
type(structuredncvaridtype), intent(inout)  var_ids,
type(distype), intent(in), pointer  dis,
integer(i4b), dimension(:, :, :), intent(in), pointer, contiguous  p_mem,
character(len=*), intent(in)  nc_varname,
character(len=*), intent(in)  pkgname,
character(len=*), intent(in)  tagname,
character(len=*), intent(in)  shapestr,
character(len=*), intent(in)  longname,
character(len=*), intent(in)  nc_tag,
character(len=*), intent(in)  gridmap_name,
logical(lgp), intent(in)  latlon,
integer(i4b), intent(in)  deflate,
integer(i4b), intent(in)  shuffle,
integer(i4b), intent(in)  chunk_z,
integer(i4b), intent(in)  chunk_y,
integer(i4b), intent(in)  chunk_x,
character(len=*), intent(in)  nc_fname 
)
private

Definition at line 1164 of file DisNCStructured.f90.

1168  integer(I4B), intent(in) :: ncid
1169  type(StructuredNCDimIdType), intent(inout) :: dim_ids
1170  type(StructuredNCVarIdType), intent(inout) :: var_ids
1171  type(DisType), pointer, intent(in) :: dis
1172  integer(I4B), dimension(:, :, :), pointer, contiguous, intent(in) :: p_mem
1173  character(len=*), intent(in) :: nc_varname
1174  character(len=*), intent(in) :: pkgname
1175  character(len=*), intent(in) :: tagname
1176  character(len=*), intent(in) :: shapestr
1177  character(len=*), intent(in) :: longname
1178  character(len=*), intent(in) :: nc_tag
1179  character(len=*), intent(in) :: gridmap_name
1180  logical(LGP), intent(in) :: latlon
1181  integer(I4B), intent(in) :: deflate
1182  integer(I4B), intent(in) :: shuffle
1183  integer(I4B), intent(in) :: chunk_z
1184  integer(I4B), intent(in) :: chunk_y
1185  integer(I4B), intent(in) :: chunk_x
1186  character(len=*), intent(in) :: nc_fname
1187  integer(I4B) :: var_id
1188 
1189  ! reenter define mode and create variable
1190  call nf_verify(nf90_redef(ncid), nc_fname)
1191  call nf_verify(nf90_def_var(ncid, nc_varname, nf90_int, &
1192  (/dim_ids%x, dim_ids%y, dim_ids%z/), var_id), &
1193  nc_fname)
1194 
1195  ! apply chunking parameters
1196  call ncvar_chunk3d(ncid, var_id, chunk_x, chunk_y, chunk_z, nc_fname)
1197  ! deflate and shuffle
1198  call ncvar_deflate(ncid, var_id, deflate, shuffle, nc_fname)
1199 
1200  ! put attr
1201  call nf_verify(nf90_put_att(ncid, var_id, '_FillValue', &
1202  (/nf90_fill_int/)), nc_fname)
1203  call nf_verify(nf90_put_att(ncid, var_id, 'long_name', &
1204  longname), nc_fname)
1205 
1206  ! add grid mapping and mf6 attr
1207  call ncvar_gridmap(ncid, var_id, gridmap_name, latlon, nc_fname)
1208  call ncvar_mf6attr(ncid, var_id, 0, 0, nc_tag, nc_fname)
1209 
1210  ! exit define mode and write data
1211  call nf_verify(nf90_enddef(ncid), nc_fname)
1212  call nf_verify(nf90_put_var(ncid, var_id, p_mem, start=(/1, 1, 1/), &
1213  count=(/dis%ncol, dis%nrow, dis%nlay/)), &
1214  nc_fname)
Here is the call graph for this function:
The documentation for this interface was generated from the following file: