Symbol Description Uses
pf Intermediate array for building RHS source term. 315



File Line number Procedure Code
./pkg/gmredi/gmredi_output.F 100 GMREDI_OUTPUT
            CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kvz',Kvz,myThid)
./pkg/gmredi/gmredi_output.F 167 GMREDI_OUTPUT
           pf(1:1) = 'D'
./pkg/gmredi/gmredi_output.F 169 GMREDI_OUTPUT
           pf(1:1) = 'R'
./pkg/gmredi/gmredi_output.F 175 GMREDI_OUTPUT
         CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwx',GM_Kwx_T,myThid)
./pkg/gmredi/gmredi_output.F 176 GMREDI_OUTPUT
         CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwy',GM_Kwy_T,myThid)
./pkg/gmredi/gmredi_output.F 177 GMREDI_OUTPUT
         CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'Kwz',GM_Kwz_T,myThid)
./pkg/gmredi/gmredi_output.F 180 GMREDI_OUTPUT
           CALL MNC_CW_RL_W(pf,'gm_tave',0,0,'VisbK',
./pkg/gmredi/gmredi_output.F 187 GMREDI_OUTPUT
     &          pf,'gm_tave',0,0,'PsiX', GM_PsiXtave, myThid)
./pkg/gmredi/gmredi_output.F 189 GMREDI_OUTPUT
     &          pf,'gm_tave',0,0,'PsiY', GM_PsiYtave, myThid)
./pkg/gmredi/gmredi_output.F 56 GMREDI_OUTPUT
      CHARACTER*(1) pf
./pkg/gmredi/gmredi_output.F 85 GMREDI_OUTPUT
           pf(1:1) = 'D'
./pkg/gmredi/gmredi_output.F 87 GMREDI_OUTPUT
           pf(1:1) = 'R'
./pkg/gmredi/gmredi_output.F 94 GMREDI_OUTPUT
          CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kux',Kux,myThid)
./pkg/gmredi/gmredi_output.F 95 GMREDI_OUTPUT
          CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kvy',Kvy,myThid)
./pkg/gmredi/gmredi_output.F 99 GMREDI_OUTPUT
            CALL MNC_CW_RL_W(pf,'gm_inst',0,0,'Kuz',Kuz,myThid)
./pkg/kpp/kpp_output.F 100 KPP_OUTPUT
      CHARACTER*(1) pf
./pkg/kpp/kpp_output.F 176 KPP_OUTPUT
            pf(1:1) = 'D'
./pkg/kpp/kpp_output.F 178 KPP_OUTPUT
            pf(1:1) = 'R'
./pkg/kpp/kpp_output.F 184 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_state',0,0,
./pkg/kpp/kpp_output.F 186 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_state',0,0,
./pkg/kpp/kpp_output.F 188 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_state',0,0,
./pkg/kpp/kpp_output.F 190 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_state',0,0,
./pkg/kpp/kpp_output.F 192 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_state',0,0,
./pkg/kpp/kpp_output.F 334 KPP_OUTPUT
            pf(1:1) = 'D'
./pkg/kpp/kpp_output.F 336 KPP_OUTPUT
            pf(1:1) = 'R'
./pkg/kpp/kpp_output.F 342 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_timeave',0,0,
./pkg/kpp/kpp_output.F 344 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_timeave',0,0,
./pkg/kpp/kpp_output.F 346 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_timeave',0,0,
./pkg/kpp/kpp_output.F 348 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_timeave',0,0,
./pkg/kpp/kpp_output.F 350 KPP_OUTPUT
          CALL MNC_CW_RL_W(pf,'kpp_timeave',0,0,
./model/src/calc_div_ghat.F 115 CALC_DIV_GHAT
          pf(i,j) = ( implicDiv2Dflow * gU(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 124 CALC_DIV_GHAT
     &   pf(i+1,j)-pf(i,j)
./model/src/calc_div_ghat.F 132 CALC_DIV_GHAT
         cg3d_b(i,j,k,bi,bj) = ( pf(i+1,j)-pf(i,j) )
./model/src/calc_div_ghat.F 142 CALC_DIV_GHAT
          pf(i,j) = yA(i,j)*gV(i,j,k,bi,bj) / deltatmom
./model/src/calc_div_ghat.F 150 CALC_DIV_GHAT
          pf(i,j) = implicDiv2Dflow
./model/src/calc_div_ghat.F 158 CALC_DIV_GHAT
          pf(i,j) = ( implicDiv2Dflow * gV(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 167 CALC_DIV_GHAT
     &   pf(i,j+1)-pf(i,j)
./model/src/calc_div_ghat.F 176 CALC_DIV_GHAT
     &                       + ( pf(i,j+1)-pf(i,j) )
./model/src/calc_div_ghat.F 61 CALC_DIV_GHAT
      _RL pf (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
./model/src/calc_div_ghat.F 83 CALC_DIV_GHAT
          pf(i,j) = xA(i,j)*gU(i,j,k,bi,bj) / deltaTMom
./model/src/calc_div_ghat.F 91 CALC_DIV_GHAT
          pf(i,j) = implicDiv2Dflow
./pkg/land/land_output.F 121 LAND_OUTPUT
            pf(1:1) = 'D'
./pkg/land/land_output.F 123 LAND_OUTPUT
            pf(1:1) = 'R'
./pkg/land/land_output.F 131 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 133 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 135 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 138 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 140 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 142 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 144 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 146 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 149 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 151 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 153 LAND_OUTPUT
          CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 239 LAND_OUTPUT
           pf(1:1) = 'D'
./pkg/land/land_output.F 241 LAND_OUTPUT
           pf(1:1) = 'R'
./pkg/land/land_output.F 248 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 250 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 252 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 255 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 257 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 259 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 261 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 263 LAND_OUTPUT
         CALL MNC_CW_RL_W(pf,fn,0,0,
./pkg/land/land_output.F 57 LAND_OUTPUT
      CHARACTER*(1) pf
./pkg/mom_vecinv/mom_vecinv.F 135 MOM_VECINV
      CHARACTER*(1) pf
./pkg/mom_vecinv/mom_vecinv.F 169 MOM_VECINV
          pf(1:1) = 'D'
./pkg/mom_vecinv/mom_vecinv.F 171 MOM_VECINV
          pf(1:1) = 'R'
./pkg/mom_vecinv/mom_vecinv.F 636 MOM_VECINV
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fV', uCf,
./pkg/mom_vecinv/mom_vecinv.F 638 MOM_VECINV
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'fU', vCf,
./pkg/mom_vecinv/mom_vecinv.F 732 MOM_VECINV
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zV', uCf,
./pkg/mom_vecinv/mom_vecinv.F 734 MOM_VECINV
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'zU', vCf,
./pkg/mom_vecinv/mom_vecinv.F 797 MOM_VECINV
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEx', uCf,
./pkg/mom_vecinv/mom_vecinv.F 799 MOM_VECINV
           CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj, 'KEy', vCf,
./pkg/mom_vecinv/mom_vecinv.F 885 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'W3',omega3,
./pkg/mom_vecinv/mom_vecinv.F 887 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Z3',vort3BC,
./pkg/mom_vecinv/mom_vecinv.F 889 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'KE',KE,
./pkg/mom_vecinv/mom_vecinv.F 891 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'D', hDiv,
./pkg/mom_vecinv/mom_vecinv.F 893 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dt',tension,
./pkg/mom_vecinv/mom_vecinv.F 895 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Ds',strainBC,
./pkg/mom_vecinv/mom_vecinv.F 897 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Du',guDiss,
./pkg/mom_vecinv/mom_vecinv.F 899 MOM_VECINV
          CALL MNC_CW_RL_W_OFFSET(pf,'mom_vi',bi,bj,'Dv',gvDiss,
./pkg/my82/my82_output.F 110 MY82_OUTPUT
         pf(1:1) = 'D'
./pkg/my82/my82_output.F 112 MY82_OUTPUT
         pf(1:1) = 'R'
./pkg/my82/my82_output.F 118 MY82_OUTPUT
        CALL MNC_CW_RL_W(pf,'my_state',0,0,
./pkg/my82/my82_output.F 120 MY82_OUTPUT
        CALL MNC_CW_RL_W(pf,'my_state',0,0,
./pkg/my82/my82_output.F 122 MY82_OUTPUT
        CALL MNC_CW_RL_W(pf,'my_state',0,0,
./pkg/my82/my82_output.F 199 MY82_OUTPUT
          pf(1:1) = 'D'
./pkg/my82/my82_output.F 201 MY82_OUTPUT
          pf(1:1) = 'R'
./pkg/my82/my82_output.F 207 MY82_OUTPUT
         CALL MNC_CW_RL_W(pf,'my_timeave',0,0,
./pkg/my82/my82_output.F 209 MY82_OUTPUT
         CALL MNC_CW_RL_W(pf,'my_timeave',0,0,
./pkg/my82/my82_output.F 211 MY82_OUTPUT
         CALL MNC_CW_RL_W(pf,'my_timeave',0,0,
./pkg/my82/my82_output.F 76 MY82_OUTPUT
      CHARACTER*(1) pf
./pkg/ocn_compon_interf/cpl_output.F 121 CPL_OUTPUT
            pf(1:1) = 'D'
./pkg/ocn_compon_interf/cpl_output.F 123 CPL_OUTPUT
            pf(1:1) = 'R'
./pkg/ocn_compon_interf/cpl_output.F 129 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 131 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 133 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 135 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 137 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 139 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 141 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 143 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 145 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 147 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 149 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 151 CPL_OUTPUT
          CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 155 CPL_OUTPUT
            CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 157 CPL_OUTPUT
            CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 159 CPL_OUTPUT
            CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 161 CPL_OUTPUT
            CALL MNC_CW_RL_W(pf,'cpl_tave',0,0,
./pkg/ocn_compon_interf/cpl_output.F 55 CPL_OUTPUT
      CHARACTER*(1) pf
./pkg/ptracers/ptracers_write_state.F 51 PTRACERS_WRITE_STATE
      CHARACTER*(1) pf
./pkg/ptracers/ptracers_write_state.F 64 PTRACERS_WRITE_STATE
          pf(1:1) = 'D'
./pkg/ptracers/ptracers_write_state.F 66 PTRACERS_WRITE_STATE
          pf(1:1) = 'R'
./pkg/ptracers/ptracers_write_state.F 75 PTRACERS_WRITE_STATE
         CALL MNC_CW_RL_W(pf,'ptracers',0,0,PTRACERS_names(iTracer),
./pkg/ptracers/ptracers_write_timeave.F 100 PTRACERS_WRITE_TIMEAVE
            CALL MNC_CW_RL_W(pf,'ptr_tave',0,0,PTRACERS_names(iTr),
./pkg/ptracers/ptracers_write_timeave.F 107 PTRACERS_WRITE_TIMEAVE
            CALL MNC_CW_RL_W(pf,'ptr_flux_tave',0,0, prefix,
./pkg/ptracers/ptracers_write_timeave.F 55 PTRACERS_WRITE_TIMEAVE
      CHARACTER*(1) pf
./pkg/ptracers/ptracers_write_timeave.F 83 PTRACERS_WRITE_TIMEAVE
            pf(1:1) = 'D'
./pkg/ptracers/ptracers_write_timeave.F 85 PTRACERS_WRITE_TIMEAVE
            pf(1:1) = 'R'
./pkg/seaice/seaice_output.F 102 SEAICE_OUTPUT
            CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UICE',uIce,myThid)
./pkg/seaice/seaice_output.F 103 SEAICE_OUTPUT
            CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VICE',vIce,myThid)
./pkg/seaice/seaice_output.F 105 SEAICE_OUTPUT
             CALL MNC_CW_RL_W(pf,'sice',0,0,'si_HEFF',hEff,myThid)
./pkg/seaice/seaice_output.F 106 SEAICE_OUTPUT
             CALL MNC_CW_RL_W(pf,'sice',0,0,'si_AREA',area,myThid)
./pkg/seaice/seaice_output.F 113 SEAICE_OUTPUT
            CALL MNC_CW_RL_W(pf,'sice',0,0,'si_UWIND',uwind,myThid)
./pkg/seaice/seaice_output.F 114 SEAICE_OUTPUT
            CALL MNC_CW_RL_W(pf,'sice',0,0,'si_VWIND',vwind,myThid)
./pkg/seaice/seaice_output.F 116 SEAICE_OUTPUT
            CALL MNC_CW_RS_W(pf,'sice',0,0,'fu',fu,myThid)
./pkg/seaice/seaice_output.F 117 SEAICE_OUTPUT
            CALL MNC_CW_RS_W(pf,'sice',0,0,'fv',fv,myThid)
./pkg/seaice/seaice_output.F 118 SEAICE_OUTPUT
            CALL MNC_CW_RS_W(pf,'sice',0,0,'EmPmR',EmPmR,myThid)
./pkg/seaice/seaice_output.F 119 SEAICE_OUTPUT
            CALL MNC_CW_RS_W(pf,'sice',0,0,'Qnet',Qnet,myThid)
./pkg/seaice/seaice_output.F 120 SEAICE_OUTPUT
            CALL MNC_CW_RS_W(pf,'sice',0,0,'Qsw',Qsw,myThid)
./pkg/seaice/seaice_output.F 281 SEAICE_OUTPUT
           pf(1:1) = 'D'
./pkg/seaice/seaice_output.F 283 SEAICE_OUTPUT
           pf(1:1) = 'R'
./pkg/seaice/seaice_output.F 291 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 293 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 295 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 297 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 299 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 301 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 303 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 305 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 307 SEAICE_OUTPUT
         CALL MNC_CW_RL_W(pf,'sice_tave',0,0,
./pkg/seaice/seaice_output.F 68 SEAICE_OUTPUT
      CHARACTER*(1) pf
./pkg/seaice/seaice_output.F 82 SEAICE_OUTPUT
              pf(1:1) = 'D'
./pkg/seaice/seaice_output.F 84 SEAICE_OUTPUT
              pf(1:1) = 'R'
./pkg/seaice/seaice_output.F 94 SEAICE_OUTPUT
             CALL MNC_CW_RL_W(pf,'sice',0,0,'si_sigma1',
./pkg/seaice/seaice_output.F 96 SEAICE_OUTPUT
             CALL MNC_CW_RL_W(pf,'sice',0,0,'si_sigma2',
./pkg/seaice/seaice_output.F 98 SEAICE_OUTPUT
             CALL MNC_CW_RL_W(pf,'sice',0,0,'si_sigma12',
./pkg/shelfice/shelfice_output.F 159 SHELFICE_OUTPUT
           pf(1:1) = 'D'
./pkg/shelfice/shelfice_output.F 161 SHELFICE_OUTPUT
           pf(1:1) = 'R'
./pkg/shelfice/shelfice_output.F 171 SHELFICE_OUTPUT
         CALL MNC_CW_RL_W( pf, 'shelfice_tave', 0, 0,
./pkg/shelfice/shelfice_output.F 173 SHELFICE_OUTPUT
         CALL MNC_CW_RL_W( pf, 'shelfice_tave', 0, 0,
./pkg/shelfice/shelfice_output.F 50 SHELFICE_OUTPUT
      CHARACTER*(1) pf
./pkg/shelfice/shelfice_output.F 64 SHELFICE_OUTPUT
           pf(1:1) = 'D'
./pkg/shelfice/shelfice_output.F 66 SHELFICE_OUTPUT
           pf(1:1) = 'R'
./pkg/shelfice/shelfice_output.F 74 SHELFICE_OUTPUT
         CALL MNC_CW_RS_W(pf,'shelfice',0,0,'fwFlux',
./pkg/shelfice/shelfice_output.F 76 SHELFICE_OUTPUT
         CALL MNC_CW_RS_W(pf,'shelfice',0,0,'heatFlux',
./pkg/thsice/thsice_output.F 189 THSICE_OUTPUT
           pf(1:1) = 'D'
./pkg/thsice/thsice_output.F 191 THSICE_OUTPUT
           pf(1:1) = 'R'
./pkg/thsice/thsice_output.F 202 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 204 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 206 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 208 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 210 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 212 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 216 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 218 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 220 THSICE_OUTPUT
         CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 223 THSICE_OUTPUT
           CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 225 THSICE_OUTPUT
           CALL MNC_CW_RL_W(pf,mncf,0,0,
./pkg/thsice/thsice_output.F 229 THSICE_OUTPUT
           CALL MNC_CW_RL_W(pf,mncf,0,0,'tMxL_ave',ice_tMxL_Ave,myThid)
./pkg/thsice/thsice_output.F 230 THSICE_OUTPUT
           CALL MNC_CW_RL_W(pf,mncf,0,0,'sMxL_ave',ice_sMxL_Ave,myThid)
./pkg/thsice/thsice_output.F 317 THSICE_OUTPUT
            pf(1:1) = 'D'
./pkg/thsice/thsice_output.F 319 THSICE_OUTPUT
            pf(1:1) = 'R'
./pkg/thsice/thsice_output.F 330 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'iceMask',   iceMask,   myThid)
./pkg/thsice/thsice_output.F 331 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'iceHeight', iceHeight, myThid)
./pkg/thsice/thsice_output.F 332 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'snowHeight',snowHeight,myThid)
./pkg/thsice/thsice_output.F 333 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'Tsrf',      Tsrf,      myThid)
./pkg/thsice/thsice_output.F 334 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice1',     Tice1,     myThid)
./pkg/thsice/thsice_output.F 335 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'Tice2',     Tice1,     myThid)
./pkg/thsice/thsice_output.F 336 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'Qice1',     Qice1,     myThid)
./pkg/thsice/thsice_output.F 337 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'Qice2',     Qice2,     myThid)
./pkg/thsice/thsice_output.F 338 THSICE_OUTPUT
          CALL MNC_CW_RL_W(pf,mncf,0,0,'snowAge',   snowAge,   myThid)
./pkg/thsice/thsice_output.F 340 THSICE_OUTPUT
            CALL MNC_CW_RL_W(pf,mncf,0,0,'tOceMxL',tOceMxL,myThid)
./pkg/thsice/thsice_output.F 341 THSICE_OUTPUT
            CALL MNC_CW_RL_W(pf,mncf,0,0,'sOceMxL',sOceMxL,myThid)
./pkg/thsice/thsice_output.F 57 THSICE_OUTPUT
      CHARACTER*(1) pf
./pkg/timeave/timeave_statv_write.F 227 TIMEAVE_STATV_WRITE
            pf(1:1) = 'D'
./pkg/timeave/timeave_statv_write.F 229 TIMEAVE_STATV_WRITE
            pf(1:1) = 'R'
./pkg/timeave/timeave_statv_write.F 237 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'ETAtave',etatave,myThid)
./pkg/timeave/timeave_statv_write.F 238 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'Eta2tave',Eta2tave,myThid)
./pkg/timeave/timeave_statv_write.F 239 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'Ttave',thetatave,myThid)
./pkg/timeave/timeave_statv_write.F 240 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'Stave',salttave,myThid)
./pkg/timeave/timeave_statv_write.F 241 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'uVeltave',uVeltave,myThid)
./pkg/timeave/timeave_statv_write.F 242 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'vVeltave',vVeltave,myThid)
./pkg/timeave/timeave_statv_write.F 243 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'wVeltave',wVeltave,myThid)
./pkg/timeave/timeave_statv_write.F 244 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'UTtave',UTtave,myThid)
./pkg/timeave/timeave_statv_write.F 245 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'VTtave',VTtave,myThid)
./pkg/timeave/timeave_statv_write.F 246 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'WTtave',WTtave,myThid)
./pkg/timeave/timeave_statv_write.F 247 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'UStave',UStave,myThid)
./pkg/timeave/timeave_statv_write.F 248 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'VStave',VStave,myThid)
./pkg/timeave/timeave_statv_write.F 249 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'WStave',WStave,myThid)
./pkg/timeave/timeave_statv_write.F 250 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'TTtave',TTtave,myThid)
./pkg/timeave/timeave_statv_write.F 251 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'UUtave',UUtave,myThid)
./pkg/timeave/timeave_statv_write.F 252 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'VVtave',VVtave,myThid)
./pkg/timeave/timeave_statv_write.F 253 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'UVtave',UVtave,myThid)
./pkg/timeave/timeave_statv_write.F 256 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'Tdiftave',
./pkg/timeave/timeave_statv_write.F 261 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'uZtave',uZetatave,myThid)
./pkg/timeave/timeave_statv_write.F 262 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'vZtave',vZetatave,myThid)
./pkg/timeave/timeave_statv_write.F 265 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'PhHytave',
./pkg/timeave/timeave_statv_write.F 268 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'PHLtave',
./pkg/timeave/timeave_statv_write.F 270 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'PHL2tave',
./pkg/timeave/timeave_statv_write.F 272 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'Convtave',
./pkg/timeave/timeave_statv_write.F 274 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'uFluxtave',
./pkg/timeave/timeave_statv_write.F 276 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'vFluxtave',
./pkg/timeave/timeave_statv_write.F 278 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'tFluxtave',
./pkg/timeave/timeave_statv_write.F 280 TIMEAVE_STATV_WRITE
            CALL MNC_CW_RL_W(pf,'tave',0,0,'sFluxtave',
./pkg/timeave/timeave_statv_write.F 285 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'hUtave',hUtave,myThid)
./pkg/timeave/timeave_statv_write.F 286 TIMEAVE_STATV_WRITE
          CALL MNC_CW_RL_W(pf,'tave',0,0,'hVtave',hVtave,myThid)
./pkg/timeave/timeave_statv_write.F 56 TIMEAVE_STATV_WRITE
      CHARACTER*(1) pf
./model/src/write_state.F 181 WRITE_STATE
            pf(1:1) = 'D'
./model/src/write_state.F 183 WRITE_STATE
            pf(1:1) = 'R'
./model/src/write_state.F 192 WRITE_STATE
          CALL MNC_CW_RL_W(pf,'state',0,0,'U', uVel, myThid)
./model/src/write_state.F 193 WRITE_STATE
          CALL MNC_CW_RL_W(pf,'state',0,0,'V', vVel, myThid)
./model/src/write_state.F 194 WRITE_STATE
          CALL MNC_CW_RL_W(pf,'state',0,0,'Temp', theta, myThid)
./model/src/write_state.F 195 WRITE_STATE
          CALL MNC_CW_RL_W(pf,'state',0,0,'S', salt, myThid)
./model/src/write_state.F 196 WRITE_STATE
          CALL MNC_CW_RL_W(pf,'state',0,0,'Eta', etaN, myThid)
./model/src/write_state.F 197 WRITE_STATE
          CALL MNC_CW_RL_W(pf,'state',0,0,'W', wVel, myThid)
./model/src/write_state.F 203 WRITE_STATE
            CALL MNC_CW_RL_W(pf,'phiHyd',0,0,'phiHyd',
./model/src/write_state.F 211 WRITE_STATE
            CALL MNC_CW_RL_W(pf,'phiHydLow',0,0,'phiHydLow',
./model/src/write_state.F 216 WRITE_STATE
            CALL MNC_CW_RL_W(pf,'state',0,0,'phi_nh',phi_nh,myThid)
./model/src/write_state.F 78 WRITE_STATE
      CHARACTER*(1) pf
./pkg/aim_v23/aim_diagnostics.F 130 AIM_DIAGNOSTICS
           pf(1:1) = 'D'
./pkg/aim_v23/aim_diagnostics.F 132 AIM_DIAGNOSTICS
           pf(1:1) = 'R'
./pkg/aim_v23/aim_diagnostics.F 143 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RSW',TT_RSW,myThid)
./pkg/aim_v23/aim_diagnostics.F 144 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_RLW',TT_RLW,myThid)
./pkg/aim_v23/aim_diagnostics.F 145 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_CNV',TT_CNV,myThid)
./pkg/aim_v23/aim_diagnostics.F 146 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_PBL',TT_PBL,myThid)
./pkg/aim_v23/aim_diagnostics.F 147 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dT_LSC',TT_LSC,myThid)
./pkg/aim_v23/aim_diagnostics.F 148 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_CNV',QT_CNV,myThid)
./pkg/aim_v23/aim_diagnostics.F 149 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_PBL',QT_PBL,myThid)
./pkg/aim_v23/aim_diagnostics.F 150 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,'aim_dQ_LSC',QT_LSC,myThid)
./pkg/aim_v23/aim_diagnostics.F 236 AIM_DIAGNOSTICS
           pf(1:1) = 'D'
./pkg/aim_v23/aim_diagnostics.F 238 AIM_DIAGNOSTICS
           pf(1:1) = 'R'
./pkg/aim_v23/aim_diagnostics.F 249 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 251 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 253 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 255 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 257 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 259 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 261 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 263 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 265 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 267 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 269 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 271 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 273 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 275 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 288 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 290 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 292 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 294 AIM_DIAGNOSTICS
         CALL MNC_CW_RL_W(pf,suff,bi,bj,
./pkg/aim_v23/aim_diagnostics.F 64 AIM_DIAGNOSTICS
      CHARACTER*(1) pf
./pkg/aim_v23/aim_write_tave.F 124 AIM_WRITE_TAVE
           pf(1:1) = 'D'
./pkg/aim_v23/aim_write_tave.F 126 AIM_WRITE_TAVE
           pf(1:1) = 'R'
./pkg/aim_v23/aim_write_tave.F 135 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'USTRtave',  USTRtave,  myThid)
./pkg/aim_v23/aim_write_tave.F 136 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'VSTRtave',  VSTRtave,  myThid)
./pkg/aim_v23/aim_write_tave.F 137 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'TSRtave',   TSRtave,   myThid)
./pkg/aim_v23/aim_write_tave.F 138 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'OLRtave',   OLRtave,   myThid)
./pkg/aim_v23/aim_write_tave.F 139 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'SSRtave',   SSRtave,   myThid)
./pkg/aim_v23/aim_write_tave.F 140 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'SLRtave',   SLRtave,   myThid)
./pkg/aim_v23/aim_write_tave.F 141 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'SHFtave',   SHFtave,   myThid)
./pkg/aim_v23/aim_write_tave.F 142 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'EVAPtave',  EVAPtave,  myThid)
./pkg/aim_v23/aim_write_tave.F 143 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'PRECNVtave',PRECNVtave,myThid)
./pkg/aim_v23/aim_write_tave.F 144 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'PRECLStave',PRECLStave,myThid)
./pkg/aim_v23/aim_write_tave.F 145 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'CLOUDCtave',CLOUDCtave,myThid)
./pkg/aim_v23/aim_write_tave.F 146 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'CLTOPtave', CLTOPtave, myThid)
./pkg/aim_v23/aim_write_tave.F 147 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'CBMFtave',  CBMFtave,  myThid)
./pkg/aim_v23/aim_write_tave.F 148 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'DRAGtave',  DRAGtave,  myThid)
./pkg/aim_v23/aim_write_tave.F 149 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimV0tave', aimV0tave, myThid)
./pkg/aim_v23/aim_write_tave.F 150 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimT0tave', aimT0tave, myThid)
./pkg/aim_v23/aim_write_tave.F 151 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimQ0tave', aimQ0tave, myThid)
./pkg/aim_v23/aim_write_tave.F 152 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'EnFxPrtave',EnFxPrtave,myThid)
./pkg/aim_v23/aim_write_tave.F 153 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'albedotave',albedotave,myThid)
./pkg/aim_v23/aim_write_tave.F 154 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'dTsurftave',dTsurftave,myThid)
./pkg/aim_v23/aim_write_tave.F 155 AIM_WRITE_TAVE
         CALL MNC_CW_RL_W(pf,mncfn,0,0,'aimRHtave', aimRHtave, myThid)
./pkg/aim_v23/aim_write_tave.F 51 AIM_WRITE_TAVE
      CHARACTER*(1) pf
./pkg/cd_code/cd_code_scheme.F 102 CD_CODE_SCHEME
        pf(i,j) =
./pkg/cd_code/cd_code_scheme.F 106 CD_CODE_SCHEME
        pf(i,j) = Bo_surf(i,j,bi,bj)
./pkg/cd_code/cd_code_scheme.F 120 CD_CODE_SCHEME
     &          -( _recip_dyC(i,j,bi,bj)*(pf(i,j)-pf(i,j-1))
./pkg/cd_code/cd_code_scheme.F 182 CD_CODE_SCHEME
     &          -( _recip_dxC(i,j,bi,bj)*(pf(i,j)-pf(i-1,j))
./pkg/dic/dic_biotic_diags.F 108 DIC_BIOTIC_DIAGS
          pf(1:1) = 'D'
./pkg/dic/dic_biotic_diags.F 110 DIC_BIOTIC_DIAGS
          pf(1:1) = 'R'
./pkg/dic/dic_biotic_diags.F 117 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_BIO_ave',BIOave,myThid)
./pkg/dic/dic_biotic_diags.F 119 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_CAR_ave',CARave,myThid)
./pkg/dic/dic_biotic_diags.F 121 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_SUR_ave',SURave,myThid)
./pkg/dic/dic_biotic_diags.F 123 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_SURO_ave',SUROave,myThid)
./pkg/dic/dic_biotic_diags.F 125 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_pH_ave',pHave,myThid)
./pkg/dic/dic_biotic_diags.F 127 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_pCO2_ave',pCO2ave,myThid)
./pkg/dic/dic_biotic_diags.F 129 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_fluxCO2_ave',fluxCO2ave,myThid)
./pkg/dic/dic_biotic_diags.F 131 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_OmegaC_ave',OmegaCave,myThid)
./pkg/dic/dic_biotic_diags.F 133 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_pflux_ave',pfluxave,myThid)
./pkg/dic/dic_biotic_diags.F 135 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_epflux_ave',epfluxave,myThid)
./pkg/dic/dic_biotic_diags.F 137 DIC_BIOTIC_DIAGS
     &        pf,'dic_tave',0,0,'dic_cflux_ave',cfluxave,myThid)
./pkg/dic/dic_biotic_diags.F 41 DIC_BIOTIC_DIAGS
      CHARACTER*(1) pf