ep2764@columbia_edu
Member
Hello all,
I have tried this code on both pleiades and yellowstone and get the same issue, so I believe this is a coding issue rather than a machine specific problem. I am trying to open up a netCDF file. The relevant coding statements are:
integer :: lev_did, lat_did, mlt_did, alpha_vid, flux_vid, levels_vid, maglat_vid, mlt_vid
character(len=256) :: mepedfile ! meped precip patterns file name
integer :: ierr
type(file_desc_t) :: fid !NetCDF file id
if (masterproc) then
write(iulog,*) 'MEE: Opening netcdf in read only'
! Open the netcdf file (read only)
call getfil(epp_meped_file, mepedfile, 0)
write(iulog,*) 'epp_meped_param_init(): Reading meped precipitation patterns from ', mepedfile
call cam_pio_openfile(fid,mepedfile,0)
write(iulog,*) 'epp_meped_param_init(): File opened ', mepedfile
! read the table dimensions
ierr = pio_inq_dimid(fid, "lev", lev_did)
write(iulog,*) 'epp_meped_param_init(): lev_did ', lev_did
ierr = pio_inq_dimlen(fid, lev_did, epp_meped_nLevs)
write(iulog,*) 'epp_meped_param_init(): epp_meped_nLevs ', epp_meped_nLevs
ierr = pio_inq_dimid(fid, "lat", lat_did)
write(iulog,*) 'epp_meped_param_init(): lat_did ', lat_did
ierr = pio_inq_dimlen(fid, lat_did, epp_meped_nLats)
write(iulog,*) 'epp_meped_param_init(): epp_meped_nLats ', epp_meped_nLats
ierr = pio_inq_dimid(fid, "mlt", mlt_did)
write(iulog,*) 'epp_meped_param_init(): mlt_did ', mlt_did
ierr = pio_inq_dimlen(fid, mlt_did, epp_meped_nMLTs)
write(iulog,*) 'epp_meped_param_init(): epp_meped_nLats ', epp_meped_nMLTs
endif
The run crashes sometime after:
write(iulog,*) 'epp_meped_param_init(): Reading meped precipitation patterns from ', mepedfile
and sometime before:
write(iulog,*) 'epp_meped_param_init(): File opened ', mepedfile
suggesting that the crash happens during:
call cam_pio_openfile(fid,mepedfile,0)
I do not receive any error messages in the atm log and the only error I get in the cesm log is:
ERROR: 0031-300 Forcing all remote tasks to exit due to exit code 1 in task 60
which does not mean very much to me. I have DEBUG turned on, but it did not give my any extra messages. Any ideas on what I am doing wrong? Thanks for any advice!
-Ethan
I have tried this code on both pleiades and yellowstone and get the same issue, so I believe this is a coding issue rather than a machine specific problem. I am trying to open up a netCDF file. The relevant coding statements are:
integer :: lev_did, lat_did, mlt_did, alpha_vid, flux_vid, levels_vid, maglat_vid, mlt_vid
character(len=256) :: mepedfile ! meped precip patterns file name
integer :: ierr
type(file_desc_t) :: fid !NetCDF file id
if (masterproc) then
write(iulog,*) 'MEE: Opening netcdf in read only'
! Open the netcdf file (read only)
call getfil(epp_meped_file, mepedfile, 0)
write(iulog,*) 'epp_meped_param_init(): Reading meped precipitation patterns from ', mepedfile
call cam_pio_openfile(fid,mepedfile,0)
write(iulog,*) 'epp_meped_param_init(): File opened ', mepedfile
! read the table dimensions
ierr = pio_inq_dimid(fid, "lev", lev_did)
write(iulog,*) 'epp_meped_param_init(): lev_did ', lev_did
ierr = pio_inq_dimlen(fid, lev_did, epp_meped_nLevs)
write(iulog,*) 'epp_meped_param_init(): epp_meped_nLevs ', epp_meped_nLevs
ierr = pio_inq_dimid(fid, "lat", lat_did)
write(iulog,*) 'epp_meped_param_init(): lat_did ', lat_did
ierr = pio_inq_dimlen(fid, lat_did, epp_meped_nLats)
write(iulog,*) 'epp_meped_param_init(): epp_meped_nLats ', epp_meped_nLats
ierr = pio_inq_dimid(fid, "mlt", mlt_did)
write(iulog,*) 'epp_meped_param_init(): mlt_did ', mlt_did
ierr = pio_inq_dimlen(fid, mlt_did, epp_meped_nMLTs)
write(iulog,*) 'epp_meped_param_init(): epp_meped_nLats ', epp_meped_nMLTs
endif
The run crashes sometime after:
write(iulog,*) 'epp_meped_param_init(): Reading meped precipitation patterns from ', mepedfile
and sometime before:
write(iulog,*) 'epp_meped_param_init(): File opened ', mepedfile
suggesting that the crash happens during:
call cam_pio_openfile(fid,mepedfile,0)
I do not receive any error messages in the atm log and the only error I get in the cesm log is:
ERROR: 0031-300 Forcing all remote tasks to exit due to exit code 1 in task 60
which does not mean very much to me. I have DEBUG turned on, but it did not give my any extra messages. Any ideas on what I am doing wrong? Thanks for any advice!
-Ethan