[WAM-IPE] nems branch WAM-IPE_NEMS201606 r90096: add f107_kp_data_size for re...

[Samuel.Trahan at noaa.gov]

Friendly WAM-IPE developers,

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

Project: nems branch WAM-IPE_NEMS201606
URL: https://svnemc.ncep.noaa.gov/projects/nems/branches/WAM-IPE_NEMS201606
Revision: 90096
Author:   weiyu.yang at noaa.gov
Date:     2017-03-22T20:56:12.360120Z
Message:
add f107_kp_data_size for reading the real time data


Differences:
Index: checkout/src/atmos/phys/wam_f107_kp_mod.f
===================================================================
--- checkout/src/atmos/phys/wam_f107_kp_mod.f	(revision 89264)
+++ checkout/src/atmos/phys/wam_f107_kp_mod.f	(revision 90096)
@@ -52,10 +52,8 @@
 
 ! f107_kp_size is the forecast run length.
 !----------------------------------------      
-      f107_kp_read_in_size = f107_kp_size - f107_kp_skip_size
+      f107_kp_read_in_size = f107_kp_data_size - f107_kp_skip_size
 !
-      if(f107_kp_size > 56) f107_kp_read_in_size = 56 - f107_kp_skip_size
-!
       DO i = 1, MIN(f107_kp_read_in_size, f107_kp_size)
 !
 !old      DO i = 1, f107_kp_read_in_size
-------------- next part --------------
Index: checkout/src/atmos/phys/wam_f107_kp_mod.f
===================================================================
--- checkout/src/atmos/phys/wam_f107_kp_mod.f	(revision 89264)
+++ checkout/src/atmos/phys/wam_f107_kp_mod.f	(revision 90096)
@@ -52,10 +52,8 @@
 
 ! f107_kp_size is the forecast run length.
 !----------------------------------------      
-      f107_kp_read_in_size = f107_kp_size - f107_kp_skip_size
+      f107_kp_read_in_size = f107_kp_data_size - f107_kp_skip_size
 !
-      if(f107_kp_size > 56) f107_kp_read_in_size = 56 - f107_kp_skip_size
-!
       DO i = 1, MIN(f107_kp_read_in_size, f107_kp_size)
 !
 !old      DO i = 1, f107_kp_read_in_size