45 subroutine check(status, ch_calling_routine)
49 integer(i4b),
intent(in) :: status
50 character(len=64),
optional,
intent(in) :: ch_calling_routine
52 character(len=64) :: ch_clrt
54 if (
present(ch_calling_routine) )
then 55 ch_clrt = trim(ch_calling_routine)
57 ch_clrt =
'read_erg_nc' 60 if (status /= nf90_noerr)
then 61 write(6,
'(1x,a)') trim(nf90_strerror(status))
62 write(6,
'(1x,a)')
' '//trim(ch_clrt)//
': Stopped due to NetCDF error!' Declarations of kind types for SICOPOLIS.
subroutine check(status, ch_calling_routine)
NetCDF error capturing.