












      subroutine check_srcs
      


      use Agrif_Util
      interface
        subroutine Sub_Loop_check_srcs(srcs)
          implicit none
      integer(4), parameter :: max_opt_size = 4400
      character(4400) :: srcs
        end subroutine Sub_Loop_check_srcs

      end interface
      

        call Sub_Loop_check_srcs( Agrif_tabvars_c(19)%carray0)

      end


      subroutine Sub_Loop_check_srcs(srcs)

      use Agrif_Types, only : Agrif_tabvars

      implicit none

      integer(4), parameter :: max_opt_size = 4400
      character(4400) :: srcs
                   

                  
      integer(4) :: i
                             
                                   

                                   
                                     
      do i=1,max_opt_size
        srcs(i:i)=' '
      enddo
      srcs(   1:   6)='main.F'
      srcs(   7:  13)=' step.F'
      srcs(  14:  24)=' read_inp.F'
      srcs(  25:  38)=' timers_roms.F'
      srcs(  39:  53)=' init_scalars.F'
      srcs(  54:  67)=' init_arrays.F'
      srcs(  68:  81)=' set_weights.F'
      srcs(  82:  94)=' set_scoord.F'
      srcs(  95: 105)=' ana_grid.F'
      srcs( 106: 119)=' setup_grid1.F'
      srcs( 120: 133)=' setup_grid2.F'
      srcs( 134: 147)=' set_nudgcof.F'
      srcs( 148: 161)=' ana_initial.F'
      srcs( 162: 174)=' analytical.F'
      srcs( 175: 183)=' zonavg.F'
      srcs( 184: 192)=' step2d.F'
      srcs( 193: 200)=' u2dbc.F'
      srcs( 201: 208)=' v2dbc.F'
      srcs( 209: 217)=' zetabc.F'
      srcs( 218: 231)=' obc_volcons.F'
      srcs( 232: 244)=' pre_step3d.F'
      srcs( 245: 255)=' step3d_t.F'
      srcs( 256: 268)=' step3d_uv1.F'
      srcs( 269: 281)=' step3d_uv2.F'
      srcs( 282: 290)=' prsgrd.F'
      srcs( 291: 298)=' rhs3d.F'
      srcs( 299: 310)=' set_depth.F'
      srcs( 311: 318)=' omega.F'
      srcs( 319: 328)=' uv3dmix.F'
      srcs( 329: 342)=' uv3dmix_spg.F'
      srcs( 343: 351)=' t3dmix.F'
      srcs( 352: 364)=' t3dmix_spg.F'
      srcs( 365: 376)=' hmix_coef.F'
      srcs( 377: 385)=' wetdry.F'
      srcs( 386: 395)=' wavedry.F'
      srcs( 396: 403)=' u3dbc.F'
      srcs( 404: 411)=' v3dbc.F'
      srcs( 412: 419)=' t3dbc.F'
      srcs( 420: 433)=' step3d_fast.F'
      srcs( 434: 444)=' step3d_w.F'
      srcs( 445: 457)=' rhs3d_w_nh.F'
      srcs( 458: 471)=' initial_nbq.F'
      srcs( 472: 482)=' grid_nbq.F'
      srcs( 483: 492)=' unbq_bc.F'
      srcs( 493: 502)=' vnbq_bc.F'
      srcs( 503: 512)=' wnbq_bc.F'
      srcs( 513: 522)=' rnbq_bc.F'
      srcs( 523: 530)=' w3dbc.F'
      srcs( 531: 546)=' nbq_bry_store.F'
      srcs( 547: 556)=' rho_eos.F'
      srcs( 557: 567)=' ab_ratio.F'
      srcs( 568: 578)=' alfabeta.F'
      srcs( 579: 591)=' alfabeta_k.F'
      srcs( 592: 602)=' ana_vmix.F'
      srcs( 603: 612)=' bvf_mix.F'
      srcs( 613: 623)=' lmd_vmix.F'
      srcs( 624: 636)=' gls_mixing.F'
      srcs( 637: 647)=' lmd_skpp.F'
      srcs( 648: 658)=' lmd_bkpp.F'
      srcs( 659: 671)=' lmd_swfrac.F'
      srcs( 672: 684)=' lmd_wscale.F'
      srcs( 685: 691)=' diag.F'
      srcs( 692: 700)=' wvlcty.F'
      srcs( 701: 712)=' checkdims.F'
      srcs( 713: 729)=' grid_stiffness.F'
      srcs( 730: 740)=' bio_diag.F'
      srcs( 741: 753)=' setup_kwds.F'
      srcs( 754: 766)=' check_kwds.F'
      srcs( 767: 779)=' check_srcs.F'
      srcs( 780: 797)=' check_switches1.F'
      srcs( 798: 815)=' check_switches2.F'
      srcs( 816: 823)=' debug.F'
      srcs( 824: 831)=' param.F'
      srcs( 832: 841)=' ncscrum.F'
      srcs( 842: 851)=' scalars.F'
      srcs( 852: 860)=' output.F'
      srcs( 861: 878)=' put_global_atts.F'
      srcs( 879: 889)=' nf_fread.F'
      srcs( 890: 902)=' nf_fread_x.F'
      srcs( 903: 915)=' nf_fread_y.F'
      srcs( 916: 929)=' nf_read_bry.F'
      srcs( 930: 940)=' get_date.F'
      srcs( 941: 949)=' lenstr.F'
      srcs( 950: 960)=' closecdf.F'
      srcs( 961: 974)=' insert_node.F'
      srcs( 975: 986)=' fillvalue.F'
      srcs( 987:1005)=' nf_add_attribute.F'
      srcs(1006:1017)=' set_cycle.F'
      srcs(1018:1031)=' def_grid_2d.F'
      srcs(1032:1045)=' def_grid_3d.F'
      srcs(1046:1055)=' def_his.F'
      srcs(1056:1065)=' def_rst.F'
      srcs(1066:1077)=' def_diags.F'
      srcs(1078:1090)=' def_diagsM.F'
      srcs(1091:1106)=' def_bio_diags.F'
      srcs(1107:1117)=' wrt_grid.F'
      srcs(1118:1127)=' wrt_his.F'
      srcs(1128:1137)=' wrt_avg.F'
      srcs(1138:1147)=' wrt_rst.F'
      srcs(1148:1159)=' wrt_diags.F'
      srcs(1160:1175)=' wrt_diags_avg.F'
      srcs(1176:1188)=' wrt_diagsM.F'
      srcs(1189:1205)=' wrt_diagsM_avg.F'
      srcs(1206:1221)=' wrt_bio_diags.F'
      srcs(1222:1241)=' wrt_bio_diags_avg.F'
      srcs(1242:1251)=' set_avg.F'
      srcs(1252:1267)=' set_diags_avg.F'
      srcs(1268:1284)=' set_diagsM_avg.F'
      srcs(1285:1304)=' set_bio_diags_avg.F'
      srcs(1305:1320)=' def_diags_vrt.F'
      srcs(1321:1336)=' wrt_diags_vrt.F'
      srcs(1337:1352)=' set_diags_vrt.F'
      srcs(1353:1372)=' set_diags_vrt_avg.F'
      srcs(1373:1392)=' wrt_diags_vrt_avg.F'
      srcs(1393:1407)=' def_diags_ek.F'
      srcs(1408:1422)=' wrt_diags_ek.F'
      srcs(1423:1437)=' set_diags_ek.F'
      srcs(1438:1456)=' set_diags_ek_avg.F'
      srcs(1457:1475)=' wrt_diags_ek_avg.F'
      srcs(1476:1490)=' def_diags_pv.F'
      srcs(1491:1505)=' wrt_diags_pv.F'
      srcs(1506:1520)=' set_diags_pv.F'
      srcs(1521:1539)=' set_diags_pv_avg.F'
      srcs(1540:1558)=' wrt_diags_pv_avg.F'
      srcs(1559:1575)=' def_diags_eddy.F'
      srcs(1576:1596)=' set_diags_eddy_avg.F'
      srcs(1597:1617)=' wrt_diags_eddy_avg.F'
      srcs(1618:1628)=' def_surf.F'
      srcs(1629:1639)=' wrt_surf.F'
      srcs(1640:1654)=' set_surf_avg.F'
      srcs(1655:1669)=' wrt_surf_avg.F'
      srcs(1670:1680)=' get_grid.F'
      srcs(1681:1694)=' get_initial.F'
      srcs(1695:1704)=' get_vbc.F'
      srcs(1705:1716)=' get_wwave.F'
      srcs(1717:1729)=' get_tclima.F'
      srcs(1730:1742)=' get_uclima.F'
      srcs(1743:1752)=' get_ssh.F'
      srcs(1753:1762)=' get_sss.F'
      srcs(1763:1775)=' get_smflux.F'
      srcs(1776:1788)=' get_stflux.F'
      srcs(1789:1801)=' get_srflux.F'
      srcs(1802:1811)=' get_sst.F'
      srcs(1812:1827)=' mod_tides_mas.F'
      srcs(1828:1838)=' tidedata.F'
      srcs(1839:1844)=' mas.F'
      srcs(1845:1856)=' get_tides.F'
      srcs(1857:1868)=' clm_tides.F'
      srcs(1869:1879)=' get_bulk.F'
      srcs(1880:1891)=' bulk_flux.F'
      srcs(1892:1901)=' get_bry.F'
      srcs(1902:1915)=' get_bry_bio.F'
      srcs(1916:1925)=' sstskin.F'
      srcs(1926:1939)=' get_psource.F'
      srcs(1940:1956)=' get_psource_ts.F'
      srcs(1957:1969)=' get_btflux.F'
      srcs(1970:1979)=' mrl_wci.F'
      srcs(1980:1991)=' wkb_wwave.F'
      srcs(1992:1999)=' wkbbc.F'
      srcs(2000:2013)=' get_bry_wkb.F'
      srcs(2014:2031)=' online_bulk_var.F'
      srcs(2032:2049)=' online_get_bulk.F'
      srcs(2050:2065)=' online_interp.F'
      srcs(2066:2091)=' online_interpolate_bulk.F'
      srcs(2092:2109)=' online_set_bulk.F'
      srcs(2110:2123)=' init_floats.F'
      srcs(2124:2136)=' wrt_floats.F'
      srcs(2137:2150)=' step_floats.F'
      srcs(2151:2163)=' rhs_floats.F'
      srcs(2164:2176)=' interp_rho.F'
      srcs(2177:2189)=' def_floats.F'
      srcs(2190:2210)=' init_arrays_floats.F'
      srcs(2211:2224)=' random_walk.F'
      srcs(2225:2245)=' get_initial_floats.F'
      srcs(2246:2256)=' init_sta.F'
      srcs(2257:2266)=' wrt_sta.F'
      srcs(2267:2277)=' step_sta.F'
      srcs(2278:2290)=' interp_sta.F'
      srcs(2291:2300)=' def_sta.F'
      srcs(2301:2318)=' init_arrays_sta.F'
      srcs(2319:2328)=' biology.F'
      srcs(2329:2337)=' o2sato.F'
      srcs(2338:2348)=' sediment.F'
      srcs(2349:2354)=' bbl.F'
      srcs(2355:2366)=' MPI_Setup.F'
      srcs(2367:2379)=' MessPass2D.F'
      srcs(2380:2392)=' MessPass3D.F'
      srcs(2393:2403)=' exchange.F'
      srcs(2404:2416)=' autotiling.F'
      srcs(2417:2423)=' zoom.F'
      srcs(2424:2434)=' update2D.F'
      srcs(2435:2453)=' set_nudgcof_fine.F'
      srcs(2454:2465)=' zoombc_2D.F'
      srcs(2466:2477)=' zoombc_3D.F'
      srcs(2478:2490)=' uv3dpremix.F'
      srcs(2491:2502)=' t3dpremix.F'
      srcs(2503:2513)=' update3D.F'
      srcs(2514:2529)=' zoombc_3Dfast.F'
      srcs(2530:2543)=' Agrif2Model.F'
      srcs(2544:2561)=' send_xios_diags.F'
      srcs(2562:2580)=' cpl_prism_define.F'
      srcs(2581:2596)=' cpl_prism_put.F'
      srcs(2597:2613)=' cpl_prism_init.F'
      srcs(2614:2629)=' cpl_prism_get.F'
      srcs(2630:2648)=' cpl_prism_getvar.F'
      srcs(2649:2665)=' cpl_prism_grid.F'
      srcs(2666:2684)=' module_substance.F'
      srcs(2685:2701)=' module_MUSTANG.F'
      srcs(2702:2725)=' online_spectral_diags.F'
      srcs(2726:2740)=' var3d_oa_out.F'
      srcs(2741:2755)=' var2d_oa_out.F'
      srcs(2756:2775)=' scal0d_oa_out_loc.F'
      srcs(2776:2796)=' scal0d_oa_out_full.F'
      srcs(2797:2808)=' output_oa.F'
      srcs(2809:2823)=' par_pisces.F90'
      srcs(2824:2840)=' ocean2pisces.F90'
      srcs(2841:2848)=' trc.F90'
      srcs(2849:2863)=' sms_pisces.F90'
      srcs(2864:2874)=' p4zche.F90'
      srcs(2875:2885)=' p4zint.F90'
      srcs(2886:2896)=' p4zlys.F90'
      srcs(2897:2907)=' p4zflx.F90'
      srcs(2908:2918)=' p4zlim.F90'
      srcs(2919:2930)=' p4zsink.F90'
      srcs(2931:2943)=' p4zmicro.F90'
      srcs(2944:2955)=' p4zmeso.F90'
      srcs(2956:2967)=' p4zmort.F90'
      srcs(2968:2978)=' p4zopt.F90'
      srcs(2979:2990)=' p4zprod.F90'
      srcs(2991:3001)=' p4zrem.F90'
      srcs(3002:3012)=' p4zsbc.F90'
      srcs(3013:3023)=' p4zsed.F90'
      srcs(3024:3041)=' trcwri_pisces.F90'
      srcs(3042:3052)=' p4zagg.F90'
      srcs(3053:3066)=' p4zfechem.F90'
      srcs(3067:3080)=' p4zligand.F90'
      srcs(3081:3091)=' p4zpoc.F90'
      srcs(3092:3102)=' p4zsms.F90'
      srcs(3103:3113)=' p5zlim.F90'
      srcs(3114:3125)=' p5zmeso.F90'
      srcs(3126:3138)=' p5zmicro.F90'
      srcs(3139:3150)=' p5zmort.F90'
      srcs(3151:3162)=' p5zprod.F90'
      srcs(3163:3173)=' p4zbio.F90'
      srcs(3174:3191)=' trcsms_pisces.F90'
      srcs(3192:3209)=' trcini_pisces.F90'
      srcs(3210:3224)=' pisces_ini.F90'
      srcs(3225:3236)=' oce_sed.F90'
      srcs(3237:3248)=' par_sed.F90'
      srcs(3249:3259)=' sedadv.F90'
      srcs(3260:3270)=' sedarr.F90'
      srcs(3271:3281)=' sedbtb.F90'
      srcs(3282:3293)=' sedchem.F90'
      srcs(3294:3304)=' sedco3.F90'
      srcs(3305:3316)=' seddiff.F90'
      srcs(3317:3327)=' seddsr.F90'
      srcs(3328:3338)=' seddta.F90'
      srcs(3339:3346)=' sed.F90'
      srcs(3347:3357)=' sedini.F90'
      srcs(3358:3371)=' sedinitrc.F90'
      srcs(3372:3384)=' sedinorg.F90'
      srcs(3385:3395)=' sedmat.F90'
      srcs(3396:3406)=' sedmbc.F90'
      srcs(3407:3419)=' sedmodel.F90'
      srcs(3420:3431)=' sed_oce.F90'
      srcs(3432:3442)=' sedorg.F90'
      srcs(3443:3453)=' sedrst.F90'
      srcs(3454:3464)=' sedsfc.F90'
      srcs(3465:3475)=' sedstp.F90'
      srcs(3476:3486)=' sedwri.F90'
      srcs(3487:3501)=' setavg_sed.F90'
      srcs(3502:3525)=' module_parameter_oa.F90'
      srcs(3526:3543)=' module_grd_oa.F90'
      srcs(3544:3562)=' module_oa_time.F90'
      srcs(3563:3582)=' module_oa_space.F90'
      srcs(3583:3604)=' module_oa_periode.F90'
      srcs(3605:3628)=' module_oa_variables.F90'
      srcs(3629:3647)=' module_oa_type.F90'
      srcs(3648:3666)=' module_tile_oa.F90'
      srcs(3667:3686)=' module_oa_level.F90'
      srcs(3687:3710)=' module_oa_interface.F90'
      srcs(3711:3721)=' var_oa.F90'
      srcs(3722:3737)=' tooldatosec.F90'
      srcs(3738:3754)=' toolsectodat.F90'
      srcs(3755:3772)=' tooldecompdat.F90'
      srcs(3773:3790)=' tooldatetosec.F90'
      srcs(3791:3809)=' toolorigindate.F90'
      srcs(3810:3821)=' flocmod.F90'
      srcs(3822:3838)=' comsubstance.F90'
      srcs(3839:3852)=' substance.F90'
      srcs(3853:3867)=' comMUSTANG.F90'
      srcs(3868:3887)=' coupler_MUSTANG.F90'
      srcs(3888:3909)=' sed_MUSTANG_CROCO.F90'
      srcs(3910:3925)=' sed_MUSTANG.F90'
      srcs(3926:3941)=' initMUSTANG.F90'
      srcs(3942:3964)=' plug_MUSTANG_CROCO.F90'
      return
       
      

      end subroutine Sub_Loop_check_srcs

