Symbol Description Uses
nr 835



File Line number Procedure Code
./pkg/fizhi/step_fizhi_corr.F 89 STEP_FIZHI_CORR
         if(Lbotij.lt.nr+1)
./pkg/grdchk/grdchk.h 109 NO PROCEDURE
      _RL     grdchk_maskxz(1-olx:snx+olx,nr,nsx,nsy,nobcs)
./pkg/grdchk/grdchk.h 110 NO PROCEDURE
      _RL     grdchk_maskyz(1-oly:sny+oly,nr,nsx,nsy,nobcs)
./pkg/grdchk/grdchk.h 65 NO PROCEDURE
      integer iwetsum(nsx,nsy,0:nr)
./pkg/grdchk/grdchk.h 92 NO PROCEDURE
      integer nwettile( nsx,nsy,nr,nobcs )
./pkg/grdchk/grdchk_get_obcs_mask.F 111 GRDCHK_GET_OBCS_MASK
               do k = 1,nr
./pkg/grdchk/grdchk_get_obcs_mask.F 134 GRDCHK_GET_OBCS_MASK
               do k = 1,nr
./pkg/grdchk/grdchk_get_obcs_mask.F 157 GRDCHK_GET_OBCS_MASK
               do k = 1,nr
./pkg/grdchk/grdchk_get_obcs_mask.F 51 GRDCHK_GET_OBCS_MASK
      _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
./pkg/grdchk/grdchk_get_obcs_mask.F 54 GRDCHK_GET_OBCS_MASK
      _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
./pkg/grdchk/grdchk_get_obcs_mask.F 88 GRDCHK_GET_OBCS_MASK
               do k = 1,nr
./pkg/grdchk/grdchk_getadxx.F 71 GRDCHK_GETADXX
      _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
./pkg/grdchk/grdchk_getadxx.F 74 GRDCHK_GETADXX
      _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
./pkg/grdchk/grdchk_getxx.F 77 GRDCHK_GETXX
      _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
./pkg/grdchk/grdchk_getxx.F 80 GRDCHK_GETXX
      _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
./pkg/grdchk/grdchk_setxx.F 74 GRDCHK_SETXX
      _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
./pkg/grdchk/grdchk_setxx.F 77 GRDCHK_SETXX
      _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
./pkg/openad/openad_dumpAdjoint.F 95 OPENAD_DUMPADJOINT
      double precision foo5(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/openad/the_model_main.F 303 THE_MODEL_MAIN
      _RL foo(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/openad/the_model_main.F 464 THE_MODEL_MAIN
          do i3=1,nr
./pkg/profiles/profiles.h 42 NO PROCEDURE
      _RL prof_theta_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/profiles/profiles.h 43 NO PROCEDURE
      _RL prof_salt_mean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/profiles/profiles_interp.F 148 PROFILES_INTERP
       do k=1,nr
./pkg/profiles/profiles_interp.F 245 PROFILES_INTERP
       do k=1,nr 
./pkg/profiles/profiles_interp.F 262 PROFILES_INTERP
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp.F 264 PROFILES_INTERP
     &    (-rC(nr)+drC(nr)/2) ) then  
./pkg/profiles/profiles_interp.F 265 PROFILES_INTERP
            traj_cur_out(kk)=traj_cur(nr)
./pkg/profiles/profiles_interp.F 266 PROFILES_INTERP
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp.F 271 PROFILES_INTERP
          do k=1,nr-1
./pkg/profiles/profiles_interp_gg.F 130 PROFILES_INTERP_GG
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp_gg.F 132 PROFILES_INTERP_GG
     &    (-rC(nr)+drC(nr)/2) ) then  
./pkg/profiles/profiles_interp_gg.F 133 PROFILES_INTERP_GG
            traj_cur_out(kk)=traj_cur(nr)
./pkg/profiles/profiles_interp_gg.F 134 PROFILES_INTERP_GG
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp_gg.F 139 PROFILES_INTERP_GG
          do k=1,nr-1
./pkg/profiles/profiles_interp_gg.F 68 PROFILES_INTERP_GG
       do k=1,nr
./pkg/profiles/profiles_interp_mean.F 148 PROFILES_INTERP_MEAN
       do k=1,nr
./pkg/profiles/profiles_interp_mean.F 209 PROFILES_INTERP_MEAN
       do k=1,nr 
./pkg/profiles/profiles_interp_mean.F 226 PROFILES_INTERP_MEAN
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp_mean.F 228 PROFILES_INTERP_MEAN
     &    (-rC(nr)+drC(nr)/2) ) then  
./pkg/profiles/profiles_interp_mean.F 229 PROFILES_INTERP_MEAN
            traj_cur_out(kk)=traj_cur(nr)
./pkg/profiles/profiles_interp_mean.F 230 PROFILES_INTERP_MEAN
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp_mean.F 235 PROFILES_INTERP_MEAN
          do k=1,nr-1
./pkg/profiles/profiles_interp_mean_gg.F 109 PROFILES_INTERP_MEAN_GG
        elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then
./pkg/profiles/profiles_interp_mean_gg.F 111 PROFILES_INTERP_MEAN_GG
     &    (-rC(nr)+drC(nr)/2) ) then  
./pkg/profiles/profiles_interp_mean_gg.F 112 PROFILES_INTERP_MEAN_GG
            traj_cur_out(kk)=traj_cur(nr)
./pkg/profiles/profiles_interp_mean_gg.F 113 PROFILES_INTERP_MEAN_GG
            prof_mask1D_cur(kk,bi,bj)=mask_cur(nr)
./pkg/profiles/profiles_interp_mean_gg.F 118 PROFILES_INTERP_MEAN_GG
          do k=1,nr-1
./pkg/profiles/profiles_interp_mean_gg.F 68 PROFILES_INTERP_MEAN_GG
       do k=1,nr
./pkg/ptracers/ptracers_adcommon.h 21 NO PROCEDURE
      _RL adgptr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,
./pkg/ptracers/ptracers_adcommon.h 23 NO PROCEDURE
      _RL adgptrnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,
./pkg/ptracers/ptracers_adcommon.h 25 NO PROCEDURE
      _RL adptracer(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,
./pkg/seaice/seaice_cost_areasst.F 68 SEAICE_COST_AREASST
      _RL localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/seaice/seaice_cost_concentration.F 56 SEAICE_COST_CONCENTRATION
      _RS localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/seaice/seaice_cost_sss.F 55 SEAICE_COST_SSS
      _RS localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/seaice/seaice_cost_sst.F 53 SEAICE_COST_SST
      _RS localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/smooth/smooth_diff3d.F 37 SMOOTH_DIFF3D
      _RL dTtracerLev_bak(nr)
./verification/1D_ocean_ice_column/code_ad/tamc.h 58 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/OpenAD/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/OpenAD/code_ad_singlelayer/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/OpenAD/code_oad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/bottom_ctrl_5x5/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/dome/code/obcs_calc.F 44 OBCS_CALC
      _RL z(nr)
./verification/dome/code/obcs_calc.F 81 OBCS_CALC
      do j=2,nr
./verification/front_relax/code_ad/adcommon.h 21 NO PROCEDURE
      _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 22 NO PROCEDURE
      _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 23 NO PROCEDURE
      _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 24 NO PROCEDURE
      _RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 25 NO PROCEDURE
      _RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 26 NO PROCEDURE
      _RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 27 NO PROCEDURE
      _RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 28 NO PROCEDURE
      _RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 29 NO PROCEDURE
      _RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 30 NO PROCEDURE
      _RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 31 NO PROCEDURE
      _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 32 NO PROCEDURE
      _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 33 NO PROCEDURE
      _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 41 NO PROCEDURE
      _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 42 NO PROCEDURE
      _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 44 NO PROCEDURE
      _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 45 NO PROCEDURE
      _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 46 NO PROCEDURE
      _RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 47 NO PROCEDURE
      _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 62 NO PROCEDURE
      _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 63 NO PROCEDURE
      _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 64 NO PROCEDURE
      _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 70 NO PROCEDURE
      _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/adcommon.h 76 NO PROCEDURE
      _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 21 NO PROCEDURE
      _RL g_gs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 22 NO PROCEDURE
      _RL g_gsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 23 NO PROCEDURE
      _RL g_gt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 24 NO PROCEDURE
      _RL g_gtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 25 NO PROCEDURE
      _RL g_gu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 26 NO PROCEDURE
      _RL g_gunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 27 NO PROCEDURE
      _RL g_gv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 28 NO PROCEDURE
      _RL g_gvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 29 NO PROCEDURE
      _RL g_salt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 30 NO PROCEDURE
      _RL g_theta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 31 NO PROCEDURE
      _RL g_uvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 32 NO PROCEDURE
      _RL g_vvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 33 NO PROCEDURE
      _RL g_wvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 41 NO PROCEDURE
      _RL g_uveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 42 NO PROCEDURE
      _RL g_vveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 44 NO PROCEDURE
      _RL g_unm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 45 NO PROCEDURE
      _RL g_vnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 46 NO PROCEDURE
      _RL g_gucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 47 NO PROCEDURE
      _RL g_gvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 62 NO PROCEDURE
      _RL g_gtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 63 NO PROCEDURE
      _RL g_gtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 64 NO PROCEDURE
      _RL g_tr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 70 NO PROCEDURE
      _RL g_diffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/g_common.h 76 NO PROCEDURE
      _RL g_kapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/front_relax/code_ad/tamc.h 55 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/global_ocean.90x40x15/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/global_ocean.90x40x15/code_oad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/global_ocean.cs32x15/code_ad/cost_test.F 81 COST_TEST
       do k=1,nr
./verification/global_ocean.cs32x15/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/global_ocean_ebm/code_ad/adcommon.h 22 NO PROCEDURE
      _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 23 NO PROCEDURE
      _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 24 NO PROCEDURE
      _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 25 NO PROCEDURE
      _RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 26 NO PROCEDURE
      _RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 27 NO PROCEDURE
      _RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 28 NO PROCEDURE
      _RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 29 NO PROCEDURE
      _RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 30 NO PROCEDURE
      _RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 31 NO PROCEDURE
      _RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 32 NO PROCEDURE
      _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 33 NO PROCEDURE
      _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 34 NO PROCEDURE
      _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 42 NO PROCEDURE
      _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 43 NO PROCEDURE
      _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 45 NO PROCEDURE
      _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 46 NO PROCEDURE
      _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 47 NO PROCEDURE
      _RL adgucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 48 NO PROCEDURE
      _RL adgvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 63 NO PROCEDURE
      _RL adgtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 64 NO PROCEDURE
      _RL adgtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 65 NO PROCEDURE
      _RL adtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 71 NO PROCEDURE
      _RL addiffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/adcommon.h 77 NO PROCEDURE
      _RL adkapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 21 NO PROCEDURE
      _RL g_gs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 22 NO PROCEDURE
      _RL g_gsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 23 NO PROCEDURE
      _RL g_gt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 24 NO PROCEDURE
      _RL g_gtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 25 NO PROCEDURE
      _RL g_gu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 26 NO PROCEDURE
      _RL g_gunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 27 NO PROCEDURE
      _RL g_gv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 28 NO PROCEDURE
      _RL g_gvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 29 NO PROCEDURE
      _RL g_salt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 30 NO PROCEDURE
      _RL g_theta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 31 NO PROCEDURE
      _RL g_uvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 32 NO PROCEDURE
      _RL g_vvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 33 NO PROCEDURE
      _RL g_wvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 41 NO PROCEDURE
      _RL g_uveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 42 NO PROCEDURE
      _RL g_vveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 44 NO PROCEDURE
      _RL g_unm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 45 NO PROCEDURE
      _RL g_vnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 46 NO PROCEDURE
      _RL g_gucd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 47 NO PROCEDURE
      _RL g_gvcd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 62 NO PROCEDURE
      _RL g_gtr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 63 NO PROCEDURE
      _RL g_gtr1nm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 64 NO PROCEDURE
      _RL g_tr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 70 NO PROCEDURE
      _RL g_diffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/g_common.h 76 NO PROCEDURE
      _RL g_kapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/global_ocean_ebm/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/halfpipe_streamice/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/halfpipe_streamice/code_oad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/hs94.1x64x5/code_ad/adcommon.h 19 NO PROCEDURE
      _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 20 NO PROCEDURE
      _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 21 NO PROCEDURE
      _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 22 NO PROCEDURE
      _RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 23 NO PROCEDURE
      _RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 24 NO PROCEDURE
      _RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 25 NO PROCEDURE
      _RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 26 NO PROCEDURE
      _RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 27 NO PROCEDURE
      _RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 28 NO PROCEDURE
      _RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 29 NO PROCEDURE
      _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 30 NO PROCEDURE
      _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/adcommon.h 31 NO PROCEDURE
      _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_ad/tamc.h 54 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/hs94.1x64x5/code_oad/adcommon.h 19 NO PROCEDURE
      _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 20 NO PROCEDURE
      _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 21 NO PROCEDURE
      _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 22 NO PROCEDURE
      _RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 23 NO PROCEDURE
      _RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 24 NO PROCEDURE
      _RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 25 NO PROCEDURE
      _RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 26 NO PROCEDURE
      _RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 27 NO PROCEDURE
      _RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 28 NO PROCEDURE
      _RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 29 NO PROCEDURE
      _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 30 NO PROCEDURE
      _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/hs94.1x64x5/code_oad/adcommon.h 31 NO PROCEDURE
      _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./verification/isomip/code_ad/cost_test.F 81 COST_TEST
       do k=1,nr
./verification/isomip/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/isomip/code_oad/cost_test.F 81 COST_TEST
       do k=1,nr
./verification/isomip/code_oad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/lab_sea/code_ad/tamc.h 58 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/obcs_ctrl/code_ad/tamc.h 55 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/offline_exf_seaice/code_ad/tamc.h 57 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/tutorial_dic_adjoffline/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/tutorial_global_oce_biogeo/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./model/src/rotate_uv2en.F 249 ROTATE_UV2EN_RS
      if ( (kSize.NE.1).AND.(kSize.NE.nr)
./model/src/rotate_uv2en.F 262 ROTATE_UV2EN_RS
          kk=nr
./model/src/rotate_uv2en.F 68 ROTATE_UV2EN_RL
      if ( (kSize.NE.1).AND.(kSize.NE.nr)
./model/src/rotate_uv2en.F 81 ROTATE_UV2EN_RL
          kk=nr
./verification/tutorial_global_oce_biogeo/code_oad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/tutorial_global_oce_optim/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/tutorial_global_oce_optim/code_oad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/tutorial_tracer_adjsens/code_ad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./verification/tutorial_tracer_adjsens/code_oad/tamc.h 56 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./optim/optim_readdata.F 151 OPTIM_READDATA
      read( funit ) (nWetcGlobal(k), k=1,nr)
./optim/optim_readdata.F 152 OPTIM_READDATA
      read( funit ) (nWetsGlobal(k), k=1,nr)
./optim/optim_readdata.F 153 OPTIM_READDATA
      read( funit ) (nWetwGlobal(k), k=1,nr)
./optim/optim_readdata.F 155 OPTIM_READDATA
      read( funit ) (nWetvGlobal(k), k=1,nr)
./optim/optim_readdata.F 158 OPTIM_READDATA
      read(funit) (nWetiGlobal(k), k=1,nr)
./optim/optim_readdata.F 164 OPTIM_READDATA
      read( funit ) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 167 OPTIM_READDATA
      read( funit ) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 170 OPTIM_READDATA
      read( funit ) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 173 OPTIM_READDATA
      read( funit ) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_readdata.F 197 OPTIM_READDATA
     &        (nWetcGlobal(k),  k=1,nr)
./optim/optim_readdata.F 199 OPTIM_READDATA
     &        (nWetsGlobal(k),  k=1,nr)
./optim/optim_readdata.F 201 OPTIM_READDATA
     &        (nWetwGlobal(k),  k=1,nr)
./optim/optim_readdata.F 203 OPTIM_READDATA
     &        (nWetvGlobal(k),  k=1,nr)
./optim/optim_readdata.F 206 OPTIM_READDATA
     &        (nWetiGlobal(k), k=1,nr)
./optim/optim_readdata.F 211 OPTIM_READDATA
     &         (nWetobcsnGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 217 OPTIM_READDATA
     &         (nWetobcssGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 223 OPTIM_READDATA
     &         (nWetobcswGlo(k,iobcs), k=1,nr)
./optim/optim_readdata.F 229 OPTIM_READDATA
     &         (nWetobcseGlo(k,iobcs), k=1,nr)
./optim/optim_writedata.F 117 OPTIM_WRITEDATA
     &        (nWetcGlobal(k), k=1,nr)
./optim/optim_writedata.F 119 OPTIM_WRITEDATA
     &        (nWetsGlobal(k), k=1,nr)
./optim/optim_writedata.F 121 OPTIM_WRITEDATA
     &        (nWetwGlobal(k), k=1,nr)
./optim/optim_writedata.F 123 OPTIM_WRITEDATA
     &        (nWetvGlobal(k), k=1,nr)
./optim/optim_writedata.F 148 OPTIM_WRITEDATA
      write( funit ) (nWetcGlobal(k), k=1,nr)
./optim/optim_writedata.F 149 OPTIM_WRITEDATA
      write( funit ) (nWetsGlobal(k), k=1,nr)
./optim/optim_writedata.F 150 OPTIM_WRITEDATA
      write( funit ) (nWetwGlobal(k), k=1,nr)
./optim/optim_writedata.F 152 OPTIM_WRITEDATA
      write( funit ) (nWetvGlobal(k), k=1,nr)
./optim/optim_writedata.F 155 OPTIM_WRITEDATA
      write(funit) (nWetiGlobal(k),   k=1,nr)
./optim/optim_writedata.F 161 OPTIM_WRITEDATA
          write(funit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 164 OPTIM_WRITEDATA
          write(funit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 167 OPTIM_WRITEDATA
          write(funit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./optim/optim_writedata.F 170 OPTIM_WRITEDATA
          write(funit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_bypassad.F 113 ADMTLM_BYPASSAD
          do k = 1, nr
./pkg/admtlm/admtlm_bypassad.F 131 ADMTLM_BYPASSAD
          do k = 1, nr
./pkg/admtlm/admtlm_bypassad.F 149 ADMTLM_BYPASSAD
          do k = 1, nr
./pkg/admtlm/admtlm_bypassad.F 167 ADMTLM_BYPASSAD
          do k = 1, nr
./pkg/admtlm/admtlm_dsvd2model.F 223 ADMTLM_DSVD2MODEL
          read(cunit) (filenWetcGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 224 ADMTLM_DSVD2MODEL
          read(cunit) (filenWetsGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 225 ADMTLM_DSVD2MODEL
          read(cunit) (filenWetwGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 227 ADMTLM_DSVD2MODEL
          read(cunit) (filenWetvGlobal(k),   k=1,nr)
./pkg/admtlm/admtlm_dsvd2model.F 233 ADMTLM_DSVD2MODEL
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 237 ADMTLM_DSVD2MODEL
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 241 ADMTLM_DSVD2MODEL
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 245 ADMTLM_DSVD2MODEL
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 267 ADMTLM_DSVD2MODEL
          do k = 1, nr
./pkg/admtlm/admtlm_dsvd2model.F 281 ADMTLM_DSVD2MODEL
         do k = 1, nr
./pkg/admtlm/admtlm_dsvd2model.F 293 ADMTLM_DSVD2MODEL
         do k = 1, nr
./pkg/admtlm/admtlm_dsvd2model.F 305 ADMTLM_DSVD2MODEL
         do k = 1, nr
./pkg/admtlm/admtlm_dsvd2model.F 317 ADMTLM_DSVD2MODEL
         do k = 1, nr
./pkg/admtlm/admtlm_dsvd2model.F 89 ADMTLM_DSVD2MODEL
      integer        filenWetobcsnGlo(nr,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 92 ADMTLM_DSVD2MODEL
      integer        filenWetobcssGlo(nr,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 95 ADMTLM_DSVD2MODEL
      integer        filenWetobcswGlo(nr,nobcs)
./pkg/admtlm/admtlm_dsvd2model.F 98 ADMTLM_DSVD2MODEL
      integer        filenWetobcseGlo(nr,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 216 ADMTLM_MODEL2DSVD
          write(cunit) (nWetcGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 217 ADMTLM_MODEL2DSVD
          write(cunit) (nWetsGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 218 ADMTLM_MODEL2DSVD
          write(cunit) (nWetwGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 220 ADMTLM_MODEL2DSVD
          write(cunit) (nWetvGlobal(k), k=1,nr)
./pkg/admtlm/admtlm_model2dsvd.F 224 ADMTLM_MODEL2DSVD
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 227 ADMTLM_MODEL2DSVD
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 230 ADMTLM_MODEL2DSVD
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/admtlm/admtlm_model2dsvd.F 233 ADMTLM_MODEL2DSVD
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/autodiff/adcommon.h 189 NO PROCEDURE
      _RL adggl90tke     (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 190 NO PROCEDURE
      _RL adggl90diffkr  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 197 NO PROCEDURE
      _RL adhfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
./pkg/autodiff/adcommon.h 198 NO PROCEDURE
      _RL adhfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
./pkg/autodiff/adcommon.h 199 NO PROCEDURE
      _RL adhfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
./pkg/autodiff/adcommon.h 200 NO PROCEDURE
      _RL adrecip_hfacc(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
./pkg/autodiff/adcommon.h 201 NO PROCEDURE
      _RL adrecip_hfacs(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
./pkg/autodiff/adcommon.h 202 NO PROCEDURE
      _RL adrecip_hfacw(1-olx:snx+olx,1-oly:sny+oly,1:nr,nsx,nsy)
./pkg/autodiff/adcommon.h 24 NO PROCEDURE
      _RL adgs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 25 NO PROCEDURE
      _RL adgt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 26 NO PROCEDURE
      _RL adgu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 27 NO PROCEDURE
      _RL adgv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 28 NO PROCEDURE
      _RL adsalt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 29 NO PROCEDURE
      _RL adtheta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 30 NO PROCEDURE
      _RL aduvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 31 NO PROCEDURE
      _RL advvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 32 NO PROCEDURE
      _RL adwvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 34 NO PROCEDURE
      _RL adgtnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/adcommon.h 35 NO PROCEDURE
      _RL adgsnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/adcommon.h 36 NO PROCEDURE
      _RL adgunm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/adcommon.h 37 NO PROCEDURE
      _RL adgvnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/adcommon.h 39 NO PROCEDURE
      _RL adgtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 40 NO PROCEDURE
      _RL adgsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 41 NO PROCEDURE
      _RL adgunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 42 NO PROCEDURE
      _RL adgvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 52 NO PROCEDURE
      _RL adrhoinsitu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 53 NO PROCEDURE
      _RL adtotphihyd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 61 NO PROCEDURE
      _RL aduveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 62 NO PROCEDURE
      _RL advveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 64 NO PROCEDURE
      _RL adunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/adcommon.h 65 NO PROCEDURE
      _RL advnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 34 NO PROCEDURE
      _RL g_gs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 35 NO PROCEDURE
      _RL g_gt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 36 NO PROCEDURE
      _RL g_gu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 37 NO PROCEDURE
      _RL g_gv(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 38 NO PROCEDURE
      _RL g_salt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 39 NO PROCEDURE
      _RL g_theta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 40 NO PROCEDURE
      _RL g_uvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 41 NO PROCEDURE
      _RL g_vvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 42 NO PROCEDURE
      _RL g_wvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 44 NO PROCEDURE
      _RL g_gtnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/g_common.h 45 NO PROCEDURE
      _RL g_gsnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/g_common.h 46 NO PROCEDURE
      _RL g_gunm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/g_common.h 47 NO PROCEDURE
      _RL g_gvnm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,2)
./pkg/autodiff/g_common.h 49 NO PROCEDURE
      _RL g_gtnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 50 NO PROCEDURE
      _RL g_gsnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 51 NO PROCEDURE
      _RL g_gunm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 52 NO PROCEDURE
      _RL g_gvnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 62 NO PROCEDURE
      _RL g_rhoinsitu(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 63 NO PROCEDURE
      _RL g_totphihyd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 71 NO PROCEDURE
      _RL g_uveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 72 NO PROCEDURE
      _RL g_vveld(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 74 NO PROCEDURE
      _RL g_unm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 75 NO PROCEDURE
      _RL g_vnm1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/g_common.h 82 NO PROCEDURE
      _RL g_totphihyd(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/autodiff/tamc.h 64 NO PROCEDURE
      parameter (ngeom_chkpt    = nr*nsx*nsy )
./pkg/cost/cost_state_final.F 35 COST_STATE_FINAL
          DO k=1,nr
./pkg/ctrl/ctrl.h 116 NO PROCEDURE
      integer nwetctile     ( nsx,nsy,nr )
./pkg/ctrl/ctrl.h 117 NO PROCEDURE
      integer nwetstile     ( nsx,nsy,nr )
./pkg/ctrl/ctrl.h 118 NO PROCEDURE
      integer nwetwtile     ( nsx,nsy,nr )
./pkg/ctrl/ctrl.h 119 NO PROCEDURE
      integer nwetvtile     ( nsx,nsy,nr )
./pkg/ctrl/ctrl.h 120 NO PROCEDURE
      integer nwetcglobal     ( nr )
./pkg/ctrl/ctrl.h 121 NO PROCEDURE
      integer nwetsglobal     ( nr )
./pkg/ctrl/ctrl.h 122 NO PROCEDURE
      integer nwetwglobal     ( nr )
./pkg/ctrl/ctrl.h 123 NO PROCEDURE
      integer nwetvglobal     ( nr )
./pkg/ctrl/ctrl.h 129 NO PROCEDURE
      integer nwetitile     ( nsx,nsy,nr )
./pkg/ctrl/ctrl.h 130 NO PROCEDURE
      integer nwetiglobal     ( nr )
./pkg/ctrl/ctrl.h 131 NO PROCEDURE
      integer filenWetiGlobal(nr)
./pkg/ctrl/ctrl.h 138 NO PROCEDURE
      integer nwetobcsn     ( nsx,nsy,nr,nobcs )
./pkg/ctrl/ctrl.h 139 NO PROCEDURE
      integer nwetobcsnglo  ( nr,nobcs )
./pkg/ctrl/ctrl.h 145 NO PROCEDURE
      integer nwetobcss     ( nsx,nsy,nr,nobcs )
./pkg/ctrl/ctrl.h 146 NO PROCEDURE
      integer nwetobcssglo  ( nr,nobcs )
./pkg/ctrl/ctrl.h 152 NO PROCEDURE
      integer nwetobcsw     ( nsx,nsy,nr,nobcs )
./pkg/ctrl/ctrl.h 153 NO PROCEDURE
      integer nwetobcswglo  ( nr,nobcs )
./pkg/ctrl/ctrl.h 159 NO PROCEDURE
      integer nwetobcse     ( nsx,nsy,nr,nobcs )
./pkg/ctrl/ctrl.h 160 NO PROCEDURE
      integer nwetobcseglo  ( nr,nobcs )
./pkg/ctrl/ctrl.h 201 NO PROCEDURE
      integer        filenWetcGlobal(nr)
./pkg/ctrl/ctrl.h 202 NO PROCEDURE
      integer        filenWetsGlobal(nr)
./pkg/ctrl/ctrl.h 203 NO PROCEDURE
      integer        filenWetwGlobal(nr)
./pkg/ctrl/ctrl.h 204 NO PROCEDURE
      integer        filenWetvGlobal(nr)
./pkg/ctrl/ctrl.h 225 NO PROCEDURE
      _RL wunit     (nr,nsx,nsy)
./pkg/ctrl/ctrl.h 294 NO PROCEDURE
     &    (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 323 NO PROCEDURE
      _RL xx_theta(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 324 NO PROCEDURE
      _RL xx_salt(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 325 NO PROCEDURE
      _RL xx_uvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 326 NO PROCEDURE
      _RL xx_vvel(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 329 NO PROCEDURE
      _RL xx_diffkr(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 332 NO PROCEDURE
      _RL xx_kapgm(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 335 NO PROCEDURE
      _RL xx_tr1(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl.h 345 NO PROCEDURE
      _RL xx_genarr3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy,
./pkg/ctrl/ctrl.h 440 NO PROCEDURE
       _RL modesv (nr,nr,nr)
./pkg/ctrl/ctrl_get_gen.F 47 CTRL_GET_GEN
      _RS     genmask(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcse.F 168 CTRL_GETOBCSE
          do k = 1,nr
./pkg/ctrl/ctrl_getobcse.F 183 CTRL_GETOBCSE
           do k = 1,nr
./pkg/ctrl/ctrl_getobcse.F 237 CTRL_GETOBCSE
          do k = 1,nr
./pkg/ctrl/ctrl_getobcse.F 251 CTRL_GETOBCSE
         do k = 1,nr
./pkg/ctrl/ctrl_getobcse.F 71 CTRL_GETOBCSE
      _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcse.F 80 CTRL_GETOBCSE
      _RL     tmpz (nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcsn.F 173 CTRL_GETOBCSN
          do k = 1,nr
./pkg/ctrl/ctrl_getobcsn.F 187 CTRL_GETOBCSN
          do k = 1,nr
./pkg/ctrl/ctrl_getobcsn.F 242 CTRL_GETOBCSN
          do k = 1,nr
./pkg/ctrl/ctrl_getobcsn.F 257 CTRL_GETOBCSN
         do k = 1,nr
./pkg/ctrl/ctrl_getobcsn.F 72 CTRL_GETOBCSN
      _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcsn.F 81 CTRL_GETOBCSN
      _RL     tmpz (nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcss.F 169 CTRL_GETOBCSS
          do k = 1,nr
./pkg/ctrl/ctrl_getobcss.F 183 CTRL_GETOBCSS
          do k = 1,nr
./pkg/ctrl/ctrl_getobcss.F 238 CTRL_GETOBCSS
          do k = 1,nr
./pkg/ctrl/ctrl_getobcss.F 252 CTRL_GETOBCSS
         do k = 1,nr
./pkg/ctrl/ctrl_getobcss.F 73 CTRL_GETOBCSS
      _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcss.F 82 CTRL_GETOBCSS
      _RL     tmpz (nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcsw.F 168 CTRL_GETOBCSW
          do k = 1,nr
./pkg/ctrl/ctrl_getobcsw.F 182 CTRL_GETOBCSW
          do k = 1,nr
./pkg/ctrl/ctrl_getobcsw.F 237 CTRL_GETOBCSW
          do k = 1,nr
./pkg/ctrl/ctrl_getobcsw.F 251 CTRL_GETOBCSW
         do k = 1,nr
./pkg/ctrl/ctrl_getobcsw.F 72 CTRL_GETOBCSW
      _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_getobcsw.F 81 CTRL_GETOBCSW
      _RL     tmpz (nr,nsx,nsy)
./pkg/ctrl/ctrl_hfacc_ini.F 102 CTRL_HFACC_INI
          do k = 1,nr
./pkg/ctrl/ctrl_hfacc_ini.F 127 CTRL_HFACC_INI
          do k = 1,nr
./pkg/ctrl/ctrl_init.F 135 CTRL_INIT
     &     snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init.F 144 CTRL_INIT
     &     snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init.F 319 CTRL_INIT
     &     snx, 1, nr, 'm', 'xz', mythid )
./pkg/ctrl/ctrl_init.F 332 CTRL_INIT
     &     snx, 1, nr, 'm', 'xz', mythid )
./pkg/ctrl/ctrl_init.F 345 CTRL_INIT
     &     1, sny, nr, 'm', 'yz', mythid )
./pkg/ctrl/ctrl_init.F 358 CTRL_INIT
     &     1, sny, nr, 'm', 'yz', mythid )
./pkg/ctrl/ctrl_init.F 396 CTRL_INIT
     &     snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init.F 404 CTRL_INIT
     &     snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init.F 412 CTRL_INIT
     &     snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init.F 464 CTRL_INIT
     &       snx, sny, nr, 's', '3d', mythid )
./pkg/ctrl/ctrl_init.F 472 CTRL_INIT
     &       snx, sny, nr, 'v', '3d', mythid )
./pkg/ctrl/ctrl_init.F 496 CTRL_INIT
     &       snx, sny, nr, 'w', '3d', mythid )
./pkg/ctrl/ctrl_init.F 500 CTRL_INIT
     &       snx, sny, nr, 's', '3d', mythid )
./pkg/ctrl/ctrl_init.F 508 CTRL_INIT
     &       snx, sny, nr, 'w', '3d', mythid )
./pkg/ctrl/ctrl_init.F 516 CTRL_INIT
     &       snx, sny, nr, 's', '3d', mythid )
./pkg/ctrl/ctrl_init.F 540 CTRL_INIT
     &       snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init.F 724 CTRL_INIT
     &     snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init.F 795 CTRL_INIT
     &       snx, sny, nr, 'c', '3d', mythid )
./pkg/ctrl/ctrl_init_obcs_variables.F 108 CTRL_INIT_OBCS_VARIABLES
            do k = 1,nr
./pkg/ctrl/ctrl_init_obcs_variables.F 63 CTRL_INIT_OBCS_VARIABLES
            do k = 1,nr
./pkg/ctrl/ctrl_init_obcs_variables.F 78 CTRL_INIT_OBCS_VARIABLES
            do k = 1,nr
./pkg/ctrl/ctrl_init_obcs_variables.F 93 CTRL_INIT_OBCS_VARIABLES
            do k = 1,nr
./pkg/ctrl/ctrl_init_wet.F 112 CTRL_INIT_WET
          do k = 1,nr
./pkg/ctrl/ctrl_init_wet.F 352 CTRL_INIT_WET
     &     'ctrl-wet 13: global nvarlength for Nr =', nr, nvarlength
./pkg/ctrl/ctrl_init_wet.F 364 CTRL_INIT_WET
      do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 414 CTRL_INIT_WET
      do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 491 CTRL_INIT_WET
        do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 503 CTRL_INIT_WET
        do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 515 CTRL_INIT_WET
        do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 527 CTRL_INIT_WET
        do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 548 CTRL_INIT_WET
      do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 568 CTRL_INIT_WET
      do k = 1, nr
./pkg/ctrl/ctrl_init_wet.F 597 CTRL_INIT_WET
            do k=1, nr
./pkg/ctrl/ctrl_init_wet.F 73 CTRL_INIT_WET
          do k = 1,nr
./pkg/ctrl/ctrl_init_wet.F 89 CTRL_INIT_WET
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 110 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 150 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 187 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 259 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 289 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 319 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 343 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 370 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 418 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 437 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 459 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini.F 486 CTRL_MAP_INI
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini_ecco.F 123 CTRL_MAP_INI_ECCO
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini_gen.F 118 CTRL_MAP_INI_GEN3D
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini_gen.F 143 CTRL_MAP_INI_GEN3D
     & nr, xxFld3d, 1, optimcycle, mythid)
./pkg/ctrl/ctrl_map_ini_gen.F 149 CTRL_MAP_INI_GEN3D
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini_gen.F 171 CTRL_MAP_INI_GEN3D
          do k = 1,nr
./pkg/ctrl/ctrl_map_ini_gen.F 199 CTRL_MAP_INI_GEN3D
     &    nr, paramFld3d, 1, optimcycle, mythid)
./pkg/ctrl/ctrl_map_ini_gen.F 255 CTRL_MAP_INI_GEN2D
      _RS maskFld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_map_ini_gen.F 55 CTRL_MAP_INI_GEN3D
      _RL wFld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_map_ini_gen.F 56 CTRL_MAP_INI_GEN3D
      _RL xxFld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_map_ini_gen.F 57 CTRL_MAP_INI_GEN3D
      _RL paramFld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_map_ini_gen.F 58 CTRL_MAP_INI_GEN3D
      _RS maskFld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_mask_set_xz.F 129 CTRL_MASK_SET_XZ
            do k = 1,nr
./pkg/ctrl/ctrl_mask_set_xz.F 34 CTRL_MASK_SET_XZ
      integer nwetobcs (nsx,nsy,nr,nobcs)
./pkg/ctrl/ctrl_mask_set_xz.F 57 CTRL_MASK_SET_XZ
      _RL     maskxz   (1-olx:snx+olx,nr,nsx,nsy,nobcs)
./pkg/ctrl/ctrl_mask_set_xz.F 58 CTRL_MASK_SET_XZ
      _RL     gg       (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ctrl/ctrl_mask_set_xz.F 85 CTRL_MASK_SET_XZ
            do k = 1,nr
./pkg/ctrl/ctrl_mask_set_xz.F 97 CTRL_MASK_SET_XZ
            do k = 1,nr
./pkg/ctrl/ctrl_mask_set_yz.F 130 CTRL_MASK_SET_YZ
            do k = 1,nr
./pkg/ctrl/ctrl_mask_set_yz.F 34 CTRL_MASK_SET_YZ
      integer nwetobcs (nsx,nsy,nr,nobcs)
./pkg/ctrl/ctrl_mask_set_yz.F 57 CTRL_MASK_SET_YZ
      _RL     maskyz   (1-oly:sny+oly,nr,nsx,nsy,nobcs)
./pkg/ctrl/ctrl_mask_set_yz.F 58 CTRL_MASK_SET_YZ
      _RL     gg       (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ctrl/ctrl_mask_set_yz.F 86 CTRL_MASK_SET_YZ
            do k = 1,nr
./pkg/ctrl/ctrl_mask_set_yz.F 98 CTRL_MASK_SET_YZ
            do k = 1,nr
./pkg/ctrl/ctrl_pack.F 218 CTRL_PACK
          write(cunit) (nWetcGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 219 CTRL_PACK
          write(cunit) (nWetsGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 220 CTRL_PACK
          write(cunit) (nWetwGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 222 CTRL_PACK
          write(cunit) (nWetvGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 225 CTRL_PACK
          write(cunit) (nWetiGlobal(k), k=1,nr)
./pkg/ctrl/ctrl_pack.F 230 CTRL_PACK
          write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 233 CTRL_PACK
          write(cunit) ((nWetobcssGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 236 CTRL_PACK
          write(cunit) ((nWetobcswGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_pack.F 239 CTRL_PACK
          write(cunit) ((nWetobcseGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs)
./pkg/ctrl/ctrl_set_globfld_xy.F 55 CTRL_SET_GLOBFLD_XY
      _RL globfld3d(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nr,nSx,nSy)
./pkg/ctrl/ctrl_set_globfld_xy.F 83 CTRL_SET_GLOBFLD_XY
            do k = 1,nr
./pkg/ctrl/ctrl_set_globfld_xyz.F 49 CTRL_SET_GLOBFLD_XYZ
      _RL globfld3d(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nr,nSx,nSy)
./pkg/ctrl/ctrl_set_globfld_xyz.F 67 CTRL_SET_GLOBFLD_XYZ
            do k = 1,nr
./pkg/ctrl/ctrl_set_globfld_xz.F 54 CTRL_SET_GLOBFLD_XZ
      _RL globfld3d(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nr,nSx,nSy)
./pkg/ctrl/ctrl_set_globfld_xz.F 55 CTRL_SET_GLOBFLD_XZ
      _RL globfldxz(1-oLx:sNx+oLx,nr,nSx,nSy)
./pkg/ctrl/ctrl_set_globfld_xz.F 73 CTRL_SET_GLOBFLD_XZ
            do k = 1,nr
./pkg/ctrl/ctrl_set_globfld_xz.F 83 CTRL_SET_GLOBFLD_XZ
            do k = 1,nr
./pkg/ctrl/ctrl_set_globfld_yz.F 54 CTRL_SET_GLOBFLD_YZ
      _RL globfld3d(1-oLx:sNx+oLx,1-oLy:sNy+oLy,nr,nSx,nSy)
./pkg/ctrl/ctrl_set_globfld_yz.F 55 CTRL_SET_GLOBFLD_YZ
      _RL globfldyz(1-oLy:sNy+oLy,nr,nSx,nSy)
./pkg/ctrl/ctrl_set_globfld_yz.F 74 CTRL_SET_GLOBFLD_YZ
            do k = 1,nr
./pkg/ctrl/ctrl_set_globfld_yz.F 84 CTRL_SET_GLOBFLD_YZ
            do k = 1,nr
./pkg/ctrl/ctrl_set_pack_xy.F 179 CTRL_SET_PACK_XY
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xy.F 60 CTRL_SET_PACK_XY
      _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_xy.F 61 CTRL_SET_PACK_XY
      _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_xy.F 94 CTRL_SET_PACK_XY
      do k = 1,nr
./pkg/ctrl/ctrl_set_pack_xyz.F 103 CTRL_SET_PACK_XYZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_pack_xyz.F 162 CTRL_SET_PACK_XYZ
       do k = 1,nr
./pkg/ctrl/ctrl_set_pack_xyz.F 194 CTRL_SET_PACK_XYZ
         do k = 1, nr
./pkg/ctrl/ctrl_set_pack_xyz.F 195 CTRL_SET_PACK_XYZ
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xyz.F 423 CTRL_SET_PACK_XYZ
      do k = 1, nr
./pkg/ctrl/ctrl_set_pack_xyz.F 43 CTRL_SET_PACK_XYZ
      _RL     weightfld( nr,nsx,nsy )
./pkg/ctrl/ctrl_set_pack_xyz.F 63 CTRL_SET_PACK_XYZ
      _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_xyz.F 64 CTRL_SET_PACK_XYZ
      _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_xyz.F 68 CTRL_SET_PACK_XYZ
      _RL   weightfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_xz.F 116 CTRL_SET_PACK_XZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_pack_xz.F 186 CTRL_SET_PACK_XZ
     &        nr, globfld3d, irec, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 193 CTRL_SET_PACK_XZ
            do k = 1,nr
./pkg/ctrl/ctrl_set_pack_xz.F 194 CTRL_SET_PACK_XZ
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 201 CTRL_SET_PACK_XZ
                  jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_pack_xz.F 202 CTRL_SET_PACK_XZ
                  kk=int((j-1)*nr+K-1)/sny+1
./pkg/ctrl/ctrl_set_pack_xz.F 263 CTRL_SET_PACK_XZ
     &        nr, globfldxz, irec, mythid)
./pkg/ctrl/ctrl_set_pack_xz.F 268 CTRL_SET_PACK_XZ
         do k = 1,nr
./pkg/ctrl/ctrl_set_pack_xz.F 269 CTRL_SET_PACK_XZ
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_xz.F 46 CTRL_SET_PACK_XZ
      _RL     weightfld( nr,nobcs )
./pkg/ctrl/ctrl_set_pack_xz.F 71 CTRL_SET_PACK_XZ
      _RL     globfldxz  ( snx,nsx,npx,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_xz.F 72 CTRL_SET_PACK_XZ
      _RL     globfld3d  ( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_xz.F 73 CTRL_SET_PACK_XZ
      _RL     globmskxz  ( snx,nsx,npx,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_set_pack_xz.F 77 CTRL_SET_PACK_XZ
      _RL     weightfldxz( snx,nsx,npx,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_set_pack_xz.F 97 CTRL_SET_PACK_XZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_pack_yz.F 116 CTRL_SET_PACK_YZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_pack_yz.F 188 CTRL_SET_PACK_YZ
     &        nr, globfld3D, irec, mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 196 CTRL_SET_PACK_YZ
            do k = 1,nr
./pkg/ctrl/ctrl_set_pack_yz.F 197 CTRL_SET_PACK_YZ
             irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 204 CTRL_SET_PACK_YZ
                  ii=mod ( (i-1)*nr*sny+(k-1)*sny+j-1      , snx ) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 205 CTRL_SET_PACK_YZ
                  jj=mod( ((i-1)*nr*sny+(k-1)*sny+j-1)/snx , sny ) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 206 CTRL_SET_PACK_YZ
                  kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny) + 1
./pkg/ctrl/ctrl_set_pack_yz.F 267 CTRL_SET_PACK_YZ
     &        nr, globfldyz, irec, mythid)
./pkg/ctrl/ctrl_set_pack_yz.F 272 CTRL_SET_PACK_YZ
         do k = 1,nr
./pkg/ctrl/ctrl_set_pack_yz.F 273 CTRL_SET_PACK_YZ
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_pack_yz.F 46 CTRL_SET_PACK_YZ
      _RL     weightfld( nr,nobcs )
./pkg/ctrl/ctrl_set_pack_yz.F 71 CTRL_SET_PACK_YZ
      _RL     globfldyz  ( nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_yz.F 72 CTRL_SET_PACK_YZ
      _RL     globfld3d  ( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_pack_yz.F 73 CTRL_SET_PACK_YZ
      _RL     globmskyz  ( nsx,npx,sny,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_set_pack_yz.F 77 CTRL_SET_PACK_YZ
      _RL     weightfldyz( nsx,npx,sny,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_set_pack_yz.F 97 CTRL_SET_PACK_YZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_xy.F 177 CTRL_SET_UNPACK_XY
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xy.F 41 CTRL_SET_UNPACK_XY
      integer nwetglobal(nr)
./pkg/ctrl/ctrl_set_unpack_xy.F 61 CTRL_SET_UNPACK_XY
      _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_xy.F 62 CTRL_SET_UNPACK_XY
      _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_xy.F 95 CTRL_SET_UNPACK_XY
      do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_xyz.F 105 CTRL_SET_UNPACK_XYZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_xyz.F 128 CTRL_SET_UNPACK_XYZ
      do k = 1, nr
./pkg/ctrl/ctrl_set_unpack_xyz.F 171 CTRL_SET_UNPACK_XYZ
       do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_xyz.F 206 CTRL_SET_UNPACK_XYZ
         irectrue = (irec-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xyz.F 398 CTRL_SET_UNPACK_XYZ
      do k = 1, nr
./pkg/ctrl/ctrl_set_unpack_xyz.F 43 CTRL_SET_UNPACK_XYZ
      _RL     weightfld( nr,nsx,nsy )
./pkg/ctrl/ctrl_set_unpack_xyz.F 44 CTRL_SET_UNPACK_XYZ
      integer nwetglobal(nr)
./pkg/ctrl/ctrl_set_unpack_xyz.F 63 CTRL_SET_UNPACK_XYZ
      _RL     globmsk  ( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_xyz.F 64 CTRL_SET_UNPACK_XYZ
      _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_xyz.F 68 CTRL_SET_UNPACK_XYZ
      _RL   weightfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_xz.F 102 CTRL_SET_UNPACK_XZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_xz.F 121 CTRL_SET_UNPACK_XZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_xz.F 204 CTRL_SET_UNPACK_XZ
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 223 CTRL_SET_UNPACK_XZ
               jj=mod((j-1)*nr+k-1,sny)+1
./pkg/ctrl/ctrl_set_unpack_xz.F 224 CTRL_SET_UNPACK_XZ
               kk=int((j-1)*nr+k-1)/sny+1
./pkg/ctrl/ctrl_set_unpack_xz.F 291 CTRL_SET_UNPACK_XZ
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_xz.F 45 CTRL_SET_UNPACK_XZ
      _RL     weightfld( nr,nobcs )
./pkg/ctrl/ctrl_set_unpack_xz.F 46 CTRL_SET_UNPACK_XZ
      integer nwetglobal(nr,nobcs)
./pkg/ctrl/ctrl_set_unpack_xz.F 69 CTRL_SET_UNPACK_XZ
      _RL     globfldxz( snx,nsx,npx,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_xz.F 70 CTRL_SET_UNPACK_XZ
      _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_xz.F 71 CTRL_SET_UNPACK_XZ
      _RL     globmskxz( snx,nsx,npx,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_set_unpack_xz.F 80 CTRL_SET_UNPACK_XZ
      _RL   weightfldxz( snx,nsx,npx,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_set_unpack_yz.F 102 CTRL_SET_UNPACK_YZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_yz.F 121 CTRL_SET_UNPACK_YZ
      do k = 1,nr
./pkg/ctrl/ctrl_set_unpack_yz.F 204 CTRL_SET_UNPACK_YZ
               irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 227 CTRL_SET_UNPACK_YZ
                    ii=mod((i-1)*nr*sny+(k-1)*sny+j-1,snx)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 228 CTRL_SET_UNPACK_YZ
                    jj=mod(((i-1)*nr*sny+(k-1)*sny+j-1)/snx,sny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 229 CTRL_SET_UNPACK_YZ
                    kk=int((i-1)*nr*sny+(k-1)*sny+j-1)/(snx*sny)+1
./pkg/ctrl/ctrl_set_unpack_yz.F 291 CTRL_SET_UNPACK_YZ
            irectrue = (irec-1)*nobcs*nr + (iobcs-1)*nr + k
./pkg/ctrl/ctrl_set_unpack_yz.F 45 CTRL_SET_UNPACK_YZ
      _RL     weightfld( nr,nobcs )
./pkg/ctrl/ctrl_set_unpack_yz.F 46 CTRL_SET_UNPACK_YZ
      integer nwetglobal(nr,nobcs)
./pkg/ctrl/ctrl_set_unpack_yz.F 69 CTRL_SET_UNPACK_YZ
      _RL     globfldyz( nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_yz.F 70 CTRL_SET_UNPACK_YZ
      _RL     globfld3d( snx,nsx,npx,sny,nsy,npy,nr )
./pkg/ctrl/ctrl_set_unpack_yz.F 71 CTRL_SET_UNPACK_YZ
      _RL     globmskyz( nsx,npx,sny,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_set_unpack_yz.F 80 CTRL_SET_UNPACK_YZ
      _RL   weightfldyz( nsx,npx,sny,nsy,npy,nr,nobcs )
./pkg/ctrl/ctrl_summary.F 110 CTRL_SUMMARY
          do k = 1,nr
./pkg/ctrl/ctrl_summary.F 90 CTRL_SUMMARY
      write(msgbuf,'(a,i8)') ' snx*sny*nr = ',snx*sny*nr
./pkg/ctrl/ctrl_unpack.F 106 CTRL_UNPACK
      integer        filenWetobcsnGlo(nr,nobcs)
./pkg/ctrl/ctrl_unpack.F 109 CTRL_UNPACK
      integer        filenWetobcssGlo(nr,nobcs)
./pkg/ctrl/ctrl_unpack.F 112 CTRL_UNPACK
      integer        filenWetobcswGlo(nr,nobcs)
./pkg/ctrl/ctrl_unpack.F 115 CTRL_UNPACK
      integer        filenWetobcseGlo(nr,nobcs)
./pkg/ctrl/ctrl_unpack.F 224 CTRL_UNPACK
          read(cunit) (filenWetcGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 225 CTRL_UNPACK
          read(cunit) (filenWetsGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 226 CTRL_UNPACK
          read(cunit) (filenWetwGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 228 CTRL_UNPACK
          read(cunit) (filenWetvGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 231 CTRL_UNPACK
          read(cunit) (filenWetiGlobal(k),   k=1,nr)
./pkg/ctrl/ctrl_unpack.F 238 CTRL_UNPACK
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 242 CTRL_UNPACK
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 246 CTRL_UNPACK
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 250 CTRL_UNPACK
     &         k=1,nr), iobcs= 1,nobcs)
./pkg/ctrl/ctrl_unpack.F 272 CTRL_UNPACK
          do k = 1, nr
./pkg/ctrl/ctrl_unpack.F 294 CTRL_UNPACK
         do k = 1, nr
./pkg/ctrl/ctrl_unpack.F 306 CTRL_UNPACK
         do k = 1, nr
./pkg/ctrl/ctrl_unpack.F 318 CTRL_UNPACK
         do k = 1, nr
./pkg/ctrl/ctrl_unpack.F 330 CTRL_UNPACK
         do k = 1, nr
./pkg/ctrl/ctrl_weights.h 11 NO PROCEDURE
      _RL wtheta   ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 12 NO PROCEDURE
      _RL wsalt    ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 13 NO PROCEDURE
      _RL wuvvel   ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 14 NO PROCEDURE
      _RL wuvel    ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 15 NO PROCEDURE
      _RL wvvel    ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 17 NO PROCEDURE
      _RL wdiffkr  ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 18 NO PROCEDURE
      _RL wkapgm   ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 19 NO PROCEDURE
      _RL wkapredi ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 20 NO PROCEDURE
      _RL wedtaux ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 21 NO PROCEDURE
      _RL wedtauy ( nr,nsx,nsy )
./pkg/ctrl/ctrl_weights.h 26 NO PROCEDURE
      _RL wobcsn     (                      nr,nobcs)
./pkg/ctrl/ctrl_weights.h 27 NO PROCEDURE
      _RL wobcsnLev  (1-olx:snx+olx,nr,nsx,nsy,nobcs)
./pkg/ctrl/ctrl_weights.h 32 NO PROCEDURE
      _RL wobcss     (                      nr,nobcs)
./pkg/ctrl/ctrl_weights.h 33 NO PROCEDURE
      _RL wobcssLev  (1-olx:snx+olx,nr,nsx,nsy,nobcs)
./pkg/ctrl/ctrl_weights.h 38 NO PROCEDURE
      _RL wobcsw     (                      nr,nobcs)
./pkg/ctrl/ctrl_weights.h 39 NO PROCEDURE
      _RL wobcswLev  (1-oly:sny+oly,nr,nsx,nsy,nobcs)
./pkg/ctrl/ctrl_weights.h 44 NO PROCEDURE
      _RL wobcse     (                      nr,nobcs)
./pkg/ctrl/ctrl_weights.h 45 NO PROCEDURE
      _RL wobcseLev  (1-oly:sny+oly,nr,nsx,nsy,nobcs)
./pkg/ecco/cost_argo_salt.F 143 COST_ARGO_SALT
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argosobs,
./pkg/ecco/cost_argo_salt.F 153 COST_ARGO_SALT
            do k = 1,nr
./pkg/ecco/cost_argo_theta.F 146 COST_ARGO_THETA
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, argotobs,
./pkg/ecco/cost_argo_theta.F 157 COST_ARGO_THETA
            do k = 1,nr
./pkg/ecco/cost_atlantic.F 149 COST_ATLANTIC
            do k = 1,nr
./pkg/ecco/cost_atlantic.F 196 COST_ATLANTIC
            do k = 1,nr
./pkg/ecco/cost_averagesfields.F 128 COST_AVERAGESFIELDS
      _RL csmm(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nr,nsx,nsy)
./pkg/ecco/cost_averagesfields.F 245 COST_AVERAGESFIELDS
     &     sum1mon, monrec, nr, mythid )
./pkg/ecco/cost_averagesfields.F 262 COST_AVERAGESFIELDS
     &     sum1mon, monrec, nr, mythid )
./pkg/ecco/cost_averagesfields.F 301 COST_AVERAGESFIELDS
     &     sum1mon, monrec, nr, mythid )
./pkg/ecco/cost_averagesfields.F 317 COST_AVERAGESFIELDS
     &     sum1mon, monrec, nr, mythid )
./pkg/ecco/cost_averagesfields.F 330 COST_AVERAGESFIELDS
            do k = 1,nr
./pkg/ecco/cost_averagesfields.F 343 COST_AVERAGESFIELDS
            do k = 1,nr
./pkg/ecco/cost_averagesfields.F 381 COST_AVERAGESFIELDS
            do k = 1,nr
./pkg/ecco/cost_averagesfields.F 595 COST_AVERAGESFIELDS
            do k = 1,nr
./pkg/ecco/cost_averagesfields.F 606 COST_AVERAGESFIELDS
            do k = 1,nr
./pkg/ecco/cost_averagesfields.F 645 COST_AVERAGESFIELDS
            do k = 1,nr
./pkg/ecco/cost_averagesfields.F 706 COST_AVERAGESFIELDS
         do k = 1,nr
./pkg/ecco/cost_averagesinit.F 117 COST_AVERAGESINIT
          do k = 1,nr
./pkg/ecco/cost_averagesinit.F 125 COST_AVERAGESINIT
          nnzsigmaRbar = nr
./pkg/ecco/cost_averagesinit.F 134 COST_AVERAGESINIT
          do k = 1,nr
./pkg/ecco/cost_averagesinit.F 142 COST_AVERAGESINIT
          nnztbar = nr
./pkg/ecco/cost_averagesinit.F 173 COST_AVERAGESINIT
          do k = 1,nr
./pkg/ecco/cost_averagesinit.F 181 COST_AVERAGESINIT
          nnzsbar = nr
./pkg/ecco/cost_averagesinit.F 199 COST_AVERAGESINIT
          do k = 1,nr
./pkg/ecco/cost_averagesinit.F 213 COST_AVERAGESINIT
          do k = 1,nr
./pkg/ecco/cost_ctds.F 142 COST_CTDS
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdsobs,
./pkg/ecco/cost_ctds.F 153 COST_CTDS
            do k = 1,nr
./pkg/ecco/cost_ctdsclim.F 134 COST_CTDSCLIM
                  do k = 1,nr
./pkg/ecco/cost_ctdsclim.F 168 COST_CTDSCLIM
     &                     nr, sdat, levmon, mythid)
./pkg/ecco/cost_ctdsclim.F 175 COST_CTDSCLIM
            do k = 1,nr
./pkg/ecco/cost_ctdt.F 143 COST_CTDT
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, ctdtobs,
./pkg/ecco/cost_ctdt.F 154 COST_CTDT
            do k = 1,nr
./pkg/ecco/cost_ctdtclim.F 133 COST_CTDTCLIM
                  do k = 1,nr
./pkg/ecco/cost_ctdtclim.F 167 COST_CTDTCLIM
     &                     nr, tdat, levmon, mythid)
./pkg/ecco/cost_ctdtclim.F 174 COST_CTDTCLIM
            do k = 1,nr
./pkg/ecco/cost_curmtr.F 149 COST_CURMTR
        call MDSREADFIELD( curmtrufile,cost_iprec, 'RL', nr, curmtruobs,
./pkg/ecco/cost_curmtr.F 152 COST_CURMTR
        call MDSREADFIELD( curmtrvfile,cost_iprec, 'RL', nr, curmtrvobs,
./pkg/ecco/cost_curmtr.F 163 COST_CURMTR
            do k = 1,nr
./pkg/ecco/cost_diffkr.F 104 COST_DIFFKR
            do k = 1,nr
./pkg/ecco/cost_drift.F 118 COST_DRIFT
          do k = 1,nr
./pkg/ecco/cost_drift.F 155 COST_DRIFT
            do k = 1,nr
./pkg/ecco/cost_drift.F 187 COST_DRIFT
            do k = 1,nr
./pkg/ecco/cost_drift.F 207 COST_DRIFT
          do k = 1,nr
./pkg/ecco/cost_drift.F 244 COST_DRIFT
          do k = 1,nr
./pkg/ecco/cost_drift.F 82 COST_DRIFT
      _RL diagnosfld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_driftw.F 108 COST_DRIFTW
          do k = 1,nr
./pkg/ecco/cost_driftw.F 138 COST_DRIFTW
            do k = 1,nr
./pkg/ecco/cost_driftw.F 163 COST_DRIFTW
            do k = 1,nr
./pkg/ecco/cost_driftw.F 183 COST_DRIFTW
          do k = 1,nr
./pkg/ecco/cost_forcing_gen.F 70 COST_FORCING_GEN
      _RS genmask(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_gencost_boxmean.F 113 COST_GENCOST_BOXMEAN
     &                     nr, mymsk, irec, mythid)
./pkg/ecco/cost_gencost_boxmean.F 116 COST_GENCOST_BOXMEAN
        do k = 1,nr
./pkg/ecco/cost_gencost_boxmean.F 142 COST_GENCOST_BOXMEAN
     &                     nr, mymsk, irec, mythid)
./pkg/ecco/cost_gencost_boxmean.F 156 COST_GENCOST_BOXMEAN
          do k = 1,nr
./pkg/ecco/cost_gencost_boxmean.F 43 COST_GENCOST_BOXMEAN
      _RL mybar(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_gencost_boxmean.F 44 COST_GENCOST_BOXMEAN
      _RL mymsk(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_gencost_boxmean.F 45 COST_GENCOST_BOXMEAN
      _RL tmpmsk(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_gencost_boxmean.F 99 COST_GENCOST_BOXMEAN
          do k = 1,nr
./pkg/ecco/cost_gencost_seaicev4.F 96 COST_GENCOST_SEAICEV4
      _RL localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_generic.F 93 COST_GENERIC
      _RL localmask  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_kapgm.F 107 COST_KAPGM
            do k = 1,nr
./pkg/ecco/cost_kapredi.F 107 COST_KAPREDI
            do k = 1,nr
./pkg/ecco/cost_obcs_ageos.F 148 COST_OBCS_AGEOS
          do k = 1,nr
./pkg/ecco/cost_obcs_ageos.F 215 COST_OBCS_AGEOS
            do k = 1,nr-1
./pkg/ecco/cost_obcs_ageos.F 231 COST_OBCS_AGEOS
            do k = 1,nr
./pkg/ecco/cost_obcs_ageos.F 284 COST_OBCS_AGEOS
            do k = 1,nr-1
./pkg/ecco/cost_obcs_ageos.F 300 COST_OBCS_AGEOS
            do k = 1,nr
./pkg/ecco/cost_obcs_ageos.F 353 COST_OBCS_AGEOS
            do k = 1,nr-1
./pkg/ecco/cost_obcs_ageos.F 369 COST_OBCS_AGEOS
            do k = 1,nr
./pkg/ecco/cost_obcs_ageos.F 420 COST_OBCS_AGEOS
            do k = 1,nr-1
./pkg/ecco/cost_obcs_ageos.F 436 COST_OBCS_AGEOS
            do k = 1,nr
./pkg/ecco/cost_obcs_ageos.F 72 COST_OBCS_AGEOS
      _RL xzdvel1   (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcs_ageos.F 73 COST_OBCS_AGEOS
      _RL xzdvel2   (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcs_ageos.F 74 COST_OBCS_AGEOS
      _RL yzdvel1   (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_obcs_ageos.F 75 COST_OBCS_AGEOS
      _RL yzdvel2   (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_obcs_ageos.F 76 COST_OBCS_AGEOS
      _RL maskxzageos   (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcs_ageos.F 77 COST_OBCS_AGEOS
      _RL maskyzageos   (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_obcse.F 88 COST_OBCSE
      _RL tmpfield (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_obcse.F 89 COST_OBCSE
      _RL maskyz   (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_obcsn.F 86 COST_OBCSN
      _RL tmpfield (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcsn.F 87 COST_OBCSN
      _RL maskxz   (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcss.F 86 COST_OBCSS
      _RL tmpfield (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcss.F 87 COST_OBCSS
      _RL maskxz   (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcsvol.F 77 COST_OBCSVOL
      _RL tmpfldxz (1-olx:snx+olx,nr,nsx,nsy)
./pkg/ecco/cost_obcsvol.F 80 COST_OBCSVOL
      _RL tmpfldyz (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_obcsw.F 86 COST_OBCSW
      _RL tmpfield (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_obcsw.F 87 COST_OBCSW
      _RL maskyz   (1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_readargos.F 84 COST_READARGOS
      call MDSREADFIELD( argosfile, cost_iprec, cost_yftype, nr,
./pkg/ecco/cost_readargos.F 89 COST_READARGOS
               do k = 1,nr
./pkg/ecco/cost_readargot.F 84 COST_READARGOT
      call MDSREADFIELD( argotfile, cost_iprec, cost_yftype, nr,
./pkg/ecco/cost_readargot.F 89 COST_READARGOT
               do k = 1,nr
./pkg/ecco/cost_salt.F 121 COST_SALT
                  do k = 1,nr
./pkg/ecco/cost_salt.F 140 COST_SALT
                  do k = 1,nr
./pkg/ecco/cost_salt.F 168 COST_SALT
     &                     nr, sdat, levmon, mythid)
./pkg/ecco/cost_salt.F 175 COST_SALT
            do k = 1,nr
./pkg/ecco/cost_salt.F 87 COST_SALT
      _RL diagnosfld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_salt0.F 116 COST_SALT0
            do k = 1,nr
./pkg/ecco/cost_salt0.F 156 COST_SALT0
            do k = 1,nr
./pkg/ecco/cost_salt_ini_fin.F 106 COST_SALT_INI_FIN
            do k = 1,nr
./pkg/ecco/cost_sigmar.F 123 COST_SIGMAR
                  do k = 1,nr
./pkg/ecco/cost_sigmar.F 142 COST_SIGMAR
                  do k = 1,nr
./pkg/ecco/cost_sigmar.F 161 COST_SIGMAR
     &                     nr, sigmaRdat, levmon, mythid)
./pkg/ecco/cost_sigmar.F 168 COST_SIGMAR
            do k = 1,nr
./pkg/ecco/cost_sigmar.F 89 COST_SIGMAR
      _RL diagnosfld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_tau_eddy.F 110 COST_TAU_EDDY
            do k = 1,nr
./pkg/ecco/cost_tau_eddy.F 145 COST_TAU_EDDY
            do k = 1,nr
./pkg/ecco/cost_theta.F 121 COST_THETA
                  do k = 1,nr
./pkg/ecco/cost_theta.F 140 COST_THETA
                  do k = 1,nr
./pkg/ecco/cost_theta.F 168 COST_THETA
     &                     nr, tdat, levmon, mythid)
./pkg/ecco/cost_theta.F 175 COST_THETA
            do k = 1,nr
./pkg/ecco/cost_theta.F 87 COST_THETA
      _RL diagnosfld3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/cost_theta0.F 116 COST_THETA0
            do k = 1,nr
./pkg/ecco/cost_theta0.F 156 COST_THETA0
            do k = 1,nr
./pkg/ecco/cost_theta_ini_fin.F 106 COST_THETA_INI_FIN
            do k = 1,nr
./pkg/ecco/cost_trans_merid.F 196 COST_TRANS_MERID
            do k = 1,nr
./pkg/ecco/cost_trans_merid.F 230 COST_TRANS_MERID
        do k =1,nr
./pkg/ecco/cost_trans_merid.F 235 COST_TRANS_MERID
        do k = 2,nr
./pkg/ecco/cost_trans_zonal.F 185 COST_TRANS_ZONAL
            do k = 1,nr
./pkg/ecco/cost_trans_zonal.F 219 COST_TRANS_ZONAL
        do k =1,nr
./pkg/ecco/cost_trans_zonal.F 224 COST_TRANS_ZONAL
        do k = 2,nr
./pkg/ecco/cost_uvel0.F 116 COST_UVEL0
            do k = 1,nr
./pkg/ecco/cost_vvel0.F 116 COST_VVEL0
            do k = 1,nr
./pkg/ecco/cost_xbt.F 148 COST_XBT
        call MDSREADFIELD( fnametmp, cost_iprec, 'RL', nr, xbtobs,
./pkg/ecco/cost_xbt.F 159 COST_XBT
            do k = 1,nr
./pkg/ecco/ecco_cost.h 1187 NO PROCEDURE
      _RL wtheta  (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1188 NO PROCEDURE
      _RL wsalt   (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1189 NO PROCEDURE
      _RL wtheta2 (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1190 NO PROCEDURE
      _RL wsalt2  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1191 NO PROCEDURE
      _RL wthetaLev (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1192 NO PROCEDURE
      _RL wsaltLev  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1194 NO PROCEDURE
      _RL wsigmaR   (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1195 NO PROCEDURE
      _RL wsigmaR2  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1196 NO PROCEDURE
      _RL wsigmaRLev(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1198 NO PROCEDURE
      _RL wuvel   (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1199 NO PROCEDURE
      _RL wvvel   (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1209 NO PROCEDURE
      _RL wctdt   (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1210 NO PROCEDURE
      _RL wctds   (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1213 NO PROCEDURE
      _RL wcurrent(                              nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1214 NO PROCEDURE
      _RL wcurrent2   (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1215 NO PROCEDURE
      _RL wcurrentLev (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1217 NO PROCEDURE
      _RL wdiffkr (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1218 NO PROCEDURE
      _RL wdiffkr2 (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1219 NO PROCEDURE
      _RL wdiffkrFld (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1220 NO PROCEDURE
      _RL wkapgm (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1221 NO PROCEDURE
      _RL wkapgm2 (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1222 NO PROCEDURE
      _RL wkapgmFld (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1223 NO PROCEDURE
      _RL wkapredi (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1224 NO PROCEDURE
      _RL wkapredi2 (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1225 NO PROCEDURE
      _RL wkaprediFld (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1226 NO PROCEDURE
      _RL wedtaux (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1227 NO PROCEDURE
      _RL wedtaux2 (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1228 NO PROCEDURE
      _RL wedtauxFld (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1229 NO PROCEDURE
      _RL wedtauy (                            nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1230 NO PROCEDURE
      _RL wedtauy2 (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1231 NO PROCEDURE
      _RL wedtauyFld (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1242 NO PROCEDURE
      _RL wuvel3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1243 NO PROCEDURE
      _RL wvvel3d(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1307 NO PROCEDURE
      _RL wobcsn     (                      nr,nobcs)
./pkg/ecco/ecco_cost.h 1308 NO PROCEDURE
      _RL wobcsnLev  (1-olx:snx+olx,nr,nsx,nsy,nobcs)
./pkg/ecco/ecco_cost.h 1314 NO PROCEDURE
      _RL wobcss     (                      nr,nobcs)
./pkg/ecco/ecco_cost.h 1315 NO PROCEDURE
      _RL wobcssLev  (1-olx:snx+olx,nr,nsx,nsy,nobcs)
./pkg/ecco/ecco_cost.h 1321 NO PROCEDURE
      _RL wobcsw     (                      nr,nobcs)
./pkg/ecco/ecco_cost.h 1322 NO PROCEDURE
      _RL wobcswLev  (1-oly:sny+oly,nr,nsx,nsy,nobcs)
./pkg/ecco/ecco_cost.h 1328 NO PROCEDURE
      _RL wobcse     (                      nr,nobcs)
./pkg/ecco/ecco_cost.h 1329 NO PROCEDURE
      _RL wobcseLev  (1-oly:sny+oly,nr,nsx,nsy,nobcs)
./pkg/ecco/ecco_cost.h 1405 NO PROCEDURE
      _RL sigmaRdat (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1407 NO PROCEDURE
      _RL tdat      (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1421 NO PROCEDURE
      _RL sdat      (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1430 NO PROCEDURE
      _RL ctdtobs   (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1431 NO PROCEDURE
      _RL ctdsobs   (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1432 NO PROCEDURE
      _RL xbtobs    (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1433 NO PROCEDURE
      _RL argotobs  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1434 NO PROCEDURE
      _RL argosobs  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1437 NO PROCEDURE
      _RL curmtruobs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 1438 NO PROCEDURE
      _RL curmtrvobs(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 193 NO PROCEDURE
      _RL sigmaRfield    (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 194 NO PROCEDURE
      _RL sigmaRbar      (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 195 NO PROCEDURE
      _RL sigmaRbar_gen  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 203 NO PROCEDURE
      _RL tbar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 212 NO PROCEDURE
      _RL tbar_gen  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 213 NO PROCEDURE
      _RL sbar_gen  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 231 NO PROCEDURE
      _RL sbar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 261 NO PROCEDURE
      _RL ubar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 262 NO PROCEDURE
      _RL vbar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 269 NO PROCEDURE
      _RL wbar  (1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 275 NO PROCEDURE
      _RL   Tlmean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 276 NO PROCEDURE
      _RL   Slmean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 277 NO PROCEDURE
      _RL   Tfmean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 278 NO PROCEDURE
      _RL   Sfmean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 287 NO PROCEDURE
      _RL   wlmean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost.h 288 NO PROCEDURE
      _RL   wfmean(1-olx:snx+olx,1-oly:sny+oly,nr,nsx,nsy)
./pkg/ecco/ecco_cost_init_barfiles.F 129 ECCO_COST_INIT_BARFILES
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 110 ECCO_COST_WEIGHTS
      do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 1516 ECCO_COST_WEIGHTS
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 1540 ECCO_COST_WEIGHTS
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 1564 ECCO_COST_WEIGHTS
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 1588 ECCO_COST_WEIGHTS
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 1692 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 1931 ECCO_COST_WEIGHTS
            do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 1973 ECCO_COST_WEIGHTS
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 282 ECCO_COST_WEIGHTS
        do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 310 ECCO_COST_WEIGHTS
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 327 ECCO_COST_WEIGHTS
          do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 365 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 383 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 408 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 426 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 454 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 473 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 501 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 520 ECCO_COST_WEIGHTS
           do k = 1,nr
./pkg/ecco/ecco_cost_weights.F 62 ECCO_COST_WEIGHTS
      _RL wti(nr)
./pkg/ecco/ecco_cost_weights.F 63 ECCO_COST_WEIGHTS
      _RL wsi(nr)
./pkg/ecco/ecco_cost_weights.F 64 ECCO_COST_WEIGHTS
      _RL wui(nr)
./pkg/ecco/ecco_cost_weights.F 65 ECCO_COST_WEIGHTS
      _RL wvi(nr)
./pkg/ecco/ecco_phys.F 62 ECCO_PHYS
          do k = 1,nr
./pkg/ecco/ecco_phys.F 79 ECCO_PHYS
          do k = 1,nr