remove debug and obsolete statements

NorESMhub · Nov 2, 2022 · 76306f6 · 76306f6
1 parent 0e3bb2d
commit 76306f6
Show file tree

Hide file tree

Showing 2 changed files with 0 additions and 6 deletions.
diff --git 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
@@ -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)'
     !---------------------------------------