print global enthalpy correction to med log

ESCOMP · Aug 30, 2023 · 08ddedc · 08ddedc
1 parent 39e6b18
commit 08ddedc
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/mediator/med_enthalpy_mod.F90 b/mediator/med_enthalpy_mod.F90
@@ -7,6 +7,7 @@ module med_enthalpy_mod
   use med_methods_mod       , only : FB_fldchk     => med_methods_FB_FldChk
   use med_methods_mod       , only : FB_GetFldPtr  => med_methods_FB_GetFldPtr
   use med_internalstate_mod, only : compocn, compatm, comprof, InternalState
+  use med_internalstate_mod , only : logunit, maintask
   use perf_mod, only : t_startf, t_stopf
 
 
@@ -164,7 +165,7 @@ subroutine med_compute_enthalpy(is_local, rc)
        call ESMF_VMAllreduce(is_local%wrap%vm, senddata=local_htot_corr, recvdata=global_htot_corr, count=1, &
             reduceflag=ESMF_REDUCE_SUM, rc=rc)
        if (ChkErr(rc,__LINE__,u_FILE_u)) return
-
+       if (maintask) write(logunit, '(a,a,f21.13)') trim(subname),' global enthalpy correction: ',global_htot_corr(1)
        deallocate(hcorr)
     endif
     call t_stopf(subname)