diff --git a/datm/atm_comp_nuopc.F90 b/datm/atm_comp_nuopc.F90 index a8de65f99..72c6b5972 100644 --- a/datm/atm_comp_nuopc.F90 +++ b/datm/atm_comp_nuopc.F90 @@ -774,7 +774,7 @@ subroutine datm_init_dfields(rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return case('Faxa_ndep') strm_flds2 = (/'Faxa_ndep_nhx', 'Faxa_ndep_noy'/) - call dshr_dfield_add(dfields, sdat, trim(lfieldnames(n)), strm_flds2, exportState, logunit, masterproc, rc) + call dshr_dfield_add(dfields, sdat, trim(lfieldnames(n)), strm_flds2, exportState, logunit, mainproc, rc) if (ChkErr(rc,__LINE__,u_FILE_u)) return end select