Skip to content

Commit 8556b1b

Browse files
committed
Write aofluxes_use_shr_wv_sat value to log file
1 parent 697bad4 commit 8556b1b

1 file changed

Lines changed: 6 additions & 0 deletions

File tree

mediator/med_phases_aofluxes_mod.F90

Lines changed: 6 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -427,6 +427,12 @@ subroutine med_aofluxes_init(gcomp, aoflux_in, aoflux_out, rc)
427427
else
428428
aofluxes_use_shr_wv_sat = .false.
429429
end if
430+
#ifdef CESMCOUPLED
431+
if (maintask) then
432+
write(logunit,*)
433+
write(logunit,'(a,l7)') trim(subname)//' aofluxes_use_shr_wv_sat = ', aofluxes_use_shr_wv_sat
434+
end if
435+
#endif
430436

431437
! bottom level potential temperature and/or botom level density
432438
! will need to be computed if not received from the atm

0 commit comments

Comments
 (0)