Skip to content

Commit

Permalink
remove TODOs
Browse files Browse the repository at this point in the history
  • Loading branch information
DeniseWorthen committed Jul 27, 2023
1 parent 5a3bd1c commit 7b7d232
Showing 1 changed file with 0 additions and 7 deletions.
7 changes: 0 additions & 7 deletions mediator/med_phases_ocnalb_mod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down Expand Up @@ -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)
Expand Down

0 comments on commit 7b7d232

Please sign in to comment.