LOGICAL dumpAtLast, diagMdsDirCreate
& dumpAtLast, diagMdsDirCreate,
dumpAtLast = .FALSE.
CALL WRITE_0D_L( dumpAtLast, INDEX_NONE,
& dumpAtLast, diag_mnc, useMissingValue,
IF ( dumpAtLast .AND. modelEnd