Skip to content

Commit 89ec481

Browse files
committed
Remove unused Faxa_ vars
1 parent 1f8d26a commit 89ec481

1 file changed

Lines changed: 0 additions & 2 deletions

File tree

mediator/esmFldsExchange_cesm_mod.F90

Lines changed: 0 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1814,7 +1814,6 @@ subroutine esmFldsExchange_cesm(gcomp, phase, rc)
18141814
! to ocn: merged sensible heat flux
18151815
! ---------------------------------------------------------------------
18161816
if (phase == 'advertise') then
1817-
call addfld_from(compatm , 'Faxa_sen')
18181817
call addfld_aoflux('Faox_sen')
18191818
call addfld_from(compice , 'Fioi_melth')
18201819
call addfld_to(compocn , 'Foxx_sen')
@@ -1830,7 +1829,6 @@ subroutine esmFldsExchange_cesm(gcomp, phase, rc)
18301829
! to ocn: surface latent heat flux and evaporation water flux
18311830
! ---------------------------------------------------------------------
18321831
if (phase == 'advertise') then
1833-
call addfld_from(compatm, 'Faxa_lat' )
18341832
call addfld_aoflux( 'Faox_lat' )
18351833
call addfld_aoflux( 'Faox_evap')
18361834
call addfld_to(compocn, 'Foxx_lat' )

0 commit comments

Comments
 (0)