From e24e0dbe581f39bcc3efceb4c79299a38b914189 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Tue, 2 Apr 2024 15:55:26 -0600 Subject: [PATCH 1/3] remove ESMF_GridCompGetInternalState from use statement, not working with nag and apparently not needed --- mediator/med_phases_cdeps_mod.F90 | 1 - 1 file changed, 1 deletion(-) diff --git a/mediator/med_phases_cdeps_mod.F90 b/mediator/med_phases_cdeps_mod.F90 index 72ac560c..d9cfd08a 100644 --- a/mediator/med_phases_cdeps_mod.F90 +++ b/mediator/med_phases_cdeps_mod.F90 @@ -7,7 +7,6 @@ module med_phases_cdeps_mod use ESMF, only: ESMF_Field, ESMF_FieldGet use ESMF, only: ESMF_FieldBundleGet, ESMF_FieldBundleIsCreated use ESMF, only: ESMF_FieldBundleCreate - use ESMF, only: ESMF_GridCompGetInternalState use ESMF, only: ESMF_SUCCESS, ESMF_LOGMSG_INFO use med_internalstate_mod, only: InternalState From 29a39fd97507715e0c6839f4d1ecfafa2df7710e Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Tue, 2 Apr 2024 16:32:44 -0600 Subject: [PATCH 2/3] fix format error --- mediator/med_phases_cdeps_mod.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mediator/med_phases_cdeps_mod.F90 b/mediator/med_phases_cdeps_mod.F90 index d9cfd08a..4f37b6f7 100644 --- a/mediator/med_phases_cdeps_mod.F90 +++ b/mediator/med_phases_cdeps_mod.F90 @@ -179,12 +179,12 @@ subroutine med_phases_cdeps_run(gcomp, rc) ! Fill file abd variable lists with data do l = 1, sdat_config%stream(streamid)%nfiles fileList(l) = trim(sdat_config%stream(streamid)%file(l)%name) - if (maintask) write(logunit,'(a,i2,x,a)') trim(subname)//": file ", l, trim(fileList(l)) + if (maintask) write(logunit,'(a,i2,2x,a)') trim(subname)//": file ", l, trim(fileList(l)) end do do l = 1, sdat_config%stream(streamid)%nvars varList(l,1) = trim(sdat_config%stream(streamid)%varlist(l)%nameinfile) varList(l,2) = trim(sdat_config%stream(streamid)%varlist(l)%nameinmodel) - if (maintask) write(logunit,'(a,i2,x,a)') trim(subname)//": variable ", l, trim(varList(l,1))//" -> "//trim(varList(l,2)) + if (maintask) write(logunit,'(a,i2,2x,a)') trim(subname)//": variable ", l, trim(varList(l,1))//" -> "//trim(varList(l,2)) end do ! Set PIO related variables From 777c380009d9934409daea70a7639172445d3054 Mon Sep 17 00:00:00 2001 From: Jim Edwards Date: Tue, 2 Apr 2024 16:50:23 -0600 Subject: [PATCH 3/3] need to allocate even though it is not used - nag --- mediator/med_phases_aofluxes_mod.F90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/mediator/med_phases_aofluxes_mod.F90 b/mediator/med_phases_aofluxes_mod.F90 index ad2eda90..33bc0aba 100644 --- a/mediator/med_phases_aofluxes_mod.F90 +++ b/mediator/med_phases_aofluxes_mod.F90 @@ -1601,10 +1601,8 @@ subroutine set_aoflux_in_pointers(fldbun_a, fldbun_o, aoflux_in, lsize, xgrid, r if (chkerr(rc,__LINE__,u_FILE_u)) return call fldbun_getfldptr(fldbun_a, 'Sa_shum', aoflux_in%shum, xgrid=xgrid, rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return - if (add_gusts) then - call fldbun_getfldptr(fldbun_a, 'Faxa_rainc', aoflux_in%rainc, xgrid=xgrid, rc=rc) - if (chkerr(rc,__LINE__,u_FILE_u)) return - end if + call fldbun_getfldptr(fldbun_a, 'Faxa_rainc', aoflux_in%rainc, xgrid=xgrid, rc=rc) + if (chkerr(rc,__LINE__,u_FILE_u)) return end if ! extra fields for ufs.frac.aoflux