Test writing netCDF files
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed arrows point from an interface to procedures which implement that interface. This could include the module procedures in a generic interface or the implementation in a submodule of an interface in a parent module.
subroutine testWrite
!! Test writing netCDF files
real(wp),dimension(:),allocatable::x,y
real(wp),dimension(:,:),allocatable::XX,YY,F
x = linspace(0.0_wp,1.0_wp,100)
y = linspace(0.0_wp,1.0_wp,101)
XX = meshGridX(x,y)
YY = meshGridY(x,y)
F = XX*YY
call writeGrid('data.nc',['F'],x,y)
call writeStep('data.nc',0.0_wp,1,'F',F)
end subroutine testWrite