From 76306f69927f90859eaac1bd8da0e8a14a7873ee Mon Sep 17 00:00:00 2001 From: James Edwards Date: Wed, 2 Nov 2022 07:05:04 -0600 Subject: [PATCH] remove debug and obsolete statements --- mediator/med_methods_mod.F90 | 2 -- mediator/med_phases_history_mod.F90 | 4 ---- 2 files changed, 6 deletions(-) diff --git a/mediator/med_methods_mod.F90 b/mediator/med_methods_mod.F90 index 5f66a8ebe..203b1923d 100644 --- a/mediator/med_methods_mod.F90 +++ b/mediator/med_methods_mod.F90 @@ -441,8 +441,6 @@ subroutine med_methods_FB_init(FBout, flds_scalar_name, fieldNameList, FBgeom, S if (present(FBflds)) then call ESMF_FieldBundleGet(FBflds, fieldName=lfieldnamelist(n), field=lfield, rc=rc) if (chkerr(rc,__LINE__,u_FILE_u)) return - ! call med_methods_FB_getFieldN(FBflds, n, lfield, rc=rc) - ! if (chkerr(rc,__LINE__,u_FILE_u)) return elseif (present(STflds)) then call med_methods_State_getNameN(STflds, n, lname, rc) if (chkerr(rc,__LINE__,u_FILE_u)) return diff --git a/mediator/med_phases_history_mod.F90 b/mediator/med_phases_history_mod.F90 index 7bf268179..f98ece233 100644 --- a/mediator/med_phases_history_mod.F90 +++ b/mediator/med_phases_history_mod.F90 @@ -1059,10 +1059,6 @@ subroutine med_phases_history_write_comp_aux(gcomp, compid, auxcomp, rc) integer :: yr,mon,day,sec ! time units real(r8) :: time_val ! time coordinate output real(r8) :: time_bnds(2) ! time bounds output - !DEBUG - integer :: ungriddedUBound(1) - type(ESMF_Field) :: lfield - !DEBUG character(CS), allocatable :: fieldNameList(:) character(len=*), parameter :: subname='(med_phases_history_write_comp_aux)' !---------------------------------------