Irrigation Module

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/CMakeLists.txt

@@ -7,6 +7,7 @@ set (alldirs
   GEOSlana_GridComp
   GEOSroute_GridComp
   GEOSigni_GridComp
+  GEOSirrigation_GridComp
   )
 
 esma_add_library (${this}

GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSsurface_GridComp/GEOSland_GridComp/GEOScatchCN_GridComp/GEOS_CatchCNGridComp.F90

@@ -671,6 +671,42 @@ subroutine SetServices ( GC, RC )
          RC=STATUS  )
     VERIFY_(STATUS)
 
+    call MAPL_AddImportSpec(GC                              ,&
+         SHORT_NAME = 'IRRG_RATE_SPR'                         ,&
+         LONG_NAME  = 'irrigation_flux_sprinkler'             ,&
+         UNITS      = 'kg m-2 s-1'                            ,&
+         DIMS       = MAPL_DimsTileOnly                       ,&
+         VLOCATION  = MAPL_VLocationNone                      ,&
+         RC=STATUS  )
+    VERIFY_(STATUS)  
+
+    call MAPL_AddImportSpec(GC                              ,&
+         SHORT_NAME = 'IRRG_RATE_DRP'                         ,&
+         LONG_NAME  = 'irrigation_flux_drip'	              ,&
+         UNITS      = 'kg m-2 s-1'                            ,&
+         DIMS       = MAPL_DimsTileOnly                       ,&
+         VLOCATION  = MAPL_VLocationNone                      ,&
+         RC=STATUS  )
+    VERIFY_(STATUS)  	 
+
+    call MAPL_AddImportSpec(GC                              ,&
+         SHORT_NAME = 'IRRG_RATE_FRW'                         ,&
+         LONG_NAME  = 'irrigation_flux_furrow'                 ,&
+         UNITS      = 'kg m-2 s-1'                            ,&
+         DIMS       = MAPL_DimsTileOnly                       ,&
+         VLOCATION  = MAPL_VLocationNone                      ,&
+         RC=STATUS  )
+    VERIFY_(STATUS)
+
+    call MAPL_AddImportSpec(GC                              ,&
+         SHORT_NAME = 'IRRG_RATE_PDY'                         ,&
+         LONG_NAME  = 'irrigation_flux_paddy'                 ,&
+         UNITS      = 'kg m-2 s-1'                            ,&
+         DIMS       = MAPL_DimsTileOnly                       ,&
+         VLOCATION  = MAPL_VLocationNone                      ,&
+         RC=STATUS  )
+    VERIFY_(STATUS)
+
   !  EXPORT STATE:
     call MAPL_AddExportSpec ( GC, SHORT_NAME = 'LST',      CHILD_ID = CATCHCN, RC=STATUS  )
     VERIFY_(STATUS)
@@ -844,6 +880,8 @@ subroutine SetServices ( GC, RC )
     VERIFY_(STATUS)
     call MAPL_AddExportSpec ( GC, SHORT_NAME = 'SPSNOW' ,  CHILD_ID = CATCHCN, RC=STATUS  )
     VERIFY_(STATUS)
+    call MAPL_AddExportSpec ( GC, SHORT_NAME = 'SPIRRG' ,  CHILD_ID = CATCHCN, RC=STATUS  )
+    VERIFY_(STATUS)
     call MAPL_AddExportSpec ( GC, SHORT_NAME = 'WESNN1' ,  CHILD_ID = CATCHCN, RC=STATUS  )
     VERIFY_(STATUS)
     call MAPL_AddExportSpec ( GC, SHORT_NAME = 'WESNN2' ,  CHILD_ID = CATCHCN, RC=STATUS  )