Skip to content

Commit

Permalink
minor modifications based on the feedback from code reviewers on the
Browse files Browse the repository at this point in the history
analysis of siginificant wave height.
  • Loading branch information
GangZhao-NOAA committed Sep 26, 2023
1 parent 99dd00a commit f6031bd
Show file tree
Hide file tree
Showing 2 changed files with 1 addition and 2 deletions.
1 change: 0 additions & 1 deletion src/gsi/gsi_rfv3io_mod.f90
Original file line number Diff line number Diff line change
Expand Up @@ -1919,7 +1919,6 @@ subroutine gsi_fv3ncdf2d_read(fv3filenamegin,it,ges_z,ges_t2m,ges_q2m,ges_howv)
i_howv_3dda = 0 ! howv does not exist in firstguess, then stop GSI run.
call die('gsi_fv3ncdf2d_read','Warning: CANNOT find howv in firstguess, aborting..., iret = ', iret)
else
i_howv_3dda = 1 ! howv does exist in firstguess, running analysis with howv
write(6,'(1x,A,1x,A,1x,A,1x,I4,1x,I4,1x,A,1x,I4.4,A)') 'gsi_fv3ncdf2d_read:: Found howv in firstguess ', &
trim(sfcdata), ', iret, varid = ',iret, id_howv,' (on pe: ', mype,').'
end if
Expand Down
2 changes: 1 addition & 1 deletion src/gsi/rapidrefresh_cldsurf_mod.f90
Original file line number Diff line number Diff line change
Expand Up @@ -448,7 +448,7 @@ subroutine init_rapidrefresh_cldsurf
hwllp_howv = 170000.0_r_kind ! 170,000.0 meters (170km as default for 3DRTMA, 50km is used in 2DRTMA)
i_howv_3dda = 0 ! no analysis of significant wave height (howv) in 3D analysis (default)

!-- searching for speficif variable in state variable list (reading from anavinfo)
!-- searching for specific variable in state variable list (reading from anavinfo)
do i2=1,ns2d
if ( trim(svars2d(i2))=='howv' .or. trim(svars2d(i2))=='HOWV' ) then
i_howv_3dda = 1
Expand Down

0 comments on commit f6031bd

Please sign in to comment.