remove TODOs

ESCOMP · Jul 27, 2023 · 7b7d232 · 7b7d232
1 parent 5a3bd1c
commit 7b7d232
Showing 1 changed file with 0 additions and 7 deletions.
diff --git a/mediator/med_phases_ocnalb_mod.F90 b/mediator/med_phases_ocnalb_mod.F90
@@ -414,19 +414,13 @@ subroutine med_phases_ocnalb_run(gcomp, rc)
                scalar_value=nextsw_cday, rc=rc)
           if (chkerr(rc,__LINE__,u_FILE_u)) return
        else
-          ! TODO: Clock is advanced at end of run phase; use nextTime
           call ESMF_ClockGetNextTime(clock, nextTime, rc=rc)
           if (ChkErr(rc,__LINE__,u_FILE_u)) return
           call ESMF_TimeGet(nextTime, dayOfYear_r8=nextsw_cday, rc=rc)
           if (ChkErr(rc,__LINE__,u_FILE_u)) return
        end if
     end if
 
-    !TODO: is there a reason to get this each time instead of at init?
-    !call NUOPC_CompAttributeGet(gcomp, name='flux_albav', value=cvalue, rc=rc)
-    !if (chkerr(rc,__LINE__,u_FILE_u)) return
-    !read(cvalue,*) flux_albav
-
     ! Get orbital values
     call med_phases_ocnalb_orbital_update(clock, logunit, iam==0, eccen, obliqr, lambm0, mvelpp, rc)
     if (ChkErr(rc,__LINE__,u_FILE_u)) return
@@ -462,7 +456,6 @@ subroutine med_phases_ocnalb_run(gcomp, rc)
                                   (.150_r8*(cosz         - 0.100_r8 ) *   &
                                   (cosz - 0.500_r8 ) * (cosz - 1.000_r8 )  )
                 if (use_min_albedo) then
-                   !TODO: why does fv3atm use albdif here and not albdir ?
                    ocnalb%anidr(n) = max (ocnalb%anidr(n), min_albedo)
                 end if
                 ocnalb%avsdr(n) = ocnalb%anidr(n)