You signed in with another tab or window. Reload to refresh your session.You signed out in another tab or window. Reload to refresh your session.You switched accounts on another tab or window. Reload to refresh your session.Dismiss alert
mksurfddata_esmf has a success message that gets printed out when the surface data is created, but not for the landuse.timeseries file. We should just add a message similar to that for the surfdata file.
! ----------------------------------------------------------------------
! Close surface dataset
! ----------------------------------------------------------------------if (fsurdat /='') thencall pio_closefile(pioid)
if (root_task) thenwrite(ndiag,*)
write(ndiag,'(a)') 'Successfully created surface data output file = '//trim(fsurdat)
write(ndiag,'(a)') ' This file contains the land model surface data'write(ndiag,*)
end ifend if
! ======================================================================
! Create fdyndat if appropriate
! ======================================================================
1000continueif (mksrf_fdynuse /='') then
.
.
.
.
if (root_task) write(ndiag, '(a,i8)') trim(subname)//" writing PCT_LAKE_MAX"call mkfile_output(pioid, mesh_model, 'PCT_LAKE_MAX', pctlak_max, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) call shr_sys_abort('error in calling mkfile_output for PCT_LAKE_MAX')
if (num_cft > 0) thenif (root_task) write(ndiag, '(a,i8)') trim(subname)//" writing PCT_CFT_MAX"call get_pct_p2l_array(pctcft_max, ndim1=lsize_o, ndim2=num_cft, pct_p2l=pct_cft)
call mkfile_output(pioid, mesh_model, 'PCT_CFT_MAX', pct_cft, rc=rc)
if (ChkErr(rc,__LINE__,u_FILE_u)) call shr_sys_abort('error in calling mkfile_output for PCT_CFT')
end if
! Close the file
call pio_closefile(pioid)
end if ! end of if-create dynamic landust dataset
The text was updated successfully, but these errors were encountered:
…rly abort, add success message on landuse.timeseries (Fixing ESCOMP#2131), read in namelist before MPI and ESMF initialize so can set default name for PET files, and split out namelist broadcast to a seperate call
mksurfddata_esmf has a success message that gets printed out when the surface data is created, but not for the landuse.timeseries file. We should just add a message similar to that for the surfdata file.
The text was updated successfully, but these errors were encountered: