fixed compile bug

ESCOMP · Apr 28, 2022 · c264349 · c264349
1 parent 08da3ef
commit c264349
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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