Skip to content

Commit 7b22186

Browse files
committed
Merge branch 'jgfouca/test_pr' into master (PR #8175)
Fix non bfb log calls in f90 entropy. This should fix remaining CI issues once merged and baselines are regenerated. [BFB]
2 parents a4b948a + e7eae38 commit 7b22186

1 file changed

Lines changed: 6 additions & 3 deletions

File tree

components/eam/src/physics/cam/zm/zm_conv_util.F90

Lines changed: 6 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -1,9 +1,12 @@
1+
#include "bfb_math.inc"
2+
13
module zm_conv_util
24
!----------------------------------------------------------------------------
35
! Purpose: utility methods for ZM deep convection scheme
46
!----------------------------------------------------------------------------
57
#ifdef SCREAM_CONFIG_IS_CMAKE
68
use zm_eamxx_bridge_params, only: r8
9+
use physics_share_f2c, only: scream_log
710
#else
811
use shr_kind_mod, only: r8=>shr_kind_r8
912
#endif
@@ -50,9 +53,9 @@ real(r8) function entropy(TK, p, qtot, zm_const)
5053
e = qv*p / (zm_const%epsilo+qv)
5154

5255
! calculate entropy per unit mass of dry air - Eq. 1
53-
entropy = ( zm_const%cpair + qtot*zm_const%cpliq)*log(TK/zm_const%tfreez) &
54-
- zm_const%rdair*log( (p-e)/pref) &
55-
+ L*qv/TK - qv*zm_const%rh2o*log(qv/qst)
56+
entropy = ( zm_const%cpair + qtot*zm_const%cpliq)*bfb_log(TK/zm_const%tfreez) &
57+
- zm_const%rdair*bfb_log( (p-e)/pref) &
58+
+ L*qv/TK - qv*zm_const%rh2o*bfb_log(qv/qst)
5659

5760
end function entropy
5861

0 commit comments

Comments
 (0)