Symbol Description Uses
suff suffix of pickup file to read 712



File Line number Procedure Code
./pkg/fizhi/fizhi_write_pickup.F 36 FIZHI_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/fizhi/fizhi_write_pickup.F 65 FIZHI_WRITE_PICKUP
      DO iChara = 1,len(suff)
./pkg/fizhi/fizhi_write_pickup.F 66 FIZHI_WRITE_PICKUP
       IF ( suff(iChara:iChara) .NE. ' ') lChar=iChara
./pkg/fizhi/fizhi_write_pickup.F 68 FIZHI_WRITE_PICKUP
      WRITE(fn,'(A,A)') 'pickup_fizhi.',suff(1:lChar)
./pkg/fizhi/fizhi_write_pickup.F 8 FIZHI_WRITE_PICKUP
      SUBROUTINE FIZHI_WRITE_PICKUP( suff, myTime, myIter, myThid )
./pkg/flt/flt_write_pickup.F 32 FLT_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/flt/flt_write_pickup.F 53 FLT_WRITE_PICKUP
      iLen = ILNBLNK(suff)
./pkg/flt/flt_write_pickup.F 54 FLT_WRITE_PICKUP
      WRITE(fn,'(A,A)') 'pickup_flt.', suff(1:iLen)
./pkg/flt/flt_write_pickup.F 8 FLT_WRITE_PICKUP
     I                     suff, myTime, myIter, myThid )
./pkg/gchem/gchem_write_pickup.F 13 GCHEM_WRITE_PICKUP
      SUBROUTINE GCHEM_WRITE_PICKUP( permPickup, suff,
./pkg/gchem/gchem_write_pickup.F 35 GCHEM_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/gchem/gchem_write_pickup.F 46 GCHEM_WRITE_PICKUP
        CALL DIC_WRITE_PICKUP( permPickup, suff,
./pkg/gchem/gchem_write_pickup.F 53 GCHEM_WRITE_PICKUP
        CALL DARWIN_WRITE_PICKUP( permPickup, suff,
./pkg/gchem/gchem_write_pickup.F 56 GCHEM_WRITE_PICKUP
        CALL DIC_WRITE_PICKUP( permPickup, suff,
./pkg/generic_advdiff/gad_write_pickup.F 10 GAD_WRITE_PICKUP
      SUBROUTINE GAD_WRITE_PICKUP( suff,
./pkg/generic_advdiff/gad_write_pickup.F 32 GAD_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/generic_advdiff/gad_write_pickup.F 71 GAD_WRITE_PICKUP
       lChar = ILNBLNK(suff)
./pkg/generic_advdiff/gad_write_pickup.F 78 GAD_WRITE_PICKUP
          WRITE(fn,'(2A)') 'pickup_somT.',suff(1:lChar)
./pkg/generic_advdiff/gad_write_pickup.F 95 GAD_WRITE_PICKUP
          WRITE(fn,'(2A)') 'pickup_somS.',suff(1:lChar)
./pkg/ggl90/ggl90_checkpoint.F 25 GGL90_READ_PICKUP
      CHARACTER*(10) suff
./pkg/ggl90/ggl90_checkpoint.F 31 GGL90_READ_PICKUP
         WRITE(suff,'(I10.10)') myIter
./pkg/ggl90/ggl90_checkpoint.F 33 GGL90_READ_PICKUP
         WRITE(suff,'(A10)') pickupSuff
./pkg/ggl90/ggl90_checkpoint.F 40 GGL90_READ_PICKUP
      WRITE(fn,'(A,A10)') 'pickup_ggl90.',suff
./pkg/ggl90/ggl90_checkpoint.F 54 GGL90_WRITE_PICKUP
      SUBROUTINE GGL90_WRITE_PICKUP( permPickup, suff,
./pkg/ggl90/ggl90_checkpoint.F 71 GGL90_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/ggl90/ggl90_checkpoint.F 86 GGL90_WRITE_PICKUP
      WRITE(fn,'(A,A)') 'pickup_ggl90.',suff
./pkg/ggl90/ggl90_output.F 157 GGL90_OUTPUT
        WRITE(suff,'(I10.10)') myIter
./pkg/ggl90/ggl90_output.F 158 GGL90_OUTPUT
        CALL WRITE_FLD_XYZ_RL( 'GGL90viscArU-T.', suff,
./pkg/ggl90/ggl90_output.F 160 GGL90_OUTPUT
        CALL WRITE_FLD_XYZ_RL( 'GGL90viscArV-T.', suff,
./pkg/ggl90/ggl90_output.F 162 GGL90_OUTPUT
        CALL WRITE_FLD_XYZ_RL( 'GGL90diffKr-T.', suff,
./pkg/ggl90/ggl90_output.F 164 GGL90_OUTPUT
        CALL WRITE_FLD_XYZ_RL( 'GGL90TKE-T.',    suff,
./pkg/ggl90/ggl90_output.F 67 GGL90_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/ggl90/ggl90_output.F 84 GGL90_OUTPUT
        WRITE(suff,'(I10.10)') myIter
./pkg/ggl90/ggl90_output.F 86 GGL90_OUTPUT
         CALL WRITE_FLD_XYZ_RL( 'GGL90viscArU.', suff,
./pkg/ggl90/ggl90_output.F 88 GGL90_OUTPUT
         CALL WRITE_FLD_XYZ_RL( 'GGL90viscArV.', suff,
./pkg/ggl90/ggl90_output.F 90 GGL90_OUTPUT
         CALL WRITE_FLD_XYZ_RL( 'GGL90diffKr.', suff,
./pkg/ggl90/ggl90_output.F 93 GGL90_OUTPUT
        CALL WRITE_FLD_XYZ_RL(  'GGL90TKE.',    suff,
./pkg/gmredi/gmredi_output.F 138 GMREDI_OUTPUT
         WRITE(suff,'(I10.10)') myIter
./pkg/gmredi/gmredi_output.F 139 GMREDI_OUTPUT
         CALL WRITE_FLD_XYZ_RL('GM_Kwx-T.',suff,GM_Kwx_T,myIter,myThid)
./pkg/gmredi/gmredi_output.F 140 GMREDI_OUTPUT
         CALL WRITE_FLD_XYZ_RL('GM_Kwy-T.',suff,GM_Kwy_T,myIter,myThid)
./pkg/gmredi/gmredi_output.F 141 GMREDI_OUTPUT
         CALL WRITE_FLD_XYZ_RL('GM_Kwz-T.',suff,GM_Kwz_T,myIter,myThid)
./pkg/gmredi/gmredi_output.F 144 GMREDI_OUTPUT
     &        CALL WRITE_FLD_XY_RL('Visbeck_K-T.',suff,Visbeck_K_T,
./pkg/gmredi/gmredi_output.F 149 GMREDI_OUTPUT
           CALL WRITE_FLD_XYZ_RL('GM_PsiXtave.',suff,GM_PsiXtave,
./pkg/gmredi/gmredi_output.F 151 GMREDI_OUTPUT
           CALL WRITE_FLD_XYZ_RL('GM_PsiYtave.',suff,GM_PsiYtave,
./pkg/gmredi/gmredi_output.F 50 GMREDI_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/gmredi/gmredi_output.F 65 GMREDI_OUTPUT
          WRITE(suff,'(I10.10)') myIter
./pkg/gmredi/gmredi_output.F 67 GMREDI_OUTPUT
          CALL WRITE_FLD_XYZ_RL( 'GM_Kux.',suff,Kux,myIter,myThid)
./pkg/gmredi/gmredi_output.F 68 GMREDI_OUTPUT
          CALL WRITE_FLD_XYZ_RL( 'GM_Kvy.',suff,Kvy,myIter,myThid)
./pkg/gmredi/gmredi_output.F 72 GMREDI_OUTPUT
            CALL WRITE_FLD_XYZ_RL( 'GM_Kuz.',suff,Kuz,myIter,myThid)
./pkg/gmredi/gmredi_output.F 73 GMREDI_OUTPUT
            CALL WRITE_FLD_XYZ_RL( 'GM_Kvz.',suff,Kvz,myIter,myThid)
./pkg/kpp/kpp_output.F 146 KPP_OUTPUT
          WRITE(suff,'(I10.10)') myIter
./pkg/kpp/kpp_output.F 147 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPviscAz.',suff,KPPviscAz,
./pkg/kpp/kpp_output.F 149 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPdiffKzT.',suff,KPPdiffKzT,
./pkg/kpp/kpp_output.F 151 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPdiffKzS.',suff,KPPdiffKzS,
./pkg/kpp/kpp_output.F 153 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPghat.',suff,KPPghat,
./pkg/kpp/kpp_output.F 155 KPP_OUTPUT
          CALL WRITE_FLD_XY_RL('KPPhbl.',suff,KPPhbl,
./pkg/kpp/kpp_output.F 300 KPP_OUTPUT
          WRITE(suff,'(I10.10)') myIter
./pkg/kpp/kpp_output.F 301 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPviscAz-T.',suff,KPPviscAztave,
./pkg/kpp/kpp_output.F 303 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPdiffKzT-T.',suff,KPPdiffKzTtave,
./pkg/kpp/kpp_output.F 305 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPdiffKzS-T.',suff,KPPdiffKzStave,
./pkg/kpp/kpp_output.F 307 KPP_OUTPUT
          CALL WRITE_FLD_XYZ_RL('KPPghatKS-T.',suff,KPPghatKStave,
./pkg/kpp/kpp_output.F 309 KPP_OUTPUT
          CALL WRITE_FLD_XY_RL('KPPhbl-T.',suff,KPPhbltave,
./pkg/kpp/kpp_output.F 83 KPP_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/land/land_output.F 100 LAND_OUTPUT
     &         'land_RunOff.', suff, land_runOff, myIter, myThid )
./pkg/land/land_output.F 102 LAND_OUTPUT
     &         'land_enRnOf.', suff, land_enRnOf, myIter, myThid )
./pkg/land/land_output.F 104 LAND_OUTPUT
     &         'land_HeatFx.', suff, land_HeatFlx, myIter, myThid )
./pkg/land/land_output.F 106 LAND_OUTPUT
     &         'land_frWaFx.', suff, land_Pr_m_Ev, myIter, myThid )
./pkg/land/land_output.F 108 LAND_OUTPUT
     &         'land_EnWaFx.', suff, land_EnWFlux, myIter, myThid )
./pkg/land/land_output.F 55 LAND_OUTPUT
      CHARACTER*(10) suff
./pkg/land/land_output.F 80 LAND_OUTPUT
          WRITE(suff,'(I10.10)') myIter
./pkg/land/land_output.F 83 LAND_OUTPUT
          CALL WRITE_FLD_3D_RL( 'land_groundT.', suff, land_nLev,
./pkg/land/land_output.F 85 LAND_OUTPUT
          CALL WRITE_FLD_3D_RL( 'land_enthalp.', suff, land_nLev,
./pkg/land/land_output.F 87 LAND_OUTPUT
          CALL WRITE_FLD_3D_RL( 'land_groundW.', suff, land_nLev,
./pkg/land/land_output.F 91 LAND_OUTPUT
     &         'land_skinT.', suff, land_skinT, myIter, myThid )
./pkg/land/land_output.F 93 LAND_OUTPUT
     &         'land_hSnow.', suff, land_hSnow, myIter, myThid )
./pkg/land/land_output.F 95 LAND_OUTPUT
     &         'land_snAge.', suff, land_snowAge, myIter, myThid )
./pkg/land/land_write_pickup.F 37 LAND_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/land/land_write_pickup.F 58 LAND_WRITE_PICKUP
      lChar = ILNBLNK(suff)
./pkg/land/land_write_pickup.F 63 LAND_WRITE_PICKUP
        WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
./pkg/land/land_write_pickup.F 89 LAND_WRITE_PICKUP
          WRITE(fn,'(A,A)') 'pickup_land.',suff(1:lChar)
./pkg/land/land_write_pickup.F 9 LAND_WRITE_PICKUP
      SUBROUTINE LAND_WRITE_PICKUP( isperm, suff,
./pkg/layers/layers_output.F 153 LAYERS_OUTPUT
         WRITE(suff,'(I10.10)') myIter
./pkg/layers/layers_output.F 155 LAYERS_OUTPUT
         CALL WRITE_FLD_3D_RL( 'layers_UFlux-tave.', suff, Nlayers,
./pkg/layers/layers_output.F 158 LAYERS_OUTPUT
         CALL WRITE_FLD_3D_RL( 'layers_HU-tave.', suff, Nlayers,
./pkg/layers/layers_output.F 163 LAYERS_OUTPUT
         CALL WRITE_FLD_3D_RL( 'layers_VFlux-tave.', suff, Nlayers,
./pkg/layers/layers_output.F 166 LAYERS_OUTPUT
         CALL WRITE_FLD_3D_RL( 'layers_HV-tave.', suff, Nlayers,
./pkg/layers/layers_output.F 47 LAYERS_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/layers/layers_output.F 69 LAYERS_OUTPUT
          WRITE(suff,'(I10.10)') myIter
./pkg/layers/layers_output.F 71 LAYERS_OUTPUT
            CALL WRITE_FLD_3D_RL( 'layers_UFlux.', suff, Nlayers,
./pkg/layers/layers_output.F 74 LAYERS_OUTPUT
            CALL WRITE_FLD_3D_RL( 'layers_HU.', suff, Nlayers,
./pkg/layers/layers_output.F 79 LAYERS_OUTPUT
            CALL WRITE_FLD_3D_RL( 'layers_VFlux.', suff, Nlayers,
./pkg/layers/layers_output.F 82 LAYERS_OUTPUT
            CALL WRITE_FLD_3D_RL( 'layers_HV.', suff, Nlayers,
./pkg/matrix/matrix_write_tendency.F 101 MATRIX_WRITE_TENDENCY
          CALL WRITE_REC_XYZ_RL(suff,
./pkg/matrix/matrix_write_tendency.F 29 MATRIX_WRITE_TENDENCY
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/matrix/matrix_write_tendency.F 55 MATRIX_WRITE_TENDENCY
          WRITE(suff,'(A9,I2.2)') 'MATRIXEXP',iTracer
./pkg/matrix/matrix_write_tendency.F 58 MATRIX_WRITE_TENDENCY
          CALL WRITE_REC_XYZ_RL(suff,
./pkg/matrix/matrix_write_tendency.F 98 MATRIX_WRITE_TENDENCY
          WRITE(suff,'(A9,I2.2)') 'MATRIXIMP',iTracer
./pkg/my82/my82_output.F 179 MY82_OUTPUT
         WRITE(suff,'(I10.10)') myIter
./pkg/my82/my82_output.F 180 MY82_OUTPUT
         CALL WRITE_FLD_XYZ_RL('MYviscAr-T.', suff,
./pkg/my82/my82_output.F 182 MY82_OUTPUT
         CALL WRITE_FLD_XYZ_RL('MYdiffKr-T.', suff,
./pkg/my82/my82_output.F 184 MY82_OUTPUT
         CALL WRITE_FLD_XY_RL( 'MYhbl-T.',    suff,
./pkg/my82/my82_output.F 70 MY82_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/my82/my82_output.F 94 MY82_OUTPUT
        WRITE(suff,'(I10.10)') myIter
./pkg/my82/my82_output.F 95 MY82_OUTPUT
        CALL WRITE_FLD_XYZ_RL('MYviscAr.',suff,MYviscAr,
./pkg/my82/my82_output.F 97 MY82_OUTPUT
        CALL WRITE_FLD_XYZ_RL('MYdiffKr.',suff,MYdiffKr,
./pkg/my82/my82_output.F 99 MY82_OUTPUT
        CALL WRITE_FLD_XY_RL('MYhbl.',suff,MYhbl,
./pkg/mypackage/mypackage_write_pickup.F 11 MYPACKAGE_WRITE_PICKUP
     &                    suff, myTime, myIter, myThid )
./pkg/mypackage/mypackage_write_pickup.F 30 MYPACKAGE_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/mypackage/mypackage_write_pickup.F 64 MYPACKAGE_WRITE_PICKUP
        lChar = ILNBLNK(suff)
./pkg/mypackage/mypackage_write_pickup.F 68 MYPACKAGE_WRITE_PICKUP
          WRITE(fn,'(2A)') 'pickup_mypackage.',suff(1:lChar)
./pkg/obcs/obcs_read_pickup.F 130 OBCS_READ_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff
./pkg/obcs/obcs_read_pickup.F 166 OBCS_READ_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff
./pkg/obcs/obcs_read_pickup.F 39 OBCS_READ_PICKUP
      CHARACTER*(10) suff
./pkg/obcs/obcs_read_pickup.F 43 OBCS_READ_PICKUP
        WRITE(suff,'(I10.10)') myIter
./pkg/obcs/obcs_read_pickup.F 45 OBCS_READ_PICKUP
        suff = pickupSuff
./pkg/obcs/obcs_read_pickup.F 57 OBCS_READ_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff
./pkg/obcs/obcs_read_pickup.F 93 OBCS_READ_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff
./pkg/obcs/obcs_write_pickup.F 12 OBCS_WRITE_PICKUP
     &                          suff, myTime, myIter, myThid )
./pkg/obcs/obcs_write_pickup.F 135 OBCS_WRITE_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff(1:iL)
./pkg/obcs/obcs_write_pickup.F 171 OBCS_WRITE_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff(1:iL)
./pkg/obcs/obcs_write_pickup.F 33 OBCS_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/obcs/obcs_write_pickup.F 50 OBCS_WRITE_PICKUP
      iL = ILNBLNK(suff)
./pkg/obcs/obcs_write_pickup.F 62 OBCS_WRITE_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff(1:iL)
./pkg/obcs/obcs_write_pickup.F 98 OBCS_WRITE_PICKUP
        WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff(1:iL)
./pkg/ocn_compon_interf/cpl_write_pickup.F 10 CPL_WRITE_PICKUP
     I                             suff, myTime, myIter, myThid )
./pkg/ocn_compon_interf/cpl_write_pickup.F 41 CPL_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/ocn_compon_interf/cpl_write_pickup.F 54 CPL_WRITE_PICKUP
      WRITE(fn,'(A,A)') 'pickup_cpl.',suff
./pkg/opps/opps_output.F 136 OPPS_OUTPUT
        WRITE(suff,'(I10.10)') myIter
./pkg/opps/opps_output.F 137 OPPS_OUTPUT
        CALL WRITE_FLD_XYZ_RL('OPPSconvtave.',suff,OPPSconvCountTave,
./pkg/opps/opps_output.F 68 OPPS_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/pp81/pp81_output.F 141 PP81_OUTPUT
        WRITE(suff,'(I10.10)') myIter
./pkg/pp81/pp81_output.F 142 PP81_OUTPUT
        CALL WRITE_FLD_XYZ_RL( 'PPviscAr-T.', suff,
./pkg/pp81/pp81_output.F 144 PP81_OUTPUT
        CALL WRITE_FLD_XYZ_RL( 'PPdiffKr-T.', suff,
./pkg/pp81/pp81_output.F 67 PP81_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/pp81/pp81_output.F 84 PP81_OUTPUT
        WRITE(suff,'(I10.10)') myIter
./pkg/pp81/pp81_output.F 85 PP81_OUTPUT
        CALL WRITE_FLD_XYZ_RL('PPviscAr.',suff,PPviscAr,
./pkg/pp81/pp81_output.F 87 PP81_OUTPUT
        CALL WRITE_FLD_XYZ_RL('PPdiffKr.',suff,PPdiffKr,
./pkg/ptracers/ptracers_monitor.F 112 PTRACERS_MONITOR
         WRITE(suff,'(A7,A2)') 'ptracer',PTRACERS_ioLabel(ip)
./pkg/ptracers/ptracers_monitor.F 115 PTRACERS_MONITOR
     &            Nr, pTracer(1-OLx,1-OLy,1,1,1,ip), suff,
./pkg/ptracers/ptracers_monitor.F 50 PTRACERS_MONITOR
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/ptracers/ptracers_write_pickup.F 121 PTRACERS_WRITE_PICKUP
        lChar = ILNBLNK(suff)
./pkg/ptracers/ptracers_write_pickup.F 125 PTRACERS_WRITE_PICKUP
          WRITE(fn,'(2A)') 'pickup_ptracers.',suff(1:lChar)
./pkg/ptracers/ptracers_write_pickup.F 12 PTRACERS_WRITE_PICKUP
     &                    suff, myTime, myIter, myThid )
./pkg/ptracers/ptracers_write_pickup.F 186 PTRACERS_WRITE_PICKUP
     &                       '.',suff(1:lChar)
./pkg/ptracers/ptracers_write_pickup.F 36 PTRACERS_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/ptracers/ptracers_write_pickup.F 77 PTRACERS_WRITE_PICKUP
          lChar = ILNBLNK(suff)
./pkg/ptracers/ptracers_write_pickup.F 78 PTRACERS_WRITE_PICKUP
          WRITE(fn,'(2A)') 'pickup_ptracers.', suff(1:lChar)
./pkg/ptracers/ptracers_write_timeave.F 102 PTRACERS_WRITE_TIMEAVE
              suff(jj:jj) = ' '
./pkg/ptracers/ptracers_write_timeave.F 105 PTRACERS_WRITE_TIMEAVE
            WRITE(suff,'(A,A)') 'surf_',PTRACERS_names(iTr)(1:ilnb)
./pkg/ptracers/ptracers_write_timeave.F 106 PTRACERS_WRITE_TIMEAVE
            CALL MNC_CW_RL_W(pf,'ptr_flux_tave',0,0,suff,
./pkg/ptracers/ptracers_write_timeave.F 118 PTRACERS_WRITE_TIMEAVE
            WRITE(suff,'(A7,I2.2,A1,I10.10)') 'PtrFluxtave',
./pkg/ptracers/ptracers_write_timeave.F 120 PTRACERS_WRITE_TIMEAVE
            CALL WRITE_FLD_XY_RL ( suff, ' ',
./pkg/ptracers/ptracers_write_timeave.F 123 PTRACERS_WRITE_TIMEAVE
            WRITE(suff,'(A7,I2.2,A1,I10.10)') 'PTRtave',
./pkg/ptracers/ptracers_write_timeave.F 125 PTRACERS_WRITE_TIMEAVE
            CALL WRITE_FLD_XYZ_RL( suff, ' ',
./pkg/ptracers/ptracers_write_timeave.F 44 PTRACERS_WRITE_TIMEAVE
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/rw/read_fld_xy_rl.F 15 READ_FLD_XY_RL
      CHARACTER*(*) pref,suff
./pkg/rw/read_fld_xy_rl.F 35 READ_FLD_XY_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/read_fld_xy_rl.F 38 READ_FLD_XY_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/read_fld_xy_rl.F 39 READ_FLD_XY_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/read_fld_xy_rl.F 40 READ_FLD_XY_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/read_fld_xy_rl.F 6 READ_FLD_XY_RL
      SUBROUTINE READ_FLD_XY_RL( pref,suff,field,myIter,myThid)
./pkg/rw/read_fld_xy_rs.F 15 READ_FLD_XY_RS
      CHARACTER*(*) pref,suff
./pkg/rw/read_fld_xy_rs.F 35 READ_FLD_XY_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/read_fld_xy_rs.F 38 READ_FLD_XY_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/read_fld_xy_rs.F 39 READ_FLD_XY_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/read_fld_xy_rs.F 40 READ_FLD_XY_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/read_fld_xy_rs.F 6 READ_FLD_XY_RS
      SUBROUTINE READ_FLD_XY_RS( pref,suff,field,myIter,myThid)
./pkg/rw/read_fld_xyz_rl.F 15 READ_FLD_XYZ_RL
      CHARACTER*(*) pref,suff
./pkg/rw/read_fld_xyz_rl.F 35 READ_FLD_XYZ_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/read_fld_xyz_rl.F 38 READ_FLD_XYZ_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/read_fld_xyz_rl.F 39 READ_FLD_XYZ_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/read_fld_xyz_rl.F 40 READ_FLD_XYZ_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/read_fld_xyz_rl.F 6 READ_FLD_XYZ_RL
      SUBROUTINE READ_FLD_XYZ_RL( pref,suff,field,myIter,myThid)
./pkg/rw/read_fld_xyz_rs.F 15 READ_FLD_XYZ_RS
      CHARACTER*(*) pref,suff
./pkg/rw/read_fld_xyz_rs.F 35 READ_FLD_XYZ_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/read_fld_xyz_rs.F 38 READ_FLD_XYZ_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/read_fld_xyz_rs.F 39 READ_FLD_XYZ_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/read_fld_xyz_rs.F 40 READ_FLD_XYZ_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/read_fld_xyz_rs.F 6 READ_FLD_XYZ_RS
      SUBROUTINE READ_FLD_XYZ_RS( pref,suff,field,myIter,myThid)
./pkg/rw/read_glvec_rl.F 10 READ_GLVEC_RL
     I                          pref, suff,
./pkg/rw/read_glvec_rl.F 28 READ_GLVEC_RL
      CHARACTER*(*) pref,suff
./pkg/rw/read_glvec_rl.F 51 READ_GLVEC_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/read_glvec_rl.F 54 READ_GLVEC_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/read_glvec_rl.F 55 READ_GLVEC_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/read_glvec_rl.F 56 READ_GLVEC_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/read_glvec_rs.F 10 READ_GLVEC_RS
     I                          pref, suff,
./pkg/rw/read_glvec_rs.F 28 READ_GLVEC_RS
      CHARACTER*(*) pref,suff
./pkg/rw/read_glvec_rs.F 51 READ_GLVEC_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/read_glvec_rs.F 54 READ_GLVEC_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/read_glvec_rs.F 55 READ_GLVEC_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/read_glvec_rs.F 56 READ_GLVEC_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_3d_rl.F 16 WRITE_FLD_3D_RL
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_3d_rl.F 39 WRITE_FLD_3D_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_3d_rl.F 41 WRITE_FLD_3D_RL
      ELSEIF ( suff .EQ. 'I10' ) THEN
./pkg/rw/write_fld_3d_rl.F 44 WRITE_FLD_3D_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_3d_rl.F 45 WRITE_FLD_3D_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_3d_rl.F 46 WRITE_FLD_3D_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_3d_rl.F 7 WRITE_FLD_3D_RL
     I                 pref, suff, nNz, field, myIter, myThid )
./pkg/rw/write_fld_3d_rs.F 16 WRITE_FLD_3D_RS
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_3d_rs.F 39 WRITE_FLD_3D_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_3d_rs.F 41 WRITE_FLD_3D_RS
      ELSEIF ( suff .EQ. 'I10' ) THEN
./pkg/rw/write_fld_3d_rs.F 44 WRITE_FLD_3D_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_3d_rs.F 45 WRITE_FLD_3D_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_3d_rs.F 46 WRITE_FLD_3D_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_3d_rs.F 7 WRITE_FLD_3D_RS
     I                 pref, suff, nNz, field, myIter, myThid )
./pkg/rw/write_fld_s3d_rl.F 10 WRITE_FLD_S3D_RL
     I                 pref, suff, Ovl, nNz, field, myIter, myThid )
./pkg/rw/write_fld_s3d_rl.F 36 WRITE_FLD_S3D_RL
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_s3d_rl.F 77 WRITE_FLD_S3D_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_s3d_rl.F 79 WRITE_FLD_S3D_RL
      ELSEIF ( suff .EQ. 'I10' ) THEN
./pkg/rw/write_fld_s3d_rl.F 82 WRITE_FLD_S3D_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_s3d_rl.F 83 WRITE_FLD_S3D_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_s3d_rl.F 84 WRITE_FLD_S3D_RL
       WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_s3d_rs.F 10 WRITE_FLD_S3D_RS
     I                 pref, suff, Ovl, nNz, field, myIter, myThid )
./pkg/rw/write_fld_s3d_rs.F 36 WRITE_FLD_S3D_RS
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_s3d_rs.F 77 WRITE_FLD_S3D_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_s3d_rs.F 79 WRITE_FLD_S3D_RS
      ELSEIF ( suff .EQ. 'I10' ) THEN
./pkg/rw/write_fld_s3d_rs.F 82 WRITE_FLD_S3D_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_s3d_rs.F 83 WRITE_FLD_S3D_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_s3d_rs.F 84 WRITE_FLD_S3D_RS
       WRITE( fName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_xy_rl.F 15 WRITE_FLD_XY_RL
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_xy_rl.F 38 WRITE_FLD_XY_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_xy_rl.F 41 WRITE_FLD_XY_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_xy_rl.F 42 WRITE_FLD_XY_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_xy_rl.F 43 WRITE_FLD_XY_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_xy_rl.F 6 WRITE_FLD_XY_RL
      SUBROUTINE WRITE_FLD_XY_RL( pref,suff,field,myIter,myThid )
./pkg/rw/write_fld_xy_rs.F 15 WRITE_FLD_XY_RS
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_xy_rs.F 38 WRITE_FLD_XY_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_xy_rs.F 41 WRITE_FLD_XY_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_xy_rs.F 42 WRITE_FLD_XY_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_xy_rs.F 43 WRITE_FLD_XY_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_xy_rs.F 6 WRITE_FLD_XY_RS
      SUBROUTINE WRITE_FLD_XY_RS( pref,suff,field,myIter,myThid )
./pkg/rw/write_fld_xyz_rl.F 15 WRITE_FLD_XYZ_RL
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_xyz_rl.F 38 WRITE_FLD_XYZ_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_xyz_rl.F 41 WRITE_FLD_XYZ_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_xyz_rl.F 42 WRITE_FLD_XYZ_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_xyz_rl.F 43 WRITE_FLD_XYZ_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_xyz_rl.F 6 WRITE_FLD_XYZ_RL
      SUBROUTINE WRITE_FLD_XYZ_RL( pref,suff,field,myIter,myThid )
./pkg/rw/write_fld_xyz_rs.F 15 WRITE_FLD_XYZ_RS
      CHARACTER*(*) pref,suff
./pkg/rw/write_fld_xyz_rs.F 38 WRITE_FLD_XYZ_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_fld_xyz_rs.F 41 WRITE_FLD_XYZ_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_fld_xyz_rs.F 42 WRITE_FLD_XYZ_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_fld_xyz_rs.F 43 WRITE_FLD_XYZ_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_fld_xyz_rs.F 6 WRITE_FLD_XYZ_RS
      SUBROUTINE WRITE_FLD_XYZ_RS( pref,suff,field,myIter,myThid )
./pkg/rw/write_glvec_rl.F 10 WRITE_GLVEC_RL
     I           pref, suff, array, sizArr, myIter, myThid )
./pkg/rw/write_glvec_rl.F 26 WRITE_GLVEC_RL
      CHARACTER*(*) pref,suff
./pkg/rw/write_glvec_rl.F 49 WRITE_GLVEC_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_glvec_rl.F 52 WRITE_GLVEC_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_glvec_rl.F 53 WRITE_GLVEC_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_glvec_rl.F 54 WRITE_GLVEC_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_glvec_rs.F 10 WRITE_GLVEC_RS
     I           pref, suff, array, sizArr, myIter, myThid )
./pkg/rw/write_glvec_rs.F 26 WRITE_GLVEC_RS
      CHARACTER*(*) pref,suff
./pkg/rw/write_glvec_rs.F 49 WRITE_GLVEC_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_glvec_rs.F 52 WRITE_GLVEC_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_glvec_rs.F 53 WRITE_GLVEC_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_glvec_rs.F 54 WRITE_GLVEC_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_local_rl.F 10 WRITE_LOCAL_RL
     I                 pref, suff, nNr, field,
./pkg/rw/write_local_rl.F 34 WRITE_LOCAL_RL
      CHARACTER*(*) pref,suff
./pkg/rw/write_local_rl.F 63 WRITE_LOCAL_RL
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_local_rl.F 65 WRITE_LOCAL_RL
      ELSEIF ( suff .EQ. 'I10' ) THEN
./pkg/rw/write_local_rl.F 68 WRITE_LOCAL_RL
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_local_rl.F 69 WRITE_LOCAL_RL
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_local_rl.F 70 WRITE_LOCAL_RL
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/rw/write_local_rs.F 10 WRITE_LOCAL_RS
     I                 pref, suff, nNr, field,
./pkg/rw/write_local_rs.F 34 WRITE_LOCAL_RS
      CHARACTER*(*) pref,suff
./pkg/rw/write_local_rs.F 63 WRITE_LOCAL_RS
      IF ( suff .EQ. ' ' ) THEN
./pkg/rw/write_local_rs.F 65 WRITE_LOCAL_RS
      ELSEIF ( suff .EQ. 'I10' ) THEN
./pkg/rw/write_local_rs.F 68 WRITE_LOCAL_RS
       s2Lo = IFNBLNK(suff)
./pkg/rw/write_local_rs.F 69 WRITE_LOCAL_RS
       s2Hi = ILNBLNK(suff)
./pkg/rw/write_local_rs.F 70 WRITE_LOCAL_RS
       WRITE( fullName, '(A,A)' ) pref(s1Lo:s1Hi),suff(s2Lo:s2Hi)
./pkg/sbo/sbo_output.F 140 SBO_OUTPUT
         WRITE(suff,'(I10.10)') myIter
./pkg/sbo/sbo_output.F 141 SBO_OUTPUT
         CALL WRITE_FLD_XY_RL( 'OBPtave.', suff,
./pkg/sbo/sbo_output.F 48 SBO_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/seaice/seaice_ad_dump.F 102 SEAICE_AD_DUMP
     &       'ADJvice.'//suff, writeBinaryPrec,
./pkg/seaice/seaice_ad_dump.F 66 SEAICE_AD_DUMP
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/seaice/seaice_ad_dump.F 81 SEAICE_AD_DUMP
        WRITE(suff,'(I10.10)') myIter
./pkg/seaice/seaice_ad_dump.F 88 SEAICE_AD_DUMP
     &       'ADJarea.'//suff, writeBinaryPrec,
./pkg/seaice/seaice_ad_dump.F 91 SEAICE_AD_DUMP
     &       'ADJheff.'//suff, writeBinaryPrec,
./pkg/seaice/seaice_ad_dump.F 94 SEAICE_AD_DUMP
     &       'ADJhsnow.'//suff, writeBinaryPrec,
./pkg/seaice/seaice_ad_dump.F 99 SEAICE_AD_DUMP
     &       'ADJuice.'//suff, writeBinaryPrec,
./pkg/seaice/seaice_output.F 108 SEAICE_OUTPUT
            WRITE(suff,'(I10.10)') myIter
./pkg/seaice/seaice_output.F 110 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RL('UWIND.',suff,uwind,myIter,myThid)
./pkg/seaice/seaice_output.F 111 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RL('VWIND.',suff,vwind,myIter,myThid)
./pkg/seaice/seaice_output.F 112 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RS('FU.',suff,fu,myIter,myThid)
./pkg/seaice/seaice_output.F 113 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RS('FV.',suff,fv,myIter,myThid)
./pkg/seaice/seaice_output.F 114 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RS('EmPmR.',suff,EmPmR,myIter,myThid)
./pkg/seaice/seaice_output.F 115 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RS('Qnet.',suff,Qnet,myIter,myThid)
./pkg/seaice/seaice_output.F 116 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RS('Qsw.',suff,Qsw,myIter,myThid)
./pkg/seaice/seaice_output.F 118 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'UICE.',suff,uIce,myIter,myThid)
./pkg/seaice/seaice_output.F 119 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'VICE.',suff,vIce,myIter,myThid)
./pkg/seaice/seaice_output.F 120 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'HEFF.',suff,hEff,myIter,myThid)
./pkg/seaice/seaice_output.F 121 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'AREA.',suff,area,myIter,myThid)
./pkg/seaice/seaice_output.F 122 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'HSNOW.',suff,HSNOW,myIter,myThid)
./pkg/seaice/seaice_output.F 124 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid)
./pkg/seaice/seaice_output.F 127 SEAICE_OUTPUT
            CALL WRITE_FLD_XY_RL( 'ICEAGE.',suff,ICEAGE,myIter,myThid)
./pkg/seaice/seaice_output.F 131 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RL('SIGMA1.',suff,seaice_sigma1,
./pkg/seaice/seaice_output.F 133 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RL('SIGMA2.',suff,seaice_sigma2,
./pkg/seaice/seaice_output.F 135 SEAICE_OUTPUT
             CALL WRITE_FLD_XY_RL('SIGMA12.',suff,seaice_sigma12,
./pkg/seaice/seaice_output.F 256 SEAICE_OUTPUT
         WRITE(suff,'(I10.10)') myIter
./pkg/seaice/seaice_output.F 257 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('FUtave.'   ,suff,FUtave   ,myIter,myThid)
./pkg/seaice/seaice_output.F 258 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('FVtave.'   ,suff,FVtave   ,myIter,myThid)
./pkg/seaice/seaice_output.F 259 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('EmPmRtave.',suff,EmPmRtave,myIter,myThid)
./pkg/seaice/seaice_output.F 260 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('QNETtave.' ,suff,QNETtave ,myIter,myThid)
./pkg/seaice/seaice_output.F 261 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('QSWtave.'  ,suff,QSWtave  ,myIter,myThid)
./pkg/seaice/seaice_output.F 262 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('UICEtave.' ,suff,UICEtave ,myIter,myThid)
./pkg/seaice/seaice_output.F 263 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('VICEtave.' ,suff,VICEtave ,myIter,myThid)
./pkg/seaice/seaice_output.F 264 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('HEFFtave.' ,suff,HEFFtave ,myIter,myThid)
./pkg/seaice/seaice_output.F 265 SEAICE_OUTPUT
         CALL WRITE_FLD_XY_RL('AREAtave.' ,suff,AREAtave ,myIter,myThid)
./pkg/seaice/seaice_output.F 51 SEAICE_OUTPUT
      CHARACTER*(10) suff
./pkg/seaice/seaice_write_pickup.F 37 SEAICE_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/seaice/seaice_write_pickup.F 64 SEAICE_WRITE_PICKUP
      WRITE(fn,'(A,A)') 'pickup_seaice.',suff
./pkg/seaice/seaice_write_pickup.F 9 SEAICE_WRITE_PICKUP
      SUBROUTINE SEAICE_WRITE_PICKUP ( permPickup, suff,
./pkg/shap_filt/shap_filt_apply_ts.F 114 SHAP_FILT_APPLY_TS
           WRITE(suff,'(I10.10)') myIter
./pkg/shap_filt/shap_filt_apply_ts.F 115 SHAP_FILT_APPLY_TS
           CALL WRITE_FLD_XYZ_RL( 'shap_dT.', suff, Shap_tmpFld1,
./pkg/shap_filt/shap_filt_apply_ts.F 159 SHAP_FILT_APPLY_TS
           WRITE(suff,'(I10.10)') myIter
./pkg/shap_filt/shap_filt_apply_ts.F 160 SHAP_FILT_APPLY_TS
           CALL WRITE_FLD_XYZ_RL( 'shap_dS.', suff, Shap_tmpFld1,
./pkg/shap_filt/shap_filt_apply_ts.F 53 SHAP_FILT_APPLY_TS
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/shap_filt/shap_filt_apply_uv.F 116 SHAP_FILT_APPLY_UV
           WRITE(suff,'(I10.10)') myIter
./pkg/shap_filt/shap_filt_apply_uv.F 117 SHAP_FILT_APPLY_UV
           CALL WRITE_FLD_XYZ_RL( 'shap_dU.', suff, Shap_tmpFld1,
./pkg/shap_filt/shap_filt_apply_uv.F 119 SHAP_FILT_APPLY_UV
           CALL WRITE_FLD_XYZ_RL( 'shap_dV.', suff, Shap_tmpFld2,
./pkg/shap_filt/shap_filt_apply_uv.F 56 SHAP_FILT_APPLY_UV
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/shelfice/shelfice_output.F 174 SHELFICE_OUTPUT
         WRITE(suff,'(I10.10)') myIter
./pkg/shelfice/shelfice_output.F 175 SHELFICE_OUTPUT
         CALL WRITE_FLD_XY_RL( 'SHICE_fwFluxtave.', suff,
./pkg/shelfice/shelfice_output.F 177 SHELFICE_OUTPUT
         CALL WRITE_FLD_XY_RL( 'SHICE_heatFluxtave.', suff,
./pkg/shelfice/shelfice_output.F 44 SHELFICE_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/shelfice/shelfice_output.F 81 SHELFICE_OUTPUT
         WRITE(suff,'(I10.10)') myIter
./pkg/shelfice/shelfice_output.F 82 SHELFICE_OUTPUT
         CALL WRITE_FLD_XY_RS( 'SHICE_fwFlux.',suff,
./pkg/shelfice/shelfice_output.F 84 SHELFICE_OUTPUT
         CALL WRITE_FLD_XY_RS( 'SHICE_heatFlux.',suff,
./pkg/thsice/thsice_output.F 305 THSICE_OUTPUT
          WRITE(suff,'(I10.10)') myIter
./pkg/thsice/thsice_output.F 307 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_fract.',  suff,iceMask,
./pkg/thsice/thsice_output.F 309 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_iceH.',   suff,iceHeight,
./pkg/thsice/thsice_output.F 311 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_snowH.',  suff,snowHeight,
./pkg/thsice/thsice_output.F 313 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_Tsrf.',   suff,Tsrf,
./pkg/thsice/thsice_output.F 315 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_Tice1.',  suff,Tice1,
./pkg/thsice/thsice_output.F 317 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_Tice2.',  suff,Tice2,
./pkg/thsice/thsice_output.F 319 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_Qice1.',  suff,Qice1,
./pkg/thsice/thsice_output.F 321 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_Qice2.',  suff,Qice2,
./pkg/thsice/thsice_output.F 323 THSICE_OUTPUT
          CALL WRITE_FLD_XY_RL('ice_snowAge.',suff,snowAge,
./pkg/thsice/thsice_output.F 326 THSICE_OUTPUT
            CALL WRITE_FLD_XY_RL('ice_snowPrc.',suff,snowPrc,
./pkg/thsice/thsice_output.F 328 THSICE_OUTPUT
            CALL WRITE_FLD_XY_RL('ice_flxAtm.',suff,icFlxAtm,
./pkg/thsice/thsice_output.F 330 THSICE_OUTPUT
            CALL WRITE_FLD_XY_RL('ice_frwAtm.',suff,icFrwAtm,
./pkg/thsice/thsice_output.F 334 THSICE_OUTPUT
            CALL WRITE_FLD_XY_RL('ice_tOceMxL.', suff, tOceMxL,
./pkg/thsice/thsice_output.F 336 THSICE_OUTPUT
            CALL WRITE_FLD_XY_RL('ice_sOceMxL.', suff, sOceMxL,
./pkg/thsice/thsice_output.F 49 THSICE_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/thsice/thsice_write_pickup.F 36 THSICE_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/thsice/thsice_write_pickup.F 50 THSICE_WRITE_PICKUP
        WRITE(fn,'(A,A)') 'pickup_ic.',suff
./pkg/thsice/thsice_write_pickup.F 73 THSICE_WRITE_PICKUP
          WRITE(fn,'(A,A)') 'pickup_ic.',suff
./pkg/thsice/thsice_write_pickup.F 8 THSICE_WRITE_PICKUP
      SUBROUTINE THSICE_WRITE_PICKUP( permPickup, suff,
./pkg/timeave/timeave_statv_write.F 135 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XY_RL('ETAtave.' ,suff,etatave  ,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 136 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('Ttave.',suff,thetatave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 137 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('Stave.',suff,salttave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 138 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('uVeltave.',suff,uVeltave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 139 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('vVeltave.',suff,vVeltave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 140 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('wVeltave.',suff,wVeltave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 141 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XY_RL('Eta2tave.',suff,Eta2tave ,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 142 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('UTtave.',suff,UTtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 143 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('VTtave.',suff,VTtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 144 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('WTtave.',suff,WTtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 145 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('UStave.',suff,UStave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 146 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('VStave.',suff,VStave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 147 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('WStave.',suff,WStave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 148 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('TTtave.',suff,TTtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 149 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('UUtave.',suff,UUtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 150 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('VVtave.',suff,VVtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 151 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('UVtave.',suff,UVtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 155 TIMEAVE_STATV_WRITE
     &         CALL WRITE_FLD_XYZ_RL('Tdiftave.',suff,TdiffRtave,
./pkg/timeave/timeave_statv_write.F 159 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XYZ_RL('uZtave.',suff,uZetatave,
./pkg/timeave/timeave_statv_write.F 161 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XYZ_RL('vZtave.',suff,vZetatave,
./pkg/timeave/timeave_statv_write.F 165 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('PhHytave.',suff,phiHydtave,
./pkg/timeave/timeave_statv_write.F 168 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XY_RL('PHLtave.',suff,phiHydLowtave,
./pkg/timeave/timeave_statv_write.F 170 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XY_RL('uFluxtave.',suff,uFluxtave,
./pkg/timeave/timeave_statv_write.F 172 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XY_RL('vFluxtave.',suff,vFluxtave,
./pkg/timeave/timeave_statv_write.F 174 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XY_RL('tFluxtave.',suff,tFluxtave,
./pkg/timeave/timeave_statv_write.F 176 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XY_RL('sFluxtave.',suff,sFluxtave,
./pkg/timeave/timeave_statv_write.F 178 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XY_RL('PHL2tave.',suff,phiHydLow2tave,
./pkg/timeave/timeave_statv_write.F 180 TIMEAVE_STATV_WRITE
            CALL WRITE_FLD_XYZ_RL('Convtave.',suff,ConvectCountTave,
./pkg/timeave/timeave_statv_write.F 185 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('hUtave.',suff,hUtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 186 TIMEAVE_STATV_WRITE
          CALL WRITE_FLD_XYZ_RL('hVtave.',suff,hVtave,myIter,myThid)
./pkg/timeave/timeave_statv_write.F 49 TIMEAVE_STATV_WRITE
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/timeave/timeave_statv_write.F 74 TIMEAVE_STATV_WRITE
        WRITE(suff,'(I10.10)') myIter
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 100 OPENAD_DUMPADJOINT
         call WRITE_FLD_XYZ_RL('adjwvel.',suff,foo5,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 102 OPENAD_DUMPADJOINT
         call WRITE_FLD_XY_RL('adjetan.',suff,foo4,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 105 OPENAD_DUMPADJOINT
         call WRITE_FLD_XY_RL('adjdiffkr.',suff,foo5,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 109 OPENAD_DUMPADJOINT
         call WRITE_FLD_XY_RL('adjqnet.',suff,foo4,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 113 OPENAD_DUMPADJOINT
         call WRITE_FLD_XY_RL('adjempmr.',suff,foo4,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 117 OPENAD_DUMPADJOINT
         call WRITE_FLD_XY_RL('adjfu.',suff,foo4,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 121 OPENAD_DUMPADJOINT
         call WRITE_FLD_XY_RL('adjfv.',suff,foo4,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 87 OPENAD_DUMPADJOINT
      CHARACTER*(10) suff
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 90 OPENAD_DUMPADJOINT
         WRITE(suff,'(I10.10)') myIter
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 92 OPENAD_DUMPADJOINT
         call WRITE_FLD_XYZ_RL('adjtheta.',suff,foo5,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 94 OPENAD_DUMPADJOINT
         call WRITE_FLD_XYZ_RL('adjsalt.',suff,foo5,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 96 OPENAD_DUMPADJOINT
         call WRITE_FLD_XYZ_RL('adjuvel.',suff,foo5,myiter,1)
./verification/OpenAD/code_oad_all/openad_dumpAdjoint.F 98 OPENAD_DUMPADJOINT
         call WRITE_FLD_XYZ_RL('adjvvel.',suff,foo5,myiter,1)
./verification/OpenAD/code_oad_all/the_model_main.F 500 THE_MODEL_MAIN
      CHARACTER*(10) suff
./verification/OpenAD/code_oad_all/the_model_main.F 652 THE_MODEL_MAIN
      WRITE(suff,'(I10.10)') 0
./verification/OpenAD/code_oad_all/the_model_main.F 654 THE_MODEL_MAIN
      call WRITE_FLD_XYZ_RL('adxx_theta.',suff,foo,myiter,1)
./verification/OpenAD/code_oad_all/the_model_main.F 656 THE_MODEL_MAIN
      call WRITE_FLD_XYZ_RL('adxx_salt.',suff,foo,myiter,1)
./verification/OpenAD/code_oad_all/the_model_main.F 658 THE_MODEL_MAIN
      call WRITE_FLD_XY_RL('adxx_etan.',suff,fooEtan,myiter,1)
./verification/OpenAD/code_oad_all/write_state.F 126 WRITE_STATE
          WRITE(suff,'(I10.10)') myIter
./verification/OpenAD/code_oad_all/write_state.F 127 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVelv,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 128 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVelv,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 129 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'T.',suff,thetav,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 130 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'S.',suff,saltv,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 131 WRITE_STATE
          CALL WRITE_FLD_XY_RL('Eta.',suff,etaNv,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 132 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVelv,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 134 WRITE_STATE
            CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHydv,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 137 WRITE_STATE
            CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 141 WRITE_STATE
            CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid)
./verification/OpenAD/code_oad_all/write_state.F 75 WRITE_STATE
      CHARACTER*(MAX_LEN_MBUF) suff
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 334 AIM_SURF_BC
         WRITE(suff,'(I10.10)') myIter
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 335 AIM_SURF_BC
         CALL AIM_WRITE_PHYS( 'aim_SST.', suff, 1,sst1,
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 99 AIM_SURF_BC
      CHARACTER*(MAX_LEN_MBUF) suff
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 102 ADDUMMY_IN_STEPPING
     &       'ADJtheta.',suff, adtheta, myIter, myThid)
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 104 ADDUMMY_IN_STEPPING
     &       'ADJsalt.',suff, adsalt, myIter, myThid)
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 106 ADDUMMY_IN_STEPPING
     &       'ADJuvel.',suff, aduvel, myIter, myThid)
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 108 ADDUMMY_IN_STEPPING
     &       'ADJvvel.',suff, advvel, myIter, myThid)
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 110 ADDUMMY_IN_STEPPING
     &       'ADJwvel.',suff, adwvel, myIter, myThid)
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 129 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.',suff,
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 131 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.',suff,
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 133 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.',suff,
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 135 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacC.',suff,
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 137 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacS.',suff,
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 139 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJrhFacW.',suff,
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 54 ADDUMMY_IN_STEPPING
      CHARACTER*(MAX_LEN_FNAM) suff
./verification/bottom_ctrl_5x5/code_ad/addummy_in_stepping.F 77 ADDUMMY_IN_STEPPING
        WRITE(suff,'(I10.10)') myIter
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F 103 ADDUMMY_IN_HFAC
        WRITE(suff,'(I10.10)') myIter
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F 111 ADDUMMY_IN_HFAC
           CALL WRITE_FLD_XYZ_RL ( 'ADJhFacC.', suff, adhfacc,
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F 115 ADDUMMY_IN_HFAC
           CALL WRITE_FLD_XYZ_RL ( 'ADJhFacW.', suff, adhfacw,
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F 119 ADDUMMY_IN_HFAC
           CALL WRITE_FLD_XYZ_RL ( 'ADJhFacS.', suff, adhfacs,
./verification/bottom_ctrl_5x5/code_ad/dummy_in_hfac.F 78 ADDUMMY_IN_HFAC
      CHARACTER*(MAX_LEN_FNAM) suff
./model/src/read_pickup.F 236 READ_PICKUP
          WRITE(fn,'(A,A10)') 'pickup_ph.',suff
./model/src/read_pickup.F 241 READ_PICKUP
          WRITE(fn,'(A,A10)') 'pickup_nh.',suff
./model/src/read_pickup.F 61 READ_PICKUP
      CHARACTER*(10) suff
./model/src/read_pickup.F 87 READ_PICKUP
        WRITE(suff,'(I10.10)') myIter
./model/src/read_pickup.F 89 READ_PICKUP
        WRITE(suff,'(A10)') pickupSuff
./model/src/read_pickup.F 91 READ_PICKUP
      WRITE(fn,'(A,A10)') 'pickup.',suff
./model/src/update_masks_etc.F 267 UPDATE_MASKS_ETC
      WRITE(suff,'(I10.10)') optimcycle
./model/src/update_masks_etc.F 268 UPDATE_MASKS_ETC
      CALL WRITE_FLD_XY_RS( 'Depth.',suff,tmpfld,optimcycle,myThid)
./model/src/update_masks_etc.F 269 UPDATE_MASKS_ETC
      CALL WRITE_FLD_XYZ_RS( 'hFacC.',suff,hFacC,optimcycle,myThid)
./model/src/update_masks_etc.F 270 UPDATE_MASKS_ETC
      CALL WRITE_FLD_XYZ_RS( 'hFacW.',suff,hFacW,optimcycle,myThid)
./model/src/update_masks_etc.F 271 UPDATE_MASKS_ETC
      CALL WRITE_FLD_XYZ_RS( 'hFacS.',suff,hFacS,optimcycle,myThid)
./model/src/update_masks_etc.F 53 UPDATE_MASKS_ETC
      CHARACTER*(MAX_LEN_MBUF) suff
./model/src/write_state.F 126 WRITE_STATE
          WRITE(suff,'(I10.10)') myIter
./model/src/write_state.F 127 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'U.',suff,uVel,myIter,myThid)
./model/src/write_state.F 128 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'V.',suff,vVel,myIter,myThid)
./model/src/write_state.F 129 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'T.',suff,theta,myIter,myThid)
./model/src/write_state.F 130 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)
./model/src/write_state.F 131 WRITE_STATE
          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)
./model/src/write_state.F 132 WRITE_STATE
          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
./model/src/write_state.F 134 WRITE_STATE
            CALL WRITE_FLD_XYZ_RL('PH.',suff,totPhiHyd,myIter,myThid)
./model/src/write_state.F 137 WRITE_STATE
            CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
./model/src/write_state.F 141 WRITE_STATE
            CALL WRITE_FLD_XYZ_RL( 'PNH.',suff,phi_nh,myIter,myThid )
./model/src/write_state.F 144 WRITE_STATE
            CALL WRITE_FLD_XY_RL( 'dPnh.',suff,dPhiNH,myIter,myThid )
./model/src/write_state.F 75 WRITE_STATE
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/aim_compon_interf/cpl_write_pickup.F 10 CPL_WRITE_PICKUP
     I                             suff, myTime, myIter, myThid )
./pkg/aim_compon_interf/cpl_write_pickup.F 36 CPL_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/aim_compon_interf/cpl_write_pickup.F 49 CPL_WRITE_PICKUP
      WRITE(fn,'(A,A)') 'pickup_cpl.',suff
./pkg/aim_v23/aim_diagnostics.F 100 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dQ_LSC', suff, Nr, QT_LSC,
./pkg/aim_v23/aim_diagnostics.F 105 AIM_DIAGNOSTICS
          CALL AIM_WRITE_PHYS( 'aim_dT_clskySW', suff, Nr, TT_SWclr,
./pkg/aim_v23/aim_diagnostics.F 107 AIM_DIAGNOSTICS
          CALL AIM_WRITE_PHYS( 'aim_dT_clskyLW', suff, Nr, TT_LWclr,
./pkg/aim_v23/aim_diagnostics.F 129 AIM_DIAGNOSTICS
          WRITE(suff,'(a)') 'aim_tend'
./pkg/aim_v23/aim_diagnostics.F 130 AIM_DIAGNOSTICS
          CALL MNC_CW_SET_UDIM(suff, -1, myThid)
./pkg/aim_v23/aim_diagnostics.F 131 AIM_DIAGNOSTICS
          CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime,myThid)
./pkg/aim_v23/aim_diagnostics.F 132 AIM_DIAGNOSTICS
          CALL MNC_CW_SET_UDIM(suff, 0, myThid)
./pkg/aim_v23/aim_diagnostics.F 133 AIM_DIAGNOSTICS
          CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter,myThid)
./pkg/aim_v23/aim_diagnostics.F 136 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RSW',TT_RSW,myThid)
./pkg/aim_v23/aim_diagnostics.F 137 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RLW',TT_RLW,myThid)
./pkg/aim_v23/aim_diagnostics.F 138 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_CNV',TT_CNV,myThid)
./pkg/aim_v23/aim_diagnostics.F 139 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_PBL',TT_PBL,myThid)
./pkg/aim_v23/aim_diagnostics.F 140 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_LSC',TT_LSC,myThid)
./pkg/aim_v23/aim_diagnostics.F 141 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_CNV',QT_CNV,myThid)
./pkg/aim_v23/aim_diagnostics.F 142 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_PBL',QT_PBL,myThid)
./pkg/aim_v23/aim_diagnostics.F 143 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_LSC',QT_LSC,myThid)
./pkg/aim_v23/aim_diagnostics.F 160 AIM_DIAGNOSTICS
         WRITE(suff,'(A1,I10.10)') '.', myIter+1
./pkg/aim_v23/aim_diagnostics.F 163 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_RelHum', suff, Nr, RH,
./pkg/aim_v23/aim_diagnostics.F 167 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 4, DRAG,
./pkg/aim_v23/aim_diagnostics.F 169 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, SPEED0,
./pkg/aim_v23/aim_diagnostics.F 171 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, TSR,
./pkg/aim_v23/aim_diagnostics.F 173 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, OLR,
./pkg/aim_v23/aim_diagnostics.F 175 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 4, SSR,
./pkg/aim_v23/aim_diagnostics.F 177 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 4, SLR,
./pkg/aim_v23/aim_diagnostics.F 179 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 4, SHF,
./pkg/aim_v23/aim_diagnostics.F 181 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 4, EVAP,
./pkg/aim_v23/aim_diagnostics.F 183 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, PRECNV,
./pkg/aim_v23/aim_diagnostics.F 185 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, PRECLS,
./pkg/aim_v23/aim_diagnostics.F 187 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, CLOUDC,
./pkg/aim_v23/aim_diagnostics.F 189 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, CLTOP,
./pkg/aim_v23/aim_diagnostics.F 191 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, CBMF,
./pkg/aim_v23/aim_diagnostics.F 193 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, T0,
./pkg/aim_v23/aim_diagnostics.F 195 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, Q0,
./pkg/aim_v23/aim_diagnostics.F 197 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 1, EnPrec,
./pkg/aim_v23/aim_diagnostics.F 199 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 4, alb1,
./pkg/aim_v23/aim_diagnostics.F 201 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aimPhyDiag', suff, 3, dTsurf,
./pkg/aim_v23/aim_diagnostics.F 206 AIM_DIAGNOSTICS
          CALL AIM_WRITE_PHYS('aimPhyDiag', suff, 1, TSWclr,
./pkg/aim_v23/aim_diagnostics.F 208 AIM_DIAGNOSTICS
          CALL AIM_WRITE_PHYS('aimPhyDiag', suff, 1, OLWclr,
./pkg/aim_v23/aim_diagnostics.F 210 AIM_DIAGNOSTICS
          CALL AIM_WRITE_PHYS('aimPhyDiag', suff, 1, SSWclr,
./pkg/aim_v23/aim_diagnostics.F 212 AIM_DIAGNOSTICS
          CALL AIM_WRITE_PHYS('aimPhyDiag', suff, 1, SLWclr,
./pkg/aim_v23/aim_diagnostics.F 231 AIM_DIAGNOSTICS
          WRITE(suff,'(a)') 'aim_phys'
./pkg/aim_v23/aim_diagnostics.F 232 AIM_DIAGNOSTICS
          CALL MNC_CW_SET_UDIM(suff, -1, myThid)
./pkg/aim_v23/aim_diagnostics.F 233 AIM_DIAGNOSTICS
          CALL MNC_CW_RL_W_S('D',suff,0,0,'T',myTime+deltaTClock,myThid)
./pkg/aim_v23/aim_diagnostics.F 234 AIM_DIAGNOSTICS
          CALL MNC_CW_SET_UDIM(suff, 0, myThid)
./pkg/aim_v23/aim_diagnostics.F 235 AIM_DIAGNOSTICS
          CALL MNC_CW_I_W_S('I',suff,0,0,'iter',myIter+1,myThid)
./pkg/aim_v23/aim_diagnostics.F 238 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 240 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 242 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 244 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 246 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 248 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 250 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 252 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 254 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 256 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 258 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 260 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 262 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 264 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 266 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 268 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 270 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 272 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 277 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 279 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 281 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 283 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 59 AIM_DIAGNOSTICS
      CHARACTER*(80) suff
./pkg/aim_v23/aim_diagnostics.F 84 AIM_DIAGNOSTICS
         WRITE(suff,'(A1,I10.10)') '.', myIter+1
./pkg/aim_v23/aim_diagnostics.F 86 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dT_RSW', suff, Nr, TT_RSW,
./pkg/aim_v23/aim_diagnostics.F 88 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dT_RLW', suff, Nr, TT_RLW,
./pkg/aim_v23/aim_diagnostics.F 90 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dT_CNV', suff, Nr, TT_CNV,
./pkg/aim_v23/aim_diagnostics.F 92 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dT_PBL', suff, Nr, TT_PBL,
./pkg/aim_v23/aim_diagnostics.F 94 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dT_LSC', suff, Nr, TT_LSC,
./pkg/aim_v23/aim_diagnostics.F 96 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dQ_CNV', suff, Nr, QT_CNV,
./pkg/aim_v23/aim_diagnostics.F 98 AIM_DIAGNOSTICS
         CALL AIM_WRITE_PHYS( 'aim_dQ_PBL', suff, Nr, QT_PBL,
./pkg/aim_v23/aim_write_local.F 10 AIM_WRITE_LOCAL
     I               pref, suff, nNr, field,
./pkg/aim_v23/aim_write_local.F 37 AIM_WRITE_LOCAL
      CHARACTER*(*) pref,suff
./pkg/aim_v23/aim_write_local.F 93 AIM_WRITE_LOCAL
      CALL WRITE_LOCAL_RL( pref, suff, nNr, tmpFld,
./pkg/aim_v23/aim_write_phys.F 10 AIM_WRITE_PHYS
     I               pref, suff, nNr, field,
./pkg/aim_v23/aim_write_phys.F 132 AIM_WRITE_PHYS
        CALL WRITE_LOCAL_RL( pref, suff, nLoc, tmpFld,
./pkg/aim_v23/aim_write_phys.F 40 AIM_WRITE_PHYS
      CHARACTER*(*) pref, suff
./pkg/aim_v23/aim_write_tave.F 186 AIM_WRITE_TAVE
         WRITE(suff,'(I10.10)') myIter
./pkg/aim_v23/aim_write_tave.F 187 AIM_WRITE_TAVE
         CALL WRITE_FLD_XYZ_RL('aim_RHtave.',suff,aimRHtave,
./pkg/aim_v23/aim_write_tave.F 45 AIM_WRITE_TAVE
      CHARACTER*(10) suff
./pkg/atm2d/month_end_diags.F 101 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mOceMxLTtave.', suff, sum_oceMxLT,
./pkg/atm2d/month_end_diags.F 103 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mOceMxLStave.', suff, sum_oceMxLS,
./pkg/atm2d/month_end_diags.F 33 MONTH_END_DIAGS
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/atm2d/month_end_diags.F 82 MONTH_END_DIAGS
      WRITE(suff,'(I2.2)') monid
./pkg/atm2d/month_end_diags.F 83 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mQnetAtmtave.', suff, qnet_atm,
./pkg/atm2d/month_end_diags.F 85 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mEvapAtmtave.', suff, evap_atm,
./pkg/atm2d/month_end_diags.F 87 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mPrecipAtmtave.', suff, precip_atm,
./pkg/atm2d/month_end_diags.F 89 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mRunoffAtmtave.', suff, runoff_atm,
./pkg/atm2d/month_end_diags.F 91 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mQrelfluxtave.', suff, sum_qrel,
./pkg/atm2d/month_end_diags.F 93 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mFrelfluxtave.', suff, sum_frel,
./pkg/atm2d/month_end_diags.F 95 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mIceMasktave.', suff, sum_iceMask,
./pkg/atm2d/month_end_diags.F 97 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mIceHeighttave.', suff, sum_iceHeight,
./pkg/atm2d/month_end_diags.F 99 MONTH_END_DIAGS
      CALL WRITE_FLD_XY_RL('mIceTimetave.', suff, sum_iceTime,
./pkg/atm2d/tave_end_diags.F 130 TAVE_END_DIAGS
        WRITE(suff,'(I2.2)') mn
./pkg/atm2d/tave_end_diags.F 131 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amQnetAtmtave.', suff,
./pkg/atm2d/tave_end_diags.F 133 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amEvapAtmtave.', suff,
./pkg/atm2d/tave_end_diags.F 135 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amPrecipAtmtave.', suff,
./pkg/atm2d/tave_end_diags.F 137 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amRunoffAtmtave.', suff,
./pkg/atm2d/tave_end_diags.F 139 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amQrelfluxtave.', suff,
./pkg/atm2d/tave_end_diags.F 141 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amFrelfluxtave.', suff,
./pkg/atm2d/tave_end_diags.F 143 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amIceMasktave.', suff,
./pkg/atm2d/tave_end_diags.F 145 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amIceHeighttave.', suff,
./pkg/atm2d/tave_end_diags.F 147 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amIceTimetave.', suff,
./pkg/atm2d/tave_end_diags.F 149 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amOceMxLTtave.', suff,
./pkg/atm2d/tave_end_diags.F 151 TAVE_END_DIAGS
        CALL WRITE_FLD_XY_RL('amOceMxLStave.', suff,
./pkg/atm2d/tave_end_diags.F 156 TAVE_END_DIAGS
      WRITE(suff,'(I10.10)') myIter
./pkg/atm2d/tave_end_diags.F 157 TAVE_END_DIAGS
      CALL WRITE_FLD_XY_RL('QnetAtmtave.',  suff,
./pkg/atm2d/tave_end_diags.F 159 TAVE_END_DIAGS
      CALL WRITE_FLD_XY_RL('EvapAtmtave.',  suff,
./pkg/atm2d/tave_end_diags.F 161 TAVE_END_DIAGS
      CALL WRITE_FLD_XY_RL('PrecipAtmtave.',  suff,
./pkg/atm2d/tave_end_diags.F 163 TAVE_END_DIAGS
      CALL WRITE_FLD_XY_RL('RunoffAtmtave.',  suff,
./pkg/atm2d/tave_end_diags.F 165 TAVE_END_DIAGS
      CALL WRITE_FLD_XY_RL('Qrelfluxtave.',  suff,
./pkg/atm2d/tave_end_diags.F 167 TAVE_END_DIAGS
      CALL WRITE_FLD_XY_RL('Frelfluxtave.',  suff,
./pkg/atm2d/tave_end_diags.F 34 TAVE_END_DIAGS
      CHARACTER*(MAX_LEN_MBUF) suff, fn
./pkg/autodiff/addummy_in_stepping.F 149 ADDUMMY_IN_STEPPING
        WRITE(suff,'(I10.10)') myIter
./pkg/autodiff/addummy_in_stepping.F 156 ADDUMMY_IN_STEPPING
     &       'ADJtheta.',suff, adtheta, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 158 ADDUMMY_IN_STEPPING
     &       'ADJsalt.',suff, adsalt, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 160 ADDUMMY_IN_STEPPING
     &       'ADJuvel.',suff, aduvel, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 162 ADDUMMY_IN_STEPPING
     &       'ADJvvel.',suff, advvel, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 164 ADDUMMY_IN_STEPPING
     &       'ADJwvel.',suff, adwvel, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 166 ADDUMMY_IN_STEPPING
     &       'ADJetan.',suff, adetan, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 169 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 170 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 171 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 172 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 174 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'ADJqsw.',suff, adqsw, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 181 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJggl90tke.',suff, adggl90tke,
./pkg/autodiff/addummy_in_stepping.F 185 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJdiffkr.',suff, addiffkr,
./pkg/autodiff/addummy_in_stepping.F 189 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJkapgm.',suff, adkapgm,
./pkg/autodiff/addummy_in_stepping.F 193 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'ADJkapredi.',suff, adkapredi,
./pkg/autodiff/addummy_in_stepping.F 198 ADDUMMY_IN_STEPPING
     &       'ADJeddypsix. ',suff, adeddypsix, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 200 ADDUMMY_IN_STEPPING
     &       'ADJeddypsiy. ',suff, adeddypsiy, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 203 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL( 'ADJsst.',suff, adsst, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 206 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL( 'ADJsss.',suff, adsss, myIter, myThid)
./pkg/autodiff/addummy_in_stepping.F 209 ADDUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'ADJbottomdrag.',suff,
./pkg/autodiff/addummy_in_stepping.F 64 ADDUMMY_IN_STEPPING
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/autodiff/g_dummy_in_stepping.F 101 G_DUMMY_IN_STEPPING
     &       'G_Jetan.',suff, g_etan, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 104 G_DUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'G_Jdiffkr.',suff, g_diffkr,
./pkg/autodiff/g_dummy_in_stepping.F 108 G_DUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'G_Jkapgm.',suff, g_kapgm,
./pkg/autodiff/g_dummy_in_stepping.F 112 G_DUMMY_IN_STEPPING
        CALL WRITE_FLD_XYZ_RL ( 'G_Jkapredi.',suff, g_kapredi,
./pkg/autodiff/g_dummy_in_stepping.F 121 G_DUMMY_IN_STEPPING
     &       'G_Jphihyd.',suff, g_totphihyd, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 59 G_DUMMY_IN_STEPPING
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/autodiff/g_dummy_in_stepping.F 79 G_DUMMY_IN_STEPPING
        WRITE(suff,'(I10.10)') myIter
./pkg/autodiff/g_dummy_in_stepping.F 85 G_DUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'G_Jtaux.',suff, g_fu, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 86 G_DUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'G_Jtauy.',suff, g_fv, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 87 G_DUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'G_Jqnet.',suff, g_qnet, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 88 G_DUMMY_IN_STEPPING
        CALL WRITE_FLD_XY_RL ( 'G_Jempr.',suff, g_empmr, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 91 G_DUMMY_IN_STEPPING
     &       'G_Jtheta.',suff, g_theta, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 93 G_DUMMY_IN_STEPPING
     &       'G_Jsalt.',suff, g_salt, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 95 G_DUMMY_IN_STEPPING
     &       'G_Juvel.',suff, g_uvel, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 97 G_DUMMY_IN_STEPPING
     &       'G_Jvvel.',suff, g_vvel, myIter, myThid)
./pkg/autodiff/g_dummy_in_stepping.F 99 G_DUMMY_IN_STEPPING
     &       'G_Jwvel.',suff, g_wvel, myIter, myThid)
./pkg/bulk_force/bulkf_output.F 100 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_flwupnet.', suff,
./pkg/bulk_force/bulkf_output.F 102 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_solar.', suff,
./pkg/bulk_force/bulkf_output.F 104 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_ssq.', suff,
./pkg/bulk_force/bulkf_output.F 48 BULKF_OUTPUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/bulk_force/bulkf_output.F 83 BULKF_OUTPUT
       WRITE(suff,'(I10.10)') myIter
./pkg/bulk_force/bulkf_output.F 84 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_Qnet.', suff,
./pkg/bulk_force/bulkf_output.F 86 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_EmPmR.', suff,
./pkg/bulk_force/bulkf_output.F 88 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_fu.', suff,
./pkg/bulk_force/bulkf_output.F 90 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_fv.', suff,
./pkg/bulk_force/bulkf_output.F 92 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_latent.', suff,
./pkg/bulk_force/bulkf_output.F 94 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_sensible.', suff,
./pkg/bulk_force/bulkf_output.F 96 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_evap.', suff,
./pkg/bulk_force/bulkf_output.F 98 BULKF_OUTPUT
       CALL WRITE_FLD_XY_RL( 'BULK_flwup.', suff,
./pkg/cd_code/cd_code_read_pickup.F 35 CD_CODE_READ_PICKUP
      CHARACTER*(10) suff
./pkg/cd_code/cd_code_read_pickup.F 40 CD_CODE_READ_PICKUP
         WRITE(suff,'(I10.10)') myIter
./pkg/cd_code/cd_code_read_pickup.F 42 CD_CODE_READ_PICKUP
         WRITE(suff,'(A10)') pickupSuff
./pkg/cd_code/cd_code_read_pickup.F 64 CD_CODE_READ_PICKUP
      WRITE(fn,'(A,A10)') 'pickup_cd.',suff
./pkg/cd_code/cd_code_write_pickup.F 12 CD_CODE_WRITE_PICKUP
     I                         permPickup, suff,
./pkg/cd_code/cd_code_write_pickup.F 35 CD_CODE_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/cd_code/cd_code_write_pickup.F 53 CD_CODE_WRITE_PICKUP
          WRITE(fn,'(A,A)') 'pickup_cd.',suff
./pkg/cd_code/cd_code_write_pickup.F 76 CD_CODE_WRITE_PICKUP
        WRITE(fn,'(A,A)') 'pickup_cd.',suff
./pkg/cheapaml/cheapaml_write_pickup.F 11 CHEAPAML_WRITE_PICKUP
     &                    suff, myTime, myIter, myThid )
./pkg/cheapaml/cheapaml_write_pickup.F 30 CHEAPAML_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/cheapaml/cheapaml_write_pickup.F 63 CHEAPAML_WRITE_PICKUP
        lChar = ILNBLNK(suff)
./pkg/cheapaml/cheapaml_write_pickup.F 67 CHEAPAML_WRITE_PICKUP
          WRITE(fn,'(2A)') 'pickup_cheapaml.',suff(1:lChar)
./pkg/ctrl/ctrl_map_ini_ecco.F 80 CTRL_MAP_INI_ECCO
      character*(MAX_LEN_FNAM) suff
./pkg/diagnostics/diagnostics_out.F 117 DIAGNOSTICS_OUT
      WRITE(suff,'(I10.10)') myIter
./pkg/diagnostics/diagnostics_out.F 119 DIAGNOSTICS_OUT
      WRITE( fn, '(A,A,A)' ) fnames(listId)(1:ilen),'.',suff(1:10)
./pkg/diagnostics/diagnostics_out.F 79 DIAGNOSTICS_OUT
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/diagnostics/diagnostics_write_pickup.F 12 DIAGNOSTICS_WRITE_PICKUP
     I     suff,
./pkg/diagnostics/diagnostics_write_pickup.F 174 DIAGNOSTICS_WRITE_PICKUP
          sn = ILNBLNK(suff)
./pkg/diagnostics/diagnostics_write_pickup.F 177 DIAGNOSTICS_WRITE_PICKUP
          WRITE(fn,'(a,a)') 'pickup_qdiag.', suff(1:sn)
./pkg/diagnostics/diagnostics_write_pickup.F 185 DIAGNOSTICS_WRITE_PICKUP
          WRITE(fn,'(a,a)') 'pickup_ndiag.', suff(1:sn)
./pkg/diagnostics/diagnostics_write_pickup.F 37 DIAGNOSTICS_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/diagnostics/diagnostics_write_pickup.F 86 DIAGNOSTICS_WRITE_PICKUP
            ii = ILNBLNK(suff)
./pkg/diagnostics/diagnostics_write_pickup.F 88 DIAGNOSTICS_WRITE_PICKUP
     &           'pickup_diagnostics.',suff(1:ii)
./pkg/dic/dic_biotic_diags.F 40 DIC_BIOTIC_DIAGS
      CHARACTER*(MAX_LEN_MBUF) suff
./pkg/dic/dic_biotic_diags.F 77 DIC_BIOTIC_DIAGS
         WRITE(suff,'(I10.10)') myIter
./pkg/dic/dic_biotic_diags.F 78 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XYZ_RL('DIC_Biotave.',suff,BIOave,
./pkg/dic/dic_biotic_diags.F 80 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XYZ_RL('DIC_Cartave.',suff,CARave,
./pkg/dic/dic_biotic_diags.F 82 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XY_RL('DIC_Surtave.',suff,SURave,
./pkg/dic/dic_biotic_diags.F 84 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XY_RL('DIC_SurOtave.',suff,SUROave,
./pkg/dic/dic_biotic_diags.F 86 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XY_RL('DIC_pHtave.',suff,pHave,
./pkg/dic/dic_biotic_diags.F 88 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XY_RL('DIC_pCO2tave.',suff,pCO2ave,
./pkg/dic/dic_biotic_diags.F 90 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XY_RL('DIC_fluxCO2ave.',suff,fluxCO2ave,
./pkg/dic/dic_biotic_diags.F 92 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XYZ_RL('DIC_OmegaCtave.',suff,OmegaCave,
./pkg/dic/dic_biotic_diags.F 94 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XYZ_RL('DIC_pfluxtave.',suff,pfluxave,
./pkg/dic/dic_biotic_diags.F 96 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XYZ_RL('DIC_epfluxtave.',suff,epfluxave,
./pkg/dic/dic_biotic_diags.F 98 DIC_BIOTIC_DIAGS
         CALL WRITE_FLD_XYZ_RL('DIC_cfluxtave.',suff,cfluxave,
./pkg/dic/dic_write_pickup.F 11 DIC_WRITE_PICKUP
     I                             suff, myTime, myIter, myThid )
./pkg/dic/dic_write_pickup.F 32 DIC_WRITE_PICKUP
      CHARACTER*(*) suff
./pkg/dic/dic_write_pickup.F 64 DIC_WRITE_PICKUP
          WRITE(fn,'(A,A)') 'pickup_dic_co2atm.',suff
./pkg/dic/dic_write_pickup.F 78 DIC_WRITE_PICKUP
        WRITE(fn,'(A,A)') 'pickup_dic.',suff
./pkg/exf/exf_ad_dump.F 101 EXF_AD_DUMP
     &       'ADJlwflux.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 104 EXF_AD_DUMP
     &       'ADJprecip.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 109 EXF_AD_DUMP
     &       'ADJuwind.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 112 EXF_AD_DUMP
     &       'ADJvwind.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 117 EXF_AD_DUMP
     &       'ADJswdown.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 120 EXF_AD_DUMP
     &       'ADJlwdown.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 64 EXF_AD_DUMP
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/exf/exf_ad_dump.F 77 EXF_AD_DUMP
        WRITE(suff,'(I10.10)') myIter
./pkg/exf/exf_ad_dump.F 81 EXF_AD_DUMP
     &       'ADJhflux.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 84 EXF_AD_DUMP
     &       'ADJsflux.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 87 EXF_AD_DUMP
     &       'ADJustress.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 90 EXF_AD_DUMP
     &       'ADJvstress.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 95 EXF_AD_DUMP
     &       'ADJatemp.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_ad_dump.F 98 EXF_AD_DUMP
     &       'ADJaqh.'//suff, writeBinaryPrec, 1,
./pkg/exf/exf_adjoint_snapshots__g.F 101 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_atemp, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 103 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_aqh, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 105 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_precip, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 109 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_uwind, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 111 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_vwind, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 115 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_swdown, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 119 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_climsst, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 123 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_climsss, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 61 G_EXF_ADJOINT_SNAPSHOTS
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/exf/exf_adjoint_snapshots__g.F 80 G_EXF_ADJOINT_SNAPSHOTS
        WRITE(suff,'(I10.10)') myIter
./pkg/exf/exf_adjoint_snapshots__g.F 89 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_ustress, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 91 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_vstress, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 93 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_hflux, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots__g.F 95 G_EXF_ADJOINT_SNAPSHOTS
     &       suff, g_sflux, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 105 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adatemp, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 107 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adaqh, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 109 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adprecip, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 113 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, aduwind, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 115 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, advwind, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 119 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adswdown, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 123 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adclimsst, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 127 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adclimsss, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 132 ADEXF_ADJOINT_SNAPSHOTS
        CALL WRITE_FLD_XY_RL ( 'ADJtaux.',suff, adfu, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 133 ADEXF_ADJOINT_SNAPSHOTS
        CALL WRITE_FLD_XY_RL ( 'ADJtauy.',suff, adfv, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 134 ADEXF_ADJOINT_SNAPSHOTS
        CALL WRITE_FLD_XY_RL ( 'ADJqnet.',suff, adqnet, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 135 ADEXF_ADJOINT_SNAPSHOTS
        CALL WRITE_FLD_XY_RL ( 'ADJempr.',suff, adempmr, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 137 ADEXF_ADJOINT_SNAPSHOTS
        CALL WRITE_FLD_XY_RL ( 'ADJqsw.',suff, adqsw, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 65 ADEXF_ADJOINT_SNAPSHOTS
      CHARACTER*(MAX_LEN_FNAM) suff
./pkg/exf/exf_adjoint_snapshots_ad.F 84 ADEXF_ADJOINT_SNAPSHOTS
        WRITE(suff,'(I10.10)') myIter
./pkg/exf/exf_adjoint_snapshots_ad.F 93 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adustress, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 95 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, advstress, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 97 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adhflux, myIter, myThid)
./pkg/exf/exf_adjoint_snapshots_ad.F 99 ADEXF_ADJOINT_SNAPSHOTS
     &       suff, adsflux, myIter, myThid)