Skip to content

Commit

Permalink
Merge pull request NOAA-EMC#29 from bensonr/master_#26
Browse files Browse the repository at this point in the history
fixed diagnotic if-tests for gnu compiler (fv_diagnostics.F90)
  • Loading branch information
bensonr authored Apr 22, 2020
2 parents 0d43312 + 92e87b6 commit 62c0f1d
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion tools/fv_diagnostics.F90
Original file line number Diff line number Diff line change
Expand Up @@ -1987,7 +1987,7 @@ subroutine fv_diag(Atm, zvir, Time, print_freq)



if( idiag%id_slp>0 .or. idiag%id_tm>0 .or. idiag%id_any_hght>0 .or. idiag%id_hght3d .or. idiag%id_c15>0 .or. idiag%id_ctz ) then
if( idiag%id_slp>0 .or. idiag%id_tm>0 .or. idiag%id_any_hght>0 .or. idiag%id_hght3d>0 .or. idiag%id_c15>0 .or. idiag%id_ctz>0 ) then

allocate ( wz(isc:iec,jsc:jec,npz+1) )
call get_height_field(isc, iec, jsc, jec, ngc, npz, Atm(n)%flagstruct%hydrostatic, Atm(n)%delz, &
Expand Down

0 comments on commit 62c0f1d

Please sign in to comment.