diff --git a/mpp/include/mpp_write_2Ddecomp.fh b/mpp/include/mpp_write_2Ddecomp.fh index 69b93e420..e478e5bb2 100644 --- a/mpp/include/mpp_write_2Ddecomp.fh +++ b/mpp/include/mpp_write_2Ddecomp.fh @@ -130,7 +130,7 @@ !write time information if new time if( newtime )then if( KIND(time).EQ.r8_kind )then - error = NF_PUT_VAR1_DOUBLE( mpp_file(iunit)%ncid, mpp_file(iunit)%id, & + error = NF_PUT_VAR1_DOUBLE( mpp_file(iunit)%ncid, mpp_file(iunit)%id, & & mpp_file(iunit:iunit)%time_level, time ) else if( KIND(time).EQ.r4_kind )then error = NF90_PUT_VAR ( mpp_file(iunit)%ncid, mpp_file(iunit)%id, time)