z0h is an optional argument in the call to intersurf_xx_gathered. Therefor it cannot be assigne without checking it's existance : IF ( PRESENT(z0h) ) z0h(:) = zz0h(:)
Remove some usless initializations.
(No files)
Note: See TracChangeset
for help on using the changeset viewer.