Move GEOSldas.F90 to use fArgParse (#669)

GEOS-ESM · Jul 7, 2023 · fdc7f90 · fdc7f90
2 parents a51cb0c + dd2b947
commit fdc7f90
Showing 1 changed file with 5 additions and 6 deletions.
diff --git a/src/Applications/LDAS_App/GEOSldas.F90 b/src/Applications/LDAS_App/GEOSldas.F90
@@ -4,7 +4,7 @@
 
 program LDAS_Main
 
-  
+
    ! !USES:
    use MAPL
    use GEOS_LDASGridCompMod, only:  ROOT_SetServices => SetServices
@@ -13,16 +13,15 @@ program LDAS_Main
 
    character(len=*), parameter :: Iam = "LDAS_Main"
    type (MAPL_Cap) :: cap
-   type (MAPL_FlapCLI) :: cli
+   type (MAPL_FargparseCLI) :: cli
    type (MAPL_CapOptions) :: cap_options
    integer :: status
 
 !EOP
 !----------------------------------------------------------------------
 !BOC
-
-   cli = MAPL_FlapCLI(description = 'GEOS LDAS', &
-                      authors     = 'GMAO')
+
+   cli = MAPL_FargparseCLI()
    cap_options = MAPL_CapOptions(cli)
    cap_options%egress_file = 'EGRESS.ldas'
 
@@ -31,5 +30,5 @@ program LDAS_Main
 
    !call MAPL_CAP(ROOT_SetServices, FinalFile='EGRESS.ldas', rc=status)
    !VERIFY_(status)
-  
+
 end program LDAS_Main