Skip to content

Commit

Permalink
ADDED IF-STATEMENTS FOR CHECKSUM
Browse files Browse the repository at this point in the history
Two if-associated statements are added before the checksums
of bnd_type%shflx and bnd_type%lhflx to pass the null model
build.
  • Loading branch information
Zhihong Tan authored and Zhihong Tan committed Nov 10, 2023
1 parent 0839202 commit b9e2cc7
Showing 1 changed file with 4 additions and 2 deletions.
6 changes: 4 additions & 2 deletions atmos_model.F90
Original file line number Diff line number Diff line change
Expand Up @@ -741,8 +741,10 @@ subroutine lnd_ice_atm_bnd_type_chksum(id, timestep, bnd_type)
write(outunit,100) 'lnd_ice_atm_bnd_type%b_star ',mpp_chksum(bnd_type%b_star )
write(outunit,100) 'lnd_ice_atm_bnd_type%q_star ',mpp_chksum(bnd_type%q_star )
#ifndef use_AM3_physics
write(outunit,100) 'lnd_ice_atm_bnd_type%shflx ',mpp_chksum(bnd_type%shflx )!miz
write(outunit,100) 'lnd_ice_atm_bnd_type%lhflx ',mpp_chksum(bnd_type%lhflx )!miz
if(associated(bnd_type%shflx)) &
write(outunit,100) 'lnd_ice_atm_bnd_type%shflx ',mpp_chksum(bnd_type%shflx )!miz
if(associated(bnd_type%lhflx)) &
write(outunit,100) 'lnd_ice_atm_bnd_type%lhflx ',mpp_chksum(bnd_type%lhflx )!miz
#endif
write(outunit,100) 'lnd_ice_atm_bnd_type%wind ',mpp_chksum(bnd_type%wind )
write(outunit,100) 'lnd_ice_atm_bnd_type%thv_atm ',mpp_chksum(bnd_type%thv_atm )
Expand Down

0 comments on commit b9e2cc7

Please sign in to comment.