Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Feature/nems integration2 debug #46

Merged
merged 2 commits into from
Jan 20, 2020
Merged

Feature/nems integration2 debug #46

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
8412d10
changes trapped by debug mode
DeniseWorthen Jan 2, 2020
1de3c23
Update med_constants_mod.F90
DeniseWorthen Jan 9, 2020
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
1 change: 1 addition & 0 deletions mediator/med_map_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -1005,6 +1005,7 @@ subroutine norm_field_dest (fldname, dstfield, frac, rc)
real(R8), pointer :: data2d(:,:)
integer :: ungriddedUBound(1) ! currently the size must equal 1 for rank 2 fields
integer :: gridToFieldMap(1) ! currently the size must equal 1 for rank 2 fields

! ------------------------------------------------

rc = ESMF_SUCCESS
Expand Down
1 change: 1 addition & 0 deletions mediator/med_methods_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -3223,6 +3223,7 @@ subroutine med_methods_State_GetScalar(state, scalar_id, scalar_value, flds_scal
if (chkerr(rc,__LINE__,u_FILE_u)) return
scalar_value = tmp(1)
else
scalar_value = 0.0_R8
call ESMF_LogWrite(trim(subname)//": no ESMF_Field found named: "//trim(flds_scalar_name), ESMF_LOGMSG_INFO)
end if

Expand Down
2 changes: 1 addition & 1 deletion nems/util/shr_pio_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -103,7 +103,7 @@ subroutine shr_pio_init1(ncomps, nlfilename, Global_Comm)
call MPI_comm_rank(Global_Comm, drank, ierr)

io_comm = MPI_COMM_NULL
allocate(pio_comp_settings(ncomps))
if(.not.allocated(pio_comp_settings))allocate(pio_comp_settings(ncomps))
do i=1,ncomps
pio_comp_settings(i)%pio_root = pio_root
pio_comp_settings(i)%pio_stride = pio_stride
Expand Down