mon_write_mnc = .FALSE.
mon_write_mnc = .TRUE.
& mon_write_stdout, mon_write_mnc
LOGICAL mon_write_stdout, mon_write_mnc
IF (useMNC .AND. mon_write_mnc) THEN