CALL MNC_FILE_CLOSE_ALL_MATCHING(fn, myThid)
CALL MNC_FILE_CLOSE_ALL_MATCHING(mncFn, myThid)
SUBROUTINE MNC_FILE_CLOSE_ALL_MATCHING(
CALL MNC_FILE_CLOSE_ALL_MATCHING(diag_mnc_bn, myThid)
CALL MNC_FILE_CLOSE_ALL_MATCHING(bnam, myThid)