Merge pull request #1427 from emkemp/add/lvt_imergv07a_fr_monthly

Add NRT NAFPA bias correction towards IMERG-FR V07A

lis/metforcing/usaf/AGRMET_forcingMod.F90

@@ -302,7 +302,9 @@ module AGRMET_forcingMod
 !   contains the previous and next forcing values, respectively
 !  \end{description}
 !
-! !USES: 
+! !USES:
+  use LIS_constantsMod, only : LIS_CONST_PATH_LEN
+
   implicit none
 
   PRIVATE
@@ -719,6 +721,12 @@ module AGRMET_forcingMod
      ! EMK Add GFS-to-GALWEM bias correction
      integer :: back_bias_corr
      real, allocatable :: pcp_back_bias_ratio(:,:)
+     ! EMK Add NRT bias correction toward IMERG-Final Run
+     ! (back_bias_corr == 2)
+     character(LIS_CONST_PATH_LEN) :: gfs_nrt_bias_ratio_file
+     character(LIS_CONST_PATH_LEN) :: galwem_nrt_bias_ratio_file
+     real, allocatable :: gfs_nrt_bias_ratio(:,:)
+     real, allocatable :: galwem_nrt_bias_ratio(:,:)
      integer :: pcp_back_bias_ratio_month
   end type agrmet_type_dec
 
@@ -747,7 +755,7 @@ module AGRMET_forcingMod
   subroutine init_AGRMET(findex)
 
 ! !USES: 
-    use LIS_coreMod,    only : LIS_rc, LIS_domain
+    use LIS_coreMod,    only : LIS_rc
     use LIS_timeMgrMod, only : LIS_update_timestep
     use LIS_logMod,     only : LIS_logunit, LIS_endrun
     use LIS_snowMod,    only : LIS_snow_setup
@@ -827,6 +835,21 @@ subroutine init_AGRMET(findex)
     integer                       :: istat1
     integer                       :: ftn
 
+    external :: readcrd_agrmet
+    external :: AGRMET_readmask
+    external :: AGRMET_readterrain
+    external :: AGRMET_readpcpcntm
+    external :: AGRMET_read_sfcalccntm
+    external :: polarToLatLon
+    external :: bilinear_interp_input_withgrid
+    external :: neighbor_interp_input_withgrid
+    external :: AGRMET_read_pcpclimodata
+    external :: gfs_reset_interp_input
+    external :: galwem_reset_interp_input
+    external :: conserv_interp_input
+    external :: bilinear_interp_input
+    external :: upscaleByAveraging_input
+
     allocate(agrmet_struc(LIS_rc%nnest))
     call readcrd_agrmet()