[WAM-IPE] WAM-IPE r96077: bug fix for the gsm/dyn/wrtout_dynamics.f, for IAU ...

[Samuel.Trahan at noaa.gov]

Friendly WAM-IPE developers,

This is an automated email about a WAM-IPE commit.

Project: WAM-IPE
URL: https://svnemc.ncep.noaa.gov/projects/gsm/branches/WAM-IPE/quasitrunk
Revision: 96077
Author:   weiyu.yang at noaa.gov
Date:     2017-07-27T20:20:51.236054Z
Message:
bug fix for the gsm/dyn/wrtout_dynamics.f, for IAU run, line 436, fhour changed to be fhour_iau


Differences:
Index: checkout/dyn/wrtout_dynamics.f
===================================================================
--- checkout/dyn/wrtout_dynamics.f	(revision 94274)
+++ checkout/dyn/wrtout_dynamics.f	(revision 96077)
@@ -433,7 +433,7 @@
          if( .not. ndslfv ) then
 
            if(iau) then
-             call twrites_hst(filename,ioproc,fhour,jdate_iau,
+             call twrites_hst(filename,ioproc,fhour_iau,jdate_iau,
      &              ls_nodes,max_ls_nodes,trie_ls,trio_ls,
      &              trie_ls,trio_ls,
      &              thermodyn_id_out,sfcpress_id_out,pdryini)
-------------- next part --------------
Index: checkout/dyn/wrtout_dynamics.f
===================================================================
--- checkout/dyn/wrtout_dynamics.f	(revision 94274)
+++ checkout/dyn/wrtout_dynamics.f	(revision 96077)
@@ -433,7 +433,7 @@
          if( .not. ndslfv ) then
 
            if(iau) then
-             call twrites_hst(filename,ioproc,fhour,jdate_iau,
+             call twrites_hst(filename,ioproc,fhour_iau,jdate_iau,
      &              ls_nodes,max_ls_nodes,trie_ls,trio_ls,
      &              trie_ls,trio_ls,
      &              thermodyn_id_out,sfcpress_id_out,pdryini)