Symbol Description Uses
_d 7957


File Line number Procedure Code
./pkg/fizhi/fizhi_fillnegs.F 41 QCHECK 
       if( qz(i,j,LM1,bi,bj).lt.0.0  _d 0) then
./pkg/fizhi/fizhi_fillnegs.F 43 QCHECK 
        qz(i,j,LM1,bi,bj) = 0.0 _d 0
./pkg/fizhi/fizhi_fillnegs.F 51 QCHECK 
       if(qz(i,j,Ldim,bi,bj).lt.0.0  _d 0)qz(i,j,Ldim,bi,bj) = 0.0 _d 0
./pkg/fizhi/fizhi_gwdrag.F 128 GWDRAG 
         phis_std(i,j) = min( 400.0 _d 0, sqrt( max(0.0 _d 0,
./pkg/fizhi/fizhi_gwdrag.F 187 GWDRAG 
         dragu(i,j,L) = sign( min(0.006 _d 0,abs(dragu(i,j,L))), dragu(i
./pkg/fizhi/fizhi_gwdrag.F 189 GWDRAG 
         dragv(i,j,L) = sign( min(0.006 _d 0,abs(dragv(i,j,L))), dragv(i
./pkg/fizhi/fizhi_gwdrag.F 530 GWDD 
        if( l.eq.2 ) crif2 = min(0.7 _d 0,crif2)
./pkg/fizhi/fizhi_lsm.F 1112 FLUXES 
      EA(CHNO) = MAX(EA(CHNO), 0.0 _d 0)
./pkg/fizhi/fizhi_lsm.F 1222 TMPFAC 
      FTEMP(CHNO) = MIN( 1. _d 0, MAX( FTEMP(ChNo), 1. _d -10 ) )
./pkg/fizhi/fizhi_lsm.F 1276 SMFAC 
      RSTFAC = MIN( 1. _d 0, MAX( 0.001 _d 0, RSTFAC ) )
./pkg/fizhi/fizhi_lsm.F 1316 RSURFP 
      HESAT = ESATTC(CHNO) * MIN( 1. _d 0, WET(CHNO)*2. _d 0)
./pkg/fizhi/fizhi_lsm.F 1519 WUPDAT 
      SWET(ChNo,SFCLY)  = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,SFCLY) )
./pkg/fizhi/fizhi_lsm.F 1521 WUPDAT 
      SWET(ChNo,ROOTLY) = MIN( 1. _d 0, MAX( 0. _d 0, SWET(ChNo,ROOTLY)
./pkg/fizhi/fizhi_lsm.F 1625 GWATER 
      FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) )
./pkg/fizhi/fizhi_lsm.F 1664 GWATER 
      FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) )
./pkg/fizhi/fizhi_lsm.F 1682 GWATER 
      FRAMP=MIN(1. _d 0, MAX(0. _d 0,FRAMP) )
./pkg/fizhi/fizhi_lsm.F 189 TILE 
      DEDQA(CHNO)  = MAX(  DEDQA(CHNO), 500. _d 0/ALHE )
./pkg/fizhi/fizhi_lsm.F 190 TILE 
      DEDTC(CHNO)  = MAX(  DEDTC(CHNO),   0. _d 0)
./pkg/fizhi/fizhi_lsm.F 191 TILE 
      DHSDQA(CHNO) = MAX( DHSDQA(CHNO),   0. _d 0)
./pkg/fizhi/fizhi_lsm.F 192 TILE 
      DHSDTC(CHNO) = MAX( DHSDTC(CHNO), -10. _d 0)
./pkg/fizhi/fizhi_lsm.F 208 TILE 
      SWET(ChNo,SFCLY ) = max( min(SWET1(ChNo),1. _d 0), 0. _d 0)
./pkg/fizhi/fizhi_lsm.F 209 TILE 
      SWET(ChNo,ROOTLY) = max( min(SWET2(ChNo),1. _d 0), 0. _d 0)
./pkg/fizhi/fizhi_lsm.F 210 TILE 
      SWET(ChNo,RECHLY) = max( min(SWET3(ChNo),1. _d 0), 0. _d 0)
./pkg/fizhi/fizhi_lsm.F 211 TILE 
      CAPAC(CHNO)       = max( min(CAPAC(ChNo),SATCAP(CHNO)), 0. _d 0)
./pkg/fizhi/fizhi_lsm.F 215 TILE 
      FCAN(CHNO) = MIN( 1. _d 0, MAX(0. _d 0,CAPAC(ChNo)/SATCAP(ChNo)) )
./pkg/fizhi/fizhi_lsm.F 536 INTERC 
     &       MAX( 0. _d 0, (TC(ChNo)-TF)*CSOIL(ChNo)/ALHM )  )
./pkg/fizhi/fizhi_lsm.F 557 INTERC 
        XTCORR= (1.-TIMFRL) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/
./pkg/fizhi/fizhi_lsm.F 592 INTERC 
      XTCORR= (1.-TIMFRC) * MIN( 1. _d 0,(CAPAC(CHNO)/SATCAP(CHNO))/
./pkg/fizhi/fizhi_lsm.F 747 RCUNST 
      ZK =     PDIR(ChNo) *MIN( EXTK1, 50. _d 0/ZLAI(ChNo) ) +
./pkg/fizhi/fizhi_lsm.F 748 RCUNST 
     &    (ONE-PDIR(ChNo))*MIN( EXTK2, 50. _d 0/ZLAI(ChNo) )
./pkg/fizhi/fizhi_lsm.F 799 SOIL 
      WET0  = MAX(WET(CHNO),0.01 _d 0)
./pkg/fizhi/fizhi_lsm.F 924 FLUXES 
     &      max(0. _d 0, CONST*DESDTC(ChNo) - EHARMN*DRCDTC(ChNo) )
./pkg/fizhi/fizhi_lsm.F 926 FLUXES 
     &               max( 0. _d 0, CONST + EHARMN*DRCDEA(ChNo) )   )
./pkg/fizhi/fizhi_lsm.F 929 FLUXES 
          DETERM = MIN( A12*A21/(A11*A22) - 1., -0.1 _d 0)
./pkg/fizhi/fizhi_lwrad.F 100 LWRIO 
           cldtot(i,j,L)=min(1.0 _d 0,max(cldlw(i,j,L),fccave(i,j,L)/
./pkg/fizhi/fizhi_lwrad.F 102 LWRIO 
           cldmxo(i,j,L) =  min( 1.0 _d 0,      clwmo(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F 1100 IRRAD 
           reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_lwrad.F 1101 IRRAD 
           reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_lwrad.F 111 LWRIO 
         cldtot(i,j,L) =  min( 1.0 _d 0,cldlw(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F 112 LWRIO 
         cldmxo(i,j,L) =  min( 1.0 _d 0,clwmo(i,j,L) )
./pkg/fizhi/fizhi_lwrad.F 155 LWRIO 
        CLRO(I,L) = min( 1.0 _d 0,clro(i,L) )
./pkg/fizhi/fizhi_lwrad.F 156 LWRIO 
        CLMO(I,L) = min( 1.0 _d 0,clmo(i,L) )
./pkg/fizhi/fizhi_moist.F 1053 MOISTIO 
     $         1.0 _d 0)
./pkg/fizhi/fizhi_moist.F 1058 MOISTIO 
     $      1.0 _d 0)
./pkg/fizhi/fizhi_moist.F 1076 MOISTIO 
     $         1.0 _d 0)
./pkg/fizhi/fizhi_moist.F 1081 MOISTIO 
     $      1.0 _d 0)
./pkg/fizhi/fizhi_moist.F 2554 RNEVP 
           fact = min( 1.0 _d 0, alpha + (1.0-alpha)*( rh-rhcrit(i,L)) /
./pkg/fizhi/fizhi_moist.F 2660 SRCLOUDS 
         cloud(i,L) = min( ratio,1.0 _d 0)
./pkg/fizhi/fizhi_moist.F 2706 CTEI 
      if (s.GT.0. ) f = max( 0.0 _d 0, min( 1.0 _d 0, exp(-s)) )
./pkg/fizhi/fizhi_step_diag.F 449 FIZHI_STEP_DIAG 
       tmpdiag(i,j) = qbar(i,j)*10. _d 0 /gravity
./pkg/fizhi/fizhi_swrad.F 1094 CLDSCALE 
           taux=min(taux,32. _d 0)
./pkg/fizhi/fizhi_swrad.F 1130 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1145 CLDSCALE 
           xai=max(xai,0.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1356 SOLIR 
           reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_swrad.F 1357 SOLIR 
           reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1444 SOLIR 
              ssato=min(ssato,0.999999 _d 0)
./pkg/fizhi/fizhi_swrad.F 1453 SOLIR 
              ssato=min(ssato,0.999999 _d 0)
./pkg/fizhi/fizhi_swrad.F 1747 SOLUV 
           reff1=min(reff(i,j,k,1),130. _d 0)
./pkg/fizhi/fizhi_swrad.F 1748 SOLUV 
           reff2=min(reff(i,j,k,2),20.0 _d 0)
./pkg/fizhi/fizhi_swrad.F 1799 SOLUV 
          ssato=min(ssato,0.999999 _d 0)
./pkg/fizhi/fizhi_swrad.F 180 SWRIO 
           cldtot(i,j,L)=min(1.0 _d 0,max(cldsw(i,j,L),fccave(i,j,L)/
./pkg/fizhi/fizhi_swrad.F 1821 SOLUV 
           ssato=min(ssato,0.999999 _d 0)
./pkg/fizhi/fizhi_swrad.F 1829 SOLUV 
           ssato=min(ssato,0.999999 _d 0)
./pkg/fizhi/fizhi_swrad.F 182 SWRIO 
           cldmxo(i,j,L)=min(1.0 _d 0,cswmo(i,j,L))
./pkg/fizhi/fizhi_swrad.F 191 SWRIO 
         cldtot(i,j,L) =  min( 1.0 _d 0,cldsw(i,j,L) )
./pkg/fizhi/fizhi_swrad.F 192 SWRIO 
         cldmxo(i,j,L) =  min( 1.0 _d 0,cswmo(i,j,L) )
./pkg/fizhi/fizhi_swrad.F 438 SWRIO 
              alf = min( max((tzl(i,l)-253.15)/20.,0. _d 0) ,1. _d 0)
./pkg/fizhi/fizhi_swrad.F 598 OPTHK 
         alf   =  min( max(( tl(i,j,L)-233.15)/20.,0. _d 0), 1. _d 0)
./pkg/fizhi/fizhi_swrad.F 618 OPTHK 
         tauice = max( 0.0002 _d 0, 0.002*min(500*lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F 619 OPTHK 
     $        1.0 _d 0) )
./pkg/fizhi/fizhi_swrad.F 626 OPTHK 
            tauh2o = max( 0.0020 _d 0, 0.200*min(200*lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F 627 OPTHK 
     $           1.0 _d 0) )
./pkg/fizhi/fizhi_swrad.F 636 OPTHK 
             tauh2o = max( 0.0020 _d 0, 0.120*min( 20*lz(i,j,L)*1000,
./pkg/fizhi/fizhi_swrad.F 637 OPTHK 
     $            1.0 _d 0) )
./pkg/fizhi/fizhi_tendency_apply.F 146 FIZHI_TENDENCY_APPLY_V 
        tmpdiag(i,j) = -1. _d 0 * rayleighdrag *
./pkg/fizhi/fizhi_tendency_apply.F 71 FIZHI_TENDENCY_APPLY_U 
        tmpdiag(i,j) = -1. _d 0 * rayleighdrag *
./pkg/fizhi/fizhi_turb.F 2452 TRBFLX 
          qxlm(i,L) = min(qxlm(i,L),5. _d 0)
./pkg/fizhi/fizhi_turb.F 2471 TRBFLX 
     1       FLXFCE(1,LMINQ1),DTHS,DELTHS,NLEVMQ,1,1.0 _d -20,irun)
./pkg/fizhi/fizhi_turb.F 2528 TRBFLX 
          kh(i,L) = min(kh(i,L),5. _d 0)
./pkg/fizhi/fizhi_turb.F 2529 TRBFLX 
          km(i,L) = min(km(i,L),5. _d 0)
./pkg/fizhi/fizhi_turb.F 2551 TRBFLX 
       CALL TRBDIF(TH,DELTH,TEMP,FLXFPK,DTHS,DELTHS,NLEV,2,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2584 TRBFLX 
     .                                     2,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 2625 TRBFLX 
       CALL TRBDIF(U,V,RHOKDZ,FLXFAC,DTHS,DELTHS,NLEV,3,0. _d 0,irun)
./pkg/fizhi/fizhi_turb.F 299 TURBIO 
       dtfac    = min( 1.0 _d 0, timstp/timstp2 )
./pkg/fizhi/fizhi_turb.F 679 TURBIO 
       cosz(i) = max(cosz(i),0.0001 _d 0)
./pkg/fizhi/fizhi_utils.F 370 QSAT 
       Q = MIN(QX * D,1.0 _d 0)
./pkg/fizhi/getpwhere.F 110 GETPWHERE 
       dpTop = 1. _d 0
./pkg/fizhi/getpwhere.F 111 GETPWHERE 
       IF (Nr.EQ.70) dpTop = 1. _d -2
./pkg/fizhi/getpwhere.F 117 GETPWHERE 
        rC_dyn(L) = rC(L)*1. _d -2
./pkg/fizhi/getpwhere.F 88 GETPWHERE 
       dptry_pedge(1) = rF(1)*1. _d -2
./pkg/fizhi/step_fizhi_corr.F 288 STEP_FIZHI_CORR 
     .                     * 86400. _d 0 * dtinv
./pkg/fizhi/step_fizhi_corr.F 300 STEP_FIZHI_CORR 
     .                     * 86400. _d 0 * dtinv
./pkg/fizhi/step_fizhi_corr.F 312 STEP_FIZHI_CORR 
     .                     * 86400. _d 0 * dtinv
./pkg/fizhi/step_fizhi_corr.F 324 STEP_FIZHI_CORR 
     .                     * 86400. _d 0 * dtinv
./pkg/fizhi/step_fizhi_corr.F 398 STEP_FIZHI_CORR 
     .     - duphy(i,j,L,bi,bj) - uphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 401 STEP_FIZHI_CORR 
     .     - dvphy(i,j,L,bi,bj) - vphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 453 STEP_FIZHI_CORR 
     .     - dthphy(i,j,L,bi,bj) - thphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 499 STEP_FIZHI_CORR 
     .     - dsphy(i,j,L,bi,bj) - sphytemp(i,j,L,bi,bj) ) * 86400. _d 0
./pkg/fizhi/step_fizhi_corr.F 72 STEP_FIZHI_CORR 
       dtfake = 1. _d 0
./pkg/fizhi/step_fizhi_corr.F 73 STEP_FIZHI_CORR 
       dtinv = 1. _d 0 / dt
./pkg/flt/flt_exch2.F 100 FLT_EXCH2 
           ihi = 0.5 _d 0 + DFLOAT(sNx)
./pkg/flt/flt_exch2.F 190 FLT_EXCH2 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exch2.F 212 FLT_EXCH2 
           jlo = 0.5 _d 0
./pkg/flt/flt_exch2.F 213 FLT_EXCH2 
           jhi = 0.5 _d 0 + DFLOAT(sNy)
./pkg/flt/flt_exch2.F 317 FLT_EXCH2 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exch2.F 99 FLT_EXCH2 
           ilo = 0.5 _d 0
./pkg/flt/flt_exchg.F 151 FLT_EXCHG 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exchg.F 285 FLT_EXCHG 
           jlo = 0.5 _d 0
./pkg/flt/flt_exchg.F 286 FLT_EXCHG 
           jhi = 0.5 _d 0 + DFLOAT(sNy)
./pkg/flt/flt_exchg.F 372 FLT_EXCHG 
              IF ( npart(jp,bi,bj).NE.0. _d 0 ) THEN
./pkg/flt/flt_exchg.F 74 FLT_EXCHG 
           ilo = 0.5 _d 0
./pkg/flt/flt_exchg.F 75 FLT_EXCHG 
           ihi = 0.5 _d 0 + DFLOAT(sNx)
./pkg/flt/flt_init_varia.F 68 FLT_INIT_VARIA 
      iLo = 0.5 _d 0
./pkg/flt/flt_init_varia.F 69 FLT_INIT_VARIA 
      iHi = 0.5 _d 0 + DFLOAT(sNx)
./pkg/flt/flt_init_varia.F 70 FLT_INIT_VARIA 
      jLo = 0.5 _d 0
./pkg/flt/flt_init_varia.F 71 FLT_INIT_VARIA 
      jHi = 0.5 _d 0 + DFLOAT(sNy)
./pkg/flt/flt_interp_linear.F 156 FLT_TRILINEAR 
        ddx = 0.5 _d 0 + ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 164 FLT_TRILINEAR 
        ddy = 0.5 _d 0 + jy - DFLOAT(j1)
./pkg/flt/flt_interp_linear.F 172 FLT_TRILINEAR 
        ddz = 0.5 _d 0 + kz - DFLOAT(k1)
./pkg/flt/flt_interp_linear.F 248 FLT_BILINEAR2D 
        ddx = 0.5 _d 0 + ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 256 FLT_BILINEAR2D 
        ddy = 0.5 _d 0 + jy - DFLOAT(j1)
./pkg/flt/flt_interp_linear.F 65 FLT_BILINEAR 
        ddx = 0.5 _d 0 + ix - DFLOAT(i1)
./pkg/flt/flt_interp_linear.F 73 FLT_BILINEAR 
        ddy = 0.5 _d 0 + jy - DFLOAT(j1)
./pkg/flt/flt_interp_linear.F 90 FLT_BILINEAR 
        u11 = ( var(i1,j1,kl,bi,bj)+var(i1,j1,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_interp_linear.F 91 FLT_BILINEAR 
        u21 = ( var(i2,j1,kl,bi,bj)+var(i2,j1,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_interp_linear.F 92 FLT_BILINEAR 
        u22 = ( var(i2,j2,kl,bi,bj)+var(i2,j2,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_interp_linear.F 93 FLT_BILINEAR 
        u12 = ( var(i1,j2,kl,bi,bj)+var(i1,j2,klp,bi,bj) )*0.5 _d 0
./pkg/flt/flt_mapping.F 130 FLT_MAP_IJLOCAL2XY 
        ddx = 0.5 _d 0 + ix - DFLOAT(i)
./pkg/flt/flt_mapping.F 131 FLT_MAP_IJLOCAL2XY 
        ddy = 0.5 _d 0 + jy - DFLOAT(j)
./pkg/flt/flt_mapping.F 140 FLT_MAP_IJLOCAL2XY 
        ddx = 0.5 _d 0 + ix - DFLOAT(i)
./pkg/flt/flt_mapping.F 141 FLT_MAP_IJLOCAL2XY 
        ddy = 0.5 _d 0 + jy - DFLOAT(j)
./pkg/flt/flt_mapping.F 193 FLT_MAP_IJLOCAL2XY 
      FLT_MAP_R2K = 0. _d 0
./pkg/flt/flt_mapping.F 195 FLT_MAP_IJLOCAL2XY 
        IF ( FLT_MAP_R2K .EQ. 0. _d 0 ) THEN
./pkg/flt/flt_mapping.F 199 FLT_MAP_IJLOCAL2XY 
            FLT_MAP_R2K = DFLOAT(k)+fm-0.5 _d 0
./pkg/flt/flt_mapping.F 246 FLT_MAP_IJLOCAL2XY 
        ddz = 0.5 _d 0 + kr - DFLOAT(k)
./pkg/flt/flt_mapping.F 54 FLT_MAP_XY2IJLOCAL 
        ix = -1. _d 0
./pkg/flt/flt_mapping.F 55 FLT_MAP_XY2IJLOCAL 
        jy = -1. _d 0
./pkg/flt/flt_mapping.F 59 FLT_MAP_XY2IJLOCAL 
          IF ( ix.EQ.-1. _d 0 ) THEN
./pkg/flt/flt_mapping.F 63 FLT_MAP_XY2IJLOCAL 
             ix = DFLOAT(i)+fm-0.5 _d 0
./pkg/flt/flt_mapping.F 70 FLT_MAP_XY2IJLOCAL 
          IF ( jy.EQ.-1. _d 0 ) THEN
./pkg/flt/flt_mapping.F 74 FLT_MAP_XY2IJLOCAL 
             jy = DFLOAT(j)+fm-0.5 _d 0
./pkg/flt/flt_runga2.F 69 FLT_RUNGA2 
      kzlo = 0.5 _d 0
./pkg/flt/flt_runga2.F 70 FLT_RUNGA2 
      kzhi = 0.5 _d 0 + DFLOAT(Nr)
./pkg/flt/flt_runga4.F 69 FLT_RUNGA4 
      kzlo = 0.5 _d 0
./pkg/flt/flt_runga4.F 70 FLT_RUNGA4 
      kzhi = 0.5 _d 0 + DFLOAT(Nr)
./pkg/gchem/gchem_calc_tendency.F 67 GCHEM_CALC_TENDENCY 
            gchemTendency(I,J,K,bi,bj,iTracer) = 0. _d 0
./pkg/gchem/gchem_forcing_sep.F 66 GCHEM_FORCING_SEP 
       gsm_s = 0. _d 0
./pkg/gchem/gchem_forcing_sep.F 67 GCHEM_FORCING_SEP 
       gsm_dic = 0. _d 0
./pkg/gchem/gchem_forcing_sep.F 68 GCHEM_FORCING_SEP 
       gsm_alk = 0. _d 0
./pkg/gchem/gchem_forcing_sep.F 78 GCHEM_FORCING_SEP 
       gsm_s = 0. _d 0
./pkg/gchem/gchem_forcing_sep.F 79 GCHEM_FORCING_SEP 
       gsm_dic = 0. _d 0
./pkg/gchem/gchem_forcing_sep.F 80 GCHEM_FORCING_SEP 
       gsm_alk = 0. _d 0
./pkg/gchem/gchem_readparms.F 83 GCHEM_READPARMS 
       gchem_rl1=0. _d 0
./pkg/gchem/gchem_readparms.F 84 GCHEM_READPARMS 
       gchem_rl2=0. _d 0
./pkg/gchem/gchem_readparms.F 85 GCHEM_READPARMS 
       gchem_rl3=0. _d 0
./pkg/gchem/gchem_readparms.F 86 GCHEM_READPARMS 
       gchem_rl4=0. _d 0
./pkg/gchem/gchem_readparms.F 87 GCHEM_READPARMS 
       gchem_rl5=0. _d 0
./pkg/generic_advdiff/gad_advection.F 205 GAD_ADVECTION 
        xA(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 206 GAD_ADVECTION 
        yA(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 207 GAD_ADVECTION 
        uTrans(i,j)  = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 208 GAD_ADVECTION 
        vTrans(i,j)  = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 209 GAD_ADVECTION 
        rTrans(i,j)  = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 210 GAD_ADVECTION 
        fVerT(i,j,1) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 211 GAD_ADVECTION 
        fVerT(i,j,2) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 212 GAD_ADVECTION 
        rTransKp1(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_advection.F 214 GAD_ADVECTION 
        localTij(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_advection.F 215 GAD_ADVECTION 
        wfld(i,j)    = 0. _d 0
./pkg/generic_advdiff/gad_c2_adv_r.F 65 GAD_C2_ADV_R 
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,kM1,bi,bj))*0.5 _d 0
./pkg/generic_advdiff/gad_c2_adv_x.F 55 GAD_C2_ADV_X 
     &   uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0
./pkg/generic_advdiff/gad_c2_adv_y.F 55 GAD_C2_ADV_Y 
     &   vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0
./pkg/generic_advdiff/gad_c2_impl_r.F 63 GAD_C2_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_c4_adv_r.F 86 GAD_C4_ADV_R 
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0
./pkg/generic_advdiff/gad_c4_adv_r.F 87 GAD_C4_ADV_R 
     &        -oneSixth*(Rjjm+Rjjp)*0.5 _d 0 )
./pkg/generic_advdiff/gad_c4_adv_r.F 89 GAD_C4_ADV_R 
     &         oneSixth*(Rjjm-Rjjp)*0.5 _d 0*(1. _d 0 - maskBound)
./pkg/generic_advdiff/gad_c4_adv_x.F 74 GAD_C4_ADV_X 
     &               )*0.5 _d 0
./pkg/generic_advdiff/gad_c4_adv_x.F 75 GAD_C4_ADV_X 
     &  +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_c4_adv_x.F 76 GAD_C4_ADV_X 
     &    *( 1. _d 0 - maskW(i-1,j,k,bi,bj)*maskW(i+1,j,k,bi,bj) )
./pkg/generic_advdiff/gad_c4_adv_y.F 74 GAD_C4_ADV_Y 
     &               )*0.5 _d 0
./pkg/generic_advdiff/gad_c4_adv_y.F 75 GAD_C4_ADV_Y 
     &  +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_c4_adv_y.F 76 GAD_C4_ADV_Y 
     &    *( 1. _d 0 - maskS(i,j-1,k,bi,bj)*maskS(i,j+1,k,bi,bj) )
./pkg/generic_advdiff/gad_calc_rhs.F 159 GAD_CALC_RHS 
      advFac  = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 160 GAD_CALC_RHS 
      IF (calcAdvection) advFac = 1. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 162 GAD_CALC_RHS 
      IF (implicitAdvection) rAdvFac = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 166 GAD_CALC_RHS 
        fZon(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 167 GAD_CALC_RHS 
        fMer(i,j)      = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 168 GAD_CALC_RHS 
        fVerT(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 169 GAD_CALC_RHS 
        df(i,j)        = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 170 GAD_CALC_RHS 
        df4(i,j)       = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 212 GAD_CALC_RHS 
        fZon(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 278 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 327 GAD_CALC_RHS 
        fMer(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 393 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 514 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 566 GAD_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_calc_rhs.F 625 GAD_CALC_RHS 
     &    *( MAX(0. _d 0,fZon(i+1,j)) + MAX(0. _d 0,-fZon(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 626 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fMer(i,j+1)) + MAX(0. _d 0,-fMer(i,j))
./pkg/generic_advdiff/gad_calc_rhs.F 627 GAD_CALC_RHS 
     &      +MAX(0. _d 0,fVerT(i,j,kDown)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 628 GAD_CALC_RHS 
     &      +MAX(0. _d 0,-fVerT(i,j,kUp)*rkSign)
./pkg/generic_advdiff/gad_calc_rhs.F 637 GAD_CALC_RHS 
         IF (outFlux.GT.0. _d 0 .AND.
./pkg/generic_advdiff/gad_calc_rhs.F 640 GAD_CALC_RHS 
           fac = MAX(0. _d 0,SmolarkiewiczMaxFrac*trac/outFlux)
./pkg/generic_advdiff/gad_calc_rhs.F 642 GAD_CALC_RHS 
           IF (fZon(i+1,j).GT.0. _d 0) fZon(i+1,j)=fac*fZon(i+1,j)
./pkg/generic_advdiff/gad_calc_rhs.F 643 GAD_CALC_RHS 
           IF (-fZon(i,j) .GT.0. _d 0) fZon(i,j)  =fac*fZon(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 644 GAD_CALC_RHS 
           IF (fMer(i,j+1).GT.0. _d 0) fMer(i,j+1)=fac*fMer(i,j+1)
./pkg/generic_advdiff/gad_calc_rhs.F 645 GAD_CALC_RHS 
           IF (-fMer(i,j) .GT.0. _d 0) fMer(i,j)  =fac*fMer(i,j)
./pkg/generic_advdiff/gad_calc_rhs.F 646 GAD_CALC_RHS 
           IF (-fVerT(i,j,kUp)*rkSign .GT.0. _d 0)
./pkg/generic_advdiff/gad_calc_rhs.F 649 GAD_CALC_RHS 
           IF (k.LT.Nr .AND. fVerT(i,j,kDown)*rkSign.GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_del2.F 50 GAD_DEL2 
        del2(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_diagnostics_state.F 52 GAD_DIAGNOSTICS_STATE 
      oneThird = 1. _d 0 / 3. _d 0
./pkg/generic_advdiff/gad_diagnostics_state.F 53 GAD_DIAGNOSTICS_STATE 
      oneFifth = 1. _d 0 / 5. _d 0
./pkg/generic_advdiff/gad_diagnostics_state.F 54 GAD_DIAGNOSTICS_STATE 
      oneNinth = 1. _d 0 / 9. _d 0
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 60 GAD_DST2U1_ADV_R 
      rLimit = 0. _d 0
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 61 GAD_DST2U1_ADV_R 
      IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 89 GAD_DST2U1_ADV_R 
     &       *( 1. _d 0 - rLimit*(1. _d 0 - wCFL) )
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 91 GAD_DST2U1_ADV_R 
     &             ( rTrans(i,j)+wAbs )* 0.5 _d 0 * tracer(i,j,km1)
./pkg/generic_advdiff/gad_dst2u1_adv_r.F 92 GAD_DST2U1_ADV_R 
     &           + ( rTrans(i,j)-wAbs )* 0.5 _d 0 * tracer(i,j,k)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 60 GAD_DST2U1_ADV_X 
      xLimit = 0. _d 0
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 61 GAD_DST2U1_ADV_X 
      IF ( advectionScheme.EQ.ENUM_DST2 ) xLimit = 1. _d 0
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 82 GAD_DST2U1_ADV_X 
     &       *( 1. _d 0 - xLimit*(1. _d 0 - uCFL) )
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 83 GAD_DST2U1_ADV_X 
        uT(i,j) = ( uTrans(i,j)+uAbs )* 0.5 _d 0 * tracer(i-1,j)
./pkg/generic_advdiff/gad_dst2u1_adv_x.F 84 GAD_DST2U1_ADV_X 
     &          + ( uTrans(i,j)-uAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 59 GAD_DST2U1_ADV_Y 
      yLimit = 0. _d 0
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 60 GAD_DST2U1_ADV_Y 
      IF ( advectionScheme.EQ.ENUM_DST2 ) yLimit = 1. _d 0
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 81 GAD_DST2U1_ADV_Y 
     &       *( 1. _d 0 - yLimit*(1. _d 0 - vCFL) )
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 82 GAD_DST2U1_ADV_Y 
        vT(i,j) = ( vTrans(i,j)+vAbs )* 0.5 _d 0 * tracer(i,j-1)
./pkg/generic_advdiff/gad_dst2u1_adv_y.F 83 GAD_DST2U1_ADV_Y 
     &          + ( vTrans(i,j)-vAbs )* 0.5 _d 0 * tracer(i,j)
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 67 GAD_DST2U1_IMPL_R 
      rLimit = 0. _d 0
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 68 GAD_DST2U1_IMPL_R 
      IF ( advectionScheme.EQ.ENUM_DST2 ) rLimit = 1. _d 0
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 79 GAD_DST2U1_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst2u1_impl_r.F 81 GAD_DST2U1_IMPL_R 
     &             * ( 1. _d 0 - rLimit )
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 102 GAD_DST3FL_ADV_R 
        psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP),
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 103 GAD_DST3FL_ADV_R 
     &                       thetaP*(1. _d 0 -wCFL)/(wCFL+1. _d -20) ))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 105 GAD_DST3FL_ADV_R 
        psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM),
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 106 GAD_DST3FL_ADV_R 
     &                       thetaM*(1. _d 0 -wCFL)/(wCFL+1. _d -20) ))
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 77 GAD_DST3FL_ADV_R 
        d0=(2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_r.F 78 GAD_DST3FL_ADV_R 
        d1=(1. _d 0 -wCFL*wCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 46 GAD_DST3FL_ADV_X 
       uT(1-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 47 GAD_DST3FL_ADV_X 
       uT(2-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 48 GAD_DST3FL_ADV_X 
       uT(sNx+Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 59 GAD_DST3FL_ADV_X 
        d0=(2. _d 0 -uCFL)*(1. _d 0 -uCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 60 GAD_DST3FL_ADV_X 
        d1=(1. _d 0 -uCFL*uCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 84 GAD_DST3FL_ADV_X 
        psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP),
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 85 GAD_DST3FL_ADV_X 
     &                       thetaP*(1. _d 0 -uCFL)/(uCFL+1. _d -20) ))
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 87 GAD_DST3FL_ADV_X 
        psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM),
./pkg/generic_advdiff/gad_dst3fl_adv_x.F 88 GAD_DST3FL_ADV_X 
     &                       thetaM*(1. _d 0 -uCFL)/(uCFL+1. _d -20) ))
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 42 GAD_DST3FL_ADV_Y 
       vT(i,1-Oly)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 43 GAD_DST3FL_ADV_Y 
       vT(i,2-Oly)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 44 GAD_DST3FL_ADV_Y 
       vT(i,sNy+Oly)=0. _d 0
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 55 GAD_DST3FL_ADV_Y 
        d0=(2. _d 0 -vCFL)*(1. _d 0 -vCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 56 GAD_DST3FL_ADV_Y 
        d1=(1. _d 0 -vCFL*vCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 80 GAD_DST3FL_ADV_Y 
        psiP=MAX(0. _d 0,MIN(MIN(1. _d 0,psiP),
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 81 GAD_DST3FL_ADV_Y 
     &                       thetaP*(1. _d 0 -vCFL)/(vCFL+1. _d -20) ))
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 83 GAD_DST3FL_ADV_Y 
        psiM=MAX(0. _d 0,MIN(MIN(1. _d 0,psiM),
./pkg/generic_advdiff/gad_dst3fl_adv_y.F 84 GAD_DST3FL_ADV_Y 
     &                       thetaM*(1. _d 0 -vCFL)/(vCFL+1. _d -20) ))
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 102 GAD_DST3FL_IMPL_R 
           cL1 = (2. _d 0 -wCFL)*(1. _d 0 -wCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 103 GAD_DST3FL_IMPL_R 
           cH3 = (1. _d 0 -wCFL*wCFL)*oneSixth
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 105 GAD_DST3FL_IMPL_R 
           cM2 = (1. _d 0 + wCFL)/( wCFL +1. _d -20)
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 108 GAD_DST3FL_IMPL_R 
           IF ( rTrans(i,j).GT.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 113 GAD_DST3FL_IMPL_R 
           IF ( Rj*Rjh.LE.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 115 GAD_DST3FL_IMPL_R 
             lowFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 116 GAD_DST3FL_IMPL_R 
             highFac(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 128 GAD_DST3FL_IMPL_R 
             lowFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 132 GAD_DST3FL_IMPL_R 
             lowFac(i,j) = 1. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 133 GAD_DST3FL_IMPL_R 
             highFac(i,j)= 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 142 GAD_DST3FL_IMPL_R 
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 145 GAD_DST3FL_IMPL_R 
           rUpwind= (0.5 _d 0 -lowFac(i,j))*ABS(rCenter)*2. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 86 GAD_DST3FL_IMPL_R 
       maskP1 = 1. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 87 GAD_DST3FL_IMPL_R 
       maskM2 = 1. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 88 GAD_DST3FL_IMPL_R 
       IF ( k.LE.2 ) maskM2 = 0. _d 0
./pkg/generic_advdiff/gad_dst3fl_impl_r.F 89 GAD_DST3FL_IMPL_R 
       IF ( k.GE.Nr) maskP1 = 0. _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 109 GAD_FLUXLIMIT_ADV_R 
     &        (tracer(i,j,k)+tracer(i,j,kM1))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_r.F 111 GAD_FLUXLIMIT_ADV_R 
     &                     *Rj*0.5 _d 0 )
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 100 GAD_FLUXLIMIT_ADV_X 
     &                    *Rj*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_x.F 98 GAD_FLUXLIMIT_ADV_X 
     &   uTrans(i,j)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 100 GAD_FLUXLIMIT_ADV_Y 
     &                    *Rj*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_adv_y.F 98 GAD_FLUXLIMIT_ADV_Y 
     &   vTrans(i,j)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 101 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 109 GAD_FLUXLIMIT_IMPL_R 
           rCenter = 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 91 GAD_FLUXLIMIT_IMPL_R 
         IF ( Rj.NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 92 GAD_FLUXLIMIT_IMPL_R 
          IF (rTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 97 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = 1. _d 0
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 98 GAD_FLUXLIMIT_IMPL_R 
     &                   - Limiter(Cr) * ( 1. _d 0 + ABS(w_CFL) )
./pkg/generic_advdiff/gad_fluxlimit_impl_r.F 99 GAD_FLUXLIMIT_IMPL_R 
          upwindFac(i,j) = MAX( -1. _d 0, upwindFac(i,j) )
./pkg/generic_advdiff/gad_implicit_r.F 100 GAD_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 101 GAD_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 102 GAD_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 103 GAD_IMPLICIT_R 
         e5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 158 GAD_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/generic_advdiff/gad_implicit_r.F 188 GAD_IMPLICIT_R 
            wFld(i,j)   = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 189 GAD_IMPLICIT_R 
            rTrans(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 307 GAD_IMPLICIT_R 
               df(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_implicit_r.F 99 GAD_IMPLICIT_R 
         a5d(i,j,k) = 0. _d 0
./pkg/generic_advdiff/gad_init_fixed.F 182 GAD_INIT_FIXED 
      SmolarkiewiczMaxFrac = 1. _d 0
./pkg/generic_advdiff/gad_init_varia.F 49 GAD_INIT_VARIA 
            som_T(i,j,k,bi,bj,n) = 0. _d 0
./pkg/generic_advdiff/gad_init_varia.F 51 GAD_INIT_VARIA 
            som_S(i,j,k,bi,bj,n) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 100 GAD_OS7MP_ADV_R 
         Qim   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 101 GAD_OS7MP_ADV_R 
         Qimm  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 102 GAD_OS7MP_ADV_R 
         Qimmm = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 104 GAD_OS7MP_ADV_R 
         MskIpp  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 105 GAD_OS7MP_ADV_R 
         MskIp   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 106 GAD_OS7MP_ADV_R 
         MskI    = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 107 GAD_OS7MP_ADV_R 
         MskIm   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 108 GAD_OS7MP_ADV_R 
         MskImm  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 109 GAD_OS7MP_ADV_R 
         MskImmm = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 112 GAD_OS7MP_ADV_R 
        IF (wTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F 114 GAD_OS7MP_ADV_R 
         Fac = 1. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 118 GAD_OS7MP_ADV_R 
         Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 123 GAD_OS7MP_ADV_R 
         Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 129 GAD_OS7MP_ADV_R 
         Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 136 GAD_OS7MP_ADV_R 
         Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 144 GAD_OS7MP_ADV_R 
         Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 157 GAD_OS7MP_ADV_R 
         recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 164 GAD_OS7MP_ADV_R 
         recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 175 GAD_OS7MP_ADV_R 
         A = 4. _d 0*d2 - d2p1
./pkg/generic_advdiff/gad_os7mp_adv_r.F 176 GAD_OS7MP_ADV_R 
         B = 4. _d 0*d2p1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_r.F 179 GAD_OS7MP_ADV_R 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 180 GAD_OS7MP_ADV_R 
         A = 4. _d 0*d2m1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_r.F 181 GAD_OS7MP_ADV_R 
         B = 4. _d 0*d2 - d2m1
./pkg/generic_advdiff/gad_os7mp_adv_r.F 184 GAD_OS7MP_ADV_R 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 192 GAD_OS7MP_ADV_R 
         PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp
./pkg/generic_advdiff/gad_os7mp_adv_r.F 193 GAD_OS7MP_ADV_R 
         PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI )
./pkg/generic_advdiff/gad_os7mp_adv_r.F 195 GAD_OS7MP_ADV_R 
         PhiMin = max(min(0. _d 0,PhiMD),
./pkg/generic_advdiff/gad_os7mp_adv_r.F 196 GAD_OS7MP_ADV_R 
     &        min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC))
./pkg/generic_advdiff/gad_os7mp_adv_r.F 197 GAD_OS7MP_ADV_R 
         PhiMax = min(max(2. _d 0/(1. _d 0-cfl),PhiMD),
./pkg/generic_advdiff/gad_os7mp_adv_r.F 198 GAD_OS7MP_ADV_R 
     &        max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC))
./pkg/generic_advdiff/gad_os7mp_adv_r.F 201 GAD_OS7MP_ADV_R 
         Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl)
./pkg/generic_advdiff/gad_os7mp_adv_r.F 204 GAD_OS7MP_ADV_R 
         wT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 49 GAD_OS7MP_ADV_R 
      Eps = 1. _d -20
./pkg/generic_advdiff/gad_os7mp_adv_r.F 65 GAD_OS7MP_ADV_R 
        IF (wTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F 80 GAD_OS7MP_ADV_R 
        ELSEIF (wTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_r.F 96 GAD_OS7MP_ADV_R 
         Qippp = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 97 GAD_OS7MP_ADV_R 
         Qipp  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 98 GAD_OS7MP_ADV_R 
         Qip   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_r.F 99 GAD_OS7MP_ADV_R 
         Qi    = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 100 GAD_OS7MP_ADV_X 
         Qippp = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 101 GAD_OS7MP_ADV_X 
         Qipp  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 102 GAD_OS7MP_ADV_X 
         Qip   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 103 GAD_OS7MP_ADV_X 
         Qi    = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 104 GAD_OS7MP_ADV_X 
         Qim   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 105 GAD_OS7MP_ADV_X 
         Qimm  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 106 GAD_OS7MP_ADV_X 
         Qimmm = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 108 GAD_OS7MP_ADV_X 
         MskIpp  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 109 GAD_OS7MP_ADV_X 
         MskIp   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 110 GAD_OS7MP_ADV_X 
         MskI    = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 111 GAD_OS7MP_ADV_X 
         MskIm   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 112 GAD_OS7MP_ADV_X 
         MskImm  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 113 GAD_OS7MP_ADV_X 
         MskImmm = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 116 GAD_OS7MP_ADV_X 
        IF (uTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F 118 GAD_OS7MP_ADV_X 
         Fac = 1. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 122 GAD_OS7MP_ADV_X 
         Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 127 GAD_OS7MP_ADV_X 
         Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 133 GAD_OS7MP_ADV_X 
         Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 140 GAD_OS7MP_ADV_X 
         Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 148 GAD_OS7MP_ADV_X 
         Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 161 GAD_OS7MP_ADV_X 
         recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 168 GAD_OS7MP_ADV_X 
         recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 179 GAD_OS7MP_ADV_X 
         A = 4. _d 0*d2 - d2p1
./pkg/generic_advdiff/gad_os7mp_adv_x.F 180 GAD_OS7MP_ADV_X 
         B = 4. _d 0*d2p1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_x.F 183 GAD_OS7MP_ADV_X 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 184 GAD_OS7MP_ADV_X 
         A = 4. _d 0*d2m1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_x.F 185 GAD_OS7MP_ADV_X 
         B = 4. _d 0*d2 - d2m1
./pkg/generic_advdiff/gad_os7mp_adv_x.F 188 GAD_OS7MP_ADV_X 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 196 GAD_OS7MP_ADV_X 
         PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp
./pkg/generic_advdiff/gad_os7mp_adv_x.F 197 GAD_OS7MP_ADV_X 
         PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI )
./pkg/generic_advdiff/gad_os7mp_adv_x.F 199 GAD_OS7MP_ADV_X 
         PhiMin = max( min(0. _d 0,PhiMD),
./pkg/generic_advdiff/gad_os7mp_adv_x.F 200 GAD_OS7MP_ADV_X 
     &                 min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) )
./pkg/generic_advdiff/gad_os7mp_adv_x.F 201 GAD_OS7MP_ADV_X 
         PhiMax = min( max(2. _d 0/(1. _d 0-cfl),PhiMD),
./pkg/generic_advdiff/gad_os7mp_adv_x.F 202 GAD_OS7MP_ADV_X 
     &                 max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) )
./pkg/generic_advdiff/gad_os7mp_adv_x.F 205 GAD_OS7MP_ADV_X 
         Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl)
./pkg/generic_advdiff/gad_os7mp_adv_x.F 208 GAD_OS7MP_ADV_X 
         uT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 51 GAD_OS7MP_ADV_X 
      Eps = 1. _d -20
./pkg/generic_advdiff/gad_os7mp_adv_x.F 54 GAD_OS7MP_ADV_X 
       uT(1-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 55 GAD_OS7MP_ADV_X 
       uT(2-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 56 GAD_OS7MP_ADV_X 
       uT(3-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 57 GAD_OS7MP_ADV_X 
       uT(4-Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 58 GAD_OS7MP_ADV_X 
       uT(sNx+Olx-2,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 59 GAD_OS7MP_ADV_X 
       uT(sNx+Olx-1,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 60 GAD_OS7MP_ADV_X 
       uT(sNx+Olx,j)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_x.F 69 GAD_OS7MP_ADV_X 
        IF (uTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_x.F 84 GAD_OS7MP_ADV_X 
        ELSEIF (uTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F 100 GAD_OS7MP_ADV_Y 
         Qippp = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 101 GAD_OS7MP_ADV_Y 
         Qipp  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 102 GAD_OS7MP_ADV_Y 
         Qip   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 103 GAD_OS7MP_ADV_Y 
         Qi    = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 104 GAD_OS7MP_ADV_Y 
         Qim   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 105 GAD_OS7MP_ADV_Y 
         Qimm  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 106 GAD_OS7MP_ADV_Y 
         Qimmm = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 108 GAD_OS7MP_ADV_Y 
         MskIpp  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 109 GAD_OS7MP_ADV_Y 
         MskIp   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 110 GAD_OS7MP_ADV_Y 
         MskI    = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 111 GAD_OS7MP_ADV_Y 
         MskIm   = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 112 GAD_OS7MP_ADV_Y 
         MskImm  = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 113 GAD_OS7MP_ADV_Y 
         MskImmm = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 116 GAD_OS7MP_ADV_Y 
        IF (vTrans(i,j).NE.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F 118 GAD_OS7MP_ADV_Y 
         Fac = 1. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 122 GAD_OS7MP_ADV_Y 
         Fac = Fac * ( cfl + 1. _d 0 )/3. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 127 GAD_OS7MP_ADV_Y 
         Fac = Fac * ( cfl - 2. _d 0 )/4. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 133 GAD_OS7MP_ADV_Y 
         Fac = Fac * ( cfl - 3. _d 0 )/5. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 140 GAD_OS7MP_ADV_Y 
         Fac = Fac * ( cfl + 2. _d 0 )/6. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 148 GAD_OS7MP_ADV_Y 
         Fac = Fac * ( cfl + 2. _d 0 )/7. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 161 GAD_OS7MP_ADV_Y 
         recip_DelIp = sign(1. _d 0,DelIp)/max(abs(DelIp),Eps)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 168 GAD_OS7MP_ADV_Y 
         recip_DelI = sign(1. _d 0,DelI)/max(abs(DelI),Eps)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 179 GAD_OS7MP_ADV_Y 
         A = 4. _d 0*d2 - d2p1
./pkg/generic_advdiff/gad_os7mp_adv_y.F 180 GAD_OS7MP_ADV_Y 
         B = 4. _d 0*d2p1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_y.F 183 GAD_OS7MP_ADV_Y 
         dp1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 184 GAD_OS7MP_ADV_Y 
         A = 4. _d 0*d2m1 - d2
./pkg/generic_advdiff/gad_os7mp_adv_y.F 185 GAD_OS7MP_ADV_Y 
         B = 4. _d 0*d2 - d2m1
./pkg/generic_advdiff/gad_os7mp_adv_y.F 188 GAD_OS7MP_ADV_Y 
         dm1h = max(min(A,B,C,D),0. _d 0)+min(max(A,B,C,D),0. _d 0)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 196 GAD_OS7MP_ADV_Y 
         PhiMD = 1. _d 0/(1. _d 0-cfl)*(DelIp-dp1h)*recip_DelIp
./pkg/generic_advdiff/gad_os7mp_adv_y.F 197 GAD_OS7MP_ADV_Y 
         PhiLC = rp1h_cfl*( 1. _d 0+dm1h*recip_DelI )
./pkg/generic_advdiff/gad_os7mp_adv_y.F 199 GAD_OS7MP_ADV_Y 
         PhiMin = max( min(0. _d 0,PhiMD),
./pkg/generic_advdiff/gad_os7mp_adv_y.F 200 GAD_OS7MP_ADV_Y 
     &                 min(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) )
./pkg/generic_advdiff/gad_os7mp_adv_y.F 201 GAD_OS7MP_ADV_Y 
         PhiMax = min( max(2. _d 0/(1. _d 0-cfl),PhiMD),
./pkg/generic_advdiff/gad_os7mp_adv_y.F 202 GAD_OS7MP_ADV_Y 
     &                 max(0. _d 0,2. _d 0*rp1h_cfl,PhiLC) )
./pkg/generic_advdiff/gad_os7mp_adv_y.F 205 GAD_OS7MP_ADV_Y 
         Psi = Phi * 0.5 _d 0 * (1. _d 0 - cfl)
./pkg/generic_advdiff/gad_os7mp_adv_y.F 208 GAD_OS7MP_ADV_Y 
         vT(i,j) = 0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 51 GAD_OS7MP_ADV_Y 
      Eps = 1. _d -20
./pkg/generic_advdiff/gad_os7mp_adv_y.F 54 GAD_OS7MP_ADV_Y 
       vT(i,1-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 55 GAD_OS7MP_ADV_Y 
       vT(i,2-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 56 GAD_OS7MP_ADV_Y 
       vT(i,3-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 57 GAD_OS7MP_ADV_Y 
       vT(i,4-Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 58 GAD_OS7MP_ADV_Y 
       vT(i,sNy+Oly-2)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 59 GAD_OS7MP_ADV_Y 
       vT(i,sNy+Oly-1)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 60 GAD_OS7MP_ADV_Y 
       vT(i,sNy+Oly)=0. _d 0
./pkg/generic_advdiff/gad_os7mp_adv_y.F 69 GAD_OS7MP_ADV_Y 
        IF (vTrans(i,j).GT.0. _d 0) THEN
./pkg/generic_advdiff/gad_os7mp_adv_y.F 84 GAD_OS7MP_ADV_Y 
        ELSEIF (vTrans(i,j).LT.0. _d 0) THEN
./pkg/generic_advdiff/gad_som_adv_r.F 109 GAD_SOM_ADV_R 
      PARAMETER( two   = 2. _d 0 )
./pkg/generic_advdiff/gad_som_adv_r.F 110 GAD_SOM_ADV_R 
      PARAMETER( three = 3. _d 0 )
./pkg/generic_advdiff/gad_som_adv_r.F 120 GAD_SOM_ADV_R 
      IF ( deltaTloc.GT.0. _d 0 ) recip_dT = 1.0 _d 0 / deltaTloc
./pkg/generic_advdiff/gad_som_adv_r.F 130 GAD_SOM_ADV_R 
          fp_v (i,j,kUp) = MAX( 0. _d 0,  wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 133 GAD_SOM_ADV_R 
          alp1           = 1. _d 0 - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 162 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 165 GAD_SOM_ADV_R 
          aln1           = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 169 GAD_SOM_ADV_R 
          fn_z (i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 170 GAD_SOM_ADV_R 
          fn_zz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 173 GAD_SOM_ADV_R 
          fn_xz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 174 GAD_SOM_ADV_R 
          fn_yz(i,j,kUp) = 0. _d 0
./pkg/generic_advdiff/gad_som_adv_r.F 189 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 192 GAD_SOM_ADV_R 
          aln1           = 1. _d 0 - aln(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 230 GAD_SOM_ADV_R 
          fn_v (i,j,kUp) = MAX( 0. _d 0, -wLoc )
./pkg/generic_advdiff/gad_som_adv_r.F 252 GAD_SOM_ADV_R 
        alf1  = 1. _d 0 - aln(i,j,kDw) - alp(i,j,kUp)
./pkg/generic_advdiff/gad_som_adv_r.F 277 GAD_SOM_ADV_R 
        alf1 = 1. _d 0 - alfp - alfn
./pkg/generic_advdiff/gad_som_adv_r.F 278 GAD_SOM_ADV_R 
        alp1 = 1. _d 0 - alfp
./pkg/generic_advdiff/gad_som_adv_r.F 279 GAD_SOM_ADV_R 
        aln1 = 1. _d 0 - alfn
./pkg/generic_advdiff/gad_som_adv_r.F 285 GAD_SOM_ADV_R 
     &     - 5. _d 0*(-alpmn*alf1*sm_z(i,j,k) + alfp*alp1*fp_z(i,j,kDw)
./pkg/generic_advdiff/gad_som_adv_x.F 122 GAD_SOM_ADV_X 
      IF ( deltaTloc.GT.0. _d 0 ) recip_dT = 1.0 _d 0 / deltaTloc
./pkg/generic_advdiff/gad_som_adv_x.F 167 GAD_SOM_ADV_X 
         s1max = slpmax*1.5 _d 0
./pkg/generic_advdiff/gad_som_adv_x.F 185 GAD_SOM_ADV_X 
        fp_v (i,j) = MAX( 0. _d 0,  uLoc )
./pkg/generic_advdiff/gad_som_adv_x.F 188 GAD_SOM_ADV_X 
        alp1       = 1. _d 0 - alp(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 204 GAD_SOM_ADV_X 
        fn_v (i,j) = MAX( 0. _d 0, -uLoc )
./pkg/generic_advdiff/gad_som_adv_x.F 207 GAD_SOM_ADV_X 
        aln1       = 1. _d 0 - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 246 GAD_SOM_ADV_X 
        alf1  = 1. _d 0 - aln(i,j) - alp(i+1,j)
./pkg/generic_advdiff/gad_som_adv_x.F 271 GAD_SOM_ADV_X 
        alf1 = 1. _d 0 - alfp - alfn
./pkg/generic_advdiff/gad_som_adv_x.F 272 GAD_SOM_ADV_X 
        alp1 = 1. _d 0 - alfp
./pkg/generic_advdiff/gad_som_adv_x.F 273 GAD_SOM_ADV_X 
        aln1 = 1. _d 0 - alfn
./pkg/generic_advdiff/gad_som_adv_x.F 279 GAD_SOM_ADV_X 
     &   - 5. _d 0*(-alpmn*alf1*sm_x(i,j) + alfp*alp1*fp_x(i,j)
./pkg/generic_advdiff/gad_som_adv_x.F 85 GAD_SOM_ADV_X 
      PARAMETER( two   = 2. _d 0 )
./pkg/generic_advdiff/gad_som_adv_x.F 86 GAD_SOM_ADV_X 
      PARAMETER( three = 3. _d 0 )
./pkg/generic_advdiff/gad_som_adv_y.F 122 GAD_SOM_ADV_Y 
      IF ( deltaTloc.GT.0. _d 0 ) recip_dT = 1.0 _d 0 / deltaTloc
./pkg/generic_advdiff/gad_som_adv_y.F 167 GAD_SOM_ADV_Y 
         s1max = slpmax*1.5 _d 0
./pkg/generic_advdiff/gad_som_adv_y.F 185 GAD_SOM_ADV_Y 
        fp_v (i,j) = MAX( 0. _d 0,  vLoc )
./pkg/generic_advdiff/gad_som_adv_y.F 188 GAD_SOM_ADV_Y 
        alp1       = 1. _d 0 - alp(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 205 GAD_SOM_ADV_Y 
        fn_v (i,j) = MAX( 0. _d 0, -vLoc )
./pkg/generic_advdiff/gad_som_adv_y.F 208 GAD_SOM_ADV_Y 
        aln1       = 1. _d 0 - aln(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 247 GAD_SOM_ADV_Y 
        alf1  = 1. _d 0 - aln(i,j) - alp(i,j+1)
./pkg/generic_advdiff/gad_som_adv_y.F 272 GAD_SOM_ADV_Y 
        alf1 = 1. _d 0 - alfp - alfn
./pkg/generic_advdiff/gad_som_adv_y.F 273 GAD_SOM_ADV_Y 
        alp1 = 1. _d 0 - alfp
./pkg/generic_advdiff/gad_som_adv_y.F 274 GAD_SOM_ADV_Y 
        aln1 = 1. _d 0 - alfn
./pkg/generic_advdiff/gad_som_adv_y.F 280 GAD_SOM_ADV_Y 
     &   - 5. _d 0*(-alpmn*alf1*sm_y(i,j) + alfp*alp1*fp_y(i,j)
./pkg/generic_advdiff/gad_som_adv_y.F 85 GAD_SOM_ADV_Y 
      PARAMETER( two   = 2. _d 0 )
./pkg/generic_advdiff/gad_som_adv_y.F 86 GAD_SOM_ADV_Y 
      PARAMETER( three = 3. _d 0 )
./pkg/generic_advdiff/gad_som_advect.F 272 GAD_SOM_ADVECT 
     &                + (1. _d 0 - maskC(i,j,k,bi,bj))
./pkg/generic_advdiff/gad_som_advect.F 508 GAD_SOM_ADVECT 
           alp  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 509 GAD_SOM_ADVECT 
           aln  (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 510 GAD_SOM_ADVECT 
           fp_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 511 GAD_SOM_ADVECT 
           fn_v (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 512 GAD_SOM_ADVECT 
           fp_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 513 GAD_SOM_ADVECT 
           fn_o (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 514 GAD_SOM_ADVECT 
           fp_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 515 GAD_SOM_ADVECT 
           fn_x (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 516 GAD_SOM_ADVECT 
           fp_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 517 GAD_SOM_ADVECT 
           fn_y (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 518 GAD_SOM_ADVECT 
           fp_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 519 GAD_SOM_ADVECT 
           fn_z (i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 520 GAD_SOM_ADVECT 
           fp_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 521 GAD_SOM_ADVECT 
           fn_xx(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 522 GAD_SOM_ADVECT 
           fp_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 523 GAD_SOM_ADVECT 
           fn_yy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 524 GAD_SOM_ADVECT 
           fp_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 525 GAD_SOM_ADVECT 
           fn_zz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 526 GAD_SOM_ADVECT 
           fp_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 527 GAD_SOM_ADVECT 
           fn_xy(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 528 GAD_SOM_ADVECT 
           fp_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 529 GAD_SOM_ADVECT 
           fn_xz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 530 GAD_SOM_ADVECT 
           fp_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_advect.F 531 GAD_SOM_ADVECT 
           fn_yz(i,j,kDown) = 0. _d 0
./pkg/generic_advdiff/gad_som_lim_r.F 58 GAD_SOM_LIM_R 
      PARAMETER( three = 3. _d 0 )
./pkg/generic_advdiff/gad_som_lim_r.F 71 GAD_SOM_LIM_R 
          s1max = slpmax*1.5 _d 0
./pkg/generic_advdiff/gad_u3_adv_r.F 80 GAD_U3_ADV_R 
     &        (Tracer(i,j,k,bi,bj)+Tracer(i,j,km1,bi,bj))*0.5 _d 0
./pkg/generic_advdiff/gad_u3_adv_r.F 81 GAD_U3_ADV_R 
     &        -oneSixth*(Rjjm+Rjjp)*0.5 _d 0  )
./pkg/generic_advdiff/gad_u3_adv_r.F 83 GAD_U3_ADV_R 
     &         oneSixth*(Rjjm-Rjjp)*0.5 _d 0
./pkg/generic_advdiff/gad_u3_adv_x.F 70 GAD_U3_ADV_X 
     &               )*0.5 _d 0
./pkg/generic_advdiff/gad_u3_adv_x.F 71 GAD_U3_ADV_X 
     &  +ABS( uTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_u3_adv_y.F 70 GAD_U3_ADV_Y 
     &               )*0.5 _d 0
./pkg/generic_advdiff/gad_u3_adv_y.F 71 GAD_U3_ADV_Y 
     &  +ABS( vTrans(i,j) )*0.5 _d 0*oneSixth*( Rjjp-Rjjm )
./pkg/generic_advdiff/gad_u3c4_impl_r.F 103 GAD_U3C4_IMPL_R 
            rHigh  = (1. _d 0 -wCFL*wCFL)*oneSixth
./pkg/generic_advdiff/gad_u3c4_impl_r.F 105 GAD_U3C4_IMPL_R 
            rUpwind= (2. _d 0*rHigh )*ABS(rCenter)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 109 GAD_U3C4_IMPL_R 
            rUpwind=  2. _d 0*oneSixth*ABS(rCenter)
./pkg/generic_advdiff/gad_u3c4_impl_r.F 82 GAD_U3C4_IMPL_R 
      maskP1 = 1. _d 0
./pkg/generic_advdiff/gad_u3c4_impl_r.F 83 GAD_U3C4_IMPL_R 
      maskM2 = 1. _d 0
./pkg/generic_advdiff/gad_u3c4_impl_r.F 84 GAD_U3C4_IMPL_R 
      IF ( k.LE.2 ) maskM2 = 0. _d 0
./pkg/generic_advdiff/gad_u3c4_impl_r.F 85 GAD_U3C4_IMPL_R 
      IF ( k.GE.Nr) maskP1 = 0. _d 0
./pkg/generic_advdiff/gad_u3c4_impl_r.F 93 GAD_U3C4_IMPL_R 
           rCenter= 0.5 _d 0 *rTrans(i,j)*recip_rA(i,j,bi,bj)*rkSign
./pkg/generic_advdiff/gad_u3c4_impl_r.F 96 GAD_U3C4_IMPL_R 
           IF ( flagC4 .AND. mskM*mskP.GT.0. _d 0 ) THEN
./pkg/generic_advdiff/gad_u3c4_impl_r.F 97 GAD_U3C4_IMPL_R 
            rUpwind= 0. _d 0
./pkg/generic_advdiff/salt_fill.F 101 SALT_FILL 
         if(salt(i,j,1,bi,bj).lt.0.0 _d 0)
./pkg/generic_advdiff/salt_fill.F 102 SALT_FILL 
     .                  salt(i,j,1,bi,bj) = 0.0 _d 0
./pkg/generic_advdiff/salt_fill.F 75 SALT_FILL 
          tmpFac = -1. _d 0
./pkg/generic_advdiff/salt_fill.F 90 SALT_FILL 
          if( salt(i,j,L,bi,bj).lt.0.0  _d 0) then
./pkg/generic_advdiff/salt_fill.F 93 SALT_FILL 
           salt(i,j,L,bi,bj) = 0.0 _d 0
./pkg/ggl90/ggl90_calc.F 117 GGL90_CALC 
      p4=0.25 _d 0
./pkg/ggl90/ggl90_calc.F 118 GGL90_CALC 
      p8=0.125 _d 0
./pkg/ggl90/ggl90_calc.F 119 GGL90_CALC 
      p16=0.0625 _d 0
./pkg/ggl90/ggl90_calc.F 131 GGL90_CALC 
      explDissFac = 0. _d 0
./pkg/ggl90/ggl90_calc.F 132 GGL90_CALC 
      implDissFac = 1. _d 0 - explDissFac
./pkg/ggl90/ggl90_calc.F 138 GGL90_CALC 
         KappaE(i,j,k)            = 0. _d 0
./pkg/ggl90/ggl90_calc.F 139 GGL90_CALC 
         TKEPrandtlNumber(i,j,k)  = 1. _d 0
./pkg/ggl90/ggl90_calc.F 141 GGL90_CALC 
         GGL90visctmp(i,j,k)      = 0. _d 0
./pkg/ggl90/ggl90_calc.F 147 GGL90_CALC 
        rhoK(i,j)          = 0. _d 0
./pkg/ggl90/ggl90_calc.F 148 GGL90_CALC 
        rhoKm1(i,j)        = 0. _d 0
./pkg/ggl90/ggl90_calc.F 150 GGL90_CALC 
        rMixingLength(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 216 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 239 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 281 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / GGL90mixingLength(i,j,k)
./pkg/ggl90/ggl90_calc.F 318 GGL90_CALC 
          rMixingLength(i,j,k) = 1. _d 0 / tmpmlx
./pkg/ggl90/ggl90_calc.F 342 GGL90_CALC 
       IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN
./pkg/ggl90/ggl90_calc.F 357 GGL90_CALC 
         dfx(1-Olx,j)=0. _d 0
./pkg/ggl90/ggl90_calc.F 367 GGL90_CALC 
         dfy(i,1-Oly)=0. _d 0
./pkg/ggl90/ggl90_calc.F 396 GGL90_CALC 
         tempU= .5 _d 0*( uVel(i,j,km1,bi,bj)+uVel(i+1,j,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 399 GGL90_CALC 
         tempV= .5 _d 0*( vVel(i,j,km1,bi,bj)+vVel(i,j+1,km1,bi,bj)
./pkg/ggl90/ggl90_calc.F 403 GGL90_CALC 
         RiNumber = MAX(Nsquare(i,j,k),0. _d 0)/(verticalShear+GGL90eps)
./pkg/ggl90/ggl90_calc.F 405 GGL90_CALC 
         prTemp = 1. _d 0
./pkg/ggl90/ggl90_calc.F 406 GGL90_CALC 
         IF ( RiNumber .GE. 0.2 _d 0 ) prTemp = 5. _d 0 * RiNumber
./pkg/ggl90/ggl90_calc.F 407 GGL90_CALC 
         TKEPrandtlNumber(i,j,k) = MIN(10. _d 0,prTemp)
./pkg/ggl90/ggl90_calc.F 435 GGL90_CALC 
       IF ( GGL90diffTKEh .GT. 0. _d 0 ) THEN
./pkg/ggl90/ggl90_calc.F 457 GGL90_CALC 
         a(i,j,1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 469 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j, k )+KappaE(i,j,km1))
./pkg/ggl90/ggl90_calc.F 477 GGL90_CALC 
         c(i,j,1)  = 0. _d 0
./pkg/ggl90/ggl90_calc.F 489 GGL90_CALC 
     &        *.5 _d 0*(KappaE(i,j,k)+KappaE(i,j,kp1))
./pkg/ggl90/ggl90_calc.F 499 GGL90_CALC 
          b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./pkg/ggl90/ggl90_calc.F 514 GGL90_CALC 
     &    ( .5 _d 0*( surfaceForcingU(i,  j,  bi,bj)
./pkg/ggl90/ggl90_calc.F 516 GGL90_CALC 
     &  + ( .5 _d 0*( surfaceForcingV(i,  j,  bi,bj)
./pkg/ggl90/ggl90_calc.F 524 GGL90_CALC 
        a(i,j,kp1) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 529 GGL90_CALC 
        c(i,j,kBottom) = 0. _d 0
./pkg/ggl90/ggl90_calc.F 601 GGL90_CALC 
     & /(p4 * 2. _d 0
./pkg/ggl90/ggl90_calc.F 611 GGL90_CALC 
     &                   (.5 _d 0*(GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc.F 634 GGL90_CALC 
     & /(p4 * 2. _d 0
./pkg/ggl90/ggl90_calc.F 644 GGL90_CALC 
     &                   (.5 _d 0*(GGL90visctmp(i,j,k)
./pkg/ggl90/ggl90_calc_visc.F 43 GGL90_CALC_VISC 
      p4=0.25 _d 0
./pkg/ggl90/ggl90_calc_visc.F 44 GGL90_CALC_VISC 
      p8=0.125 _d 0
./pkg/ggl90/ggl90_calc_visc.F 45 GGL90_CALC_VISC 
      p16=0.0625 _d 0
./pkg/ggl90/ggl90_check.F 51 GGL90_CHECK 
      IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN
./pkg/ggl90/ggl90_check.F 59 GGL90_CHECK 
      IF ( GGL90diffTKEh .NE. 0. _d 0 ) THEN
./pkg/ggl90/ggl90_exchanges.F 33 GGL90_EXCHANGES 
      IF (GGL90isON .AND. GGL90diffTKEh .GT. 0. _d 0) THEN
./pkg/ggl90/ggl90_init_fixed.F 51 GGL90_INIT_FIXED 
          mskCor(i,j,bi,bj) = 1. _d 0
./pkg/ggl90/ggl90_init_varia.F 40 GGL90_INIT_VARIA 
           GGL90viscArU(I,J,K,bi,bj) = 0. _d 0
./pkg/ggl90/ggl90_init_varia.F 41 GGL90_INIT_VARIA 
           GGL90viscArV(I,J,K,bi,bj) = 0. _d 0
./pkg/ggl90/ggl90_init_varia.F 42 GGL90_INIT_VARIA 
           GGL90diffKr(I,J,K,bi,bj)  = 0. _d 0
./pkg/ggl90/ggl90_output.F 104 GGL90_OUTPUT 
      IF ( GGL90taveFreq .GT. 0. _d 0 ) THEN
./pkg/ggl90/ggl90_readparms.F 63 GGL90_READPARMS 
      GGL90ck              = 0.1 _d 0
./pkg/ggl90/ggl90_readparms.F 64 GGL90_READPARMS 
      GGL90ceps            = 0.7 _d 0
./pkg/ggl90/ggl90_readparms.F 65 GGL90_READPARMS 
      GGL90alpha           = 1.0 _d 0
./pkg/ggl90/ggl90_readparms.F 67 GGL90_READPARMS 
      GGL90m2              = 3.75 _d 0
./pkg/ggl90/ggl90_readparms.F 68 GGL90_READPARMS 
      GGL90TKEmin          = 1.0 _d -11
./pkg/ggl90/ggl90_readparms.F 70 GGL90_READPARMS 
      GGL90TKEsurfMin      = 1.0 _d -04
./pkg/ggl90/ggl90_readparms.F 72 GGL90_READPARMS 
      GGL90viscMax         = 1. _d 2
./pkg/ggl90/ggl90_readparms.F 73 GGL90_READPARMS 
      GGL90diffMax         = 1. _d 2
./pkg/ggl90/ggl90_readparms.F 74 GGL90_READPARMS 
      GGL90diffTKEh        = 0.0 _d 0
./pkg/ggl90/ggl90_readparms.F 75 GGL90_READPARMS 
      GGL90mixingLengthMin = 1.0 _d -08
./pkg/gmredi/GMREDI.h 11 NO PROCEDURE 
      PARAMETER( op5  = 0.5 _d 0 )
./pkg/gmredi/GMREDI.h 12 NO PROCEDURE 
      PARAMETER( op25 = 0.25 _d 0 )
./pkg/gmredi/gmredi_calc_psi_b.F 84 GMREDI_CALC_PSI_B 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 85 GMREDI_CALC_PSI_B 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 86 GMREDI_CALC_PSI_B 
         dSigmaDrW(i,j)    = 0. _d 0
./pkg/gmredi/gmredi_calc_psi_b.F 87 GMREDI_CALC_PSI_B 
         dSigmaDrS(i,j)    = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 139 GMREDI_CALC_TENSOR 
      recipMaxSlope = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 140 GMREDI_CALC_TENSOR 
      IF ( GM_Visbeck_maxSlope.GT.0. _d 0 ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 141 GMREDI_CALC_TENSOR 
        recipMaxSlope = 1. _d 0 / GM_Visbeck_maxSlope
./pkg/gmredi/gmredi_calc_tensor.F 145 GMREDI_CALC_TENSOR 
        VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 153 GMREDI_CALC_TENSOR 
       Cspd = 2. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 154 GMREDI_CALC_TENSOR 
       LrhoInf = 15. _d 3
./pkg/gmredi/gmredi_calc_tensor.F 155 GMREDI_CALC_TENSOR 
       LrhoSup = 100. _d 3
./pkg/gmredi/gmredi_calc_tensor.F 203 GMREDI_CALC_TENSOR 
          ldd97_LrhoC(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 204 GMREDI_CALC_TENSOR 
          ldd97_LrhoW(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 205 GMREDI_CALC_TENSOR 
          ldd97_LrhoS(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 216 GMREDI_CALC_TENSOR 
         baseSlope(i,j) =  0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 217 GMREDI_CALC_TENSOR 
         recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 218 GMREDI_CALC_TENSOR 
         locMixLayer(i,j) = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 245 GMREDI_CALC_TENSOR 
         SlopeX(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 246 GMREDI_CALC_TENSOR 
         SlopeY(i,j)       = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 247 GMREDI_CALC_TENSOR 
         dSigmaDx(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 248 GMREDI_CALC_TENSOR 
         dSigmaDy(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 249 GMREDI_CALC_TENSOR 
         dSigmaDr(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 250 GMREDI_CALC_TENSOR 
         SlopeSqr(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 251 GMREDI_CALC_TENSOR 
         taperFct(i,j)     = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 252 GMREDI_CALC_TENSOR 
         Kwx(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 253 GMREDI_CALC_TENSOR 
         Kwy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 254 GMREDI_CALC_TENSOR 
         Kwz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 256 GMREDI_CALC_TENSOR 
         Kux(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 257 GMREDI_CALC_TENSOR 
         Kvy(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 260 GMREDI_CALC_TENSOR 
         Kuz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 261 GMREDI_CALC_TENSOR 
         Kvz(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 264 GMREDI_CALC_TENSOR 
         GM_PsiX(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 265 GMREDI_CALC_TENSOR 
         GM_PsiY(i,j,k,bi,bj)  = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 291 GMREDI_CALC_TENSOR 
          dSigmaDr(i,j) = MIN( sigmaR(i,j,k), 0. _d 0 )
./pkg/gmredi/gmredi_calc_tensor.F 323 GMREDI_CALC_TENSOR 
           dSigmaR = ( dSigmaDr(i,j)*4. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 328 GMREDI_CALC_TENSOR 
     &               )/( 4. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 336 GMREDI_CALC_TENSOR 
           IF ( dSigmaH .GT. 0. _d 0 ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 348 GMREDI_CALC_TENSOR 
             IF ( N2loc.GT.0. _d 0 ) THEN
./pkg/gmredi/gmredi_calc_tensor.F 351 GMREDI_CALC_TENSOR 
               SNloc = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 354 GMREDI_CALC_TENSOR 
             SNloc = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 436 GMREDI_CALC_TENSOR 
        deltaH=max(deltaH, 0. _d 0)
./pkg/gmredi/gmredi_calc_tensor.F 502 GMREDI_CALC_TENSOR 
     &           + VisbeckK(i,j,bi,bj)*(1. _d 0 + GM_skewflx)
./pkg/gmredi/gmredi_calc_tensor.F 564 GMREDI_CALC_TENSOR 
       maskp1 = 1. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 565 GMREDI_CALC_TENSOR 
       IF (k.GE.Nr) maskp1 = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 681 GMREDI_CALC_TENSOR 
     &     +(VisbeckK(i,j,bi,bj)+VisbeckK(i-1,j,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F 701 GMREDI_CALC_TENSOR 
     &       )      ) * 0.25 _d 0
./pkg/gmredi/gmredi_calc_tensor.F 752 GMREDI_CALC_TENSOR 
       maskp1 = 1. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 753 GMREDI_CALC_TENSOR 
       IF (k.GE.Nr) maskp1 = 0. _d 0
./pkg/gmredi/gmredi_calc_tensor.F 869 GMREDI_CALC_TENSOR 
     &     +(VisbeckK(i,j,bi,bj)+VisbeckK(i,j-1,bi,bj))*0.5 _d 0
./pkg/gmredi/gmredi_calc_tensor.F 889 GMREDI_CALC_TENSOR 
     &       )      ) * 0.25 _d 0
./pkg/gmredi/gmredi_init_varia.F 47 GMREDI_INIT_VARIA 
           Kwx(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 48 GMREDI_INIT_VARIA 
           Kwy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 49 GMREDI_INIT_VARIA 
           Kwz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 51 GMREDI_INIT_VARIA 
           Kuz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 52 GMREDI_INIT_VARIA 
           Kvz(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 55 GMREDI_INIT_VARIA 
           Kux(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 56 GMREDI_INIT_VARIA 
           Kvy(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 59 GMREDI_INIT_VARIA 
           GM_PsiX(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 60 GMREDI_INIT_VARIA 
           GM_PsiY(i,j,k,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 63 GMREDI_INIT_VARIA 
          VisbeckK(i,j,bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_init_varia.F 74 GMREDI_INIT_VARIA 
        GM_timeAve(bi,bj) = 0. _d 0
./pkg/gmredi/gmredi_readparms.F 126 GMREDI_READPARMS 
      if (GM_maxSlope.NE.0.) GM_rMaxSlope = 1. _d 0 / GM_maxSlope
./pkg/gmredi/gmredi_readparms.F 75 GMREDI_READPARMS 
      GM_background_K     = 0. _d 0
./pkg/gmredi/gmredi_readparms.F 76 GMREDI_READPARMS 
      GM_maxSlope         = 1. _d -2
./pkg/gmredi/gmredi_readparms.F 77 GMREDI_READPARMS 
      GM_Kmin_horiz       = 0. _d 0
./pkg/gmredi/gmredi_readparms.F 78 GMREDI_READPARMS 
      GM_Small_Number     = 1. _d -20
./pkg/gmredi/gmredi_readparms.F 79 GMREDI_READPARMS 
      GM_slopeSqCutoff    = 1. _d +48
./pkg/gmredi/gmredi_readparms.F 84 GMREDI_READPARMS 
      GM_Scrit            = 0.004 _d 0
./pkg/gmredi/gmredi_readparms.F 85 GMREDI_READPARMS 
      GM_Sd               = 0.001 _d 0
./pkg/gmredi/gmredi_readparms.F 93 GMREDI_READPARMS 
      GM_Visbeck_alpha    =    0. _d 0
./pkg/gmredi/gmredi_readparms.F 94 GMREDI_READPARMS 
      GM_Visbeck_length   =  200. _d 3
./pkg/gmredi/gmredi_readparms.F 95 GMREDI_READPARMS 
      GM_Visbeck_depth    = 1000. _d 0
./pkg/gmredi/gmredi_readparms.F 96 GMREDI_READPARMS 
      GM_Visbeck_minDepth =    0. _d 0
./pkg/gmredi/gmredi_readparms.F 98 GMREDI_READPARMS 
      GM_Visbeck_minVal_K =    0. _d 0
./pkg/gmredi/gmredi_readparms.F 99 GMREDI_READPARMS 
      GM_Visbeck_maxVal_K = 2500. _d 0
./pkg/gmredi/gmredi_slope_limit.F 121 GMREDI_SLOPE_LIMIT 
      GM_bigSlope = 1. _d +02
./pkg/gmredi/gmredi_slope_limit.F 143 GMREDI_SLOPE_LIMIT 
        dSigmMod(i,j)    = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 144 GMREDI_SLOPE_LIMIT 
        tmpFld(i,j)      = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 179 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 184 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 187 GMREDI_SLOPE_LIMIT 
           dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 194 GMREDI_SLOPE_LIMIT 
        slopeMaxSpec=2. _d -3
./pkg/gmredi/gmredi_slope_limit.F 209 GMREDI_SLOPE_LIMIT 
          taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 234 GMREDI_SLOPE_LIMIT 
           dSigmMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 265 GMREDI_SLOPE_LIMIT 
           SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 266 GMREDI_SLOPE_LIMIT 
           SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 268 GMREDI_SLOPE_LIMIT 
           dRdSigmaLtd(i,j) = 1. _d 0/( dSigmaDr(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 284 GMREDI_SLOPE_LIMIT 
          taperFct(i,j)=1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 305 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 306 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 307 GMREDI_SLOPE_LIMIT 
            SlopeMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 308 GMREDI_SLOPE_LIMIT 
            taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 320 GMREDI_SLOPE_LIMIT 
            taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 322 GMREDI_SLOPE_LIMIT 
            SlopeX  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 323 GMREDI_SLOPE_LIMIT 
            SlopeY  (i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 324 GMREDI_SLOPE_LIMIT 
            SlopeMod(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 325 GMREDI_SLOPE_LIMIT 
            taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 339 GMREDI_SLOPE_LIMIT 
          IF ( hTransLay(i,j).LE.0. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F 349 GMREDI_SLOPE_LIMIT 
              recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 362 GMREDI_SLOPE_LIMIT 
                recipLambda(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 366 GMREDI_SLOPE_LIMIT 
                rLambMin = 1. _d 0 /( hMixLay(i,j)+depthZ(k+1) )
./pkg/gmredi/gmredi_slope_limit.F 384 GMREDI_SLOPE_LIMIT 
          IF ( hTransLay(i,j).GT.0. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F 392 GMREDI_SLOPE_LIMIT 
     &            *( 2. _d 0 + DoverLamb )
./pkg/gmredi/gmredi_slope_limit.F 397 GMREDI_SLOPE_LIMIT 
     &            *  2. _d 0
./pkg/gmredi/gmredi_slope_limit.F 398 GMREDI_SLOPE_LIMIT 
     &            *( 1. _d 0 + DoverLamb )
./pkg/gmredi/gmredi_slope_limit.F 404 GMREDI_SLOPE_LIMIT 
     &            *( 2. _d 0 + DoverLamb )
./pkg/gmredi/gmredi_slope_limit.F 409 GMREDI_SLOPE_LIMIT 
     &            *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j) )
./pkg/gmredi/gmredi_slope_limit.F 414 GMREDI_SLOPE_LIMIT 
     &            *  2. _d 0
./pkg/gmredi/gmredi_slope_limit.F 415 GMREDI_SLOPE_LIMIT 
     &            *( 1. _d 0 + DoverLamb )
./pkg/gmredi/gmredi_slope_limit.F 420 GMREDI_SLOPE_LIMIT 
     &            *( 1. _d 0 + hTransLay(i,j)*recipLambda(i,j)*2. _d 0 )
./pkg/gmredi/gmredi_slope_limit.F 473 GMREDI_SLOPE_LIMIT 
          taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 476 GMREDI_SLOPE_LIMIT 
             dRdSigmaLtd(i,j)=1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 492 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 538 GMREDI_SLOPE_LIMIT 
            SlopeX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 543 GMREDI_SLOPE_LIMIT 
            SlopeY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 546 GMREDI_SLOPE_LIMIT 
           dRdSigmaLtd(i,j) = 1. _d 0 / dSigmaDr(i,j)
./pkg/gmredi/gmredi_slope_limit.F 564 GMREDI_SLOPE_LIMIT 
          taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 567 GMREDI_SLOPE_LIMIT 
             taperFct(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_limit.F 582 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 600 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 616 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 619 GMREDI_SLOPE_LIMIT 
           taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_limit.F 631 GMREDI_SLOPE_LIMIT 
           taperFct(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 634 GMREDI_SLOPE_LIMIT 
           f1=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_limit.F 636 GMREDI_SLOPE_LIMIT 
           IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_limit.F 637 GMREDI_SLOPE_LIMIT 
             f2 = 1. _d 0
./pkg/gmredi/gmredi_slope_limit.F 639 GMREDI_SLOPE_LIMIT 
             f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 107 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 135 GMREDI_SLOPE_PSI 
          taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 144 GMREDI_SLOPE_PSI 
          dSigmaDrLtd(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 170 GMREDI_SLOPE_PSI 
          taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 207 GMREDI_SLOPE_PSI 
          taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 217 GMREDI_SLOPE_PSI 
             taperX(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 239 GMREDI_SLOPE_PSI 
          taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 249 GMREDI_SLOPE_PSI 
             taperY(i,j) = 0. _d 0
./pkg/gmredi/gmredi_slope_psi.F 308 GMREDI_SLOPE_PSI 
          taperX(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F 314 GMREDI_SLOPE_PSI 
          taperY(i,j)=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F 326 GMREDI_SLOPE_PSI 
            f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F 332 GMREDI_SLOPE_PSI 
            IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_psi.F 333 GMREDI_SLOPE_PSI 
              f2 = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 335 GMREDI_SLOPE_PSI 
              f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 346 GMREDI_SLOPE_PSI 
            f1=op5*( 1. _d 0 + TANH( (GM_Scrit-Smod)/GM_Sd ))
./pkg/gmredi/gmredi_slope_psi.F 352 GMREDI_SLOPE_PSI 
            IF ( Rnondim.GE.1. _d 0 ) THEN
./pkg/gmredi/gmredi_slope_psi.F 353 GMREDI_SLOPE_PSI 
              f2 = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 355 GMREDI_SLOPE_PSI 
              f2 = op5*( 1. _d 0 + SIN( fpi*(Rnondim-op5) ))
./pkg/gmredi/gmredi_slope_psi.F 392 GMREDI_SLOPE_PSI 
          taperX(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 413 GMREDI_SLOPE_PSI 
          taperY(i,j) = 1. _d 0
./pkg/gmredi/gmredi_slope_psi.F 417 GMREDI_SLOPE_PSI 
        slopeMaxSpec=1. _d -4
./pkg/grdchk/grdchk_getadxx.F 77 GRDCHK_GETADXX 
      dumtime      = 0. _d 0
./pkg/grdchk/grdchk_getxx.F 81 GRDCHK_GETXX 
      dumtime      = 0. _d 0
./pkg/grdchk/grdchk_main.F 176 GRDCHK_MAIN 
                     tmpplot1(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 177 GRDCHK_MAIN 
                     tmpplot2(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 178 GRDCHK_MAIN 
                     tmpplot3(i,j,k,bi,bj) = 0. _d 0
./pkg/grdchk/grdchk_main.F 186 GRDCHK_MAIN 
         grdchk_epsfac = 2. _d 0
./pkg/grdchk/grdchk_main.F 188 GRDCHK_MAIN 
         grdchk_epsfac = 1. _d 0
./pkg/grdchk/grdchk_main.F 259 GRDCHK_MAIN 
               localEps = 1. _d 0
./pkg/grdchk/grdchk_readparms.F 91 GRDCHK_READPARMS 
        grdchk_eps      = 1. _d 0
./pkg/grdchk/grdchk_setxx.F 78 GRDCHK_SETXX 
      dumtime      = 0. _d 0
./pkg/gridalt/gridalt_update.F 76 GRIDALT_UPDATE 
           temparr(i,j,L,bi,bj) = dpphys(i,j,L,bi,bj) * 1. _d -2
./pkg/icefront/icefront_init_fixed.F 77 ICEFRONT_INIT_FIXED 
           IF (ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0) THEN
./pkg/icefront/icefront_init_varia.F 42 ICEFRONT_INIT_VARIA 
           icefront_TendT (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_init_varia.F 43 ICEFRONT_INIT_VARIA 
           icefront_TendS (i,j,k,bi,bj) = 0. _d 0
./pkg/icefront/icefront_readparms.F 110 ICEFRONT_READPARMS 
      IF ( ICEFRONTlatentHeat .NE. 0. _d 0 )
./pkg/icefront/icefront_readparms.F 111 ICEFRONT_READPARMS 
     &     recip_ICEFRONTlatentHeat = 1. _d 0/ICEFRONTlatentHeat
./pkg/icefront/icefront_readparms.F 114 ICEFRONT_READPARMS 
     &     5.05 _d -3 *ICEFRONTheatTransCoeff
./pkg/icefront/icefront_readparms.F 74 ICEFRONT_READPARMS 
       ICEFRONTlatentHeat       =  334.0 _d 3
./pkg/icefront/icefront_readparms.F 75 ICEFRONT_READPARMS 
       ICEFRONTHeatCapacity_Cp  = 2000.0 _d 0
./pkg/icefront/icefront_readparms.F 76 ICEFRONT_READPARMS 
       rhoIcefront              =  917.0 _d 0
./pkg/icefront/icefront_readparms.F 77 ICEFRONT_READPARMS 
       ICEFRONTheatTransCoeff   =    1.0 _d -04
./pkg/icefront/icefront_readparms.F 78 ICEFRONT_READPARMS 
       ICEFRONTkappa            =   1.54 _d -06
./pkg/icefront/icefront_readparms.F 79 ICEFRONT_READPARMS 
       ICEFRONTthetaSurface     = - 20.0 _d 0
./pkg/icefront/icefront_readparms.F 82 ICEFRONT_READPARMS 
      recip_ICEFRONTlatentHeat =    0.0 _d 0
./pkg/icefront/icefront_thermodynamics.F 102 ICEFRONT_THERMODYNAMICS 
           IF( ICEFRONTlength(I,J,bi,bj) .GT. 0. _d 0
./pkg/icefront/icefront_thermodynamics.F 108 ICEFRONT_THERMODYNAMICS 
            sLoc = MAX(salt(I,J,K,bi,bj), 0. _d 0)
./pkg/icefront/icefront_thermodynamics.F 130 ICEFRONT_THERMODYNAMICS 
            discrim = bqe*bqe - 4. _d 0*aqe*cqe
./pkg/icefront/icefront_thermodynamics.F 132 ICEFRONT_THERMODYNAMICS 
            IF ( saltFreeze .LT. 0. _d 0 )
./pkg/icefront/icefront_thermodynamics.F 175 ICEFRONT_THERMODYNAMICS 
            HeatFlux      (I,J) = 0. _d 0
./pkg/icefront/icefront_thermodynamics.F 176 ICEFRONT_THERMODYNAMICS 
            FreshWaterFlux(I,J) = 0. _d 0
./pkg/icefront/icefront_thermodynamics.F 84 ICEFRONT_THERMODYNAMICS 
      a0 = -0.0575   _d  0
./pkg/icefront/icefront_thermodynamics.F 85 ICEFRONT_THERMODYNAMICS 
      c0 =  0.0901   _d  0
./pkg/icefront/icefront_thermodynamics.F 86 ICEFRONT_THERMODYNAMICS 
      b  =  -7.61    _d -4
./pkg/icefront/icefront_thermodynamics.F 94 ICEFRONT_THERMODYNAMICS 
      recip_aqe = 0.5 _d 0/aqe
./pkg/kpp/kpp_init_fixed.F 121 KPP_INIT_FIXED 
      p25 = 0.25 _d 0
./pkg/kpp/kpp_init_fixed.F 122 KPP_INIT_FIXED 
      p33 = 1. _d 0 / 3. _d 0
./pkg/kpp/kpp_init_fixed.F 128 KPP_INIT_FIXED 
      Vtc     = concv * SQRT(0.2 _d 0 /concs/epsilon) / vonk**2 / Ricr
./pkg/kpp/kpp_init_fixed.F 153 KPP_INIT_FIXED 
                  wst(i,j) = vonk*usta*SQRT(1. _d 0 - conc3*zeta)
./pkg/kpp/kpp_output.F 190 KPP_OUTPUT 
      IF ( KPP_taveFreq .GT. 0. _d 0 ) THEN
./pkg/kpp/kpp_output.F 211 KPP_OUTPUT 
          tmpFac = 1. _d 0
./pkg/kpp/kpp_output.F 213 KPP_OUTPUT 
          tmpFac = 0. _d 0
./pkg/kpp/kpp_output.F 365 KPP_OUTPUT 
          tmpFac = 1. _d 0
./pkg/kpp/kpp_output.F 367 KPP_OUTPUT 
          tmpFac = 0. _d 0
./pkg/kpp/kpp_output.F 373 KPP_OUTPUT 
              tmpLoc(i,j,1) = 0. _d 0
./pkg/kpp/kpp_readparms.F 100 KPP_READPARMS 
      cmonob  = 1.  _d 0
./pkg/kpp/kpp_readparms.F 101 KPP_READPARMS 
      concv   = 1.8 _d 0
./pkg/kpp/kpp_readparms.F 102 KPP_READPARMS 
      hbf     = 1.  _d 0
./pkg/kpp/kpp_readparms.F 107 KPP_READPARMS 
      zmin    = -4. _d -7
./pkg/kpp/kpp_readparms.F 108 KPP_READPARMS 
      zmax    =  0. _d 0
./pkg/kpp/kpp_readparms.F 109 KPP_READPARMS 
      umin    =  0. _d 0
./pkg/kpp/kpp_readparms.F 110 KPP_READPARMS 
      umax    =  4. _d -2
./pkg/kpp/kpp_readparms.F 118 KPP_READPARMS 
      Riinfty =  0.7 _d 0
./pkg/kpp/kpp_readparms.F 119 KPP_READPARMS 
      BVSQcon = -0.2 _d -4
./pkg/kpp/kpp_readparms.F 121 KPP_READPARMS 
      difm0   = 5. _d -3
./pkg/kpp/kpp_readparms.F 122 KPP_READPARMS 
      difs0   = 5. _d -3
./pkg/kpp/kpp_readparms.F 123 KPP_READPARMS 
      dift0   = 5. _d -3
./pkg/kpp/kpp_readparms.F 125 KPP_READPARMS 
      difmcon = 0.1 _d 0
./pkg/kpp/kpp_readparms.F 126 KPP_READPARMS 
      difscon = 0.1 _d 0
./pkg/kpp/kpp_readparms.F 127 KPP_READPARMS 
      diftcon = 0.1 _d 0
./pkg/kpp/kpp_readparms.F 131 KPP_READPARMS 
      Rrho0   = 1.9 _d 0
./pkg/kpp/kpp_readparms.F 132 KPP_READPARMS 
      dsfmax  = 10. _d -3
./pkg/kpp/kpp_readparms.F 81 KPP_READPARMS 
      epsln   =   1. _d -20
./pkg/kpp/kpp_readparms.F 82 KPP_READPARMS 
      phepsi  =   1. _d -10
./pkg/kpp/kpp_readparms.F 83 KPP_READPARMS 
      epsilon =   1. _d -1
./pkg/kpp/kpp_readparms.F 84 KPP_READPARMS 
      vonk    =   0.4 _d 0
./pkg/kpp/kpp_readparms.F 85 KPP_READPARMS 
      dB_dz   =   5.2 _d -5
./pkg/kpp/kpp_readparms.F 86 KPP_READPARMS 
      conc1   =   5. _d 0
./pkg/kpp/kpp_readparms.F 87 KPP_READPARMS 
      conam   =   1.257 _d 0
./pkg/kpp/kpp_readparms.F 88 KPP_READPARMS 
      concm   =   8.380 _d 0
./pkg/kpp/kpp_readparms.F 89 KPP_READPARMS 
      conc2   =  16. _d 0
./pkg/kpp/kpp_readparms.F 90 KPP_READPARMS 
      zetam   =  -0.2 _d 0
./pkg/kpp/kpp_readparms.F 91 KPP_READPARMS 
      conas   = -28.86 _d 0
./pkg/kpp/kpp_readparms.F 92 KPP_READPARMS 
      concs   =  98.96 _d 0
./pkg/kpp/kpp_readparms.F 93 KPP_READPARMS 
      conc3   =  16. _d 0
./pkg/kpp/kpp_readparms.F 94 KPP_READPARMS 
      zetas   =  -1. _d 0
./pkg/kpp/kpp_readparms.F 98 KPP_READPARMS 
      Ricr    = 0.3 _d 0
./pkg/kpp/kpp_readparms.F 99 KPP_READPARMS 
      cekman  = 0.7 _d 0
./pkg/kpp/kpp_routines.F 1753 KPP_DOUBLEDIFF 
      numol = 1.5 _d -06
./pkg/kpp/kpp_routines.F 1754 KPP_DOUBLEDIFF 
      rFac  = 1. _d 0 / (Rrho0 - 1. _d 0 )
./pkg/kpp/kpp_routines.F 1770 KPP_DOUBLEDIFF 
     &        * 0.5 _d 0 * ABS( TTALPHA(I,J,Km1) + TTALPHA(I,J,K) )
./pkg/kpp/kpp_routines.F 1772 KPP_DOUBLEDIFF 
     &        * 0.5 _d 0 * ( SSBETA(I,J,Km1) + SSBETA(I,J,K) )
./pkg/kpp/kpp_routines.F 1773 KPP_DOUBLEDIFF 
         nuddt(I,J) = 0. _d 0
./pkg/kpp/kpp_routines.F 1774 KPP_DOUBLEDIFF 
         nudds(I,J) = 0. _d 0
./pkg/kpp/kpp_routines.F 1780 KPP_DOUBLEDIFF 
          Rrho  = 0. _d 0
./pkg/kpp/kpp_routines.F 1785 KPP_DOUBLEDIFF 
     &         .AND. betaDS(I,J) .GT. 0. _d 0 ) THEN
./pkg/kpp/kpp_routines.F 1789 KPP_DOUBLEDIFF 
           nutmp      =          ( 1. _d 0 - (Rrho - 1. _d 0) * rFac )
./pkg/kpp/kpp_routines.F 1792 KPP_DOUBLEDIFF 
           nuddt(I,J) = 0.7 _d 0 * nudds(I,J)
./pkg/kpp/kpp_routines.F 1793 KPP_DOUBLEDIFF 
          ELSEIF (   alphaDT(I,J) .LT. 0. _d 0
./pkg/kpp/kpp_routines.F 1794 KPP_DOUBLEDIFF 
     &          .AND. betaDS(I,J) .LT. 0. _d 0
./pkg/kpp/kpp_routines.F 1802 KPP_DOUBLEDIFF 
           nuddt(I,J) = numol * 0.909 _d 0
./pkg/kpp/kpp_routines.F 1803 KPP_DOUBLEDIFF 
     &          * exp ( 4.6 _d 0 * exp (
./pkg/kpp/kpp_routines.F 1804 KPP_DOUBLEDIFF 
     &          - 5.4 _d 0 * ( 1. _d 0/Rrho - 1. _d 0 ) ) )
./pkg/kpp/kpp_routines.F 1809 KPP_DOUBLEDIFF 
           nudds(I,J) = nuddt(I,J) * MAX( 0.15 _d 0 * Rrho,
./pkg/kpp/kpp_routines.F 1810 KPP_DOUBLEDIFF 
     &          1.85 _d 0 * Rrho - 0.85 _d 0 )
./pkg/kpp/kpp_routines.F 255 KPPMIX 
               ghat(i,k) = 0. _d 0
./pkg/kpp/kpp_routines.F 397 BLDEPTH 
         Rib(i,1) = 0. _d 0
./pkg/kpp/kpp_routines.F 405 BLDEPTH 
            KPPBFSFC(i,kl) = 0. _d 0
./pkg/kpp/kpp_routines.F 406 BLDEPTH 
            KPPRi(i,kl) = 0. _d 0
./pkg/kpp/kpp_routines.F 486 BLDEPTH 
            if (bvsq .eq. 0. _d 0) then
./pkg/kpp/kpp_routines.F 487 BLDEPTH 
              vtsq = 0. _d 0
./pkg/kpp/kpp_routines.F 870 RI_IWMIX 
      c1 = 1. _d 0
./pkg/kpp/kpp_routines.F 871 RI_IWMIX 
      c0 = 0. _d 0
./pkg/kpp/kpp_transport_ptr.F 90 KPP_TRANSPORT_PTR 
          tmpFac = 1. _d 0
./pkg/kpp/kpp_transport_ptr.F 92 KPP_TRANSPORT_PTR 
          tmpFac = 0. _d 0
./pkg/kpp/kpp_transport_s.F 72 KPP_TRANSPORT_S 
         tmpFac1 = 1. _d 0
./pkg/kpp/kpp_transport_s.F 74 KPP_TRANSPORT_S 
         tmpFac1 = 0. _d 0
./pkg/kpp/kpp_transport_s.F 81 KPP_TRANSPORT_S 
        tmpFac = 1. _d 0
./pkg/kpp/kpp_transport_s.F 83 KPP_TRANSPORT_S 
        tmpFac = 0. _d 0
./pkg/kpp/kpp_transport_t.F 71 KPP_TRANSPORT_T 
        tmpFac = 1. _d 0
./pkg/kpp/kpp_transport_t.F 73 KPP_TRANSPORT_T 
        tmpFac = 0. _d 0
./pkg/land/land_albedo.F 67 LAND_ALBEDO 
           ageSnow = land_snowAge(i,j,bi,bj)/86400. _d 0
./pkg/land/land_albedo.F 74 LAND_ALBEDO 
           IF ( tempSnowAlbL.LT.0. _d 0 ) THEN
./pkg/land/land_albedo.F 77 LAND_ALBEDO 
     &         *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlbL, 1. _d 0) )
./pkg/land/land_albedo.F 83 LAND_ALBEDO 
     &       +(albSnow-albOldSnow)*exp(-0.2 _d 0*ageSnow)
./pkg/land/land_impl_temp.F 140 LAND_IMPL_TEMP 
          beta  = 1. _d 0/(1. _d 0+alpha*bLoc)
./pkg/land/land_impl_temp.F 145 LAND_IMPL_TEMP 
            mW(k) = MAX( mW(k), 0. _d 0 )
./pkg/land/land_impl_temp.F 176 LAND_IMPL_TEMP 
          IF ( tg(2)*land_groundT(i,j,2,bi,bj) .LE. 0. _d 0
./pkg/land/land_impl_temp.F 177 LAND_IMPL_TEMP 
     &         .AND. tmpFlag .AND. tSurf*mSnow .LE. 0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 186 LAND_IMPL_TEMP 
           tg(1) = MIN( temp_bf, MAX(temp_af, 0. _d 0) )
./pkg/land/land_impl_temp.F 188 LAND_IMPL_TEMP 
           IF ( tSurf*mSnow .LE. 0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 222 LAND_IMPL_TEMP 
          IF ( tg(1)*land_groundT(i,j,1,bi,bj) .LE. 0. _d 0
./pkg/land/land_impl_temp.F 223 LAND_IMPL_TEMP 
     &         .AND. tmpFlag .AND. tSurf*mSnow .LE. 0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 229 LAND_IMPL_TEMP 
           IF ( tSurf*mSnow .LE. 0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 233 LAND_IMPL_TEMP 
             IF ( eg(1)*mSnow .GT. 0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 279 LAND_IMPL_TEMP 
          IF ( tmpFlag .AND. tSurf*mSnow .GT. 0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 286 LAND_IMPL_TEMP 
           tSurf = 0. _d 0
./pkg/land/land_impl_temp.F 294 LAND_IMPL_TEMP 
           IF ( eLoc .GT. 0. _d 0 .OR. mSnow.LT.mSnEpsil ) THEN
./pkg/land/land_impl_temp.F 298 LAND_IMPL_TEMP 
             tg(1) = 0. _d 0
./pkg/land/land_impl_temp.F 306 LAND_IMPL_TEMP 
            IF ( tg(2)*land_groundT(i,j,2,bi,bj).LE.0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 309 LAND_IMPL_TEMP 
            ELSEIF ( tg(1)*land_groundT(i,j,1,bi,bj).LE.0. _d 0 ) THEN
./pkg/land/land_impl_temp.F 321 LAND_IMPL_TEMP 
            dMsn = MIN( MAX(dMsn, 0. _d 0), mSnow )
./pkg/land/land_impl_temp.F 99 LAND_IMPL_TEMP 
      DATA    mSnEpsil / 1. _d -6 /
./pkg/land/land_ini_vars.F 143 LAND_INI_VARS 
             IF (land_groundT(i,j,k,bi,bj).LT. 0. _d 0)
./pkg/land/land_ini_vars.F 164 LAND_INI_VARS 
     &               MIN( temp_bf, MAX(temp_af, 0. _d 0) )
./pkg/land/land_ini_vars.F 65 LAND_INI_VARS 
           land_groundT(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 66 LAND_INI_VARS 
           land_enthalp(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 67 LAND_INI_VARS 
           land_groundW(i,j,k,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 75 LAND_INI_VARS 
           land_skinT  (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 76 LAND_INI_VARS 
           land_hSnow  (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 77 LAND_INI_VARS 
           land_snowAge(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 78 LAND_INI_VARS 
           land_runOff (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 79 LAND_INI_VARS 
           land_enRnOf (i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 80 LAND_INI_VARS 
           land_HeatFLx(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 81 LAND_INI_VARS 
           land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/land/land_ini_vars.F 82 LAND_INI_VARS 
           land_EnWFlux(i,j,bi,bj) = 0. _d 0
./pkg/land/land_readparms.F 139 LAND_READPARMS 
      land_grdLambda= 0.42 _d 0
./pkg/land/land_readparms.F 140 LAND_READPARMS 
      land_heatCs   = 1.13 _d 6
./pkg/land/land_readparms.F 141 LAND_READPARMS 
      land_CpWater  =  4.2 _d 3
./pkg/land/land_readparms.F 143 LAND_READPARMS 
      land_wTauDiff =  48. _d 0*3600. _d 0
./pkg/land/land_readparms.F 144 LAND_READPARMS 
      land_waterCap = 0.24 _d 0
./pkg/land/land_readparms.F 145 LAND_READPARMS 
      land_fractRunOff = 0.5 _d 0
./pkg/land/land_readparms.F 148 LAND_READPARMS 
      land_rhoSnow  = 330. _d 0
./pkg/land/land_readparms.F 149 LAND_READPARMS 
      land_Lfreez   = 334. _d 3
./pkg/land/land_readparms.F 150 LAND_READPARMS 
      land_hMaxSnow = 1. _d 3
./pkg/land/land_readparms.F 151 LAND_READPARMS 
      diffKsnow     = 0.30 _d 0
./pkg/land/land_readparms.F 152 LAND_READPARMS 
      timeSnowAge   = 50. _d 0 * 86400. _d 0
./pkg/land/land_readparms.F 153 LAND_READPARMS 
      hNewSnowAge   = 2. _d -3
./pkg/land/land_readparms.F 154 LAND_READPARMS 
      albColdSnow   = 0.85 _d 0
./pkg/land/land_readparms.F 155 LAND_READPARMS 
      albWarmSnow   = 0.70 _d 0
./pkg/land/land_readparms.F 156 LAND_READPARMS 
      tempSnowAlbL  = -10. _d 0
./pkg/land/land_readparms.F 157 LAND_READPARMS 
      albOldSnow    = 0.55 _d 0
./pkg/land/land_readparms.F 158 LAND_READPARMS 
      hAlbSnow      = 0.30 _d 0
./pkg/land/land_readparms.F 193 LAND_READPARMS 
      tmpvar = 0. _d 0
./pkg/land/land_readparms.F 196 LAND_READPARMS 
       IF (tmpvar.GT.0. _d 0) land_rec_dzC(k) = 2. _d 0 / tmpvar
./pkg/land/land_readparms.F 199 LAND_READPARMS 
      IF ( land_Lfreez.NE. 0. _d 0 ) THEN
./pkg/land/land_readparms.F 200 LAND_READPARMS 
        recip_Lfreez = 1. _d 0 / land_Lfreez
./pkg/land/land_readparms.F 202 LAND_READPARMS 
        recip_Lfreez = 0. _d 0
./pkg/land/land_stepfwd.F 137 LAND_STEPFWD 
           land_runOff(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 138 LAND_STEPFWD 
           land_enRnOf(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 155 LAND_STEPFWD 
            mWater = MAX( mWater, 0. _d 0 )
./pkg/land/land_stepfwd.F 161 LAND_STEPFWD 
     &              MIN( temp_bf, MAX(temp_af, 0. _d 0) )
./pkg/land/land_stepfwd.F 176 LAND_STEPFWD 
        ageFac = 1. _d 0 - land_deltaT/timeSnowAge
./pkg/land/land_stepfwd.F 195 LAND_STEPFWD 
            snowPrec = -enWfx -MAX( enGr1/land_deltaT, 0. _d 0 )
./pkg/land/land_stepfwd.F 197 LAND_STEPFWD 
            snowPrec = MAX( 0. _d 0 ,
./pkg/land/land_stepfwd.F 208 LAND_STEPFWD 
            dhSnowMx = MAX( 0. _d 0,
./pkg/land/land_stepfwd.F 229 LAND_STEPFWD 
              land_hSnow(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 232 LAND_STEPFWD 
              flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 246 LAND_STEPFWD 
           IF ( land_hSnow(i,j,bi,bj).LE. 0. _d 0 )
./pkg/land/land_stepfwd.F 247 LAND_STEPFWD 
     &          land_snowAge(i,j,bi,bj) = 0. _d 0
./pkg/land/land_stepfwd.F 261 LAND_STEPFWD 
           flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 274 LAND_STEPFWD 
        fractRunOff = 1. _d 0
./pkg/land/land_stepfwd.F 292 LAND_STEPFWD 
          IF ( land_groundT(i,j,k,bi,bj).LT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 294 LAND_STEPFWD 
           IF ( flxkup(i,j) .LT. 0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 309 LAND_STEPFWD 
           flxkup(i,j)  = 0. _d 0
./pkg/land/land_stepfwd.F 310 LAND_STEPFWD 
           flxEngU(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 317 LAND_STEPFWD 
     &         land_groundT(i,j,kp1,bi,bj).LT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 320 LAND_STEPFWD 
             flxkdw(i,j) = 0. _d 0
./pkg/land/land_stepfwd.F 321 LAND_STEPFWD 
             flxEngL =     0. _d 0
./pkg/land/land_stepfwd.F 348 LAND_STEPFWD 
           land_groundW(i,j,k,bi,bj) = MIN(1. _d 0, groundWnp1)
./pkg/land/land_stepfwd.F 349 LAND_STEPFWD 
           grdWexcess = ( groundWnp1 - MIN(1. _d 0, groundWnp1) )
./pkg/land/land_stepfwd.F 357 LAND_STEPFWD 
     &              + (1. _d 0-fractRunOff)*grdWexcess
./pkg/land/land_stepfwd.F 371 LAND_STEPFWD 
     &              + (1. _d 0-fractRunOff)*grdWexcess*enthalpGrdW
./pkg/land/land_stepfwd.F 403 LAND_STEPFWD 
          mWater = MAX( mWater, 0. _d 0 )
./pkg/land/land_stepfwd.F 415 LAND_STEPFWD 
     &            MIN( temp_bf, MAX(temp_af, 0. _d 0) )
./pkg/land/land_stepfwd.F 424 LAND_STEPFWD 
          IF ( land_hSnow(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/land/land_stepfwd.F 425 LAND_STEPFWD 
           land_skinT(i,j,bi,bj) = MIN(land_skinT(i,j,bi,bj), 0. _d 0)
./pkg/layers/layers_calc.F 118 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i-1,j,k,bi,bj)+theta(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 120 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i-1,j,k+1,bi,bj)+theta(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 123 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i-1,j,k,bi,bj)+salt(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 125 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i-1,j,k+1,bi,bj)+salt(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 190 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i,j-1,k,bi,bj)+theta(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 192 LAYERS_CALC 
     &    0.5 _d 0 * (theta(i,j-1,k+1,bi,bj)+theta(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 195 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i,j-1,k,bi,bj)+salt(i,j,k,bi,bj)) +
./pkg/layers/layers_calc.F 197 LAYERS_CALC 
     &    0.5 _d 0 * (salt(i,j-1,k+1,bi,bj)+salt(i,j,k+1,bi,bj))
./pkg/layers/layers_calc.F 89 LAYERS_CALC 
         layers_UFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 91 LAYERS_CALC 
         layers_HU(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 95 LAYERS_CALC 
         layers_VFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_calc.F 97 LAYERS_CALC 
         layers_HV(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_fixed.F 70 LAYERS_INIT_FIXED 
      Zf(1) = 0. _d 0
./pkg/layers/layers_init_fixed.F 79 LAYERS_INIT_FIXED 
      ZZf(1) = 0. _d 0
./pkg/layers/layers_init_fixed.F 80 LAYERS_INIT_FIXED 
      ZZc(1) = 0.5 _d 0 * dZZf(1)
./pkg/layers/layers_init_fixed.F 84 LAYERS_INIT_FIXED 
            ZZc(kk-1) = 0.5 _d 0 * (ZZf(kk) + ZZf(kk-1))
./pkg/layers/layers_init_fixed.F 93 LAYERS_INIT_FIXED 
          MapFact(kk) = 1.0 _d 0
./pkg/layers/layers_init_fixed.F 97 LAYERS_INIT_FIXED 
          MapFact(kk) = 0.0 _d 0
./pkg/layers/layers_init_varia.F 39 LAYERS_INIT_VARIA 
           layers_UFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 41 LAYERS_INIT_VARIA 
           layers_HU(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 46 LAYERS_INIT_VARIA 
           layers_VFlux(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 48 LAYERS_INIT_VARIA 
           layers_HV(i,j,kg,bi,bj) = 0. _d 0
./pkg/layers/layers_init_varia.F 58 LAYERS_INIT_VARIA 
        layers_TimeAve(bi,bj) = 0. _d 0
./pkg/longstep/longstep_average.F 132 LONGSTEP_AVERAGE 
       IF ( ivdc_kappa .NE. 0. _d 0 )
./pkg/longstep/longstep_average.F 162 LONGSTEP_AVERAGE 
       IF ( ivdc_kappa .NE. 0. _d 0 )
./pkg/longstep/longstep_average.F 189 LONGSTEP_AVERAGE 
        IF ( ivdc_kappa .NE. 0. _d 0 .AND. .NOT. useKPP )
./pkg/longstep/longstep_average.F 61 LONGSTEP_AVERAGE 
       IF ( ivdc_kappa .NE. 0. _d 0 )
./pkg/longstep/longstep_average.F 95 LONGSTEP_AVERAGE 
      IF ( ivdc_kappa .NE. 0. _d 0 )
./pkg/longstep/longstep_average_3d.F 50 LONGSTEP_AVERAGE_3D 
        IF (lsCnt(bi,bj).NE.0) factor = 1. _d 0 / factor
./pkg/longstep/longstep_average_3d_fac.F 55 LONGSTEP_AVERAGE_3D_FAC 
           IF (factor.NE.0. _d 0) factor = 1. _d 0 / factor
./pkg/longstep/longstep_diagnostics_init.F 79 LONGSTEP_DIAGNOSTICS_INIT 
      IF ( ivdc_kappa .NE. 0. _d 0 ) THEN
./pkg/longstep/longstep_forcing_surf.F 64 LONGSTEP_FORCING_SURF 
     &               0. _d 0
./pkg/longstep/longstep_init_varia.F 51 LONGSTEP_INIT_VARIA 
      IF ( ivdc_kappa .NE. 0. _d 0 )
./pkg/longstep/longstep_reset_3d.F 51 LONGSTEP_RESET_3D 
           lsFld(i,j,k,bi,bj) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 181 LONGSTEP_THERMODYNAMICS 
          xA(i,j)        = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 182 LONGSTEP_THERMODYNAMICS 
          yA(i,j)        = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 183 LONGSTEP_THERMODYNAMICS 
          uTrans(i,j)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 184 LONGSTEP_THERMODYNAMICS 
          vTrans(i,j)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 185 LONGSTEP_THERMODYNAMICS 
          rTrans (i,j)   = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 186 LONGSTEP_THERMODYNAMICS 
          rTransKp1(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 194 LONGSTEP_THERMODYNAMICS 
           kappaRk(i,j,k)    = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 204 LONGSTEP_THERMODYNAMICS 
             fVerP  (i,j,1,ip) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 205 LONGSTEP_THERMODYNAMICS 
             fVerP  (i,j,2,ip) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 206 LONGSTEP_THERMODYNAMICS 
             kappaRTr(i,j,ip)  = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 215 LONGSTEP_THERMODYNAMICS 
             gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 309 LONGSTEP_THERMODYNAMICS 
             rTransKp1(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 336 LONGSTEP_THERMODYNAMICS 
             wFld(i,j)   = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 337 LONGSTEP_THERMODYNAMICS 
             maskUp(i,j) = 0. _d 0
./pkg/longstep/longstep_thermodynamics.F 338 LONGSTEP_THERMODYNAMICS 
             rTrans(i,j) = 0. _d 0
./pkg/matrix/matrix_init.F 38 MATRIX_INIT 
                  MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
./pkg/matrix/matrix_init.F 39 MATRIX_INIT 
                  MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
./pkg/matrix/matrix_readparms.F 37 MATRIX_READPARMS 
      expMatrixWriteTime = 10. _d 10
./pkg/matrix/matrix_readparms.F 38 MATRIX_READPARMS 
      impMatrixWriteTime = 10. _d 10
./pkg/matrix/matrix_write_tendency.F 113 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
./pkg/matrix/matrix_write_tendency.F 36 MATRIX_WRITE_TENDENCY 
     &     .EQ. (0.0 _d 0))) THEN
./pkg/matrix/matrix_write_tendency.F 38 MATRIX_WRITE_TENDENCY 
     &       (1. _d 0)/(expMatrixCounter*dTtracerLev(1))
./pkg/matrix/matrix_write_tendency.F 70 MATRIX_WRITE_TENDENCY 
                    MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
./pkg/matrix/matrix_write_tendency.F 80 MATRIX_WRITE_TENDENCY 
     &     .EQ.(0.0 _d 0)) ) THEN
./pkg/matrix/matrix_write_tendency.F 81 MATRIX_WRITE_TENDENCY 
        recipImpMatrixCounter = (1. _d 0)/dble(impMatrixCounter)
./pkg/mdsio/mdsio_gl.F 1267 MDSWRITEFIELD_2D_GL 
      DATA dummyRL(1) / 0. _d 0 /
./pkg/mdsio/mdsio_gl.F 505 MDSWRITEFIELD_3D_GL 
      DATA dummyRL(1) / 0. _d 0 /
./pkg/mdsio/mdsio_gl_slice.F 553 MDSWRITEFIELD_XZ_GL 
      DATA dummyRL(1) / 0. _d 0 /
./pkg/mdsio/mdsio_gl_slice.F 781 MDSWRITEFIELD_YZ_GL 
      DATA dummyRL(1) / 0. _d 0 /
./model/src/adams_bashforth2.F 53 ADAMS_BASHFORTH2 
       ab15 = 1. _d 0
./model/src/adams_bashforth2.F 54 ADAMS_BASHFORTH2 
       ab05 = 0. _d 0
./model/src/adams_bashforth2.F 56 ADAMS_BASHFORTH2 
       ab15 = 1.5 _d 0 + abEps
./model/src/adams_bashforth2.F 57 ADAMS_BASHFORTH2 
       ab05 = -( 0.5 _d 0 + abEps )
./model/src/adams_bashforth3.F 84 ADAMS_BASHFORTH3 
       ab0 = 1. _d 0
./model/src/adams_bashforth3.F 85 ADAMS_BASHFORTH3 
       ab1 = 0. _d 0
./model/src/adams_bashforth3.F 86 ADAMS_BASHFORTH3 
       ab2 = 0. _d 0
./model/src/adams_bashforth3.F 89 ADAMS_BASHFORTH3 
       ab0 = 1. _d 0 + alph_AB
./model/src/adams_bashforth3.F 91 ADAMS_BASHFORTH3 
       ab2 = 0. _d 0
./model/src/adams_bashforth3.F 93 ADAMS_BASHFORTH3 
       ab0 = 1. _d 0 + alph_AB + beta_AB
./model/src/calc_3d_diffusivity.F 81 CALC_3D_DIFFUSIVITY 
     &       *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0)
./model/src/calc_3d_diffusivity.F 84 CALC_3D_DIFFUSIVITY 
     &       *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0)
./pkg/mdsio/mdsio_write_field.F 141 MDS_WRITE_FIELD 
      DATA dummyRL(1) / 0. _d 0 /
./pkg/mdsio/mdsio_writelocal.F 130 MDS_WRITELOCAL 
      DATA dummyRL(1) / 0. _d 0 /
./pkg/mdsio/mdsio_writevec_loc.F 91 MDS_WRITEVEC_LOC 
      DATA dummyRL(1) / 0. _d 0 /
./pkg/mdsio/mdsio_writevector.F 92 MDSWRITEVECTOR 
      DATA dummyRL(1) / 0. _d 0 /
./pkg/mnc/mnc_readparms.F 95 MNC_READPARMS 
      mnc_max_fsize         =  2.1 _d 9
./pkg/mnc/mnc_var.F 530 MNC_VAR_WRITE_REAL 
      DATA dummyR8 / 0. _d 0 /
./pkg/mnc/mnc_var.F 557 MNC_VAR_WRITE_INT 
      DATA dummyR8 / 0. _d 0 /
./pkg/mnc/mnc_var.F 613 MNC_VAR_APPEND_REAL 
      DATA dummyR8 / 0. _d 0 /
./pkg/mnc/mnc_var.F 641 MNC_VAR_APPEND_INT 
      DATA dummyR8 / 0. _d 0 /
./model/src/calc_diffusivity.F 67 CALC_DIFFUSIVITY 
     &      *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0)
./model/src/calc_diffusivity.F 70 CALC_DIFFUSIVITY 
     &      *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0)
./pkg/mom_common/mom_calc_hfacz.F 205 MOM_CALC_HFACZ 
          hFacZ(i,j) = 0.25 _d 0 * hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 224 MOM_CALC_HFACZ 
          hFacZ(i,j) = 0.5 _d 0 * hFacZOpen
./pkg/mom_common/mom_calc_hfacz.F 283 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 313 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 343 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 367 MOM_CALC_HFACZ 
          hFacZ(i,j) = hFacZOpen / 3. _d 0
./pkg/mom_common/mom_calc_hfacz.F 380 MOM_CALC_HFACZ 
         r_hFacZ(i,j) = 1. _d 0/hFacZ(i,j)
./pkg/mom_common/mom_calc_relvort3.F 48 MOM_CALC_RELVORT3 
        vort3(I,J) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 208 MOM_CALC_VISC 
        viscAhRe_max=SQRT(2. _d 0)/viscAhReMax
./pkg/mom_common/mom_calc_visc.F 210 MOM_CALC_VISC 
        viscAhRe_max=0. _d 0
./pkg/mom_common/mom_calc_visc.F 214 MOM_CALC_VISC 
        viscA4Re_max=0.125 _d 0*SQRT(2. _d 0)/viscA4ReMax
./pkg/mom_common/mom_calc_visc.F 216 MOM_CALC_VISC 
        viscA4Re_max=0. _d 0
./pkg/mom_common/mom_calc_visc.F 231 MOM_CALC_VISC 
        smag4fac=0.125 _d 0*(viscC4smag/pi)**2
./pkg/mom_common/mom_calc_visc.F 233 MOM_CALC_VISC 
        smag2fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 234 MOM_CALC_VISC 
        smag4fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 241 MOM_CALC_VISC 
         leith4fac =0.015625 _d 0*(viscC4leith /pi)**6
./pkg/mom_common/mom_calc_visc.F 242 MOM_CALC_VISC 
         leithD4fac=0.015625 _d 0*(viscC4leithD/pi)**6
./pkg/mom_common/mom_calc_visc.F 246 MOM_CALC_VISC 
         leith4fac =0.125 _d 0*(viscC4leith /pi)**3
./pkg/mom_common/mom_calc_visc.F 247 MOM_CALC_VISC 
         leithD4fac=0.125 _d 0*(viscC4leithD/pi)**3
./pkg/mom_common/mom_calc_visc.F 250 MOM_CALC_VISC 
        leith2fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 251 MOM_CALC_VISC 
        leith4fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 252 MOM_CALC_VISC 
        leithD2fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 253 MOM_CALC_VISC 
        leithD4fac=0. _d 0
./pkg/mom_common/mom_calc_visc.F 268 MOM_CALC_VISC 
          visca4_zsmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 269 MOM_CALC_VISC 
          viscah_zsmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 271 MOM_CALC_VISC 
          viscAh_Dlth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 272 MOM_CALC_VISC 
          viscA4_Dlth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 273 MOM_CALC_VISC 
          viscAh_DlthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 274 MOM_CALC_VISC 
          viscA4_DlthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 276 MOM_CALC_VISC 
          viscAh_DSmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 277 MOM_CALC_VISC 
          viscA4_DSmg(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 279 MOM_CALC_VISC 
          viscAh_ZLth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 280 MOM_CALC_VISC 
          viscA4_ZLth(i,j) = 0. _d 0
./pkg/mom_common/mom_calc_visc.F 281 MOM_CALC_VISC 
          viscAh_ZLthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 282 MOM_CALC_VISC 
          viscA4_ZLthD(i,j)= 0. _d 0
./pkg/mom_common/mom_calc_visc.F 364 MOM_CALC_VISC 
         L2rdt = 0.25 _d 0*recip_dt*L2
./pkg/mom_common/mom_calc_visc.F 387 MOM_CALC_VISC 
          grdVrt=0.25 _d 0*( (vrtDx(i,j+1)*vrtDx(i,j+1)
./pkg/mom_common/mom_calc_visc.F 394 MOM_CALC_VISC 
          grdDiv=0.25 _d 0*( (divDx(i+1,j)*divDx(i+1,j)
./pkg/mom_common/mom_calc_visc.F 424 MOM_CALC_VISC 
          viscAh_Dlth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 425 MOM_CALC_VISC 
          viscA4_Dlth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 426 MOM_CALC_VISC 
          viscAh_DlthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 427 MOM_CALC_VISC 
          viscA4_DlthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 433 MOM_CALC_VISC 
     &       +0.25 _d 0*(strain(i+1, j )**2+strain( i ,j+1)**2
./pkg/mom_common/mom_calc_visc.F 438 MOM_CALC_VISC 
          viscAh_DSmg(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 439 MOM_CALC_VISC 
          viscA4_DSmg(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 498 MOM_CALC_VISC 
         L2rdt = 0.25 _d 0*recip_dt*L2
./pkg/mom_common/mom_calc_visc.F 506 MOM_CALC_VISC 
           keZpt=0.25 _d 0*( (KE(i,j)+KE(i-1,j-1))
./pkg/mom_common/mom_calc_visc.F 524 MOM_CALC_VISC 
          grdVrt=0.25 _d 0*( (vrtDx(i-1,j)*vrtDx(i-1,j)
./pkg/mom_common/mom_calc_visc.F 530 MOM_CALC_VISC 
          grdDiv=0.25 _d 0*( (divDx(i,j-1)*divDx(i,j-1)
./pkg/mom_common/mom_calc_visc.F 559 MOM_CALC_VISC 
          viscAh_ZLth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 560 MOM_CALC_VISC 
          viscA4_ZLth(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 561 MOM_CALC_VISC 
          viscAh_ZLthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 562 MOM_CALC_VISC 
          viscA4_ZLthD(i,j)=0. _d 0
./pkg/mom_common/mom_calc_visc.F 568 MOM_CALC_VISC 
     &        +0.25 _d 0*(tension( i , j )**2+tension( i ,j-1)**2
./model/src/calc_div_ghat.F 113 CALC_DIV_GHAT 
     &     + (1. _d 0-implicDiv2Dflow)* uVel(i,j,k,bi,bj)
./model/src/calc_div_ghat.F 156 CALC_DIV_GHAT 
     &     + (1. _d 0-implicDiv2Dflow)* vVel(i,j,k,bi,bj)
./pkg/mom_common/mom_init_fixed.F 108 MOM_INIT_FIXED 
            L4rdt_D(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F 127 MOM_INIT_FIXED 
              L2_Z(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_init_fixed.F 136 MOM_INIT_FIXED 
            L4rdt_Z(i,j,bi,bj) = 0.03125 _d 0*recip_dt
./pkg/mom_common/mom_init_fixed.F 67 MOM_INIT_FIXED 
           viscAhDfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 68 MOM_INIT_FIXED 
           viscAhZfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 71 MOM_INIT_FIXED 
           viscA4Dfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 72 MOM_INIT_FIXED 
           viscA4Zfld(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 82 MOM_INIT_FIXED 
        recip_dt = 1. _d 0/deltaTmom
./pkg/mom_common/mom_init_fixed.F 84 MOM_INIT_FIXED 
        recip_dt = 0. _d 0
./pkg/mom_common/mom_init_fixed.F 99 MOM_INIT_FIXED 
              L2_D(i,j,bi,bj) = 2. _d 0
./pkg/mom_common/mom_quasihydrostatic.F 67 MOM_QUASIHYDROSTATIC 
     &       ( angleCosC(i,j,bi,bj)*0.5 _d 0 *
./pkg/mom_common/mom_quasihydrostatic.F 69 MOM_QUASIHYDROSTATIC 
     &        -angleSinC(i,j,bi,bj)*0.5 _d 0 *
./pkg/mom_common/mom_quasihydrostatic.F 85 MOM_QUASIHYDROSTATIC 
     &     )* 0.5 _d 0 * recip_rSphere*recip_deepFacC(k)
./pkg/mom_common/mom_u_bottomdrag.F 64 MOM_U_BOTTOMDRAG 
       dragFac = 1. _d 0
./pkg/mom_common/mom_u_implicit_r.F 109 MOM_U_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/mom_common/mom_u_implicit_r.F 124 MOM_U_IMPLICIT_R 
            rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_u_implicit_r.F 136 MOM_U_IMPLICIT_R 
              upwindFac = 1. _d 0
./pkg/mom_common/mom_u_implicit_r.F 138 MOM_U_IMPLICIT_R 
              upwindFac = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F 142 MOM_U_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F 163 MOM_U_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_u_implicit_r.F 209 MOM_U_IMPLICIT_R 
               vf(i,j) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F 70 MOM_U_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_u_implicit_r.F 71 MOM_U_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./pkg/mom_common/mom_u_implicit_r.F 72 MOM_U_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_u_rviscflux.F 54 MOM_U_RVISCFLUX 
          rViscFluxU(i,j) = 0. _d 0
./pkg/mom_common/mom_u_sidedrag.F 123 MOM_U_SIDEDRAG 
        hFacZClosedS = MAX( 0. _d 0, hFacZClosedS )
./pkg/mom_common/mom_u_sidedrag.F 124 MOM_U_SIDEDRAG 
        hFacZClosedN = MAX( 0. _d 0, hFacZClosedN )
./pkg/mom_common/mom_u_sidedrag.F 73 MOM_U_SIDEDRAG 
        hFacZClosedS = MAX( 0. _d 0, hFacZClosedS )
./pkg/mom_common/mom_u_sidedrag.F 74 MOM_U_SIDEDRAG 
        hFacZClosedN = MAX( 0. _d 0, hFacZClosedN )
./pkg/mom_common/mom_v_bottomdrag.F 71 MOM_V_BOTTOMDRAG 
       dragFac = 1. _d 0
./model/src/calc_grad_phi_hyd.F 103 CALC_GRAD_PHI_HYD 
          ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN
./model/src/calc_grad_phi_hyd.F 107 CALC_GRAD_PHI_HYD 
     &                  /(1. _d 0 -factPI)
./model/src/calc_grad_phi_hyd.F 145 CALC_GRAD_PHI_HYD 
        dPhiHydX(i,j)  = 0. _d 0
./model/src/calc_grad_phi_hyd.F 146 CALC_GRAD_PHI_HYD 
        dPhiHydY(i,j)  = 0. _d 0
./model/src/calc_grad_phi_hyd.F 166 CALC_GRAD_PHI_HYD 
        factorZ = gravity*recip_rhoConst*recip_rhoFacC(k)*0.5 _d 0
./model/src/calc_grad_phi_hyd.F 170 CALC_GRAD_PHI_HYD 
     &                *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj))
./model/src/calc_grad_phi_hyd.F 191 CALC_GRAD_PHI_HYD 
        factorP = 0.5 _d 0
./model/src/calc_grad_phi_hyd.F 211 CALC_GRAD_PHI_HYD 
        factorP = (atm_Rd/rC(k))*conv_theta2T*0.5 _d 0
./pkg/mom_common/mom_v_implicit_r.F 109 MOM_V_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./pkg/mom_common/mom_v_implicit_r.F 124 MOM_V_IMPLICIT_R 
            rTrans(i,j) = 0.5 _d 0 * (
./pkg/mom_common/mom_v_implicit_r.F 136 MOM_V_IMPLICIT_R 
              upwindFac = 1. _d 0
./pkg/mom_common/mom_v_implicit_r.F 138 MOM_V_IMPLICIT_R 
              upwindFac = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F 142 MOM_V_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F 163 MOM_V_IMPLICIT_R 
              rCenter = 0.5 _d 0 *deltaTmom*rTrans(i,j)
./pkg/mom_common/mom_v_implicit_r.F 209 MOM_V_IMPLICIT_R 
               vf(i,j) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F 70 MOM_V_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_v_implicit_r.F 71 MOM_V_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./pkg/mom_common/mom_v_implicit_r.F 72 MOM_V_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./pkg/mom_common/mom_v_rviscflux.F 54 MOM_V_RVISCFLUX 
          rViscFluxV(i,j) = 0. _d 0
./pkg/mom_common/mom_v_sidedrag.F 120 MOM_V_SIDEDRAG 
        hFacZClosedW = MAX( 0. _d 0, hFacZClosedW )
./pkg/mom_common/mom_v_sidedrag.F 121 MOM_V_SIDEDRAG 
        hFacZClosedE = MAX( 0. _d 0, hFacZClosedE )
./pkg/mom_common/mom_v_sidedrag.F 73 MOM_V_SIDEDRAG 
        hFacZClosedW = MAX( 0. _d 0, hFacZClosedW )
./pkg/mom_common/mom_v_sidedrag.F 74 MOM_V_SIDEDRAG 
        hFacZClosedE = MAX( 0. _d 0, hFacZClosedE )
./pkg/mom_common/mom_w_coriolis_nh.F 60 MOM_W_CORIOLIS_NH 
     &                              )*0.25 _d 0
./pkg/mom_common/mom_w_coriolis_nh.F 64 MOM_W_CORIOLIS_NH 
     &                              )*0.25 _d 0
./pkg/mom_common/mom_w_coriolis_nh.F 71 MOM_W_CORIOLIS_NH 
           wCoriolisTerm(i,j) = 0. _d 0
./pkg/mom_common/mom_w_metric_nh.F 64 MOM_W_METRIC_NH 
     &          )                            )*0.25 _d 0
./pkg/mom_common/mom_w_metric_nh.F 70 MOM_W_METRIC_NH 
           wMetricTerms(i,j) = 0. _d 0
./pkg/mom_common/mom_w_sidedrag.F 74 MOM_W_SIDEDRAG 
        heightStepW = MAX( 0. _d 0, rThickC(i,j) - rThickC(i-1,j) )
./pkg/mom_common/mom_w_sidedrag.F 75 MOM_W_SIDEDRAG 
        heightStepE = MAX( 0. _d 0, rThickC(i,j) - rThickC(i+1,j) )
./pkg/mom_common/mom_w_sidedrag.F 76 MOM_W_SIDEDRAG 
        heightStepS = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j-1) )
./pkg/mom_common/mom_w_sidedrag.F 77 MOM_W_SIDEDRAG 
        heightStepN = MAX( 0. _d 0, rThickC(i,j) - rThickC(i,j+1) )
./pkg/mom_fluxform/mom_calc_rtrans.F 100 MOM_CALC_RTRANS 
     &         0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 104 MOM_CALC_RTRANS 
     &         0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 129 MOM_CALC_RTRANS 
     &          0.5 _d 0*(dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F 131 MOM_CALC_RTRANS 
     &          0.5 _d 0*(dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))
./pkg/mom_fluxform/mom_calc_rtrans.F 158 MOM_CALC_RTRANS 
     &       + (dWtransC(i-1,j,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_calc_rtrans.F 160 MOM_CALC_RTRANS 
     &       + (dWtransC(i,j-1,bi,bj)+dWtransC(i,j,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_calc_rtrans.F 78 MOM_CALC_RTRANS 
     &      0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj)
./pkg/mom_fluxform/mom_calc_rtrans.F 81 MOM_CALC_RTRANS 
     &      0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj)
./pkg/mom_fluxform/mom_fluxform.F 239 MOM_FLUXFORM 
        sideMaskFac = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 408 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 436 MOM_FLUXFORM 
     &     - (rStarExpW(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf
./pkg/mom_fluxform/mom_fluxform.F 456 MOM_FLUXFORM 
           gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 491 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 624 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_fluxform.F 652 MOM_FLUXFORM 
     &     - (rStarExpS(i,j,bi,bj) - 1. _d 0)/deltaTfreesurf
./pkg/mom_fluxform/mom_fluxform.F 672 MOM_FLUXFORM 
           gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_fluxform/mom_fluxform.F 706 MOM_FLUXFORM 
     &      ( 0.5 _d 0*(_rA(i,j,bi,bj)+_rA(i,j-1,bi,bj)) )
./pkg/mom_fluxform/mom_u_adv_wu.F 84 MOM_U_ADV_WU 
     &   0.5 _d 0*( uFld(i,j,k,bi,bj)*_maskW(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_u_adv_wu.F 87 MOM_U_ADV_WU 
     &   0.5 _d 0*( uFld(i,j,k,bi,bj)+uFld(i,j,k-1,bi,bj) )
./pkg/mom_fluxform/mom_u_coriolis.F 46 MOM_U_CORIOLIS 
      PARAMETER( one = 1. _d 0 )
./pkg/mom_fluxform/mom_u_coriolis.F 82 MOM_U_CORIOLIS 
     &   *4. _d 0/MAX( one,
./pkg/mom_fluxform/mom_u_metric_cylinder.F 52 MOM_U_METRIC_CYLINDER 
          radius = (yG(i,j,bi,bj)+yG(i,j+1,bi,bj))*0.5 _d 0
./pkg/mom_fluxform/mom_uv_boundary.F 117 MOM_UV_BOUNDARY 
            tmpVar = 1. _d 0 / tmpVar
./pkg/mom_fluxform/mom_uv_boundary.F 141 MOM_UV_BOUNDARY 
     &                  )*2. _d 0
./pkg/mom_fluxform/mom_uv_boundary.F 155 MOM_UV_BOUNDARY 
     &                  )*2. _d 0
./pkg/mom_fluxform/mom_v_adv_wv.F 85 MOM_V_ADV_WV 
     &   0.5 _d 0*( vFld(i,j,k,bi,bj)*_maskS(i,j,k-1,bi,bj)
./pkg/mom_fluxform/mom_v_adv_wv.F 88 MOM_V_ADV_WV 
     &   0.5 _d 0*( vFld(i,j,k,bi,bj)+vFld(i,j,k-1,bi,bj) )
./pkg/mom_fluxform/mom_v_coriolis.F 46 MOM_V_CORIOLIS 
      PARAMETER( one = 1. _d 0 )
./pkg/mom_fluxform/mom_v_coriolis.F 80 MOM_V_CORIOLIS 
     &   *4. _d 0/MAX( one,
./pkg/mom_fluxform/mom_v_metric_cylinder.F 52 MOM_V_METRIC_CYLINDER 
          radius = (yG(i,j,bi,bj)+yG(i+1,j,bi,bj))*0.5 _d 0
./pkg/mom_vecinv/mom_vecinv.F 186 MOM_VECINV 
        strain(i,j)  = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 187 MOM_VECINV 
        tension(i,j) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 189 MOM_VECINV 
        hFacZ(i,j)   = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 205 MOM_VECINV 
        sideMaskFac = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 303 MOM_VECINV 
            IF ( hFacZ(i,j).EQ.0. ) strain(i,j) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 532 MOM_VECINV 
         gU(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_vecinv/mom_vecinv.F 533 MOM_VECINV 
         gV(i,j,k,bi,bj) = 0. _d 0
./pkg/mom_vecinv/mom_vi_coriolis.F 37 MOM_VI_CORIOLIS 
      epsil = 1. _d -9
./pkg/mom_vecinv/mom_vi_u_coriolis.F 131 MOM_VI_U_CORIOLIS 
     &              )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis.F 173 MOM_VI_U_CORIOLIS 
     &                     *0.25 _d 0 *recip_dxC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 191 MOM_VI_U_CORIOLIS 
     &           * 4. _d 0 * _hFacW(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_u_coriolis.F 55 MOM_VI_U_CORIOLIS 
      epsil = 1. _d -9
./pkg/mom_vecinv/mom_vi_u_coriolis.F 56 MOM_VI_U_CORIOLIS 
      tmpFac = 1. _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis.F 58 MOM_VI_U_CORIOLIS 
      oneThird = 1. _d 0 / 3. _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 102 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i-1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 107 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i+1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 112 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j+1) = ( vort3r(i,j+1) + vort3r(i-1,j) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_u_coriolis_c4.F 97 MOM_VI_U_CORIOLIS_C4 
         vort3r(i,j-1) = ( vort3r(i,j-1) + vort3r(i+1,j) )*0.5 _d 0
./model/src/calc_gw.F 140 CALC_GW 
           del2w(i,j) = 0. _d 0
./model/src/calc_gw.F 172 CALC_GW 
             recip_rThickC(i,j) = 1. _d 0 /
./model/src/calc_gw.F 220 CALC_GW 
             recip_rThickC(i,j) = 1. _d 0 /
./model/src/calc_gw.F 379 CALC_GW 
     &                 )*0.125 _d 0
./model/src/calc_gw.F 397 CALC_GW 
     &                 )*0.25 _d 0
./model/src/calc_gw.F 99 CALC_GW 
      PARAMETER( halfRL = 0.5 _d 0 )
./pkg/mom_vecinv/mom_vi_v_coriolis.F 131 MOM_VI_V_CORIOLIS 
     &              )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis.F 173 MOM_VI_V_CORIOLIS 
     &                     *0.25 _d 0 *recip_dyC(i,j,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 191 MOM_VI_V_CORIOLIS 
     &           * 4. _d 0 * _hFacS(i,j,k,bi,bj)
./pkg/mom_vecinv/mom_vi_v_coriolis.F 55 MOM_VI_V_CORIOLIS 
      epsil = 1. _d -9
./pkg/mom_vecinv/mom_vi_v_coriolis.F 56 MOM_VI_V_CORIOLIS 
      tmpFac = 1. _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis.F 58 MOM_VI_V_CORIOLIS 
      oneThird = 1. _d 0 / 3. _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 102 MOM_VI_V_CORIOLIS_C4 
         vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j+1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 107 MOM_VI_V_CORIOLIS_C4 
         vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j-1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 112 MOM_VI_V_CORIOLIS_C4 
         vort3r(i+1,j) = ( vort3r(i+1,j) + vort3r(i,j-1) )*0.5 _d 0
./pkg/mom_vecinv/mom_vi_v_coriolis_c4.F 97 MOM_VI_V_CORIOLIS_C4 
         vort3r(i-1,j) = ( vort3r(i-1,j) + vort3r(i,j+1) )*0.5 _d 0
./pkg/monitor/mon_calc_stats_rl.F 125 MON_CALC_STATS_RL 
      IF ( theVol.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rl.F 143 MON_CALC_STATS_RL 
            IF ( tmpMask.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rl.F 71 MON_CALC_STATS_RL 
           IF ( tmpMask.GT.0. _d 0 .AND. noPnts ) THEN
./pkg/monitor/mon_calc_stats_rl.F 76 MON_CALC_STATS_RL 
           IF ( tmpMask.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rl.F 89 MON_CALC_STATS_RL 
            IF ( ddx.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rl.F 94 MON_CALC_STATS_RL 
            IF ( ddy.GT.0. _d 0 ) THEN
./model/src/calc_ivdc.F 53 CALC_IVDC 
          IVDConvCount(i,j,k,bi,bj) = 1. _d 0
./model/src/calc_ivdc.F 55 CALC_IVDC 
          IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./pkg/monitor/mon_calc_stats_rs.F 125 MON_CALC_STATS_RS 
      IF ( theVol.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rs.F 143 MON_CALC_STATS_RS 
            IF ( tmpMask.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rs.F 71 MON_CALC_STATS_RS 
           IF ( tmpMask.GT.0. _d 0 .AND. noPnts ) THEN
./pkg/monitor/mon_calc_stats_rs.F 76 MON_CALC_STATS_RS 
           IF ( tmpMask.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rs.F 89 MON_CALC_STATS_RS 
            IF ( ddx.GT.0. _d 0 ) THEN
./pkg/monitor/mon_calc_stats_rs.F 94 MON_CALC_STATS_RS 
            IF ( ddy.GT.0. _d 0 ) THEN
./pkg/monitor/mon_init.F 43 MON_INIT 
      monSolutionMaxRange = 1. _d +4
./pkg/monitor/mon_init.F 44 MON_INIT 
      IF ( fluidIsWater ) monSolutionMaxRange = 1. _d +3
./pkg/monitor/mon_ke.F 122 MON_KE 
           tmpVal = 0.5 _d 0*Bo_surf(i,j,bi,bj)
./pkg/monitor/mon_ke.F 52 MON_KE 
        tileVol(bi,bj)  = 0. _d 0
./pkg/monitor/mon_ke.F 53 MON_KE 
        tileMean(bi,bj) = 0. _d 0
./pkg/monitor/mon_ke.F 54 MON_KE 
        tileVlAv(bi,bj) = 0. _d 0
./pkg/monitor/mon_ke.F 55 MON_KE 
        tilePEav(bi,bj) = 0. _d 0
./model/src/calc_oce_mxlayer.F 168 CALC_OCE_MXLAYER 
               tmpFac = 0. _d 0
./model/src/calc_oce_mxlayer.F 169 CALC_OCE_MXLAYER 
               IF ( sigmAv.GT.0. _d 0 ) THEN
./model/src/calc_oce_mxlayer.F 171 CALC_OCE_MXLAYER 
                 IF ( tmpFac .GT. 1. _d 0 ) THEN
./model/src/calc_oce_mxlayer.F 172 CALC_OCE_MXLAYER 
                   tmpFac = 1. _d 0
./model/src/calc_oce_mxlayer.F 173 CALC_OCE_MXLAYER 
     &             + ( tmpFac - 1. _d 0 )/( hMixCriteria - 1. _d 0 )
./model/src/calc_oce_mxlayer.F 175 CALC_OCE_MXLAYER 
                 tmpFac = MAX( 0. _d 0, MIN( tmpFac, 2. _d 0 ) )
./model/src/calc_oce_mxlayer.F 178 CALC_OCE_MXLAYER 
     &                              - drF(k)*tmpFac*0.5 _d 0
./model/src/calc_oce_mxlayer.F 190 CALC_OCE_MXLAYER 
       IF ( hMixSmooth .GT. 0. _d 0 ) THEN
./model/src/calc_oce_mxlayer.F 191 CALC_OCE_MXLAYER 
        tmpFac = (1. _d 0 - hMixSmooth ) / 4. _d 0
./model/src/calc_oce_mxlayer.F 94 CALC_OCE_MXLAYER 
        rhoBigNb  = rhoConst*1. _d 10
./pkg/monitor/mon_stats_rl.F 116 MON_STATS_RL 
       rNumPnts=1. _d 0/tmpVal
./pkg/monitor/mon_stats_rs.F 87 MON_STATS_RS 
       rNumPnts=1. _d 0/tmpVal
./pkg/monitor/mon_surfcor.F 128 MON_SURFCOR 
     &           *(theta(i,j,k,bi,bj)+theta(i,j,k-1,bi,bj))*0.5 _d 0
./pkg/monitor/mon_vort3.F 111 MON_VORT3 
           hFacZ(i,j) = 1. + 0.125 _d 0*
./pkg/monitor/mon_vort3.F 129 MON_VORT3 
     &           0.25 _d 0*( _hFacW(i,j-1,k,bi,bj)
./pkg/monitor/mon_vort3.F 195 MON_VORT3 
     &                  )/3. _d 0
./pkg/monitor/mon_vort3.F 210 MON_VORT3 
     &                  )/3. _d 0
./pkg/monitor/mon_vort3.F 225 MON_VORT3 
     &                  )/3. _d 0
./pkg/monitor/mon_vort3.F 240 MON_VORT3 
     &                  )/3. _d 0
./pkg/monitor/mon_vort3.F 289 MON_VORT3 
           IF (hFacZ(i,j).GT.0. _d 0) THEN
./pkg/monitor/mon_vort3.F 60 MON_VORT3 
      theMin = 1. _d 20
./pkg/monitor/mon_vort3.F 61 MON_VORT3 
      theMax =-1. _d 20
./pkg/monitor/mon_vort3.F 62 MON_VORT3 
      theArea= 0. _d 0
./pkg/monitor/mon_vort3.F 63 MON_VORT3 
      theMean= 0. _d 0
./pkg/monitor/mon_vort3.F 64 MON_VORT3 
      theVar = 0. _d 0
./pkg/monitor/mon_vort3.F 65 MON_VORT3 
      theVol = 0. _d 0
./pkg/monitor/mon_vort3.F 66 MON_VORT3 
      volMean= 0. _d 0
./pkg/monitor/mon_vort3.F 67 MON_VORT3 
      volVar = 0. _d 0
./pkg/monitor/mon_vort3.F 68 MON_VORT3 
      theSD  = 0. _d 0
./pkg/monitor/mon_vort3.F 69 MON_VORT3 
      AZcorner = 1. _d 0
./pkg/monitor/mon_vort3.F 73 MON_VORT3 
         tileArea(bi,bj)= 0. _d 0
./pkg/monitor/mon_vort3.F 74 MON_VORT3 
         tileVol(bi,bj) = 0. _d 0
./pkg/monitor/mon_vort3.F 75 MON_VORT3 
         tileSum(bi,bj) = 0. _d 0
./pkg/monitor/mon_vort3.F 76 MON_VORT3 
         tileVar(bi,bj) = 0. _d 0
./pkg/monitor/mon_vort3.F 77 MON_VORT3 
         tileVSum(bi,bj)= 0. _d 0
./pkg/monitor/mon_vort3.F 78 MON_VORT3 
         tileVSq(bi,bj) = 0. _d 0
./model/src/calc_phi_hyd.F 174 CALC_PHI_HYD 
           IF ( k.LT.kSurfC(i,j,bi,bj) ) alphaRho(i,j) = 0. _d 0
./model/src/calc_phi_hyd.F 434 CALC_PHI_HYD 
             phiHydC(i,j) = ddRloc*recip_drF(k)*2. _d 0
./model/src/calc_phi_hyd.F 86 CALC_PHI_HYD 
      PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 )
./pkg/my82/my82_calc.F 103 MY82_CALC 
         RiFlux =( btmp - SQRT(btmp*btmp - 4. _d 0 *beta2*beta3*RiTmp) )
./pkg/my82/my82_calc.F 104 MY82_CALC 
     &        /(2. _d 0*beta2)
./pkg/my82/my82_calc.F 106 MY82_CALC 
         SHtmp       = (alpha1-alpha2*RiFlux)/(1. _d 0-RiFlux)
./pkg/my82/my82_calc.F 110 MY82_CALC 
         tkesquare = MAX( 0. _d 0,
./pkg/my82/my82_calc.F 126 MY82_CALC 
        GH(I,J) = 0. _d 0
./pkg/my82/my82_calc.F 127 MY82_CALC 
        GM(I,J) = 0. _d 0
./pkg/my82/my82_calc.F 146 MY82_CALC 
        IF ( GH(I,J) .EQ. 0. _d 0 ) THEN
./pkg/my82/my82_calc.F 147 MY82_CALC 
         MYhbl(I,J,bi,bj) = 0. _d 0
./pkg/my82/my82_calc.F 77 MY82_CALC 
        GH(I,J) = 0. _d 0
./pkg/my82/my82_calc.F 78 MY82_CALC 
        GM(I,J) = 0. _d 0
./pkg/my82/my82_calc.F 84 MY82_CALC 
         SH(I,J,K)  = 0. _d 0
./pkg/my82/my82_calc.F 85 MY82_CALC 
         SM(I,J,K)  = 0. _d 0
./pkg/my82/my82_calc.F 86 MY82_CALC 
         tke(I,J,K) = 0. _d 0
./pkg/my82/my82_calc_visc.F 43 MY82_CALC_VISC 
     &    0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i-1,j,k,bi,bj)) )
./pkg/my82/my82_calc_visc.F 51 MY82_CALC_VISC 
     &    0.5 _d 0*(MYviscAr(i,j,k,bi,bj)+MYviscAr(i,j-1,k,bi,bj)) )
./pkg/my82/my82_init_varia.F 35 MY82_INIT_VARIA 
      gam1 = 1. _d 0/3. _d 0 - 2. _d 0 *A1/B1
./pkg/my82/my82_init_varia.F 36 MY82_INIT_VARIA 
      gam2 = (B2+6. _d 0*A1)/B1
./pkg/my82/my82_init_varia.F 37 MY82_INIT_VARIA 
      alpha1 = 3. _d 0 *A2*gam1
./pkg/my82/my82_init_varia.F 38 MY82_INIT_VARIA 
      alpha2 = 3. _d 0 *A2*(gam1+gam2)
./pkg/my82/my82_init_varia.F 40 MY82_INIT_VARIA 
      beta2  = A1*(B1*(gam1-C1) + 6. _d 0 *A1 + 3. _d 0 *A2)
./pkg/my82/my82_init_varia.F 42 MY82_INIT_VARIA 
      beta4  = A2*(B1*(gam1+gam2) - 3. _d 0 *A1)
./pkg/my82/my82_init_varia.F 53 MY82_INIT_VARIA 
           MYhbl    (i,j  ,bi,bj) = 0. _d 0
./pkg/my82/my82_output.F 130 MY82_OUTPUT 
      IF ( MYtaveFreq.GT.0. _d 0 ) THEN
./model/src/calc_r_star.F 110 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj)
./model/src/calc_r_star.F 124 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj)*rA(i,j-1,bi,bj)
./model/src/calc_r_star.F 140 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj) + etaFld(i,j,bi,bj) )
./model/src/calc_r_star.F 152 CALC_R_STAR 
     &       ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj) + etaFld(i,j,bi,bj) )
./pkg/my82/my82_readparms.F 52 MY82_READPARMS 
      MYviscMax    = 1. _d 0
./pkg/my82/my82_readparms.F 53 MY82_READPARMS 
      MYdiffMax    = 1. _d 0
./pkg/my82/my82_readparms.F 54 MY82_READPARMS 
      MYhblScale   = 0.1 _d 0
./pkg/my82/my82_readparms.F 55 MY82_READPARMS 
      RiMax        = 0.1950 _d 0
./pkg/my82/my82_ri_number.F 104 MY82_RI_NUMBER 
        tempu= .5 _d 0*(  uVel(I,J,Km1,bi,bj)+uVel(I+1,J,Km1,bi,bj)
./pkg/my82/my82_ri_number.F 107 MY82_RI_NUMBER 
        tempv= .5 _d 0*(  vVel(I,J,Km1,bi,bj)+vVel(I,J+1,Km1,bi,bj)
./pkg/mypackage/mypackage_init_varia.F 44 MYPACKAGE_INIT_VARIA 
           myPa_StatScal1(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 45 MYPACKAGE_INIT_VARIA 
           myPa_StatScal2(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 46 MYPACKAGE_INIT_VARIA 
           myPa_StatVelU (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 47 MYPACKAGE_INIT_VARIA 
           myPa_StatVelV (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 50 MYPACKAGE_INIT_VARIA 
           myPa_TendScal1(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 51 MYPACKAGE_INIT_VARIA 
           myPa_TendScal2(i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 52 MYPACKAGE_INIT_VARIA 
           myPa_TendVelU (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 53 MYPACKAGE_INIT_VARIA 
           myPa_TendVelV (i,j,k,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 63 MYPACKAGE_INIT_VARIA 
          myPa_Surf1(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_init_varia.F 64 MYPACKAGE_INIT_VARIA 
          myPa_Surf2(i,j,bi,bj) = 0. _d 0
./pkg/mypackage/mypackage_readparms.F 63 MYPACKAGE_READPARMS 
      myPa_param1      = 0. _d 0
./pkg/mypackage/mypackage_readparms.F 64 MYPACKAGE_READPARMS 
      myPa_param2      = 0. _d 0
./pkg/mypackage/mypackage_tendency_apply.F 112 MYPACKAGE_TENDENCY_APPLY_V 
     &                          )*0.5 _d 0
./pkg/mypackage/mypackage_tendency_apply.F 57 MYPACKAGE_TENDENCY_APPLY_U 
     &                          )*0.5 _d 0
./pkg/obcs/obcs_apply_eta.F 34 OBCS_APPLY_ETA 
        IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_eta.F 37 OBCS_APPLY_ETA 
        IF (j_obc.NE.0) etaFld(i,j_obc,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_eta.F 42 OBCS_APPLY_ETA 
        IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_eta.F 45 OBCS_APPLY_ETA 
        IF (i_obc.NE.0) etaFld(i_obc,j,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_r_star.F 43 OBCS_APPLY_R_STAR 
         rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 45 OBCS_APPLY_R_STAR 
         rStarFldS(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 53 OBCS_APPLY_R_STAR 
         rStarFldS(i,j+1,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 55 OBCS_APPLY_R_STAR 
         rStarFldS(i,j+1,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 67 OBCS_APPLY_R_STAR 
         rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 69 OBCS_APPLY_R_STAR 
         rStarFldW(i,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 77 OBCS_APPLY_R_STAR 
         rStarFldW(i+1,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_r_star.F 79 OBCS_APPLY_R_STAR 
         rStarFldW(i+1,j,bi,bj) = 1. _d 0
./pkg/obcs/obcs_apply_seaice.F 141 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 147 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 153 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 160 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 180 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 186 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 192 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 199 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 219 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 225 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 231 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 238 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 258 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 264 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 270 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_seaice.F 277 OBCS_APPLY_SEAICE 
             edge_val = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 106 OBCS_APPLY_UVICE 
     &       vFld(I,OB_Js(I,bi,bj)+2,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 114 OBCS_APPLY_UVICE 
     &       uFld(I,OB_Js(I,bi,bj)+1,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 152 OBCS_APPLY_UVICE 
     &       uFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 160 OBCS_APPLY_UVICE 
     &       vFld(OB_Ie(J,bi,bj)-1,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 196 OBCS_APPLY_UVICE 
     &       uFld(OB_Iw(J,bi,bj)+2,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 204 OBCS_APPLY_UVICE 
     &       vFld(OB_Iw(J,bi,bj)+1,J,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 62 OBCS_APPLY_UVICE 
     &       vFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_uvice.F 70 OBCS_APPLY_UVICE 
     &       uFld(I,OB_Jn(I,bi,bj)-1,bi,bj) = 0.5 _d 0 *
./pkg/obcs/obcs_apply_w.F 87 OBCS_APPLY_W 
        IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_w.F 90 OBCS_APPLY_W 
        IF (J_obc.NE.0) wFld(I,J_obc,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_w.F 95 OBCS_APPLY_W 
        IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_apply_w.F 98 OBCS_APPLY_W 
        IF (I_obc.NE.0) wFld(I_obc,J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_calc.F 438 OBCS_CALC 
       Tr_T = 0. _d 0
./pkg/obcs/obcs_calc.F 439 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 455 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 457 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 475 OBCS_CALC 
       Tr_T = 0. _d 0
./pkg/obcs/obcs_calc.F 476 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 492 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 494 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 512 OBCS_CALC 
       Tr_T = 0. _d 0
./pkg/obcs/obcs_calc.F 513 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 529 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 531 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc.F 549 OBCS_CALC 
       Tr_T = 0. _d 0
./pkg/obcs/obcs_calc.F 550 OBCS_CALC 
       Ar_T = 0. _d 0
./pkg/obcs/obcs_calc.F 566 OBCS_CALC 
       IF ( Ar_T .GT. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc.F 568 OBCS_CALC 
        Tr_T = (0. _d 0 - Tr_T)/Ar_T
./pkg/obcs/obcs_calc_stevens.F 113 OBCS_CALC_STEVENS 
      aFac   = 1. _d 0
./pkg/obcs/obcs_calc_stevens.F 114 OBCS_CALC_STEVENS 
      IF (.NOT. useStevensAdvection ) aFac   = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 115 OBCS_CALC_STEVENS 
      pFac   = 1. _d 0
./pkg/obcs/obcs_calc_stevens.F 116 OBCS_CALC_STEVENS 
      IF (.NOT. useStevensPhaseVel )  pFac   = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 117 OBCS_CALC_STEVENS 
      gammat = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 118 OBCS_CALC_STEVENS 
      IF (TrelaxStevens .GT. 0. _d 0) gammat = 1./TrelaxStevens
./pkg/obcs/obcs_calc_stevens.F 119 OBCS_CALC_STEVENS 
      gammas = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 120 OBCS_CALC_STEVENS 
      IF (SrelaxStevens .GT. 0. _d 0) gammas = 1./SrelaxStevens
./pkg/obcs/obcs_calc_stevens.F 136 OBCS_CALC_STEVENS 
          uMerBar(J) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 137 OBCS_CALC_STEVENS 
          drFBar(J)  = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 141 OBCS_CALC_STEVENS 
           uMerPri(J,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 155 OBCS_CALC_STEVENS 
          IF ( drFBar(J) .GT. 0. _d 0 )
./pkg/obcs/obcs_calc_stevens.F 167 OBCS_CALC_STEVENS 
          uMerBar(J) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 168 OBCS_CALC_STEVENS 
          drFBar(J)  = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 181 OBCS_CALC_STEVENS 
          IF ( drFBar(J) .GT. 0. _d 0 )
./pkg/obcs/obcs_calc_stevens.F 207 OBCS_CALC_STEVENS 
            uPhase = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 208 OBCS_CALC_STEVENS 
            IF ( dTracSpace .NE. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc_stevens.F 209 OBCS_CALC_STEVENS 
             cfl = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/deltaTmom
./pkg/obcs/obcs_calc_stevens.F 240 OBCS_CALC_STEVENS 
            uPhase = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 241 OBCS_CALC_STEVENS 
            IF ( dTracSpace .NE. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc_stevens.F 242 OBCS_CALC_STEVENS 
             cfl = 0.5 _d 0 * _dxC(I-1,J,bi,bj)/deltaTmom
./pkg/obcs/obcs_calc_stevens.F 283 OBCS_CALC_STEVENS 
          uMerBar(J) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 284 OBCS_CALC_STEVENS 
          drFBar(J)  = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 288 OBCS_CALC_STEVENS 
           uMerPri(J,K) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 302 OBCS_CALC_STEVENS 
          IF ( drFBar(J) .GT. 0. _d 0 )
./pkg/obcs/obcs_calc_stevens.F 314 OBCS_CALC_STEVENS 
          uMerBar(J) = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 315 OBCS_CALC_STEVENS 
          drFBar(J)  = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 328 OBCS_CALC_STEVENS 
          IF ( drFBar(J) .GT. 0. _d 0 )
./pkg/obcs/obcs_calc_stevens.F 354 OBCS_CALC_STEVENS 
            uPhase = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 355 OBCS_CALC_STEVENS 
            IF ( dTracSpace .NE. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc_stevens.F 356 OBCS_CALC_STEVENS 
             cfl = - 0.5 _d 0 * _dxC(I+2,J,bi,bj)/deltaTmom
./pkg/obcs/obcs_calc_stevens.F 387 OBCS_CALC_STEVENS 
            uPhase = 0. _d 0
./pkg/obcs/obcs_calc_stevens.F 388 OBCS_CALC_STEVENS 
            IF ( dTracSpace .NE. 0. _d 0 ) THEN
./pkg/obcs/obcs_calc_stevens.F 389 OBCS_CALC_STEVENS 
             cfl = - 0.5 _d 0 * _dxC(I+2,J,bi,bj)/deltaTmom
./pkg/obcs/obcs_calc_stevens.F 603 OBCS_CALC_STEVENS 
         uMerBar(J)=0. _d 0
./pkg/obcs/obcs_calc_stevens.F 625 OBCS_CALC_STEVENS 
      print *, 'ml-obcs: OBE  = ',  uPhase*1 _d -6, ' Sv'
./pkg/obcs/obcs_calc_stevens.F 626 OBCS_CALC_STEVENS 
      print *, 'ml-obcs: OBW  = ',  vPhase*1 _d -6, ' Sv'
./pkg/obcs/obcs_calc_stevens.F 627 OBCS_CALC_STEVENS 
      print *, 'ml-obcs: OBWp = ', uVelLoc*1 _d -6, ' Sv'
./pkg/obcs/obcs_external_fields_load.F 101 OBCS_EXTERNAL_FIELDS_LOAD 
      rdt = 1. _d 0 / deltaTclock
./pkg/obcs/obcs_external_fields_load.F 114 OBCS_EXTERNAL_FIELDS_LOAD 
      bWght = 1. _d 0 - aWght
./pkg/obcs/obcs_external_fields_load.F 318 OBCS_EXTERNAL_FIELDS_LOAD 
       aWght = 0. _d 0
./pkg/obcs/obcs_external_fields_load.F 319 OBCS_EXTERNAL_FIELDS_LOAD 
       bWght = 1. _d 0
./model/src/cg2d.F 115 CG2D 
      eta_qrNM1 = 1. _d 0
./model/src/cg2d.F 126 CG2D 
      rhsMax = 0. _d 0
./model/src/cg2d.F 146 CG2D 
      rhsNorm = 1. _d 0
./model/src/cg2d.F 147 CG2D 
      IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax
./model/src/cg2d.F 178 CG2D 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg2d.F 179 CG2D 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg2d.F 251 CG2D 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d.F 311 CG2D 
         alphaTile(bi,bj) = 0. _d 0
./model/src/cg2d.F 358 CG2D 
         errTile(bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 100 OBCS_INIT_VARIABLES 
          OBEu0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 101 OBCS_INIT_VARIABLES 
          OBEv0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 102 OBCS_INIT_VARIABLES 
          OBEt0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 103 OBCS_INIT_VARIABLES 
          OBEs0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 104 OBCS_INIT_VARIABLES 
          OBEu1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 105 OBCS_INIT_VARIABLES 
          OBEv1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 106 OBCS_INIT_VARIABLES 
          OBEt1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 107 OBCS_INIT_VARIABLES 
          OBEs1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 112 OBCS_INIT_VARIABLES 
          OBWu(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 113 OBCS_INIT_VARIABLES 
          OBWv(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 114 OBCS_INIT_VARIABLES 
          OBWt(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 115 OBCS_INIT_VARIABLES 
          OBWs(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 117 OBCS_INIT_VARIABLES 
          OBWu0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 118 OBCS_INIT_VARIABLES 
          OBWv0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 119 OBCS_INIT_VARIABLES 
          OBWt0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 120 OBCS_INIT_VARIABLES 
          OBWs0(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 121 OBCS_INIT_VARIABLES 
          OBWu1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 122 OBCS_INIT_VARIABLES 
          OBWv1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 123 OBCS_INIT_VARIABLES 
          OBWt1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 124 OBCS_INIT_VARIABLES 
          OBWs1(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 133 OBCS_INIT_VARIABLES 
          OBNw (I,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 134 OBCS_INIT_VARIABLES 
          OBSw (I,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 136 OBCS_INIT_VARIABLES 
          OBNw0(I,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 137 OBCS_INIT_VARIABLES 
          OBSw0(I,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 138 OBCS_INIT_VARIABLES 
          OBNw1(I,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 139 OBCS_INIT_VARIABLES 
          OBSw1(I,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 143 OBCS_INIT_VARIABLES 
          OBEw (J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 144 OBCS_INIT_VARIABLES 
          OBWw (J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 146 OBCS_INIT_VARIABLES 
          OBEw0(J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 147 OBCS_INIT_VARIABLES 
          OBWw0(J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 148 OBCS_INIT_VARIABLES 
          OBEw1(J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 149 OBCS_INIT_VARIABLES 
          OBWw1(J,K,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 157 OBCS_INIT_VARIABLES 
          OBNeta (I,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 158 OBCS_INIT_VARIABLES 
          OBSeta (I,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 160 OBCS_INIT_VARIABLES 
          OBNeta0(I,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 161 OBCS_INIT_VARIABLES 
          OBSeta0(I,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 162 OBCS_INIT_VARIABLES 
          OBNeta1(I,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 163 OBCS_INIT_VARIABLES 
          OBSeta1(I,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 167 OBCS_INIT_VARIABLES 
          OBEeta (J,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 168 OBCS_INIT_VARIABLES 
          OBWeta (J,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 170 OBCS_INIT_VARIABLES 
          OBEeta0(J,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 171 OBCS_INIT_VARIABLES 
          OBWeta0(J,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 172 OBCS_INIT_VARIABLES 
          OBEeta1(J,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 173 OBCS_INIT_VARIABLES 
          OBWeta1(J,bi,bj) = 0. _d 0
./pkg/obcs/obcs_init_variables.F 183 OBCS_INIT_VARIABLES 
         OBNa (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 184 OBCS_INIT_VARIABLES 
         OBNh (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 185 OBCS_INIT_VARIABLES 
         OBNa0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 186 OBCS_INIT_VARIABLES 
         OBNh0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 187 OBCS_INIT_VARIABLES 
         OBNa1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 188 OBCS_INIT_VARIABLES 
         OBNh1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 189 OBCS_INIT_VARIABLES 
         OBNsl (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 190 OBCS_INIT_VARIABLES 
         OBNsn (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 191 OBCS_INIT_VARIABLES 
         OBNsl0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 192 OBCS_INIT_VARIABLES 
         OBNsn0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 193 OBCS_INIT_VARIABLES 
         OBNsl1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 194 OBCS_INIT_VARIABLES 
         OBNsn1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 195 OBCS_INIT_VARIABLES 
         OBNuice (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 196 OBCS_INIT_VARIABLES 
         OBNvice (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 197 OBCS_INIT_VARIABLES 
         OBNuice0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 198 OBCS_INIT_VARIABLES 
         OBNvice0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 199 OBCS_INIT_VARIABLES 
         OBNuice1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 200 OBCS_INIT_VARIABLES 
         OBNvice1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 203 OBCS_INIT_VARIABLES 
         OBSa (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 204 OBCS_INIT_VARIABLES 
         OBSh (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 205 OBCS_INIT_VARIABLES 
         OBSa0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 206 OBCS_INIT_VARIABLES 
         OBSh0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 207 OBCS_INIT_VARIABLES 
         OBSa1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 208 OBCS_INIT_VARIABLES 
         OBSh1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 209 OBCS_INIT_VARIABLES 
         OBSsl (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 210 OBCS_INIT_VARIABLES 
         OBSsn (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 211 OBCS_INIT_VARIABLES 
         OBSsl0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 212 OBCS_INIT_VARIABLES 
         OBSsn0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 213 OBCS_INIT_VARIABLES 
         OBSsl1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 214 OBCS_INIT_VARIABLES 
         OBSsn1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 215 OBCS_INIT_VARIABLES 
         OBSuice (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 216 OBCS_INIT_VARIABLES 
         OBSvice (I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 217 OBCS_INIT_VARIABLES 
         OBSuice0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 218 OBCS_INIT_VARIABLES 
         OBSvice0(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 219 OBCS_INIT_VARIABLES 
         OBSuice1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 220 OBCS_INIT_VARIABLES 
         OBSvice1(I,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 225 OBCS_INIT_VARIABLES 
         OBEa (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 226 OBCS_INIT_VARIABLES 
         OBEh (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 227 OBCS_INIT_VARIABLES 
         OBEa0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 228 OBCS_INIT_VARIABLES 
         OBEh0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 229 OBCS_INIT_VARIABLES 
         OBEa1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 230 OBCS_INIT_VARIABLES 
         OBEh1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 231 OBCS_INIT_VARIABLES 
         OBEsl (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 232 OBCS_INIT_VARIABLES 
         OBEsn (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 233 OBCS_INIT_VARIABLES 
         OBEsl0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 234 OBCS_INIT_VARIABLES 
         OBEsn0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 235 OBCS_INIT_VARIABLES 
         OBEsl1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 236 OBCS_INIT_VARIABLES 
         OBEsn1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 237 OBCS_INIT_VARIABLES 
         OBEuice (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 238 OBCS_INIT_VARIABLES 
         OBEvice (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 239 OBCS_INIT_VARIABLES 
         OBEuice0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 240 OBCS_INIT_VARIABLES 
         OBEvice0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 241 OBCS_INIT_VARIABLES 
         OBEuice1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 242 OBCS_INIT_VARIABLES 
         OBEvice1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 245 OBCS_INIT_VARIABLES 
         OBWa (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 246 OBCS_INIT_VARIABLES 
         OBWh (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 247 OBCS_INIT_VARIABLES 
         OBWa0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 248 OBCS_INIT_VARIABLES 
         OBWh0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 249 OBCS_INIT_VARIABLES 
         OBWa1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 250 OBCS_INIT_VARIABLES 
         OBWh1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 251 OBCS_INIT_VARIABLES 
         OBWsl (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 252 OBCS_INIT_VARIABLES 
         OBWsn (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 253 OBCS_INIT_VARIABLES 
         OBWsl0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 254 OBCS_INIT_VARIABLES 
         OBWsn0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 255 OBCS_INIT_VARIABLES 
         OBWsl1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 256 OBCS_INIT_VARIABLES 
         OBWsn1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 257 OBCS_INIT_VARIABLES 
         OBWuice (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 258 OBCS_INIT_VARIABLES 
         OBWvice (J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 259 OBCS_INIT_VARIABLES 
         OBWuice0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 260 OBCS_INIT_VARIABLES 
         OBWvice0(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 261 OBCS_INIT_VARIABLES 
         OBWuice1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 262 OBCS_INIT_VARIABLES 
         OBWvice1(J,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 275 OBCS_INIT_VARIABLES 
            OBNptr (I,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 277 OBCS_INIT_VARIABLES 
            OBNptr0(I,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 278 OBCS_INIT_VARIABLES 
            OBNptr1(I,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 283 OBCS_INIT_VARIABLES 
            OBSptr (I,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 285 OBCS_INIT_VARIABLES 
            OBSptr0(I,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 286 OBCS_INIT_VARIABLES 
            OBSptr1(I,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 293 OBCS_INIT_VARIABLES 
            OBEptr (J,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 295 OBCS_INIT_VARIABLES 
            OBEptr0(J,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 296 OBCS_INIT_VARIABLES 
            OBEptr1(J,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 301 OBCS_INIT_VARIABLES 
            OBWptr (J,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 303 OBCS_INIT_VARIABLES 
            OBWptr0(J,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 304 OBCS_INIT_VARIABLES 
            OBWptr1(J,K,bi,bj,iTracer)=0. _d 0
./pkg/obcs/obcs_init_variables.F 59 OBCS_INIT_VARIABLES 
          OBNu(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 60 OBCS_INIT_VARIABLES 
          OBNv(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 61 OBCS_INIT_VARIABLES 
          OBNt(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 62 OBCS_INIT_VARIABLES 
          OBNs(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 64 OBCS_INIT_VARIABLES 
          OBNu0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 65 OBCS_INIT_VARIABLES 
          OBNv0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 66 OBCS_INIT_VARIABLES 
          OBNt0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 67 OBCS_INIT_VARIABLES 
          OBNs0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 68 OBCS_INIT_VARIABLES 
          OBNu1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 69 OBCS_INIT_VARIABLES 
          OBNv1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 70 OBCS_INIT_VARIABLES 
          OBNt1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 71 OBCS_INIT_VARIABLES 
          OBNs1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 76 OBCS_INIT_VARIABLES 
          OBSu(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 77 OBCS_INIT_VARIABLES 
          OBSv(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 78 OBCS_INIT_VARIABLES 
          OBSt(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 79 OBCS_INIT_VARIABLES 
          OBSs(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 81 OBCS_INIT_VARIABLES 
          OBSu0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 82 OBCS_INIT_VARIABLES 
          OBSv0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 83 OBCS_INIT_VARIABLES 
          OBSt0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 84 OBCS_INIT_VARIABLES 
          OBSs0(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 85 OBCS_INIT_VARIABLES 
          OBSu1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 86 OBCS_INIT_VARIABLES 
          OBSv1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 87 OBCS_INIT_VARIABLES 
          OBSt1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 88 OBCS_INIT_VARIABLES 
          OBSs1(I,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 95 OBCS_INIT_VARIABLES 
          OBEu(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 96 OBCS_INIT_VARIABLES 
          OBEv(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 97 OBCS_INIT_VARIABLES 
          OBEt(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_init_variables.F 98 OBCS_INIT_VARIABLES 
          OBEs(J,K,bi,bj)=0. _d 0
./pkg/obcs/obcs_prescribe_read.F 318 OBCS_PRESCRIBE_EXF_XZ 
      if ( obcsperiod .eq. -12. _d 0 ) then
./pkg/obcs/obcs_prescribe_read.F 328 OBCS_PRESCRIBE_EXF_XZ 
      elseif ( obcsperiod .lt. 0. _d 0 ) then
./pkg/obcs/obcs_prescribe_read.F 378 OBCS_PRESCRIBE_EXF_XZ 
       if ( siobperiod .eq. -12. _d 0 ) then
./pkg/obcs/obcs_prescribe_read.F 388 OBCS_PRESCRIBE_EXF_XZ 
       elseif ( siobperiod .lt. 0. _d 0 ) then
./pkg/obcs/obcs_prescribe_read.F 552 OBCS_PRESCRIBE_EXF_YZ 
      if ( obcsperiod .eq. -12. _d 0 ) then
./pkg/obcs/obcs_prescribe_read.F 562 OBCS_PRESCRIBE_EXF_YZ 
      elseif ( obcsperiod .lt. 0. _d 0 ) then
./pkg/obcs/obcs_prescribe_read.F 612 OBCS_PRESCRIBE_EXF_YZ 
       if ( siobperiod .eq. -12. _d 0 ) then
./pkg/obcs/obcs_prescribe_read.F 622 OBCS_PRESCRIBE_EXF_YZ 
       elseif ( siobperiod .lt. 0. _d 0 ) then
./pkg/obcs/obcs_readparms.F 271 OBCS_READPARMS 
      CMAX = 0.45 _d 0 /* maximum allowable phase speed-CFL for AB-II */
./pkg/obcs/obcs_readparms.F 272 OBCS_READPARMS 
      cvelTimeScale = 2000.0 _d 0 /* Averaging period for phase speed in sec. */
./pkg/obcs/obcs_readparms.F 273 OBCS_READPARMS 
      CFIX = 0.8 _d 0 /* Fixed boundary phase speed in m/s */
./pkg/obcs/obcs_readparms.F 287 OBCS_READPARMS 
      Urelaxobcsinner = 0. _d 0
./pkg/obcs/obcs_readparms.F 288 OBCS_READPARMS 
      Urelaxobcsbound = 0. _d 0
./pkg/obcs/obcs_readparms.F 289 OBCS_READPARMS 
      Vrelaxobcsinner = 0. _d 0
./pkg/obcs/obcs_readparms.F 290 OBCS_READPARMS 
      Vrelaxobcsbound = 0. _d 0
./pkg/obcs/obcs_readparms.F 301 OBCS_READPARMS 
      TrelaxStevens   = 0. _d 0
./pkg/obcs/obcs_readparms.F 302 OBCS_READPARMS 
      SrelaxStevens   = 0. _d 0
./pkg/obcs/obcs_sponge.F 108 OBCS_SPONGE_U 
            lambda_obcs_u = 1. _d 0 / lambda_obcs_u
./pkg/obcs/obcs_sponge.F 110 OBCS_SPONGE_U 
            lambda_obcs_u = 0. _d 0
./pkg/obcs/obcs_sponge.F 142 OBCS_SPONGE_U 
            lambda_obcs_u = 1. _d 0 / lambda_obcs_u
./pkg/obcs/obcs_sponge.F 144 OBCS_SPONGE_U 
            lambda_obcs_u = 0. _d 0
./pkg/obcs/obcs_sponge.F 176 OBCS_SPONGE_U 
            lambda_obcs_u = 1. _d 0 / lambda_obcs_u
./pkg/obcs/obcs_sponge.F 178 OBCS_SPONGE_U 
            lambda_obcs_u = 0. _d 0
./pkg/obcs/obcs_sponge.F 258 OBCS_SPONGE_V 
            lambda_obcs_v = 1. _d 0 / lambda_obcs_v
./pkg/obcs/obcs_sponge.F 260 OBCS_SPONGE_V 
            lambda_obcs_v = 0. _d 0
./pkg/obcs/obcs_sponge.F 292 OBCS_SPONGE_V 
            lambda_obcs_v = 1. _d 0 / lambda_obcs_v
./pkg/obcs/obcs_sponge.F 294 OBCS_SPONGE_V 
            lambda_obcs_v = 0. _d 0
./pkg/obcs/obcs_sponge.F 326 OBCS_SPONGE_V 
            lambda_obcs_v = 1. _d 0 / lambda_obcs_v
./pkg/obcs/obcs_sponge.F 328 OBCS_SPONGE_V 
            lambda_obcs_v = 0. _d 0
./pkg/obcs/obcs_sponge.F 361 OBCS_SPONGE_V 
            lambda_obcs_v = 1. _d 0 / lambda_obcs_v
./pkg/obcs/obcs_sponge.F 363 OBCS_SPONGE_V 
            lambda_obcs_v = 0. _d 0
./pkg/obcs/obcs_sponge.F 466 OBCS_SPONGE_T 
           lambda_obcs_t = 1. _d 0 / lambda_obcs_t
./pkg/obcs/obcs_sponge.F 468 OBCS_SPONGE_T 
           lambda_obcs_t = 0. _d 0
./pkg/obcs/obcs_sponge.F 507 OBCS_SPONGE_T 
            lambda_obcs_t = 1. _d 0 / lambda_obcs_t
./pkg/obcs/obcs_sponge.F 509 OBCS_SPONGE_T 
            lambda_obcs_t = 0. _d 0
./pkg/obcs/obcs_sponge.F 548 OBCS_SPONGE_T 
            lambda_obcs_t = 1. _d 0 / lambda_obcs_t
./pkg/obcs/obcs_sponge.F 550 OBCS_SPONGE_T 
            lambda_obcs_t = 0. _d 0
./pkg/obcs/obcs_sponge.F 591 OBCS_SPONGE_T 
            lambda_obcs_t = 1. _d 0 / lambda_obcs_t
./pkg/obcs/obcs_sponge.F 593 OBCS_SPONGE_T 
            lambda_obcs_t = 0. _d 0
./pkg/obcs/obcs_sponge.F 698 OBCS_SPONGE_S 
           lambda_obcs_s = 1. _d 0 / lambda_obcs_s
./pkg/obcs/obcs_sponge.F 700 OBCS_SPONGE_S 
           lambda_obcs_s = 0. _d 0
./pkg/obcs/obcs_sponge.F 739 OBCS_SPONGE_S 
            lambda_obcs_s = 1. _d 0 / lambda_obcs_s
./pkg/obcs/obcs_sponge.F 741 OBCS_SPONGE_S 
            lambda_obcs_s = 0. _d 0
./pkg/obcs/obcs_sponge.F 74 OBCS_SPONGE_U 
           lambda_obcs_u = 1. _d 0 / lambda_obcs_u
./pkg/obcs/obcs_sponge.F 76 OBCS_SPONGE_U 
           lambda_obcs_u = 0. _d 0
./pkg/obcs/obcs_sponge.F 780 OBCS_SPONGE_S 
            lambda_obcs_s = 1. _d 0 / lambda_obcs_s
./pkg/obcs/obcs_sponge.F 782 OBCS_SPONGE_S 
            lambda_obcs_s = 0. _d 0
./pkg/obcs/obcs_sponge.F 824 OBCS_SPONGE_S 
            lambda_obcs_s = 1. _d 0 / lambda_obcs_s
./pkg/obcs/obcs_sponge.F 826 OBCS_SPONGE_S 
            lambda_obcs_s = 0. _d 0
./pkg/obcs/orlanski_east.F 94 ORLANSKI_EAST 
      ab1   =  1.5 _d 0 + abEps /* Adams-Bashforth coefficients */
./pkg/obcs/orlanski_east.F 95 ORLANSKI_EAST 
      ab2   = -0.5 _d 0 - abEps
./model/src/cg2d_nsa.F 139 CG2D_NSA 
      eta_qrNM1 = 1. _d 0
./model/src/cg2d_nsa.F 154 CG2D_NSA 
      rhsMax = 0. _d 0
./model/src/cg2d_nsa.F 183 CG2D_NSA 
       rhsNorm = 1. _d 0 / rhsMaxGlobal
./model/src/cg2d_nsa.F 185 CG2D_NSA 
       rhsNorm = 1. _d 0
./model/src/cg2d_nsa.F 215 CG2D_NSA 
      err = 0. _d 0
./model/src/cg2d_nsa.F 216 CG2D_NSA 
      err_sq = 0. _d 0
./model/src/cg2d_nsa.F 217 CG2D_NSA 
      sumRHS = 0. _d 0
./model/src/cg2d_nsa.F 309 CG2D_NSA 
       eta_qrN = 0. _d 0
./model/src/cg2d_nsa.F 371 CG2D_NSA 
       alpha     = 0. _d 0
./model/src/cg2d_nsa.F 372 CG2D_NSA 
       alpha_aux = 0. _d 0
./model/src/cg2d_nsa.F 411 CG2D_NSA 
       err    = 0. _d 0
./model/src/cg2d_nsa.F 412 CG2D_NSA 
       err_sq = 0. _d 0
./pkg/obcs/orlanski_north.F 85 ORLANSKI_NORTH 
      ab1   =  1.5 _d 0 + abEps /* Adams-Bashforth coefficients */
./pkg/obcs/orlanski_north.F 86 ORLANSKI_NORTH 
      ab2   = -0.5 _d 0 - abEps
./pkg/obcs/orlanski_south.F 85 ORLANSKI_SOUTH 
      ab1   =  1.5 _d 0 + abEps /* Adams-Bashforth coefficients */
./pkg/obcs/orlanski_south.F 86 ORLANSKI_SOUTH 
      ab2   = -0.5 _d 0 - abEps
./pkg/obcs/orlanski_west.F 96 ORLANSKI_WEST 
      ab1   =  1.5 _d 0 + abEps /* Adams-Bashforth coefficients */
./pkg/obcs/orlanski_west.F 97 ORLANSKI_WEST 
      ab2   = -0.5 _d 0 - abEps
./pkg/ocn_compon_interf/cpl_exch_configs.F 79 CPL_EXCH_CONFIGS 
      seaSurface_ocn  = 0. _d 0
./pkg/ocn_compon_interf/cpl_exch_configs.F 80 CPL_EXCH_CONFIGS 
      groundLevel_atm = 1. _d 5
./pkg/ocn_compon_interf/cpl_import_external_data.F 52 CPL_IMPORT_EXTERNAL_DATA 
      IF ( cpl_taveFreq.GT.0. _d 0 ) THEN
./model/src/cg2d_sr.F 114 CG2D_SR 
      eta_qrNM1 = 1. _d 0
./model/src/cg2d_sr.F 117 CG2D_SR 
      rhsMax = 0. _d 0
./model/src/cg2d_sr.F 132 CG2D_SR 
      rhsNorm = 1. _d 0
./model/src/cg2d_sr.F 133 CG2D_SR 
      IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax
./model/src/cg2d_sr.F 151 CG2D_SR 
      err    = 0. _d 0
./model/src/cg2d_sr.F 152 CG2D_SR 
      sumRHS = 0. _d 0
./model/src/cg2d_sr.F 160 CG2D_SR 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 161 CG2D_SR 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg2d_sr.F 204 CG2D_SR 
      eta_qrN = 0. _d 0
./model/src/cg2d_sr.F 207 CG2D_SR 
        eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 234 CG2D_SR 
      alpha = 0. _d 0
./model/src/cg2d_sr.F 237 CG2D_SR 
        alphaTile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 264 CG2D_SR 
        errTile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 306 CG2D_SR 
       eta_qrN = 0. _d 0
./model/src/cg2d_sr.F 307 CG2D_SR 
       delta   = 0. _d 0
./model/src/cg2d_sr.F 308 CG2D_SR 
       err = 0. _d 0
./model/src/cg2d_sr.F 311 CG2D_SR 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg2d_sr.F 312 CG2D_SR 
         deltaTile(bi,bj)   = 0. _d 0
./model/src/cg2d_sr.F 313 CG2D_SR 
         errTile(bi,bj) = 0. _d 0
./model/src/cg3d.F 131 CG3D 
      eta_qrNM1 = 1. _d 0
./model/src/cg3d.F 134 CG3D 
      rhsMax = 0. _d 0
./model/src/cg3d.F 149 CG3D 
      rhsNorm = 1. _d 0
./model/src/cg3d.F 150 CG3D 
      IF ( rhsMax .NE. 0. ) rhsNorm = 1. _d 0 / rhsMax
./model/src/cg3d.F 169 CG3D 
      err    = 0. _d 0
./model/src/cg3d.F 170 CG3D 
      sumRHS = 0. _d 0
./model/src/cg3d.F 173 CG3D 
        errTile(bi,bj)    = 0. _d 0
./model/src/cg3d.F 174 CG3D 
        sumRHStile(bi,bj) = 0. _d 0
./model/src/cg3d.F 204 CG3D 
         maskM1 = 1. _d 0
./model/src/cg3d.F 205 CG3D 
         maskP1 = 1. _d 0
./model/src/cg3d.F 206 CG3D 
         IF ( k .EQ. 1 ) maskM1 = 0. _d 0
./model/src/cg3d.F 207 CG3D 
         IF ( k .EQ. Nr) maskP1 = 0. _d 0
./model/src/cg3d.F 274 CG3D 
       eta_qrN = 0. _d 0
./model/src/cg3d.F 277 CG3D 
         eta_qrNtile(bi,bj) = 0. _d 0
./model/src/cg3d.F 361 CG3D 
       alpha = 0. _d 0
./model/src/cg3d.F 364 CG3D 
         alphaTile(bi,bj) = 0. _d 0
./model/src/cg3d.F 490 CG3D 
       err = 0. _d 0
./model/src/cg3d.F 493 CG3D 
         errTile(bi,bj) = 0. _d 0
./pkg/ocn_compon_interf/ocn_store_my_data.F 100 OCN_STORE_MY_DATA 
     &              )*0.5 _d 0
./model/src/check_pickup.F 94 CHECK_PICKUP 
     &        .AND. implicitNHPress.EQ.1. _d 0 ) THEN
./pkg/offline/offline_fields_load.F 109 OFFLINE_FIELDS_LOAD 
      rdt = 1. _d 0 / deltaToffline
./pkg/offline/offline_fields_load.F 122 OFFLINE_FIELDS_LOAD 
      bWght = 1. _d 0 - aWght
./pkg/offline/offline_init_varia.F 35 OFFLINE_INIT_VARIA 
                 save0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 36 OFFLINE_INIT_VARIA 
                 tave0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 37 OFFLINE_INIT_VARIA 
                 uvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 38 OFFLINE_INIT_VARIA 
                 vvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 39 OFFLINE_INIT_VARIA 
                 wvel0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 40 OFFLINE_INIT_VARIA 
                 conv0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 41 OFFLINE_INIT_VARIA 
                 gmkx0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 42 OFFLINE_INIT_VARIA 
                 gmky0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 43 OFFLINE_INIT_VARIA 
                 gmkz0(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 45 OFFLINE_INIT_VARIA 
                 save1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 46 OFFLINE_INIT_VARIA 
                 tave1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 47 OFFLINE_INIT_VARIA 
                 uvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 48 OFFLINE_INIT_VARIA 
                 vvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 49 OFFLINE_INIT_VARIA 
                 wvel1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 50 OFFLINE_INIT_VARIA 
                 conv1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 51 OFFLINE_INIT_VARIA 
                 gmkx1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 52 OFFLINE_INIT_VARIA 
                 gmky1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 53 OFFLINE_INIT_VARIA 
                 gmkz1(i,j,k,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 59 OFFLINE_INIT_VARIA 
                 hflx0(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 60 OFFLINE_INIT_VARIA 
                 sflx0(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 61 OFFLINE_INIT_VARIA 
                 hflx1(i,j,bi,bj) = 0. _d 0
./pkg/offline/offline_init_varia.F 62 OFFLINE_INIT_VARIA 
                 sflx1(i,j,bi,bj) = 0. _d 0
./pkg/opps/opps_calc.F 331 OPPS_CALC 
         IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2))
./pkg/opps/opps_calc.F 425 OPPS_CALC 
     &      OPPSconvectCount(I,J,K,bi,bj) + 1. _d 0
./pkg/opps/opps_calc.F 504 OPPS_CALC 
      rhoLoc  = 0. _d 0
./pkg/opps/opps_calc.F 505 OPPS_CALC 
      rhoP0   = 0. _d 0
./pkg/opps/opps_calc.F 506 OPPS_CALC 
      bulkMod = 0. _d 0
./pkg/opps/opps_calc.F 507 OPPS_CALC 
      rfresh  = 0. _d 0
./pkg/opps/opps_calc.F 508 OPPS_CALC 
      rsalt   = 0. _d 0
./pkg/opps/opps_calc.F 509 OPPS_CALC 
      bMfresh = 0. _d 0
./pkg/opps/opps_calc.F 510 OPPS_CALC 
      bMsalt  = 0. _d 0
./pkg/opps/opps_calc.F 511 OPPS_CALC 
      bMpres  = 0. _d 0
./pkg/opps/opps_calc.F 512 OPPS_CALC 
      rhoNum  = 0. _d 0
./pkg/opps/opps_calc.F 513 OPPS_CALC 
      rhoDen  = 0. _d 0
./pkg/opps/opps_calc.F 514 OPPS_CALC 
      den     = 0. _d 0
./pkg/opps/opps_calc.F 538 OPPS_CALC 
         rhoLoc = 0. _d 0
./pkg/opps/opps_calc.F 617 OPPS_CALC 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod) - rhoConst
./pkg/opps/opps_init.F 42 OPPS_INIT 
           OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0
./model/src/config_check.F 427 CONFIG_CHECK 
     &     .AND. implicDiv2Dflow.EQ.0. _d 0
./pkg/opps/opps_interface.F 84 OPPS_INTERFACE 
      tMax    = -1. _d 23
./pkg/opps/opps_interface.F 85 OPPS_INTERFACE 
      tMin    =  1. _d 23
./pkg/opps/opps_interface.F 86 OPPS_INTERFACE 
      sMax    = -1. _d 23
./pkg/opps/opps_interface.F 87 OPPS_INTERFACE 
      sMin    =  1. _d 23
./pkg/opps/opps_interface.F 88 OPPS_INTERFACE 
      tMaxNew = -1. _d 23
./pkg/opps/opps_interface.F 89 OPPS_INTERFACE 
      tMinNew =  1. _d 23
./pkg/opps/opps_interface.F 90 OPPS_INTERFACE 
      sMaxNew = -1. _d 23
./pkg/opps/opps_interface.F 91 OPPS_INTERFACE 
      sMinNew =  1. _d 23
./pkg/opps/opps_interface.F 92 OPPS_INTERFACE 
      tMinNew =  1. _d 23
./pkg/opps/opps_interface.F 97 OPPS_INTERFACE 
         OPPSconvectCount(I,J,K,bi,bj) = 0. _d 0
./pkg/opps/opps_output.F 98 OPPS_OUTPUT 
      IF ( OPPStaveFreq.GT.0. _d 0 ) THEN
./pkg/opps/opps_readparms.F 59 OPPS_READPARMS 
      PlumeRadius          = 100.   _d 0
./pkg/opps/opps_readparms.F 60 OPPS_READPARMS 
      STABILITY_THRESHOLD  =  -1.   _d -4
./pkg/opps/opps_readparms.F 61 OPPS_READPARMS 
      FRACTIONAL_AREA      =    .1  _d 0
./pkg/opps/opps_readparms.F 62 OPPS_READPARMS 
      MAX_FRACTIONAL_AREA  =    .8  _d 0
./pkg/opps/opps_readparms.F 63 OPPS_READPARMS 
      VERTICAL_VELOCITY    =    .03 _d 0
./pkg/opps/opps_readparms.F 64 OPPS_READPARMS 
      ENTRAINMENT_RATE     =   -.05 _d 0
./pkg/pp81/pp81_output.F 98 PP81_OUTPUT 
      IF ( PPtaveFreq.GT.0. _d 0 ) THEN
./pkg/pp81/pp81_readparms.F 108 PP81_READPARMS 
     &             ((PPnu0+viscArNr(1))/PPviscMax)**(1. _d 0/RiLimit)
./pkg/pp81/pp81_readparms.F 109 PP81_READPARMS 
     &            -1. _d 0
./pkg/pp81/pp81_readparms.F 56 PP81_READPARMS 
      PPviscMin    = 0. _d 0
./pkg/pp81/pp81_readparms.F 57 PP81_READPARMS 
      PPdiffMin    = 0. _d 0
./pkg/pp81/pp81_readparms.F 58 PP81_READPARMS 
      PPviscMax    = 1. _d 0
./pkg/pp81/pp81_readparms.F 59 PP81_READPARMS 
      PPnu0        = 1. _d -02
./pkg/pp81/pp81_readparms.F 60 PP81_READPARMS 
      PPalpha      = 5. _d 0
./pkg/profiles/active_file_control_profiles.F 150 ACTIVE_READ_PROFILE_RL 
           active_var(i) = 0. _d 0
./pkg/profiles/active_file_control_profiles.F 184 ACTIVE_READ_PROFILE_RL 
           active_var(i) = 0. _d 0
./pkg/profiles/active_file_control_profiles.F 372 ACTIVE_WRITE_PROFILE_RL 
           active_data_t(i) = 0. _d 0
./pkg/profiles/active_file_control_profiles.F 400 ACTIVE_WRITE_PROFILE_RL 
           active_data_t(i) = 0. _d 0
./pkg/profiles/profiles_init_fixed.F 146 PROFILES_INIT_FIXED 
      stopProfiles=1. _d 0
./pkg/profiles/profiles_init_fixed.F 163 PROFILES_INIT_FIXED 
      stopProfiles=1. _d 0
./pkg/profiles/profiles_init_fixed.F 179 PROFILES_INIT_FIXED 
      stopGenericGrid=2. _d 0
./pkg/profiles/profiles_init_fixed.F 225 PROFILES_INIT_FIXED 
      stopProfiles=1. _d 0
./pkg/profiles/profiles_init_fixed.F 240 PROFILES_INIT_FIXED 
      stopProfiles=1. _d 0
./pkg/profiles/profiles_init_fixed.F 299 PROFILES_INIT_FIXED 
       stopProfiles=1. _d 0
./pkg/profiles/profiles_init_fixed.F 318 PROFILES_INIT_FIXED 
       stopProfiles=1. _d 0
./pkg/profiles/profiles_init_fixed.F 336 PROFILES_INIT_FIXED 
       tmp_sum_weights=0. _d 0
./pkg/profiles/profiles_init_fixed.F 352 PROFILES_INIT_FIXED 
       stopGenericGrid=1. _d 0
./pkg/profiles/profiles_init_fixed.F 364 PROFILES_INIT_FIXED 
       stopGenericGrid=1. _d 0
./pkg/profiles/profiles_init_fixed.F 372 PROFILES_INIT_FIXED 
       stopGenericGrid=1. _d 0
./pkg/profiles/profiles_init_fixed.F 382 PROFILES_INIT_FIXED 
       stopGenericGrid=1. _d 0
./pkg/profiles/profiles_init_fixed.F 392 PROFILES_INIT_FIXED 
        stopProfiles=1. _d 0
./pkg/profiles/profiles_init_fixed.F 67 PROFILES_INIT_FIXED 
      stopProfiles=0. _d 0
./pkg/profiles/profiles_init_fixed.F 69 PROFILES_INIT_FIXED 
      stopGenericGrid=0. _d 0
./pkg/profiles/profiles_init_ncfile.F 56 PROFILES_INIT_NCFILE 
     & NF_DOUBLE,1, 0. _d 0 )
./pkg/profiles/profiles_init_ncfile.F 60 PROFILES_INIT_NCFILE 
     & NF_DOUBLE,1, 0. _d 0)
./pkg/profiles/profiles_init_varia.F 63 PROFILES_INIT_VARIA 
            objf_profiles(num_file,num_var,bi,bj)= 0. _d 0
./pkg/profiles/profiles_init_varia.F 64 PROFILES_INIT_VARIA 
            num_profiles(num_file,num_var,bi,bj) = 0. _d 0
./pkg/profiles/profiles_init_varia.F 65 PROFILES_INIT_VARIA 
            profiles_dummy(num_file,num_var,bi,bj)=0. _d 0
./pkg/profiles/profiles_readparms.F 57 PROFILES_READPARMS 
          mult_profiles(num_file,num_var) = 0. _d 0
./pkg/ptracers/ptracers_calc_diff.F 66 PTRACERS_CALC_DIFF 
     &     *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0)
./pkg/ptracers/ptracers_calc_diff.F 69 PTRACERS_CALC_DIFF 
     &     *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0)
./pkg/ptracers/ptracers_diagnostics_state.F 120 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 128 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 153 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 160 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 87 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_diagnostics_state.F 95 PTRACERS_DIAGNOSTICS_STATE 
     &                 0.5 _d 0*( pTracer(i,j,k,bi,bj,iTr)
./pkg/ptracers/ptracers_forcing_surf.F 109 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = 0. _d 0
./pkg/ptracers/ptracers_forcing_surf.F 68 PTRACERS_FORCING_SURF 
     &               0. _d 0
./pkg/ptracers/ptracers_forcing_surf.F 79 PTRACERS_FORCING_SURF 
        epsil = 1. _d -10
./pkg/ptracers/ptracers_forcing_surf.F 80 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./pkg/ptracers/ptracers_init_varia.F 107 PTRACERS_INIT_VARIA 
     &           pTracer(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/ptracers/ptracers_init_varia.F 55 PTRACERS_INIT_VARIA 
            gPtr(i,j,k,bi,bj,iTracer)    = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 56 PTRACERS_INIT_VARIA 
            gpTrNm1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 62 PTRACERS_INIT_VARIA 
           surfaceForcingPTr(i,j,bi,bj,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_init_varia.F 73 PTRACERS_INIT_VARIA 
               _Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
./pkg/ptracers/ptracers_readparms.F 112 PTRACERS_READPARMS 
          PTRACERS_ref     (k,iTracer)=0. _d 0
./pkg/ptracers/ptracers_timeave.F 70 PTRACERS_TIMEAVE 
      IF ( PTRACERS_taveFreq.GT.0. _d 0 ) THEN
./pkg/rbcs/rbcs_fields_load.F 108 RBCS_FIELDS_LOAD 
      IF (rbcsForcingPeriod.GT.0. _d 0) THEN
./pkg/rbcs/rbcs_fields_load.F 110 RBCS_FIELDS_LOAD 
       rhalfdt = 2. _d 0 / deltaTclock
./pkg/rbcs/rbcs_fields_load.F 120 RBCS_FIELDS_LOAD 
       IF (rbcsForcingCycle.GT.0. _d 0) THEN
./pkg/rbcs/rbcs_fields_load.F 131 RBCS_FIELDS_LOAD 
       bWght = 1. _d 0 - aWght
./pkg/rbcs/rbcs_fields_load.F 137 RBCS_FIELDS_LOAD 
       aWght = .5 _d 0
./pkg/rbcs/rbcs_fields_load.F 138 RBCS_FIELDS_LOAD 
       bWght = .5 _d 0
./pkg/rbcs/rbcs_fields_load.F 80 RBCS_FIELDS_LOAD 
             rbct0(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 81 RBCS_FIELDS_LOAD 
             rbcs0(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 82 RBCS_FIELDS_LOAD 
             rbct1(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 83 RBCS_FIELDS_LOAD 
             rbcs1(i,j,k,bi,bj)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 96 RBCS_FIELDS_LOAD 
             rbcptr0(i,j,k,bi,bj,iTracer)=0. _d 0
./pkg/rbcs/rbcs_fields_load.F 97 RBCS_FIELDS_LOAD 
             rbcptr1(i,j,k,bi,bj,iTracer)=0. _d 0
./model/src/diags_oceanic_surf_flux.F 74 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = -1. _d 0
./model/src/diags_oceanic_surf_flux.F 79 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = -1. _d 0
./model/src/diags_oceanic_surf_flux.F 84 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = -1. _d 0
./model/src/diags_oceanic_surf_flux.F 90 DIAGS_OCEANIC_SURF_FLUX 
       tmpFac = -1. _d 0
./pkg/rbcs/rbcs_init_fixed.F 46 RBCS_INIT_FIXED 
               RBC_mask(i,j,k,bi,bj,irbc) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 42 RBCS_INIT_VARIA 
                rbct0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 43 RBCS_INIT_VARIA 
                rbcs0(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 44 RBCS_INIT_VARIA 
                rbct1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 45 RBCS_INIT_VARIA 
                rbcs1(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 46 RBCS_INIT_VARIA 
                RBCtemp(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 47 RBCS_INIT_VARIA 
                RBCsalt(i,j,k,bi,bj) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 62 RBCS_INIT_VARIA 
                rbcptr0(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 63 RBCS_INIT_VARIA 
                rbcptr1(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_init_varia.F 64 RBCS_INIT_VARIA 
                RBC_ptracers(i,j,k,bi,bj,iTracer) = 0. _d 0
./pkg/rbcs/rbcs_readparms.F 86 RBCS_READPARMS 
      rbcsForcingPeriod = 0. _d 0
./pkg/rbcs/rbcs_readparms.F 87 RBCS_READPARMS 
      rbcsForcingCycle  = 0. _d 0
./pkg/rbcs/rbcs_readparms.F 88 RBCS_READPARMS 
      rbcsForcingOffset = 0. _d 0
./model/src/diags_phi_rlow.F 64 DIAGS_PHI_RLOW 
      PARAMETER ( zero= 0. _d 0 , one= 1. _d 0 , half= .5 _d 0 )
./model/src/diags_phi_rlow.F 77 DIAGS_PHI_RLOW 
            phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/diags_rho.F 142 DIAGS_RHO_G 
      tmpFac = 1. _d 0
./model/src/diags_rho.F 154 DIAGS_RHO_G 
     &                   *0.5 _d 0
./model/src/diags_rho.F 171 DIAGS_RHO_G 
     &                   *0.5 _d 0
./model/src/diags_rho.F 75 DIAGS_RHO_L 
     &                 *(rhoKm1(i,j)+rhoK(i,j))*0.5 _d 0
./pkg/salt_plume/salt_plume_calc_depth.F 68 SALT_PLUME_CALC_DEPTH 
       rhoBigNb  = rhoConst*1. _d 10
./pkg/salt_plume/salt_plume_diagnostics_fill.F 36 SALT_PLUME_DIAGNOSTICS_FILL 
       tmpFac = 1. _d 0
./pkg/salt_plume/salt_plume_diagnostics_fill.F 41 SALT_PLUME_DIAGNOSTICS_FILL 
       tmpFac = 1. _d 0
./pkg/salt_plume/salt_plume_frac.F 65 SALT_PLUME_FRAC 
      parameter( one = 1. _d 0, two = 2. _d 0, three = 3. _d 0 )
./pkg/salt_plume/salt_plume_init_varia.F 37 SALT_PLUME_INIT_VARIA 
          SaltPlumeDepth (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_init_varia.F 38 SALT_PLUME_INIT_VARIA 
          saltPlumeFlux  (i,j,bi,bj) = 0. _d 0
./pkg/salt_plume/salt_plume_readparms.F 47 SALT_PLUME_READPARMS 
      SPovershoot         = 1.0 _d 0
./pkg/salt_plume/salt_plume_readparms.F 68 SALT_PLUME_READPARMS 
             SaltPlumeCriterion  = 0.4 _d 0
./pkg/salt_plume/salt_plume_readparms.F 70 SALT_PLUME_READPARMS 
             SaltPlumeCriterion  = 0.005 _d 0
./pkg/salt_plume/salt_plume_tendency_apply_s.F 46 SALT_PLUME_TENDENCY_APPLY_S 
          plumefrac(I,J) = 0. _d 0
./pkg/sbo/sbo_calc.F 164 SBO_CALC 
      PARAMETER ( ae        = 6.3710 _d 6    )
./pkg/sbo/sbo_calc.F 166 SBO_CALC 
      PARAMETER ( sbo_omega = 7.292115 _d -5 )
./pkg/sbo/sbo_calc.F 244 SBO_CALC 
              u =(uvel(i,j,kn0,bi,bj)+uvel(i+1,j,kn0,bi,bj))*0.5 _d 0
./pkg/sbo/sbo_calc.F 245 SBO_CALC 
              v =(vvel(i,j,kn0,bi,bj)+vvel(i,j+1,kn0,bi,bj))*0.5 _d 0
./pkg/sbo/sbo_output.F 96 SBO_OUTPUT 
      IF ( sbo_taveFreq.GT.0. _d 0 ) THEN
./model/src/do_oceanic_phys.F 142 DO_OCEANIC_PHYS 
           addmass(I,J,K,bi,bj) =  0. _d 0
./model/src/do_oceanic_phys.F 168 DO_OCEANIC_PHYS 
          saltPlumeDepth(i,j,bi,bj) = 0. _d 0
./model/src/do_oceanic_phys.F 169 DO_OCEANIC_PHYS 
          saltPlumeFlux(i,j,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 370 DO_OCEANIC_PHYS 
          rhoKm1 (i,j)   = 0. _d 0
./model/src/do_oceanic_phys.F 371 DO_OCEANIC_PHYS 
          rhoKp1 (i,j)   = 0. _d 0
./model/src/do_oceanic_phys.F 380 DO_OCEANIC_PHYS 
           sigmaX(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F 381 DO_OCEANIC_PHYS 
           sigmaY(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F 382 DO_OCEANIC_PHYS 
           sigmaR(i,j,k) = 0. _d 0
./model/src/do_oceanic_phys.F 389 DO_OCEANIC_PHYS 
           Kwx(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 390 DO_OCEANIC_PHYS 
           Kwy(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 391 DO_OCEANIC_PHYS 
           Kwz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 393 DO_OCEANIC_PHYS 
           Kux(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 394 DO_OCEANIC_PHYS 
           Kvy(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 397 DO_OCEANIC_PHYS 
           Kuz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 398 DO_OCEANIC_PHYS 
           Kvz(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 401 DO_OCEANIC_PHYS 
           GM_PsiX(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 402 DO_OCEANIC_PHYS 
           GM_PsiY(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 405 DO_OCEANIC_PHYS 
           VisbeckK(i,j,bi,bj)   = 0. _d 0
./model/src/do_oceanic_phys.F 409 DO_OCEANIC_PHYS 
           KPPdiffKzS(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 410 DO_OCEANIC_PHYS 
           KPPdiffKzT(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 413 DO_OCEANIC_PHYS 
           GGL90viscArU(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 414 DO_OCEANIC_PHYS 
           GGL90viscArV(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 415 DO_OCEANIC_PHYS 
           GGL90diffKr(i,j,k,bi,bj)  = 0. _d 0
./model/src/do_oceanic_phys.F 708 DO_OCEANIC_PHYS 
        IF ( taveFreq.GT. 0. _d 0 ) THEN
./pkg/seaice/SEAICE_PARAMS.h 277 NO PROCEDURE 
      parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 )
./pkg/seaice/SEAICE_PARAMS.h 279 NO PROCEDURE 
      parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 )
./pkg/seaice/advect.F 133 ADVECT 
     &           * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I-1,J,bi,bj))
./pkg/seaice/advect.F 135 ADVECT 
     &           * 0.5 _d 0 * (tmpFld(I,J,bi,bj)+tmpFld(I,J-1,bi,bj))
./pkg/seaice/advect.F 92 ADVECT 
         afx(I,J) = 0. _d 0
./pkg/seaice/advect.F 93 ADVECT 
         afy(I,J) = 0. _d 0
./pkg/seaice/cost_ice_test.F 149 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 150 COST_ICE_TEST 
     &                 drF(1) * 3996. _d 0 * 1026. _d 0 -
./pkg/seaice/cost_ice_test.F 151 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 )
./pkg/seaice/cost_ice_test.F 165 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 166 COST_ICE_TEST 
     &                 drF(1) * 3996. _d 0 * 1026. _d 0 )
./pkg/seaice/cost_ice_test.F 180 COST_ICE_TEST 
     &                 (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 181 COST_ICE_TEST 
     &                 drF(1) * 3996. _d 0 * 1026. _d 0 +
./pkg/seaice/cost_ice_test.F 182 COST_ICE_TEST 
     &                 (TICE(i,j,bi,bj) - 273.15 _d 0 + 1.96 _d 0 ) *
./pkg/seaice/cost_ice_test.F 183 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 2090. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F 184 COST_ICE_TEST 
     &                 HEFF(i,j,bi,bj) * 334000. _d 0 * 910. _d 0 -
./pkg/seaice/cost_ice_test.F 185 COST_ICE_TEST 
     &                 HSNOW(i,j,bi,bj) * 334000. _d 0 * 330. _d 0 )
./pkg/seaice/cost_ice_test.F 201 COST_ICE_TEST 
     &                       ( AREA(i,j,bi,bj) - 0.5 _d 0 ) *
./pkg/seaice/cost_ice_test.F 202 COST_ICE_TEST 
     &                       ( AREA(i,j,bi,bj) - 0.5 _d 0 )
./pkg/seaice/cost_ice_test.F 85 COST_ICE_TEST 
         tempVar = 1. _d 0/
./pkg/seaice/cost_ice_test.F 86 COST_ICE_TEST 
     &             ( ( 1. _d 0 + min(endTime-startTime,lastinterval) )
./pkg/seaice/diffus.F 47 DIFFUS 
          iceFld(I,J,bi,bj)=0.0 _d 0
./pkg/seaice/diffus.F 76 DIFFUS 
          dfx(I,J) = 0. _d 0
./pkg/seaice/diffus.F 77 DIFFUS 
          dfy(I,J) = 0. _d 0
./pkg/seaice/dynsolver.F 129 DYNSOLVER 
     &         *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA)
./pkg/seaice/dynsolver.F 139 DYNSOLVER 
     &          +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA
./pkg/seaice/dynsolver.F 140 DYNSOLVER 
     &          +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 144 DYNSOLVER 
     &          +OCEAN_drag*(2.70 _d 0+0.142 _d 0*AAA
./pkg/seaice/dynsolver.F 145 DYNSOLVER 
     &          +0.0764 _d 0*AAA*AAA)*(ONE-AREA(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 219 DYNSOLVER 
     &         *EXP(-20.0 _d 0*(ONE-AREA(I,J,bi,bj)))
./pkg/seaice/dynsolver.F 286 DYNSOLVER 
     &        +4.0 _d 0*ECM2*E12(I,J,bi,bj)**2
./pkg/seaice/dynsolver.F 405 DYNSOLVER 
     &        +4. _d 0*ECM2*E12(I,J,bi,bj)**2
./pkg/seaice/dynsolver.F 517 DYNSOLVER 
          UICE(i,j,bi,bj)=min(UICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 518 DYNSOLVER 
          VICE(i,j,bi,bj)=min(VICE(i,j,bi,bj),0.40 _d +00)
./pkg/seaice/dynsolver.F 531 DYNSOLVER 
          UICE(i,j,bi,bj)=max(UICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/dynsolver.F 532 DYNSOLVER 
          VICE(i,j,bi,bj)=max(VICE(i,j,bi,bj),-0.40 _d +00)
./pkg/seaice/lsr.F 147 LSR 
     &         )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 150 LSR 
     &         )*0.5 _d 0 * _recip_dxV(I,J,bi,bj) * UVM(I,J,bi,bj)
./pkg/seaice/lsr.F 151 LSR 
          AA3=  0.5 _d 0 *(ETA(I-1,J  ,bi,bj)+ETA(I,J  ,bi,bj))
./pkg/seaice/lsr.F 152 LSR 
          AA4=  0.5 _d 0 *(ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 178 LSR 
          dVdy(I,J) = 0.5 _d 0 * (
./pkg/seaice/lsr.F 183 LSR 
          dVdx(I,J) = 0.5 _d 0 * (
./pkg/seaice/lsr.F 205 LSR 
     &        + ( 0.5 _d 0 *
./pkg/seaice/lsr.F 208 LSR 
     &          - 0.5 _d 0 *
./pkg/seaice/lsr.F 217 LSR 
     &         )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 224 LSR 
     &         ) * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 230 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 235 LSR 
     &         * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) )
./pkg/seaice/lsr.F 241 LSR 
     &         * 1.0 _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj) )
./pkg/seaice/lsr.F 245 LSR 
     &         0.5 _d 0 * (ETA(I-1,J-1,bi,bj)+ETA(I,J-1,bi,bj))
./pkg/seaice/lsr.F 248 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 250 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 252 LSR 
     &         0.5 _d 0 * (ETA(I-1,J,bi,bj)+ETA(I,J,bi,bj))
./pkg/seaice/lsr.F 255 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 257 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 291 LSR 
     &          )*0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 296 LSR 
     &          )*0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 372 LSR 
          AA1=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 374 LSR 
          AA2=0.5 _d 0 * _recip_dyU(I,J,bi,bj) * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 378 LSR 
     &         )* 0.5 _d 0 * _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 379 LSR 
          AA4= (ETA(I-1,J-1,bi,bj)+ETA(I-1,J,bi,bj))*0.5 _d 0
./pkg/seaice/lsr.F 384 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 393 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 395 LSR 
     &          * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 401 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 403 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 421 LSR 
          dUdx(I,J) = 0.5 _d 0 * (
./pkg/seaice/lsr.F 426 LSR 
          dUdy(I,J) = 0.5 _d 0 * (
./pkg/seaice/lsr.F 449 LSR 
     &        + ( 0.5 _d 0 *
./pkg/seaice/lsr.F 452 LSR 
     &          - 0.5 _d 0 *
./pkg/seaice/lsr.F 461 LSR 
     &         )* 0.5 _d 0 * _recip_dyU(I,J,bi,bj)
./pkg/seaice/lsr.F 468 LSR 
     &         )*0.5 _d 0* _recip_dxV(I,J,bi,bj)
./pkg/seaice/lsr.F 474 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 477 LSR 
     &         * 0.5 _d 0 * _recip_dxV(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 481 LSR 
     &         * 1. _d 0 /( _dxG(I,J,bi,bj) + _dxG(I-1,J,bi,bj))
./pkg/seaice/lsr.F 483 LSR 
          UVRT1(I,J,bi,bj)= 0.5 _d 0 * (
./pkg/seaice/lsr.F 487 LSR 
          UVRT2(I,J,bi,bj)= 0.5 _d 0 * (
./pkg/seaice/lsr.F 525 LSR 
     &           * 0.5 _d 0 *(
./pkg/seaice/lsr.F 531 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 533 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere )
./pkg/seaice/lsr.F 537 LSR 
     &           * 0.5 _d 0 * (
./pkg/seaice/lsr.F 543 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere
./pkg/seaice/lsr.F 545 LSR 
     &         * 0.5 _d 0 * _recip_dyU(I,J,bi,bj)*recip_rSphere )
./pkg/seaice/lsr.F 88 LSR 
      WFAU1=0.95 _d 0
./pkg/seaice/lsr.F 89 LSR 
      WFAV1=0.95 _d 0
./pkg/seaice/lsr.F 93 LSR 
      S1A=0.80 _d 0
./pkg/seaice/lsr.F 94 LSR 
      S2A=0.80 _d 0
./pkg/seaice/seaice_advdiff.F 102 SEAICE_ADVDIFF 
          uc(i,j,bi,bj)=.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj))
./pkg/seaice/seaice_advdiff.F 103 SEAICE_ADVDIFF 
          vc(i,j,bi,bj)=.5 _d 0*(VICE(i,j,bi,bj)+VICE(I+1,J,bi,bj))
./pkg/seaice/seaice_advdiff.F 158 SEAICE_ADVDIFF 
          gFld(i,j)       = 0. _d 0
./pkg/seaice/seaice_advdiff.F 167 SEAICE_ADVDIFF 
          recip_heff(i,j)    = 1. _d 0
./pkg/seaice/seaice_advdiff.F 194 SEAICE_ADVDIFF 
         IF ( diff1 .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_advdiff.F 220 SEAICE_ADVDIFF 
         IF ( diff1 .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_advdiff.F 246 SEAICE_ADVDIFF 
         IF ( diff1 .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_advdiff.F 273 SEAICE_ADVDIFF 
         IF ( diff1 .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_advdiff.F 301 SEAICE_ADVDIFF 
         IF ( diff1 .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_advection.F 185 SEAICE_ADVECTION 
        localTij(i,j) = 0. _d 0
./pkg/seaice/seaice_budget_ice_if.F 106 SEAICE_BUDGET_ICE_IF 
      TB=273.15 _d + 00 - 1.96 _d + 00
./pkg/seaice/seaice_budget_ice_if.F 114 SEAICE_BUDGET_ICE_IF 
      TMELT=273.15 _d +00
./pkg/seaice/seaice_budget_ice_if.F 127 SEAICE_BUDGET_ICE_IF 
        IcePenetSWFlux     (I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ice_if.F 128 SEAICE_BUDGET_ICE_IF 
        IcePenetSWFluxFrac (I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ice_if.F 129 SEAICE_BUDGET_ICE_IF 
        AbsorbedSWFlux (I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ice_if.F 131 SEAICE_BUDGET_ICE_IF 
        qhice_mm (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 132 SEAICE_BUDGET_ICE_IF 
        F_ia     (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 133 SEAICE_BUDGET_ICE_IF 
        F_io_net (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 134 SEAICE_BUDGET_ICE_IF 
        F_ia_net (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 136 SEAICE_BUDGET_ICE_IF 
        F_swi    (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 137 SEAICE_BUDGET_ICE_IF 
        F_lwd    (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 138 SEAICE_BUDGET_ICE_IF 
        F_lwu    (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 139 SEAICE_BUDGET_ICE_IF 
        F_lh     (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 140 SEAICE_BUDGET_ICE_IF 
        F_sens   (I,J) = 0.0 _d 0
./pkg/seaice/seaice_budget_ice_if.F 198 SEAICE_BUDGET_ICE_IF 
          F_lwd(I,J) = - 0.97 _d 0 * lwdownLoc(I,J)
./pkg/seaice/seaice_budget_ice_if.F 204 SEAICE_BUDGET_ICE_IF 
     &        XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J))
./pkg/seaice/seaice_budget_ice_if.F 218 SEAICE_BUDGET_ICE_IF 
          HICE_ACTUAL(I,J) = max(HICE_ACTUAL(I,J),5. _d -2)
./pkg/seaice/seaice_budget_ocean.F 108 SEAICE_BUDGET_OCEAN 
     &       +lwdownLoc(I,J)*0.97 _d 0
./pkg/seaice/seaice_budget_ocean.F 110 SEAICE_BUDGET_OCEAN 
        B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00
./pkg/seaice/seaice_budget_ocean.F 112 SEAICE_BUDGET_OCEAN 
     &       /(tsurfLoc(I,J)-TMELT+237.3 _d +00))
./pkg/seaice/seaice_budget_ocean.F 70 SEAICE_BUDGET_OCEAN 
      QS1=0.622 _d +00/1013.0 _d +00
./pkg/seaice/seaice_budget_ocean.F 78 SEAICE_BUDGET_OCEAN 
      TMELT=273.16 _d +00
./pkg/seaice/seaice_budget_ocean.F 82 SEAICE_BUDGET_OCEAN 
        netHeatFlux(I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ocean.F 83 SEAICE_BUDGET_OCEAN 
        SWHeatFlux (I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ocean.F 85 SEAICE_BUDGET_OCEAN 
        tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj))
./pkg/seaice/seaice_budget_ocean.F 88 SEAICE_BUDGET_OCEAN 
        atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj))
./pkg/seaice/seaice_budget_ocean_if.F 100 SEAICE_BUDGET_OCEAN_IF 
        atempLoc (I,J) = MAX(273.16 _d 0+MIN_ATEMP,ATEMP(I,J,bi,bj))
./pkg/seaice/seaice_budget_ocean_if.F 116 SEAICE_BUDGET_OCEAN_IF 
        SWHeatFlux(I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ocean_if.F 132 SEAICE_BUDGET_OCEAN_IF 
     &       +lwdownLoc(I,J)*0.97 _d 0
./pkg/seaice/seaice_budget_ocean_if.F 134 SEAICE_BUDGET_OCEAN_IF 
        B(I,J)=QS1*6.11 _d +00*EXP(17.2694 _d +00
./pkg/seaice/seaice_budget_ocean_if.F 136 SEAICE_BUDGET_OCEAN_IF 
     &       /(tsurfLoc(I,J)-TMELT+237.3 _d +00))
./pkg/seaice/seaice_budget_ocean_if.F 81 SEAICE_BUDGET_OCEAN_IF 
      QS1=0.622 _d +00/1013.0 _d +00
./pkg/seaice/seaice_budget_ocean_if.F 83 SEAICE_BUDGET_OCEAN_IF 
      TB=271.2 _d +00
./pkg/seaice/seaice_budget_ocean_if.F 91 SEAICE_BUDGET_OCEAN_IF 
      TMELT=273.16 _d +00
./pkg/seaice/seaice_budget_ocean_if.F 95 SEAICE_BUDGET_OCEAN_IF 
        netHeatFlux(I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ocean_if.F 96 SEAICE_BUDGET_OCEAN_IF 
        SWHeatFlux (I,J) = 0. _d 0
./pkg/seaice/seaice_budget_ocean_if.F 98 SEAICE_BUDGET_OCEAN_IF 
        tsurfLoc (I,J) = MIN(273.16 _d 0+MAX_TICE,TSURF(I,J,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 101 SEAICE_CALC_STRAINRATES 
          uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I  ,J-1,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 108 SEAICE_CALC_STRAINRATES 
          vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I-1,J  ,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 116 SEAICE_CALC_STRAINRATES 
          e12Loc(I,J,bi,bj) = 0.5 _d 0 * (
./pkg/seaice/seaice_calc_strainrates.F 123 SEAICE_CALC_STRAINRATES 
     &         + 2.0 _d 0 * noSlipFac * (
./pkg/seaice/seaice_calc_strainrates.F 124 SEAICE_CALC_STRAINRATES 
     &           2.0 _d 0 * uave(I,J) * _recip_dyU(I,J,bi,bj) * hFacU
./pkg/seaice/seaice_calc_strainrates.F 125 SEAICE_CALC_STRAINRATES 
     &         + 2.0 _d 0 * vave(I,J) * _recip_dxV(I,J,bi,bj) * hFacV
./pkg/seaice/seaice_calc_strainrates.F 67 SEAICE_CALC_STRAINRATES 
      noSlipFac = 0. _d 0
./pkg/seaice/seaice_calc_strainrates.F 68 SEAICE_CALC_STRAINRATES 
      IF ( SEAICE_no_slip ) noSlipFac = 1. _d 0
./pkg/seaice/seaice_calc_strainrates.F 78 SEAICE_CALC_STRAINRATES 
          uave(I,J) = 0.5 _d 0 * (uFld(I,J,bi,bj)+uFld(I+1,J,bi,bj))
./pkg/seaice/seaice_calc_strainrates.F 85 SEAICE_CALC_STRAINRATES 
          vave(I,J) = 0.5 _d 0 * (vFld(I,J,bi,bj)+vFld(I,J+1,bi,bj))
./pkg/seaice/seaice_calc_viscosities.F 112 SEAICE_CALC_VISCOSITIES 
     &          + 4. _d 0*e12C(i,j)**2
./pkg/seaice/seaice_calc_viscosities.F 114 SEAICE_CALC_VISCOSITIES 
           etaMax = ( 0.5 _d 0*press(I,J,bi,bj)-zeta(I,J,bi,bj)
./pkg/seaice/seaice_calc_viscosities.F 71 SEAICE_CALC_VISCOSITIES 
      ecm2=0. _d 0
./pkg/seaice/seaice_calc_viscosities.F 72 SEAICE_CALC_VISCOSITIES 
      IF ( SEAICE_eccen .NE. 0. _d 0 ) ecm2=ONE/(SEAICE_eccen**2)
./pkg/seaice/seaice_calc_viscosities.F 87 SEAICE_CALC_VISCOSITIES 
     &         + 4. _d 0*ecm2*e12C(i,j)**2
./pkg/seaice/seaice_calc_viscosities.F 88 SEAICE_CALC_VISCOSITIES 
     &         + 2. _d 0*e11(i,j,bi,bj)*e22(i,j,bi,bj)*(ONE-ecm2)
./pkg/seaice/seaice_calc_viscosities.F 91 SEAICE_CALC_VISCOSITIES 
          IF ( deltaC .GT. 0. _d 0 ) deltaC = SQRT(deltaC)
./pkg/seaice/seaice_check.F 347 SEAICE_CHECK 
      IF ( SEAICE_evpDampC .GT. 0. _d 0 .OR.
./pkg/seaice/seaice_check.F 348 SEAICE_CHECK 
     &     SEAICE_zetaMin  .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_cost_accumulate_mean.F 55 SEAICE_COST_ACCUMULATE_MEAN 
     &      + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F 56 SEAICE_COST_ACCUMULATE_MEAN 
     &        + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i-1,j,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F 60 SEAICE_COST_ACCUMULATE_MEAN 
     &      + ( 0.92 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_accumulate_mean.F 61 SEAICE_COST_ACCUMULATE_MEAN 
     &        + 0.33 _d 0*(HSNOW(i,j,bi,bj)+HSNOW(i,j-1,bi,bj))*0.5 _d 0
./pkg/seaice/seaice_cost_concentration.F 129 SEAICE_COST_CONCENTRATION 
      localwww = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 133 SEAICE_COST_CONCENTRATION 
          objf_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 134 SEAICE_COST_CONCENTRATION 
          num_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 263 SEAICE_COST_CONCENTRATION 
                     if (localweight(i,j,bi,bj) .GT. 0. _d 0) THEN
./pkg/seaice/seaice_cost_concentration.F 266 SEAICE_COST_CONCENTRATION 
                       areaSigma = 1. _d 0/sqrt(localweight(i,j,bi,bj))
./pkg/seaice/seaice_cost_concentration.F 269 SEAICE_COST_CONCENTRATION 
                      IF      (localobs(i,j,k,bi,bj) .eq. 0. _d 0 ) THEN
./pkg/seaice/seaice_cost_concentration.F 270 SEAICE_COST_CONCENTRATION 
                         areaSigma = areaSigma * 0.85 _d 0
./pkg/seaice/seaice_cost_concentration.F 271 SEAICE_COST_CONCENTRATION 
                      ELSEIF ((localobs(i,j,k,bi,bj).gt.0. _d 0  ) .and.
./pkg/seaice/seaice_cost_concentration.F 272 SEAICE_COST_CONCENTRATION 
     &                        (localobs(i,j,k,bi,bj).lt.0.15 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F 273 SEAICE_COST_CONCENTRATION 
                         areaSigma = areaSigma * 1.2 _d 0
./pkg/seaice/seaice_cost_concentration.F 274 SEAICE_COST_CONCENTRATION 
                      ELSEIF ((localobs(i,j,k,bi,bj).ge.0.15 _d 0) .and.
./pkg/seaice/seaice_cost_concentration.F 275 SEAICE_COST_CONCENTRATION 
     &                        (localobs(i,j,k,bi,bj).le.0.25 _d 0)) THEN
./pkg/seaice/seaice_cost_concentration.F 276 SEAICE_COST_CONCENTRATION 
                         areaSigma = areaSigma * 1.1 _d 0
./pkg/seaice/seaice_cost_concentration.F 282 SEAICE_COST_CONCENTRATION 
     &                    1. _d 0 / (areaSigma*areaSigma)
./pkg/seaice/seaice_cost_concentration.F 330 SEAICE_COST_CONCENTRATION 
            localcost    = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 340 SEAICE_COST_CONCENTRATION 
                   cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_concentration.F 377 SEAICE_COST_CONCENTRATION 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/seaice/seaice_cost_concentration.F 87 SEAICE_COST_CONCENTRATION 
      parameter (spval = -9999. _d 0 )
./pkg/seaice/seaice_cost_final.F 71 SEAICE_COST_FINAL 
      f_ice      = 0. _d 0
./pkg/seaice/seaice_cost_final.F 72 SEAICE_COST_FINAL 
      f_smrarea  = 0. _d 0
./pkg/seaice/seaice_cost_final.F 73 SEAICE_COST_FINAL 
      f_smrsst   = 0. _d 0
./pkg/seaice/seaice_cost_final.F 74 SEAICE_COST_FINAL 
      f_smrsss   = 0. _d 0
./pkg/seaice/seaice_cost_final.F 76 SEAICE_COST_FINAL 
      no_ice     = 0. _d 0
./pkg/seaice/seaice_cost_final.F 77 SEAICE_COST_FINAL 
      no_smrarea = 0. _d 0
./pkg/seaice/seaice_cost_final.F 78 SEAICE_COST_FINAL 
      no_smrsst  = 0. _d 0
./pkg/seaice/seaice_cost_final.F 79 SEAICE_COST_FINAL 
      no_smrsss  = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 63 SEAICE_COST_INIT_VARIA 
          objf_ice(bi,bj)     = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 64 SEAICE_COST_INIT_VARIA 
          objf_smrarea(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 65 SEAICE_COST_INIT_VARIA 
          objf_smrsst(bi,bj)  = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 66 SEAICE_COST_INIT_VARIA 
          objf_smrsss(bi,bj)  = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 67 SEAICE_COST_INIT_VARIA 
          objf_ice_export(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 69 SEAICE_COST_INIT_VARIA 
          num_ice(bi,bj)      = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 70 SEAICE_COST_INIT_VARIA 
          num_smrarea(bi,bj)  = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 71 SEAICE_COST_INIT_VARIA 
          num_smrsst(bi,bj)   = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 72 SEAICE_COST_INIT_VARIA 
          num_smrsss(bi,bj)   = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 82 SEAICE_COST_INIT_VARIA 
               uHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_init_varia.F 83 SEAICE_COST_INIT_VARIA 
               vHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 130 SEAICE_COST_SSS 
      localwww = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 134 SEAICE_COST_SSS 
          objf_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 135 SEAICE_COST_SSS 
          num_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 290 SEAICE_COST_SSS 
            localcost    = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 300 SEAICE_COST_SSS 
                   cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_sss.F 347 SEAICE_COST_SSS 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/seaice/seaice_cost_sst.F 128 SEAICE_COST_SST 
      localwww = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 132 SEAICE_COST_SST 
          objf_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 133 SEAICE_COST_SST 
          num_local(bi,bj) = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 285 SEAICE_COST_SST 
            localcost    = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 295 SEAICE_COST_SST 
                   cmask(i,j,k) = 0. _d 0
./pkg/seaice/seaice_cost_sst.F 338 SEAICE_COST_SST 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/seaice/seaice_cost_weights.F 77 SEAICE_COST_WEIGHTS 
            frame(i,j) = 0. _d 0
./pkg/seaice/seaice_cost_weights.F 79 SEAICE_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./pkg/seaice/seaice_cost_weights.F 90 SEAICE_COST_WEIGHTS 
              wsmrarea (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_ctrl_map_ini.F 84 SEAICE_CTRL_MAP_INI 
        fac = 1. _d 0
./pkg/seaice/seaice_ctrl_map_ini.F 86 SEAICE_CTRL_MAP_INI 
        fac = 0. _d 0
./pkg/seaice/seaice_diagnostics_state.F 120 SEAICE_DIAGNOSTICS_STATE 
             sig12 = 0.25 _d 0 *
./pkg/seaice/seaice_diagnostics_state.F 125 SEAICE_DIAGNOSTICS_STATE 
             sigTmp = SQRT( sig2*sig2 + 4. _d 0*sig12*sig12 )
./pkg/seaice/seaice_diagnostics_state.F 126 SEAICE_DIAGNOSTICS_STATE 
             recip_prs = 0. _d 0
./pkg/seaice/seaice_diagnostics_state.F 127 SEAICE_DIAGNOSTICS_STATE 
             IF ( press(I,J,bi,bj) .GT. 1. _d -13 )
./pkg/seaice/seaice_diagnostics_state.F 157 SEAICE_DIAGNOSTICS_STATE 
             sig12 = 2.*eta(I,J,bi,bj) * 0.25 _d 0 *
./pkg/seaice/seaice_diagnostics_state.F 160 SEAICE_DIAGNOSTICS_STATE 
             sigTmp = SQRT( sig2*sig2 + 4. _d 0*sig12*sig12 )
./pkg/seaice/seaice_diagnostics_state.F 161 SEAICE_DIAGNOSTICS_STATE 
             recip_prs = 0. _d 0
./pkg/seaice/seaice_diagnostics_state.F 162 SEAICE_DIAGNOSTICS_STATE 
             IF ( press(I,J,bi,bj) .GT. 1. _d -13 )
./pkg/seaice/seaice_diagnostics_state.F 188 SEAICE_DIAGNOSTICS_STATE 
     &            0.5 _d 0*(UICE(i,j,bi,bj)+UICE(i,j+1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 190 SEAICE_DIAGNOSTICS_STATE 
     &            *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i-1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 207 SEAICE_DIAGNOSTICS_STATE 
     &            0.5 _d 0*(VICE(i,j,bi,bj)+VICE(i+1,j,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 209 SEAICE_DIAGNOSTICS_STATE 
     &            *0.5 _d 0*(HEFF(i,j,bi,bj)+HEFF(i,j-1,bi,bj))
./pkg/seaice/seaice_diagnostics_state.F 73 SEAICE_DIAGNOSTICS_STATE 
            TICE(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_diagnostics_state.F 77 SEAICE_DIAGNOSTICS_STATE 
          recip_multdim = 1. _d 0/MULTDIM
./pkg/seaice/seaice_diagnostics_state.F 90 SEAICE_DIAGNOSTICS_STATE 
     I                   TICE, AREA, 1. _d 0, 1, 'SItices ',
./pkg/seaice/seaice_diffusion.F 66 SEAICE_DIFFUSION 
      IF ( diff1 .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_diffusion.F 77 SEAICE_DIFFUSION 
          fZon  (i,j) = 0. _d 0
./pkg/seaice/seaice_diffusion.F 78 SEAICE_DIFFUSION 
          fMer  (i,j) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 119 SEAICE_DYNSOLVER 
           IF ( (seaiceMaskU(I,J,bi,bj) .GT. 0. _d 0) .AND.
./pkg/seaice/seaice_dynsolver.F 120 SEAICE_DYNSOLVER 
     &         (mask_uice .GT. 1.5 _d 0) ) THEN
./pkg/seaice/seaice_dynsolver.F 121 SEAICE_DYNSOLVER 
            seaiceMaskU(I,J,bi,bj) = 1. _d 0
./pkg/seaice/seaice_dynsolver.F 123 SEAICE_DYNSOLVER 
            seaiceMaskU(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 127 SEAICE_DYNSOLVER 
           IF ( (seaiceMaskV(I,J,bi,bj) .GT. 0. _d 0) .AND.
./pkg/seaice/seaice_dynsolver.F 128 SEAICE_DYNSOLVER 
     &         (mask_vice .GT. 1.5 _d 0) ) THEN
./pkg/seaice/seaice_dynsolver.F 129 SEAICE_DYNSOLVER 
            seaiceMaskV(I,J,bi,bj) = 1. _d 0
./pkg/seaice/seaice_dynsolver.F 131 SEAICE_DYNSOLVER 
            seaiceMaskV(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 147 SEAICE_DYNSOLVER 
          TAUX (I,J,bi,bj)= 0. _d 0
./pkg/seaice/seaice_dynsolver.F 148 SEAICE_DYNSOLVER 
          TAUY (I,J,bi,bj)= 0. _d 0
./pkg/seaice/seaice_dynsolver.F 151 SEAICE_DYNSOLVER 
          stressDivergenceX(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 152 SEAICE_DYNSOLVER 
          stressDivergenceY(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 215 SEAICE_DYNSOLVER 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_dynsolver.F 256 SEAICE_DYNSOLVER 
            stressDivergenceX(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 257 SEAICE_DYNSOLVER 
            stressDivergenceY(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 325 SEAICE_DYNSOLVER 
     &          MAX(MIN(uIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F 327 SEAICE_DYNSOLVER 
     &          MAX(MIN(vIce(i,j,bi,bj),0.40 _d +00),-0.40 _d +00)
./pkg/seaice/seaice_dynsolver.F 65 SEAICE_DYNSOLVER 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_dynsolver.F 69 SEAICE_DYNSOLVER 
          TAUX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_dynsolver.F 70 SEAICE_DYNSOLVER 
          TAUY(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 106 SEAICE_EVP 
      recip_ecc2 = 0. _d 0
./pkg/seaice/seaice_evp.F 107 SEAICE_EVP 
      IF ( ecc2 .NE. 0. _d 0 ) recip_ecc2=ONE/ecc2
./pkg/seaice/seaice_evp.F 111 SEAICE_EVP 
      recip_evp_tau = 0. _d 0
./pkg/seaice/seaice_evp.F 112 SEAICE_EVP 
      IF ( SEAICE_evpTauRelax .GT. 0. _d 0 )
./pkg/seaice/seaice_evp.F 113 SEAICE_EVP 
     &     recip_evp_tau=1. _d 0/SEAICE_evpTauRelax
./pkg/seaice/seaice_evp.F 114 SEAICE_EVP 
      denom1 = 1. _d 0
./pkg/seaice/seaice_evp.F 115 SEAICE_EVP 
     &     / (1. _d 0 + 0.5 _d 0 *SEAICE_deltaTevp*recip_evp_tau)
./pkg/seaice/seaice_evp.F 116 SEAICE_EVP 
      denom2 = 1. _d 0
./pkg/seaice/seaice_evp.F 117 SEAICE_EVP 
     &     / (1. _d 0 + 0.5 _d 0 *SEAICE_deltaTevp*recip_evp_tau*ecc2)
./pkg/seaice/seaice_evp.F 130 SEAICE_EVP 
          e11  (I,J,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 131 SEAICE_EVP 
          e22  (I,J,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 132 SEAICE_EVP 
          e12  (I,J,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_evp.F 139 SEAICE_EVP 
      IF ( SEAICE_evpDampC .GT. 0. _d 0 ) THEN
./pkg/seaice/seaice_evp.F 190 SEAICE_EVP 
            seaice_div    (I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 191 SEAICE_EVP 
            seaice_tension(I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 192 SEAICE_EVP 
            seaice_shear  (I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 193 SEAICE_EVP 
            pressC        (I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 194 SEAICE_EVP 
            zetaC         (I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 195 SEAICE_EVP 
            deltaZ        (I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 196 SEAICE_EVP 
            zetaZ         (I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 197 SEAICE_EVP 
            deltaC        (I,J) = 0. _d 0
./pkg/seaice/seaice_evp.F 209 SEAICE_EVP 
            facZ = 0.25 _d 0
./pkg/seaice/seaice_evp.F 228 SEAICE_EVP 
     &           + 4. _d 0*recip_ecc2*e12(I,J,bi,bj)**2
./pkg/seaice/seaice_evp.F 231 SEAICE_EVP 
            IF ( deltaC(I,J) .GT. 0. _d 0 )
./pkg/seaice/seaice_evp.F 233 SEAICE_EVP 
            IF ( deltaZ(I,J) .GT. 0. _d 0 )
./pkg/seaice/seaice_evp.F 300 SEAICE_EVP 
             facZ = 0.25 _d 0
./pkg/seaice/seaice_evp.F 316 SEAICE_EVP 
     &            + 4. _d 0*e12(I,J,bi,bj)**2
./pkg/seaice/seaice_evp.F 327 SEAICE_EVP 
     &            ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J)
./pkg/seaice/seaice_evp.F 329 SEAICE_EVP 
             seaice_tension(I,J) = 2. _d 0*MIN(zetaC(I,J),zetaMaxC)
./pkg/seaice/seaice_evp.F 331 SEAICE_EVP 
             seaice_shear  (I,J) = 2. _d 0*MIN(zetaZ(I,J),zetaMaxZ)
./pkg/seaice/seaice_evp.F 332 SEAICE_EVP 
     &            * 2. _d 0*e12(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 342 SEAICE_EVP 
     &            ( 2. _d 0 *zetaC(I,J)*ep(I,J) - pressC(I,J)
./pkg/seaice/seaice_evp.F 344 SEAICE_EVP 
             seaice_tension(I,J) = 2. _d 0*zetaC(I,J)
./pkg/seaice/seaice_evp.F 347 SEAICE_EVP 
     &            2. _d 0*zetaZ(I,J)*2. _d 0*e12(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 358 SEAICE_EVP 
     &           + SEAICE_deltaTevp *  0.5 _d 0 * recip_evp_tau
./pkg/seaice/seaice_evp.F 363 SEAICE_EVP 
     &           + SEAICE_deltaTevp * 0.5 _d 0 * recip_evp_tau
./pkg/seaice/seaice_evp.F 368 SEAICE_EVP 
            sig11(I,J) = 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 370 SEAICE_EVP 
            sig22(I,J) = 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 379 SEAICE_EVP 
     &           + SEAICE_deltaTevp * 0.25 _d 0 * recip_evp_tau *
./pkg/seaice/seaice_evp.F 459 SEAICE_EVP 
     &           0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) *
./pkg/seaice/seaice_evp.F 461 SEAICE_EVP 
     &           - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 462 SEAICE_EVP 
     &           ( DWATN(I  ,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 465 SEAICE_EVP 
     &           + DWATN(I-1,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 470 SEAICE_EVP 
     &           0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) *
./pkg/seaice/seaice_evp.F 472 SEAICE_EVP 
     &           + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 473 SEAICE_EVP 
     &           ( DWATN(I,J  ,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 476 SEAICE_EVP 
     &           + DWATN(I,J-1,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_evp.F 481 SEAICE_EVP 
            FORCEX(I,J,bi,bj)=FORCEX(I,J,bi,bj) + 0.5 _d 0*(
./pkg/seaice/seaice_evp.F 483 SEAICE_EVP 
     &           * 0.5 _d 0*( vIceC(I  ,J,bi,bj)+vIceC(I  ,J+1,bi,bj) )
./pkg/seaice/seaice_evp.F 485 SEAICE_EVP 
     &           * 0.5 _d 0*( vIceC(I-1,J,bi,bj)+vIceC(I-1,J+1,bi,bj) )
./pkg/seaice/seaice_evp.F 487 SEAICE_EVP 
            FORCEY(I,J,bi,bj)=FORCEY(I,J,bi,bj) - 0.5 _d 0*(
./pkg/seaice/seaice_evp.F 489 SEAICE_EVP 
     &           * 0.5 _d 0*( uIceC(I,J  ,bi,bj)+uIceC(I+1,  J,bi,bj) )
./pkg/seaice/seaice_evp.F 491 SEAICE_EVP 
     &           * 0.5 _d 0*( uIceC(I,J-1,bi,bj)+uIceC(I+1,J-1,bi,bj) )
./pkg/seaice/seaice_evp.F 505 SEAICE_EVP 
     &           /( 1. _d 0 - seaiceMaskU(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 507 SEAICE_EVP 
     &           + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) )
./pkg/seaice/seaice_evp.F 513 SEAICE_EVP 
     &           /( 1. _d 0 - seaiceMaskV(I,J,bi,bj)
./pkg/seaice/seaice_evp.F 515 SEAICE_EVP 
     &           + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) )
./pkg/seaice/seaice_freedrift.F 105 SEAICE_FREEDRIFT 
             rhs_n=0. _d 0
./pkg/seaice/seaice_freedrift.F 106 SEAICE_FREEDRIFT 
             rhs_a=0. _d 0
./pkg/seaice/seaice_freedrift.F 112 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag_south
./pkg/seaice/seaice_freedrift.F 114 SEAICE_FREEDRIFT 
            tmpscal1 = 1. _d 0 /SEAICE_waterDrag
./pkg/seaice/seaice_freedrift.F 124 SEAICE_FREEDRIFT 
             sol_n=0. _d 0
./pkg/seaice/seaice_freedrift.F 142 SEAICE_FREEDRIFT 
             sol_a=0. _d 0
./pkg/seaice/seaice_freedrift.F 60 SEAICE_FREEDRIFT 
           uice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 61 SEAICE_FREEDRIFT 
           vice_fd(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 62 SEAICE_FREEDRIFT 
           uice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_freedrift.F 63 SEAICE_FREEDRIFT 
           Vice_cntr(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_get_dynforcing.F 108 SEAICE_GET_DYNFORCING 
          fu(I,J,bi,bj) = 0.5 _d 0*( oceTauX(I,J) + oceTauX(I-1,J) )
./pkg/seaice/seaice_get_dynforcing.F 109 SEAICE_GET_DYNFORCING 
          fv(I,J,bi,bj) = 0.5 _d 0*( oceTauY(I,J) + oceTauY(I,J-1) )
./pkg/seaice/seaice_get_dynforcing.F 119 SEAICE_GET_DYNFORCING 
     &          + 0.5 _d 0 * (uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 120 SEAICE_GET_DYNFORCING 
     &          - 0.5 _d 0 * (uice(i,j,bi,bj)+uice(i+1,j,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 122 SEAICE_GET_DYNFORCING 
     &          + 0.5 _d 0 * (vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 123 SEAICE_GET_DYNFORCING 
     &          - 0.5 _d 0 * (vice(i,j,bi,bj)+vice(i,j+1,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 160 SEAICE_GET_DYNFORCING 
           taux(I,J,bi,bj)= 0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 163 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 164 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 167 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 168 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 171 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i-1,j,k,bi,bj)+uVel(i,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 172 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i-1,j,bi,bj)+uice(i,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 175 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i-1,j,k,bi,bj)+vVel(i-1,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 176 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i-1,j,bi,bj)+vice(i-1,j+1,bi,bj)))))
./pkg/seaice/seaice_get_dynforcing.F 178 SEAICE_GET_DYNFORCING 
           tauy(I,J,bi,bj)= 0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 181 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j,k,bi,bj)+uVel(i+1,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 182 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 185 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j,k,bi,bj)+vVel(i,j+1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 186 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj))))
./pkg/seaice/seaice_get_dynforcing.F 189 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(uVel(i,j-1,k,bi,bj)+uVel(i+1,j-1,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 190 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(uice(i,j-1,bi,bj)+uice(i+1,j-1,bi,bj)))
./pkg/seaice/seaice_get_dynforcing.F 193 SEAICE_GET_DYNFORCING 
     &          +0.5 _d 0*(vVel(i,j-1,k,bi,bj)+vVel(i,j,k,bi,bj))
./pkg/seaice/seaice_get_dynforcing.F 194 SEAICE_GET_DYNFORCING 
     &          -0.5 _d 0*(vice(i,j-1,bi,bj)+vice(i,j,bi,bj)))))
./pkg/seaice/seaice_get_dynforcing.F 201 SEAICE_GET_DYNFORCING 
           taux(I,J,bi,bj)=0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 210 SEAICE_GET_DYNFORCING 
           tauy(I,J,bi,bj)=0.5 _d 0 *
./pkg/seaice/seaice_get_dynforcing.F 97 SEAICE_GET_DYNFORCING 
     &         *(2.70 _d 0+0.142 _d 0*AAA+0.0764 _d 0*AAA*AAA)
./pkg/seaice/seaice_growth.F 1033 SEAICE_GROWTH 
          tmpscal3 = MIN( 0. _d 0 ,
./pkg/seaice/seaice_growth.F 1037 SEAICE_GROWTH 
          tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN(I,J) )
./pkg/seaice/seaice_growth.F 1059 SEAICE_GROWTH 
     &         /(tmpscal0+.00001 _d 0)
./pkg/seaice/seaice_growth.F 1064 SEAICE_GROWTH 
          IF ( (HEFF(i,j,bi,bj).GT.0. _d 0).OR.
./pkg/seaice/seaice_growth.F 1065 SEAICE_GROWTH 
     &        (HSNOW(i,j,bi,bj).GT.0. _d 0) ) THEN
./pkg/seaice/seaice_growth.F 1066 SEAICE_GROWTH 
           AREA(I,J,bi,bj)=max(0. _d 0 , min( 1. _d 0,
./pkg/seaice/seaice_growth.F 1069 SEAICE_GROWTH 
           AREA(I,J,bi,bj)=0. _d 0
./pkg/seaice/seaice_growth.F 1081 SEAICE_GROWTH 
            AREA(I,J,bi,bj) = AREApreTH(I,J) + 0.1 _d 0 *
./pkg/seaice/seaice_growth.F 1126 SEAICE_GROWTH 
          saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0)
./pkg/seaice/seaice_growth.F 1145 SEAICE_GROWTH 
             HSALT(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1175 SEAICE_GROWTH 
              IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 )
./pkg/seaice/seaice_growth.F 1176 SEAICE_GROWTH 
     &             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1187 SEAICE_GROWTH 
             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1201 SEAICE_GROWTH 
             HSALT(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1203 SEAICE_GROWTH 
             saltPlumeFlux(i,j,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 1235 SEAICE_GROWTH 
     &                         ,HEFF(I,J,bi,bj)/.0001 _d 0)
./pkg/seaice/seaice_growth.F 1264 SEAICE_GROWTH 
          tmpscal0         = -MAX(HEFF(I,J,bi,bj)-MAX_HEFF,0. _d 0)
./pkg/seaice/seaice_growth.F 1295 SEAICE_GROWTH 
           tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth.F 1352 SEAICE_GROWTH 
          IF (AREApreTH(i,j).GT.0. _d 0) THEN
./pkg/seaice/seaice_growth.F 1355 SEAICE_GROWTH 
           tmpscal1=0. _d 0
./pkg/seaice/seaice_growth.F 1362 SEAICE_GROWTH 
           tmpscal2=0. _d 0
./pkg/seaice/seaice_growth.F 211 SEAICE_GROWTH 
      heffTooThin=1. _d -5
./pkg/seaice/seaice_growth.F 213 SEAICE_GROWTH 
      heffTooHeavy=dRf(kSurface) / 5. _d 0
./pkg/seaice/seaice_growth.F 257 SEAICE_GROWTH 
          a_QbyATM_cover (I,J)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 258 SEAICE_GROWTH 
          a_QbyATM_open(I,J)         = 0.0 _d 0
./pkg/seaice/seaice_growth.F 259 SEAICE_GROWTH 
          r_QbyATM_cover (I,J)       = 0.0 _d 0
./pkg/seaice/seaice_growth.F 260 SEAICE_GROWTH 
          r_QbyATM_open (I,J)        = 0.0 _d 0
./pkg/seaice/seaice_growth.F 262 SEAICE_GROWTH 
          a_QSWbyATM_open (I,J)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 263 SEAICE_GROWTH 
          a_QSWbyATM_cover (I,J)     = 0.0 _d 0
./pkg/seaice/seaice_growth.F 265 SEAICE_GROWTH 
          a_QbyOCN (I,J)             = 0.0 _d 0
./pkg/seaice/seaice_growth.F 266 SEAICE_GROWTH 
          r_QbyOCN (I,J)             = 0.0 _d 0
./pkg/seaice/seaice_growth.F 268 SEAICE_GROWTH 
          d_AREAbyATM(I,J)           = 0.0 _d 0
./pkg/seaice/seaice_growth.F 270 SEAICE_GROWTH 
          d_HEFFbyOCNonICE(I,J)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 271 SEAICE_GROWTH 
          d_HEFFbyATMonOCN(I,J)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 272 SEAICE_GROWTH 
          d_HEFFbyFLOODING(I,J)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 274 SEAICE_GROWTH 
          d_HEFFbyATMonOCN_open(I,J) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 276 SEAICE_GROWTH 
          d_HSNWbyATMonSNW(I,J)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 277 SEAICE_GROWTH 
          d_HSNWbyOCNonSNW(I,J)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 278 SEAICE_GROWTH 
          d_HSNWbyRAIN(I,J)          = 0.0 _d 0
./pkg/seaice/seaice_growth.F 279 SEAICE_GROWTH 
          a_FWbySublim(I,J)          = 0.0 _d 0
./pkg/seaice/seaice_growth.F 281 SEAICE_GROWTH 
          d_HEFFbySublim(I,J)        = 0.0 _d 0
./pkg/seaice/seaice_growth.F 282 SEAICE_GROWTH 
          d_HSNWbySublim(I,J)        = 0.0 _d 0
./pkg/seaice/seaice_growth.F 285 SEAICE_GROWTH 
          d_HFRWbyRAIN(I,J)          = 0.0 _d 0
./pkg/seaice/seaice_growth.F 287 SEAICE_GROWTH 
          tmparr1(I,J)               = 0.0 _d 0
./pkg/seaice/seaice_growth.F 290 SEAICE_GROWTH 
          saltFluxAdjust(I,J)        = 0.0 _d 0
./pkg/seaice/seaice_growth.F 293 SEAICE_GROWTH 
          a_QbyATMmult_cover(I,J)    = 0.0 _d 0
./pkg/seaice/seaice_growth.F 294 SEAICE_GROWTH 
          a_QSWbyATMmult_cover(I,J)  = 0.0 _d 0
./pkg/seaice/seaice_growth.F 295 SEAICE_GROWTH 
          a_FWbySublimMult(I,J)      = 0.0 _d 0
./pkg/seaice/seaice_growth.F 302 SEAICE_GROWTH 
          frWtrAtm(I,J,bi,bj)        = 0.0 _d 0
./pkg/seaice/seaice_growth.F 319 SEAICE_GROWTH 
          d_HEFFbyNEG(I,J)=0. _d 0
./pkg/seaice/seaice_growth.F 320 SEAICE_GROWTH 
          d_HSNWbyNEG(I,J)=0. _d 0
./pkg/seaice/seaice_growth.F 342 SEAICE_GROWTH 
          d_HEFFbyNEG(I,J)=MAX(-HEFF(I,J,bi,bj),0. _d 0)
./pkg/seaice/seaice_growth.F 344 SEAICE_GROWTH 
          d_HSNWbyNEG(I,J)=MAX(-HSNOW(I,J,bi,bj),0. _d 0)
./pkg/seaice/seaice_growth.F 346 SEAICE_GROWTH 
          AREA(I,J,bi,bj)=MAX(AREA(I,J,bi,bj),0. _d 0)
./pkg/seaice/seaice_growth.F 362 SEAICE_GROWTH 
            tmpscal2=0. _d 0
./pkg/seaice/seaice_growth.F 363 SEAICE_GROWTH 
            tmpscal3=0. _d 0
./pkg/seaice/seaice_growth.F 380 SEAICE_GROWTH 
          IF ((HEFF(i,j,bi,bj).EQ.0. _d 0).AND.
./pkg/seaice/seaice_growth.F 381 SEAICE_GROWTH 
     &        (HSNOW(i,j,bi,bj).EQ.0. _d 0)) AREA(I,J,bi,bj)=0. _d 0
./pkg/seaice/seaice_growth.F 435 SEAICE_GROWTH 
             HSALT(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth.F 451 SEAICE_GROWTH 
          HEFFpreTH(I,J) = 0. _d 0
./pkg/seaice/seaice_growth.F 452 SEAICE_GROWTH 
          HSNWpreTH(I,J) = 0. _d 0
./pkg/seaice/seaice_growth.F 453 SEAICE_GROWTH 
          AREApreTH(I,J) = 0. _d 0
./pkg/seaice/seaice_growth.F 536 SEAICE_GROWTH 
     &          +0.5 _d 0*(uVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 538 SEAICE_GROWTH 
     &          -0.5 _d 0*(uice(i,j,bi,bj)+uice(i+1,j,bi,bj)))**2
./pkg/seaice/seaice_growth.F 540 SEAICE_GROWTH 
     &          +0.5 _d 0*(vVel(i,j,kSurface,bi,bj)
./pkg/seaice/seaice_growth.F 542 SEAICE_GROWTH 
     &          -0.5 _d 0*(vice(i,j,bi,bj)+vice(i,j+1,bi,bj)))**2
./pkg/seaice/seaice_growth.F 574 SEAICE_GROWTH 
         pFac = (2.0 _d 0*real(IT)-1.0 _d 0)/nDim
./pkg/seaice/seaice_growth.F 687 SEAICE_GROWTH 
          a_QbyATM_cover(I,J)   = 0. _d 0
./pkg/seaice/seaice_growth.F 688 SEAICE_GROWTH 
          r_QbyATM_cover(I,J)   = 0. _d 0
./pkg/seaice/seaice_growth.F 689 SEAICE_GROWTH 
          a_QSWbyATM_cover(I,J) = 0. _d 0
./pkg/seaice/seaice_growth.F 708 SEAICE_GROWTH 
           TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) + 0.0901 _d 0
./pkg/seaice/seaice_growth.F 779 SEAICE_GROWTH 
          IF ( a_FWbySublim(I,J) .LT. 0. _d 0 ) THEN
./pkg/seaice/seaice_growth.F 783 SEAICE_GROWTH 
           a_FWbySublim(I,J) = 0. _d 0
./pkg/seaice/seaice_growth.F 787 SEAICE_GROWTH 
          tmpscal2 = MAX(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 803 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 806 SEAICE_GROWTH 
          if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 823 SEAICE_GROWTH 
        rodt  = 1. _d 0
./pkg/seaice/seaice_growth.F 829 SEAICE_GROWTH 
          tmpscal2 = MAX(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 870 SEAICE_GROWTH 
          IF ( a_QbyATM_cover(I,J).GE. 0. _d 0 ) THEN
./pkg/seaice/seaice_growth.F 872 SEAICE_GROWTH 
            d_HFRWbyRAIN(I,J)=0. _d 0
./pkg/seaice/seaice_growth.F 879 SEAICE_GROWTH 
            d_HSNWbyRAIN(I,J)=0. _d 0
./pkg/seaice/seaice_growth.F 915 SEAICE_GROWTH 
          tmpscal2=MIN(tmpscal1,0. _d 0)
./pkg/seaice/seaice_growth.F 918 SEAICE_GROWTH 
          if ( SEAICEadjMODE.GE.2 ) tmpscal2 = 0. _d 0
./pkg/seaice/seaice_growth.F 942 SEAICE_GROWTH 
          if ( (r_QbyATM_open(I,J).GT.0. _d 0).AND.
./pkg/seaice/seaice_growth.F 943 SEAICE_GROWTH 
     &         (HEFF(I,J,bi,bj).GT.0. _d 0) ) then
./pkg/seaice/seaice_growth.F 951 SEAICE_GROWTH 
            tmpscal3=MAX(0. _d 0, tmpscal1-tmpscal2)
./pkg/seaice/seaice_growth.F 953 SEAICE_GROWTH 
            tmpscal3=0. _d 0
./pkg/seaice/seaice_growth.F 981 SEAICE_GROWTH 
           tmpscal1 = MAX( 0. _d 0, hDraft - HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 328 SEAICE_GROWTH_IF 
                  HEFFNm1(I,J,bi,bj) = MAX(0. _d 0,HEFFNm1(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 329 SEAICE_GROWTH_IF 
                  HSNOW(I,J,bi,bj)   = MAX(0. _d 0,HSNOW(I,J,bi,bj)  )
./pkg/seaice/seaice_growth_if.F 330 SEAICE_GROWTH_IF 
                  AREANm1(I,J,bi,bj) = MAX(0. _d 0,AREANm1(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 334 SEAICE_GROWTH_IF 
                  IF (PRECIP(I,J,bi,bj) .LT. 0.0 _d 0) THEN
./pkg/seaice/seaice_growth_if.F 335 SEAICE_GROWTH_IF 
                     PRECIP(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth_if.F 354 SEAICE_GROWTH_IF 
                      AREANm1(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_growth_if.F 355 SEAICE_GROWTH_IF 
                      HSNOW(I,J,bi,bj)  = 0.0 _d 0
./pkg/seaice/seaice_growth_if.F 359 SEAICE_GROWTH_IF 
                     HEFFNm1(I,J,bi,bj)  = 0.0 _d 0
./pkg/seaice/seaice_growth_if.F 360 SEAICE_GROWTH_IF 
                     HSNOW(I,J,bi,bj)   = 0.0 _d 0
./pkg/seaice/seaice_growth_if.F 585 SEAICE_GROWTH_IF 
                  QSWO_BELOW_FIRST_LAYER(i,j)= 0. _d 0
./pkg/seaice/seaice_growth_if.F 586 SEAICE_GROWTH_IF 
                  QSWO_IN_FIRST_LAYER(I,J)   = 0. _d 0
./pkg/seaice/seaice_growth_if.F 610 SEAICE_GROWTH_IF 
                  TBC = -0.0575 _d 0*salt(I,J,kSurface,bi,bj) +
./pkg/seaice/seaice_growth_if.F 611 SEAICE_GROWTH_IF 
     &                 0.0901 _d 0
./pkg/seaice/seaice_growth_if.F 781 SEAICE_GROWTH_IF 
                  AREA(I,J,bi,bj) = MIN(1. _d 0,AREA(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 782 SEAICE_GROWTH_IF 
                  AREA(I,J,bi,bj) = MAX(0. _d 0,AREA(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 783 SEAICE_GROWTH_IF 
                  HEFF(I,J,bi,bj) = MAX(0. _d 0, HEFF(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 784 SEAICE_GROWTH_IF 
                  HSNOW(I,J,bi,bj)  = MAX(0. _d 0, HSNOW(I,J,bi,bj))
./pkg/seaice/seaice_growth_if.F 856 SEAICE_GROWTH_IF 
                  QSW(I,J,bi,bj) = 0. _d 0
./pkg/seaice/seaice_growth_if.F 952 SEAICE_GROWTH_IF 
                  QSW_absorb_in_ML(I,J) = 0. _d 0
./pkg/seaice/seaice_init_fixed.F 111 SEAICE_INIT_FIXED 
          k1AtC(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_fixed.F 112 SEAICE_INIT_FIXED 
          k1AtZ(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_fixed.F 113 SEAICE_INIT_FIXED 
          k2AtC(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_fixed.F 114 SEAICE_INIT_FIXED 
          k2AtZ(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_init_fixed.F 182 SEAICE_INIT_FIXED 
           DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND.
./pkg/seaice/seaice_init_fixed.F 82 SEAICE_INIT_FIXED 
          HEFFM(i,j,bi,bj)       = 0. _d 0
./pkg/seaice/seaice_init_fixed.F 87 SEAICE_INIT_FIXED 
          HEFFM(i,j,bi,bj)= 1. _d 0
./pkg/seaice/seaice_init_fixed.F 89 SEAICE_INIT_FIXED 
     &         HEFFM(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_fixed.F 95 SEAICE_INIT_FIXED 
          UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_fixed.F 98 SEAICE_INIT_FIXED 
          IF(mask_uice.GT.3.5 _d 0) UVM(i,j,bi,bj)=1. _d 0
./pkg/seaice/seaice_init_varia.F 100 SEAICE_INIT_VARIA 
          seaiceMassC(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 101 SEAICE_INIT_VARIA 
          seaiceMassU(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 102 SEAICE_INIT_VARIA 
          seaiceMassV(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 103 SEAICE_INIT_VARIA 
          stressDivergenceX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 104 SEAICE_INIT_VARIA 
          stressDivergenceY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 106 SEAICE_INIT_VARIA 
          seaice_sigma1 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 107 SEAICE_INIT_VARIA 
          seaice_sigma2 (i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 108 SEAICE_INIT_VARIA 
          seaice_sigma12(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 111 SEAICE_INIT_VARIA 
          AMASS(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 112 SEAICE_INIT_VARIA 
          DAIRN(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 113 SEAICE_INIT_VARIA 
          WINDX(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 114 SEAICE_INIT_VARIA 
          WINDY(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 115 SEAICE_INIT_VARIA 
          GWATX(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 116 SEAICE_INIT_VARIA 
          GWATY(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 118 SEAICE_INIT_VARIA 
          DWATN(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 119 SEAICE_INIT_VARIA 
          PRESS0(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 120 SEAICE_INIT_VARIA 
          FORCEX0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F 121 SEAICE_INIT_VARIA 
          FORCEY0(i,j,bi,bj)= 0. _d 0
./pkg/seaice/seaice_init_varia.F 122 SEAICE_INIT_VARIA 
          ZMAX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 123 SEAICE_INIT_VARIA 
          ZMIN(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 124 SEAICE_INIT_VARIA 
          HSNOW(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 126 SEAICE_INIT_VARIA 
          HSALT(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 129 SEAICE_INIT_VARIA 
          ICEAGE(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 131 SEAICE_INIT_VARIA 
          YNEG (i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 132 SEAICE_INIT_VARIA 
          RIVER(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 133 SEAICE_INIT_VARIA 
          TMIX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 134 SEAICE_INIT_VARIA 
          TICE(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 135 SEAICE_INIT_VARIA 
          TAUX(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 136 SEAICE_INIT_VARIA 
          TAUY(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 138 SEAICE_INIT_VARIA 
          uHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 139 SEAICE_INIT_VARIA 
          vHeffExportCell(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 141 SEAICE_INIT_VARIA 
          saltWtrIce(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 142 SEAICE_INIT_VARIA 
          frWtrIce(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 144 SEAICE_INIT_VARIA 
          frWtrAtm(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 177 SEAICE_INIT_VARIA 
          seaiceMaskU(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 178 SEAICE_INIT_VARIA 
          seaiceMaskV(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 180 SEAICE_INIT_VARIA 
          IF(mask_uice.GT.1.5 _d 0) seaiceMaskU(i,j,bi,bj)=1.0 _d 0
./pkg/seaice/seaice_init_varia.F 182 SEAICE_INIT_VARIA 
          IF(mask_uice.GT.1.5 _d 0) seaiceMaskV(i,j,bi,bj)=1.0 _d 0
./pkg/seaice/seaice_init_varia.F 184 SEAICE_INIT_VARIA 
          UVM(i,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 202 SEAICE_INIT_VARIA 
           seaiceMaskU(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 203 SEAICE_INIT_VARIA 
           seaiceMaskV(i,J_obc,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 205 SEAICE_INIT_VARIA 
           UVM(i,J_obc,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 216 SEAICE_INIT_VARIA 
           seaiceMaskU(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 217 SEAICE_INIT_VARIA 
           seaiceMaskV(I_obc,j,bi,bj)=   0.0 _d 0
./pkg/seaice/seaice_init_varia.F 219 SEAICE_INIT_VARIA 
           UVM(I_obc,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 239 SEAICE_INIT_VARIA 
            UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 245 SEAICE_INIT_VARIA 
           UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 250 SEAICE_INIT_VARIA 
           UVM(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 259 SEAICE_INIT_VARIA 
          TICE(i,j,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init_varia.F 262 SEAICE_INIT_VARIA 
           TICES(i,j,k,bi,bj)=273.0 _d 0
./pkg/seaice/seaice_init_varia.F 266 SEAICE_INIT_VARIA 
          AMASS      (i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 268 SEAICE_INIT_VARIA 
          seaiceMassC(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 269 SEAICE_INIT_VARIA 
          seaiceMassU(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 270 SEAICE_INIT_VARIA 
          seaiceMassV(i,j,bi,bj)=1000.0 _d 0
./pkg/seaice/seaice_init_varia.F 369 SEAICE_INIT_VARIA 
           HSNOW(i,j,bi,bj) = 0.2 _d 0 * AREA(i,j,bi,bj)
./pkg/seaice/seaice_init_varia.F 449 SEAICE_INIT_VARIA 
          ZETA(i,j,bi,bj)   = HEFF(i,j,bi,bj)*(1.0 _d 11)
./pkg/seaice/seaice_init_varia.F 452 SEAICE_INIT_VARIA 
     &         *EXP(-20.0 _d 0*(ONE-AREA(i,j,bi,bj)))
./pkg/seaice/seaice_init_varia.F 69 SEAICE_INIT_VARIA 
          HEFF(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 70 SEAICE_INIT_VARIA 
          AREA(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 71 SEAICE_INIT_VARIA 
          UICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 72 SEAICE_INIT_VARIA 
          VICE(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 74 SEAICE_INIT_VARIA 
          uIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 75 SEAICE_INIT_VARIA 
          vIceNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 76 SEAICE_INIT_VARIA 
          areaNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 77 SEAICE_INIT_VARIA 
          hEffNm1(i,j,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 84 SEAICE_INIT_VARIA 
           TICES(i,j,k,bi,bj)=0. _d 0
./pkg/seaice/seaice_init_varia.F 91 SEAICE_INIT_VARIA 
          ETA (i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 92 SEAICE_INIT_VARIA 
          ZETA(i,j,bi,bj)   = 0. _d 0
./pkg/seaice/seaice_init_varia.F 93 SEAICE_INIT_VARIA 
          DRAGS(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 94 SEAICE_INIT_VARIA 
          DRAGA(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 95 SEAICE_INIT_VARIA 
          FORCEX(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 96 SEAICE_INIT_VARIA 
          FORCEY(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_init_varia.F 97 SEAICE_INIT_VARIA 
          UICEC(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 98 SEAICE_INIT_VARIA 
          VICEC(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_lsr.F 131 SEAICE_LSR 
      WFAU1=0.95 _d 0
./pkg/seaice/seaice_lsr.F 132 SEAICE_LSR 
      WFAV1=0.95 _d 0
./pkg/seaice/seaice_lsr.F 136 SEAICE_LSR 
      S1A=0.80 _d 0
./pkg/seaice/seaice_lsr.F 137 SEAICE_LSR 
      S2A=0.80 _d 0
./pkg/seaice/seaice_lsr.F 249 SEAICE_LSR 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I-1,J,bi,bj) ) *
./pkg/seaice/seaice_lsr.F 251 SEAICE_LSR 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj))* 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 252 SEAICE_LSR 
     &         ( DWATN(I  ,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 255 SEAICE_LSR 
     &         + DWATN(I-1,J,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 260 SEAICE_LSR 
     &         0.5 _d 0 * ( DWATN(I,J,bi,bj)+DWATN(I,J-1,bi,bj) ) *
./pkg/seaice/seaice_lsr.F 262 SEAICE_LSR 
     &         + SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 263 SEAICE_LSR 
     &         ( DWATN(I,J  ,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 266 SEAICE_LSR 
     &         + DWATN(I,J-1,bi,bj) * 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 327 SEAICE_LSR 
     &         * k1AtC(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 337 SEAICE_LSR 
     &         * k2AtZ(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 347 SEAICE_LSR 
     &         * k1AtZ(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 357 SEAICE_LSR 
     &         * k2AtC(I,J,bi,bj) * 0.5 _d 0
./pkg/seaice/seaice_lsr.F 402 SEAICE_LSR 
     &         ( ( 1. _d 0 - hFacM )
./pkg/seaice/seaice_lsr.F 404 SEAICE_LSR 
     &         + ( 1. _d 0 - hFacP )
./pkg/seaice/seaice_lsr.F 422 SEAICE_LSR 
     &         + 0.5 _d 0*( DRAGS(I,J,bi,bj) + DRAGS(I-1,J,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 442 SEAICE_LSR 
     &         * 0.5 _d 0 * ( vIceC(I,J+1,bi,bj) + vIceC(I,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 443 SEAICE_LSR 
     &         - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 454 SEAICE_LSR 
     &         * 0.5 _d 0 * ( vIceC(I,J,bi,bj) + vIceC(I-1,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 464 SEAICE_LSR 
     &         * hFacM * 2. _d 0
./pkg/seaice/seaice_lsr.F 471 SEAICE_LSR 
          FXY(I,J,bi,bj)=0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 473 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC( i ,j,bi,bj)+vIceC( i ,j+1,bi,bj) )
./pkg/seaice/seaice_lsr.F 475 SEAICE_LSR 
     &          *0.5 _d 0*( vIceC(i-1,j,bi,bj)+vIceC(i-1,j+1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 660 SEAICE_LSR 
     &         ( ( 1. _d 0 - hFacM )
./pkg/seaice/seaice_lsr.F 662 SEAICE_LSR 
     &         + ( 1. _d 0 - hFacP )
./pkg/seaice/seaice_lsr.F 680 SEAICE_LSR 
     &         + 0.5 _d 0 * ( DRAGS(I,J,bi,bj) + DRAGS(I,J-1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 700 SEAICE_LSR 
     &         * 0.5 _d 0 * ( uIceC(I+1,J,bi,bj) + uIceC(I,J,bi,bj) )
./pkg/seaice/seaice_lsr.F 701 SEAICE_LSR 
     &         - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 712 SEAICE_LSR 
     &         * 0.5 _d 0 * ( uIceC(I,J,bi,bj) + uIceC(I,J-1,bi,bj) )
./pkg/seaice/seaice_lsr.F 722 SEAICE_LSR 
     &         * hFacM * 2. _d 0
./pkg/seaice/seaice_lsr.F 729 SEAICE_LSR 
          FXY(I,J,bi,bj)= - 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 731 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j  ,bi,bj)+uIceC(i+1,  j,bi,bj) )
./pkg/seaice/seaice_lsr.F 733 SEAICE_LSR 
     &         *0.5 _d 0*( uIceC(i  ,j-1,bi,bj)+uIceC(i+1,j-1,bi,bj) ) )
./pkg/seaice/seaice_lsr.F 892 SEAICE_LSR 
           sig11(I,J) = 0. _d 0
./pkg/seaice/seaice_lsr.F 893 SEAICE_LSR 
           sig22(I,J) = 0. _d 0
./pkg/seaice/seaice_lsr.F 894 SEAICE_LSR 
           sig12(I,J) = 0. _d 0
./pkg/seaice/seaice_lsr.F 903 SEAICE_LSR 
     &          - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 905 SEAICE_LSR 
     &          - 0.5 _d 0 * PRESS(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 911 SEAICE_LSR 
           sig12(I,J) = 2. _d 0 * e12(I,J,bi,bj) * etaMeanZ(I,J,bi,bj)
./pkg/seaice/seaice_lsr.F 938 SEAICE_LSR 
       resnorm = 0. _d 0
./pkg/seaice/seaice_lsr.F 939 SEAICE_LSR 
       EKnorm  = 0. _d 0
./pkg/seaice/seaice_lsr.F 940 SEAICE_LSR 
       counter = 0. _d 0
./pkg/seaice/seaice_lsr.F 946 SEAICE_LSR 
           resnorm = resnorm + 0.5 _d 0 *
./pkg/seaice/seaice_lsr.F 951 SEAICE_LSR 
           IF ( area(i,j,bi,bj) .gt. 0.5 _d 0 ) THEN
./pkg/seaice/seaice_lsr.F 952 SEAICE_LSR 
            EKnorm = EKnorm + 0.5 _d 0 * heff(i,j,bi,bj) *
./pkg/seaice/seaice_lsr.F 955 SEAICE_LSR 
            counter = counter + 1. _d 0
./pkg/seaice/seaice_lsr.F 964 SEAICE_LSR 
       IF ( counter .gt. 0. _d 0 ) EKnorm = EKnorm/counter
./pkg/seaice/seaice_model.F 101 SEAICE_MODEL 
           HSALT(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 116 SEAICE_MODEL 
          HEFFNM1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 117 SEAICE_MODEL 
          AREANM1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 118 SEAICE_MODEL 
          uIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 119 SEAICE_MODEL 
          vIceNm1(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 96 SEAICE_MODEL 
           HEFF(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 97 SEAICE_MODEL 
           AREA(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_model.F 98 SEAICE_MODEL 
           HSNOW(i,j,bi,bj) = 0. _d 0
./pkg/seaice/seaice_ocean_stress.F 102 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(vIce(I-1,J  ,bi,bj)-vVel(I-1,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 108 SEAICE_OCEAN_STRESS 
     &         + SIGN(SINWAT,  _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_ocean_stress.F 110 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(uIce(I  ,J  ,bi,bj)-uVel(I  ,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 113 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(uIce(I  ,J-1,bi,bj)-uVel(I  ,J-1,kSrf,bi,bj)
./pkg/seaice/seaice_ocean_stress.F 116 SEAICE_OCEAN_STRESS 
          areaW = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I-1,J,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 118 SEAICE_OCEAN_STRESS 
          areaS = 0.5 _d 0 * (AREA(I,J,bi,bj) + AREA(I,J-1,bi,bj))
./pkg/seaice/seaice_ocean_stress.F 97 SEAICE_OCEAN_STRESS 
     &         - SIGN(SINWAT, _fCori(I,J,bi,bj)) * 0.5 _d 0 *
./pkg/seaice/seaice_ocean_stress.F 99 SEAICE_OCEAN_STRESS 
     &         0.5 _d 0*(vIce(I  ,J  ,bi,bj)-vVel(I  ,J  ,kSrf,bi,bj)
./pkg/seaice/seaice_output.F 150 SEAICE_OUTPUT 
      IF ( SEAICE_taveFreq.GT.0. _d 0 ) THEN
./pkg/seaice/seaice_readparms.F 165 SEAICE_READPARMS 
      SEAICE_evpDampC    = -1. _d 0
./pkg/seaice/seaice_readparms.F 166 SEAICE_READPARMS 
      SEAICE_zetaMin     = 0. _d 0
./pkg/seaice/seaice_readparms.F 167 SEAICE_READPARMS 
      SEAICE_zetaMaxFac  = 2.5 _d 8
./pkg/seaice/seaice_readparms.F 171 SEAICE_READPARMS 
      SEAICE_elasticParm = 0.33333333333333333333333333 _d 0
./pkg/seaice/seaice_readparms.F 172 SEAICE_READPARMS 
      SEAICE_evpTauRelax = -1. _d 0
./pkg/seaice/seaice_readparms.F 183 SEAICE_READPARMS 
      SEAICE_rhoIce      = 0.91   _d +03
./pkg/seaice/seaice_readparms.F 184 SEAICE_READPARMS 
      SEAICE_rhoSnow     = 330.   _d 0
./pkg/seaice/seaice_readparms.F 186 SEAICE_READPARMS 
      SEAICE_drag        = 0.002  _d 0
./pkg/seaice/seaice_readparms.F 187 SEAICE_READPARMS 
      OCEAN_drag         = 0.001  _d 0
./pkg/seaice/seaice_readparms.F 188 SEAICE_READPARMS 
      SEAICE_waterDrag   = 5.5    _d 0
./pkg/seaice/seaice_readparms.F 189 SEAICE_READPARMS 
      SEAICE_dryIceAlb   = 0.75   _d 0
./pkg/seaice/seaice_readparms.F 190 SEAICE_READPARMS 
      SEAICE_wetIceAlb   = 0.66   _d 0
./pkg/seaice/seaice_readparms.F 191 SEAICE_READPARMS 
      SEAICE_drySnowAlb  = 0.84   _d 0
./pkg/seaice/seaice_readparms.F 192 SEAICE_READPARMS 
      SEAICE_wetSnowAlb  = 0.7    _d 0
./pkg/seaice/seaice_readparms.F 193 SEAICE_READPARMS 
      HO                 = 0.5    _d 0
./pkg/seaice/seaice_readparms.F 201 SEAICE_READPARMS 
      SEAICE_waterAlbedo = 0.1    _d +00
./pkg/seaice/seaice_readparms.F 202 SEAICE_READPARMS 
      SEAICE_strength    = 2.75   _d +04
./pkg/seaice/seaice_readparms.F 203 SEAICE_READPARMS 
      SEAICE_eccen       = 2.     _d 0
./pkg/seaice/seaice_readparms.F 205 SEAICE_READPARMS 
      SEAICE_dalton      = 1.75   _d -03
./pkg/seaice/seaice_readparms.F 206 SEAICE_READPARMS 
      SEAICE_lhSublim    = 2.834  _d +06
./pkg/seaice/seaice_readparms.F 219 SEAICE_READPARMS 
       SEAICE_rhoAir     = 1.3    _d 0
./pkg/seaice/seaice_readparms.F 220 SEAICE_READPARMS 
       SEAICE_cpAir      = 1004.  _d 0
./pkg/seaice/seaice_readparms.F 221 SEAICE_READPARMS 
       SEAICE_lhEvap     = 2.50   _d 6
./pkg/seaice/seaice_readparms.F 222 SEAICE_READPARMS 
       SEAICE_lhFusion   = 3.34   _d 5
./pkg/seaice/seaice_readparms.F 224 SEAICE_READPARMS 
      SEAICE_iceConduct  = 2.1656 _d +00
./pkg/seaice/seaice_readparms.F 225 SEAICE_READPARMS 
      SEAICE_snowConduct = 3.1    _d -01
./pkg/seaice/seaice_readparms.F 226 SEAICE_READPARMS 
      SEAICE_emissivity  = 5.5    _d -08
./pkg/seaice/seaice_readparms.F 227 SEAICE_READPARMS 
      SEAICE_snowThick   = 0.15   _d 0
./pkg/seaice/seaice_readparms.F 228 SEAICE_READPARMS 
      SEAICE_shortwave   = 0.30   _d 0
./pkg/seaice/seaice_readparms.F 229 SEAICE_READPARMS 
      SEAICE_freeze      = -1.96  _d 0
./pkg/seaice/seaice_readparms.F 230 SEAICE_READPARMS 
      SEAICE_salinity    = 0.0    _d 0
./pkg/seaice/seaice_readparms.F 231 SEAICE_READPARMS 
      SIsal0             = 0.0    _d 0
./pkg/seaice/seaice_readparms.F 236 SEAICE_READPARMS 
      SEAICEstressFactor = 1.     _d 0
./pkg/seaice/seaice_readparms.F 249 SEAICE_READPARMS 
      LSR_ERROR  = 0.0001    _d 0
./pkg/seaice/seaice_readparms.F 250 SEAICE_READPARMS 
      DIFF1      = .002      _d 0
./pkg/seaice/seaice_readparms.F 252 SEAICE_READPARMS 
      A22        = 0.15      _d 0
./pkg/seaice/seaice_readparms.F 253 SEAICE_READPARMS 
      areaMin    = 0.15 _d 0
./pkg/seaice/seaice_readparms.F 254 SEAICE_READPARMS 
      areaMax    = 1.00 _d 0
./pkg/seaice/seaice_readparms.F 255 SEAICE_READPARMS 
      hiceMin    = 0.05 _d 0
./pkg/seaice/seaice_readparms.F 256 SEAICE_READPARMS 
      SEAICE_airTurnAngle   = 0.0 _d 0
./pkg/seaice/seaice_readparms.F 257 SEAICE_READPARMS 
      SEAICE_waterTurnAngle = 0.0 _d 0
./pkg/seaice/seaice_readparms.F 258 SEAICE_READPARMS 
      MAX_HEFF          = 10.     _d 0
./pkg/seaice/seaice_readparms.F 259 SEAICE_READPARMS 
      MIN_ATEMP         = -50.    _d 0
./pkg/seaice/seaice_readparms.F 260 SEAICE_READPARMS 
      MIN_LWDOWN        = 60.     _d 0
./pkg/seaice/seaice_readparms.F 261 SEAICE_READPARMS 
      MAX_TICE          = 30.     _d 0
./pkg/seaice/seaice_readparms.F 262 SEAICE_READPARMS 
      MIN_TICE          = -50.    _d 0
./pkg/seaice/seaice_readparms.F 263 SEAICE_READPARMS 
      SEAICE_EPS        = 1.      _d -10
./pkg/seaice/seaice_readparms.F 278 SEAICE_READPARMS 
      mult_ice_export   =  0. _d 0
./pkg/seaice/seaice_readparms.F 279 SEAICE_READPARMS 
      mult_ice          =  0. _d 0
./pkg/seaice/seaice_readparms.F 285 SEAICE_READPARMS 
      SEAICE_clamp_salt  = 27.5   _d 0
./pkg/seaice/seaice_readparms.F 286 SEAICE_READPARMS 
      SEAICE_clamp_theta = 0.0001 _d 0
./pkg/seaice/seaice_readparms.F 288 SEAICE_READPARMS 
      mult_smrsst       =  0. _d 0
./pkg/seaice/seaice_readparms.F 289 SEAICE_READPARMS 
      mult_smrsss       =  0. _d 0
./pkg/seaice/seaice_readparms.F 290 SEAICE_READPARMS 
      mult_smrarea      =  0. _d 0
./pkg/seaice/seaice_readparms.F 291 SEAICE_READPARMS 
      wsmrarea0         =  0.5 _d 0
./pkg/seaice/seaice_readparms.F 292 SEAICE_READPARMS 
      wmean_smrarea     =  0.5 _d 0
./pkg/seaice/seaice_readparms.F 361 SEAICE_READPARMS 
       IF ( SEAICE_elasticParm .LE. 0. _d 0 ) THEN
./pkg/seaice/seaice_readparms.F 367 SEAICE_READPARMS 
       IF ( SEAICE_evpTauRelax .LE. 0. _d 0 )
./pkg/seaice/seaice_readparms.F 408 SEAICE_READPARMS 
         SEAICE_availHeatFrac = 1. _d 0
./pkg/seaice/seaice_readparms.F 411 SEAICE_READPARMS 
     &     SEAICE_gamma_t .NE. 0. _d 0 ) THEN
./pkg/seaice/seaice_readparms.F 417 SEAICE_READPARMS 
      IF ( SEAICE_gamma_t_frz .EQ. 0. _d 0 ) THEN
./pkg/seaice/seaice_readparms.F 418 SEAICE_READPARMS 
         SEAICE_availHeatFracFrz = 1. _d 0
./pkg/seaice/seaice_solve4temp.F 146 SEAICE_SOLVE4TEMP 
      lnTEN = log(10.0 _d 0)
./pkg/seaice/seaice_solve4temp.F 149 SEAICE_SOLVE4TEMP 
      C1=    2.7798202  _d -06
./pkg/seaice/seaice_solve4temp.F 150 SEAICE_SOLVE4TEMP 
      C2=   -2.6913393  _d -03
./pkg/seaice/seaice_solve4temp.F 151 SEAICE_SOLVE4TEMP 
      C3=    0.97920849 _d +00
./pkg/seaice/seaice_solve4temp.F 152 SEAICE_SOLVE4TEMP 
      C4= -158.63779    _d +00
./pkg/seaice/seaice_solve4temp.F 153 SEAICE_SOLVE4TEMP 
      C5= 9653.1925     _d +00
./pkg/seaice/seaice_solve4temp.F 155 SEAICE_SOLVE4TEMP 
      QS1=0.622 _d +00/1013.0 _d +00
./pkg/seaice/seaice_solve4temp.F 158 SEAICE_SOLVE4TEMP 
      aa1 = 2663.5 _d 0
./pkg/seaice/seaice_solve4temp.F 159 SEAICE_SOLVE4TEMP 
      aa2 = 12.537 _d 0
./pkg/seaice/seaice_solve4temp.F 160 SEAICE_SOLVE4TEMP 
      bb1 = 0.622 _d 0
./pkg/seaice/seaice_solve4temp.F 161 SEAICE_SOLVE4TEMP 
      bb2 = 1.0 _d 0 - bb1
./pkg/seaice/seaice_solve4temp.F 162 SEAICE_SOLVE4TEMP 
      Ppascals = 100000. _d 0
./pkg/seaice/seaice_solve4temp.F 184 SEAICE_SOLVE4TEMP 
      TMELT        = 273.16  _d +00
./pkg/seaice/seaice_solve4temp.F 185 SEAICE_SOLVE4TEMP 
      TMELTP       = 273.159 _d +00
./pkg/seaice/seaice_solve4temp.F 210 SEAICE_SOLVE4TEMP 
        iceOrNot           (I,J) = HICE_ACTUAL(I,J) .GT. 0. _d 0
./pkg/seaice/seaice_solve4temp.F 212 SEAICE_SOLVE4TEMP 
        IcePenetSWFlux     (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 213 SEAICE_SOLVE4TEMP 
        IcePenetSWFluxFrac (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 214 SEAICE_SOLVE4TEMP 
        AbsorbedSWFlux     (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 216 SEAICE_SOLVE4TEMP 
        qhice    (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 217 SEAICE_SOLVE4TEMP 
        F_ia     (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 219 SEAICE_SOLVE4TEMP 
        F_io_net (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 220 SEAICE_SOLVE4TEMP 
        F_ia_net (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 222 SEAICE_SOLVE4TEMP 
        F_lh     (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 226 SEAICE_SOLVE4TEMP 
        tsurfLoc (I,J) = MIN(273.16 _d 0 + MAX_TICE,TSURF(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 227 SEAICE_SOLVE4TEMP 
        atempLoc (I,J) = MAX(273.16 _d 0 + MIN_ATEMP,ATEMP(I,J,bi,bj))
./pkg/seaice/seaice_solve4temp.F 228 SEAICE_SOLVE4TEMP 
        A1(I,J) = 0.0 _d 0
./pkg/seaice/seaice_solve4temp.F 229 SEAICE_SOLVE4TEMP 
        A2(I,J) = 0.0 _d 0
./pkg/seaice/seaice_solve4temp.F 230 SEAICE_SOLVE4TEMP 
        A3(I,J) = 0.0 _d 0
./pkg/seaice/seaice_solve4temp.F 234 SEAICE_SOLVE4TEMP 
        F_swi    (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 235 SEAICE_SOLVE4TEMP 
        F_lwd    (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 236 SEAICE_SOLVE4TEMP 
        F_lwu    (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 237 SEAICE_SOLVE4TEMP 
        F_sens   (I,J) = 0. _d 0
./pkg/seaice/seaice_solve4temp.F 247 SEAICE_SOLVE4TEMP 
        TB(I,J) = -0.0575 _d 0*salt(I,J,kSrf,bi,bj) + 0.0901 _d 0
./pkg/seaice/seaice_solve4temp.F 252 SEAICE_SOLVE4TEMP 
        TB(I,J) = 271.2 _d 0
./pkg/seaice/seaice_solve4temp.F 266 SEAICE_SOLVE4TEMP 
         IF ( YC(I,J,bi,bj) .LT. 0.0 _d 0 ) THEN
./pkg/seaice/seaice_solve4temp.F 299 SEAICE_SOLVE4TEMP 
         IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN
./pkg/seaice/seaice_solve4temp.F 312 SEAICE_SOLVE4TEMP 
          A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 313 SEAICE_SOLVE4TEMP 
     &         +lwdownLoc(I,J)*0.97 _d 0
./pkg/seaice/seaice_solve4temp.F 317 SEAICE_SOLVE4TEMP 
          A1(I,J)=(1.0 _d 0 - ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 318 SEAICE_SOLVE4TEMP 
     &         *(1.0 _d 0 - XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J)))
./pkg/seaice/seaice_solve4temp.F 319 SEAICE_SOLVE4TEMP 
     &         +lwdownLoc(I,J)*0.97 _d 0
./pkg/seaice/seaice_solve4temp.F 327 SEAICE_SOLVE4TEMP 
         F_lwd(I,J) = - 0.97 _d 0 * lwdownLoc(I,J)
./pkg/seaice/seaice_solve4temp.F 333 SEAICE_SOLVE4TEMP 
         IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0) THEN
./pkg/seaice/seaice_solve4temp.F 334 SEAICE_SOLVE4TEMP 
          IcePenetSWFluxFrac(I,J) = 0.0 _d 0
./pkg/seaice/seaice_solve4temp.F 337 SEAICE_SOLVE4TEMP 
     &         XIO*EXP(-1.5 _d 0 * HICE_ACTUAL(I,J))
./pkg/seaice/seaice_solve4temp.F 342 SEAICE_SOLVE4TEMP 
         AbsorbedSWFlux(I,J)       = -(1.0 _d 0 - ALB(I,J))*
./pkg/seaice/seaice_solve4temp.F 343 SEAICE_SOLVE4TEMP 
     &        (1.0 _d 0 - IcePenetSWFluxFrac(I,J))
./pkg/seaice/seaice_solve4temp.F 348 SEAICE_SOLVE4TEMP 
         IcePenetSWFlux(I,J) = -(1.0 _d 0 - ALB(I,J))*
./pkg/seaice/seaice_solve4temp.F 356 SEAICE_SOLVE4TEMP 
         hice_tmp = max(HICE_ACTUAL(I,J),5. _d -2)
./pkg/seaice/seaice_solve4temp.F 436 SEAICE_SOLVE4TEMP 
          qhice(I,J) = bb1*mm_pi / (Ppascals - (1.0 _d 0 - bb1) *
./pkg/seaice/seaice_solve4temp.F 445 SEAICE_SOLVE4TEMP 
          A3(I,J) = 4.0 _d 0 * D3 * t3 + effConduct(I,J) + D1*UG(I,J)
./pkg/seaice/seaice_solve4temp.F 456 SEAICE_SOLVE4TEMP 
          dFiDTs1 = 4.0 _d 0 * D3*t3 + effConduct(I,J) + D1*UG(I,J)
./pkg/seaice/seaice_solve4temp.F 497 SEAICE_SOLVE4TEMP 
          tsurfLoc(I,J) =MAX(273.16 _d 0+MIN_TICE,tsurfLoc(I,J))
./pkg/seaice/seaice_solve4temp.F 509 SEAICE_SOLVE4TEMP 
          IF (tsurfLoc(I,J) .LT. 50.0 _d 0 ) THEN
./pkg/seaice/seaice_solve4temp.F 540 SEAICE_SOLVE4TEMP 
         IF (HSNOW_ACTUAL(I,J) .GT. 0.0 _d 0 ) THEN
./pkg/seaice/seaice_solve4temp.F 542 SEAICE_SOLVE4TEMP 
          IcePenetSWFlux(I,J)=0.0 _d 0
./pkg/seaice/seaice_solve4temp.F 547 SEAICE_SOLVE4TEMP 
          IcePenetSWFlux(I,J)=-(1.0 _d 0 -ALB(I,J))*SWDOWN(I,J,bi,bj)
./pkg/seaice/seaice_solve4temp.F 548 SEAICE_SOLVE4TEMP 
     &         *XIO*EXP(-1.5 _d 0*HICE_ACTUAL(I,J))
./pkg/seaice/seaice_solve4temp.F 570 SEAICE_SOLVE4TEMP 
         qhice(I,J) = bb1*mm_pi/(Ppascals- (1.0 _d 0 - bb1) * mm_pi)
./pkg/seaice/seaice_solve4temp.F 593 SEAICE_SOLVE4TEMP 
         A1(I,J)=0.3 _d 0 *SWDOWN(I,J,bi,bj)+lwdownLoc(I,J)*0.97 _d 0
./pkg/seaice/seaice_solve4temp.F 598 SEAICE_SOLVE4TEMP 
         IcePenetSWFlux(I,J)= 0. _d 0
./pkg/seaice/seaice_solve4temp.F 603 SEAICE_SOLVE4TEMP 
         IF (F_c(I,J) .LT. 0.0 _d 0) THEN
./pkg/seaice/seaice_solve4temp.F 605 SEAICE_SOLVE4TEMP 
          F_ia_net(I,J) = 0.0 _d 0
./pkg/seaice/seaice_solve4temp.F 607 SEAICE_SOLVE4TEMP 
          F_io_net(I,J) = 0.0 _d 0
./model/src/dynamics.F 307 DYNAMICS 
           KappaRU(i,j,k) = 0. _d 0
./model/src/dynamics.F 308 DYNAMICS 
           KappaRV(i,j,k) = 0. _d 0
./model/src/dynamics.F 312 DYNAMICS 
           gU(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 313 DYNAMICS 
           gV(i,j,k,bi,bj) = 0. _d 0
./model/src/dynamics.F 320 DYNAMICS 
          fVerU  (i,j,1) = 0. _d 0
./model/src/dynamics.F 321 DYNAMICS 
          fVerU  (i,j,2) = 0. _d 0
./model/src/dynamics.F 322 DYNAMICS 
          fVerV  (i,j,1) = 0. _d 0
./model/src/dynamics.F 323 DYNAMICS 
          fVerV  (i,j,2) = 0. _d 0
./model/src/dynamics.F 324 DYNAMICS 
          phiHydF (i,j)  = 0. _d 0
./model/src/dynamics.F 325 DYNAMICS 
          phiHydC (i,j)  = 0. _d 0
./model/src/dynamics.F 327 DYNAMICS 
          dPhiHydX(i,j)  = 0. _d 0
./model/src/dynamics.F 328 DYNAMICS 
          dPhiHydY(i,j)  = 0. _d 0
./model/src/dynamics.F 330 DYNAMICS 
          phiSurfX(i,j)  = 0. _d 0
./model/src/dynamics.F 331 DYNAMICS 
          phiSurfY(i,j)  = 0. _d 0
./model/src/dynamics.F 332 DYNAMICS 
          guDissip(i,j)  = 0. _d 0
./model/src/dynamics.F 333 DYNAMICS 
          gvDissip(i,j)  = 0. _d 0
./model/src/dynamics.F 335 DYNAMICS 
          phiHydLow(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 338 DYNAMICS 
          dWtransC(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 339 DYNAMICS 
          dWtransU(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 340 DYNAMICS 
          dWtransV(i,j,bi,bj) = 0. _d 0
./model/src/dynamics.F 387 DYNAMICS 
           KappaRU(i,j,k) = 0. _d 0
./model/src/dynamics.F 388 DYNAMICS 
           KappaRV(i,j,k) = 0. _d 0
./model/src/dynamics.F 499 DYNAMICS 
           tmpFac = -1. _d 0
./model/src/dynamics.F 681 DYNAMICS 
       tmpFac = 1. _d 0
./pkg/shap_filt/shap_filt_computvort.F 110 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F 132 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F 154 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_computvort.F 173 SHAP_FILT_COMPUTVORT 
             vort(i,j)=vort(i,j)*4. _d 0 / 3. _d 0
./pkg/shap_filt/shap_filt_relvort3.F 52 SHAP_FILT_RELVORT3 
        vort3(I,J) = 0. _d 0
./pkg/shap_filt/shap_filt_relvort3.F 90 SHAP_FILT_RELVORT3 
       AZcorner = 0.75 _d 0
./model/src/external_fields_load.F 72 EXTERNAL_FIELDS_LOAD 
      rdt = 1. _d 0 / deltaTclock
./model/src/external_fields_load.F 90 EXTERNAL_FIELDS_LOAD 
      bWght = 1. _d 0 - aWght
./pkg/shap_filt/shap_filt_uv_s1.F 61 SHAP_FILT_UV_S1 
      noSlipFact = Shap_noSlip*2. _d 0
./pkg/shap_filt/shap_filt_uv_s2.F 173 SHAP_FILT_UV_S2 
              tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 175 SHAP_FILT_UV_S2 
              tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 182 SHAP_FILT_UV_S2 
              tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 184 SHAP_FILT_UV_S2 
              tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 191 SHAP_FILT_UV_S2 
              tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*tmpFldU(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 193 SHAP_FILT_UV_S2 
              tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*tmpFldV(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2.F 210 SHAP_FILT_UV_S2 
             tmpFldU(i,j,k,bi,bj) = -0.125 _d 0*
./pkg/shap_filt/shap_filt_uv_s2.F 226 SHAP_FILT_UV_S2 
             tmpFldV(i,j,k,bi,bj) = -0.125 _d 0*
./pkg/shap_filt/shap_filt_uv_s2.F 80 SHAP_FILT_UV_S2 
            hDiv(i,j) = 0. _d 0
./pkg/shap_filt/shap_filt_uv_s2c.F 137 SHAP_FILT_UV_S2C 
     &        -0.125 _d 0*tmpGrdU(i,j)*_maskW(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 181 SHAP_FILT_UV_S2C 
     &        -0.125 _d 0*tmpGrdV(i,j)*_maskS(i,j,k,bi,bj)
./pkg/shap_filt/shap_filt_uv_s2c.F 60 SHAP_FILT_UV_S2C 
      noSlipFact = Shap_noSlip*2. _d 0
./pkg/shap_filt/shap_filt_uv_s4.F 60 SHAP_FILT_UV_S4 
      noSlipFact = Shap_noSlip*2. _d 0
./model/src/external_forcing.F 293 EXTERNAL_FORCING_T 
     &      .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN
./model/src/external_forcing.F 366 EXTERNAL_FORCING_T 
        swfracb(2)=0. _d 0
./model/src/external_forcing.F 477 EXTERNAL_FORCING_S 
     &      .OR. convertFW2Salt.EQ.-1. _d 0 ) THEN
./pkg/shelfice/shelfice_forcing.F 158 SHELFICE_FORCING_S 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 165 SHELFICE_FORCING_S 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 66 SHELFICE_FORCING_T 
          drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) )
./pkg/shelfice/shelfice_forcing.F 73 SHELFICE_FORCING_T 
          drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) )
./pkg/shelfice/shelfice_init_fixed.F 59 SHELFICE_INIT_FIXED 
           IF ( maskC(I,J,K,bi,bj) .NE. 0. _d 0 )
./pkg/shelfice/shelfice_init_varia.F 39 SHELFICE_INIT_VARIA 
          shelficeLoadAnomaly   (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 40 SHELFICE_INIT_VARIA 
          shelficeForcingT      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 41 SHELFICE_INIT_VARIA 
          shelficeForcingS      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 42 SHELFICE_INIT_VARIA 
          shelficeHeatFlux      (i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_init_varia.F 43 SHELFICE_INIT_VARIA 
          shelficeFreshWaterFlux(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_output.F 104 SHELFICE_OUTPUT 
          SHELFICE_timeAve(bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_output.F 186 SHELFICE_OUTPUT 
          SHELFICE_timeAve(bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_readparms.F 109 SHELFICE_READPARMS 
      IF ( SHELFICElatentHeat .NE. 0. _d 0 )
./pkg/shelfice/shelfice_readparms.F 110 SHELFICE_READPARMS 
     &     recip_SHELFICElatentHeat = 1. _d 0/SHELFICElatentHeat
./pkg/shelfice/shelfice_readparms.F 113 SHELFICE_READPARMS 
     &     5.05 _d -3 *SHELFICEheatTransCoeff
./pkg/shelfice/shelfice_readparms.F 69 SHELFICE_READPARMS 
      SHELFICElatentHeat       =  334.0 _d 3
./pkg/shelfice/shelfice_readparms.F 70 SHELFICE_READPARMS 
      SHELFICEHeatCapacity_Cp  = 2000.0 _d 0
./pkg/shelfice/shelfice_readparms.F 71 SHELFICE_READPARMS 
      recip_SHELFICElatentHeat =    0.0 _d 0
./pkg/shelfice/shelfice_readparms.F 72 SHELFICE_READPARMS 
      rhoShelfIce              =  917.0 _d 0
./pkg/shelfice/shelfice_readparms.F 73 SHELFICE_READPARMS 
      SHELFICEheatTransCoeff   =    1.0 _d -04
./pkg/shelfice/shelfice_readparms.F 75 SHELFICE_READPARMS 
      SHELFICEkappa            =   1.54 _d -06
./pkg/shelfice/shelfice_readparms.F 76 SHELFICE_READPARMS 
      SHELFICEthetaSurface     = - 20.0 _d 0
./pkg/shelfice/shelfice_thermodynamics.F 103 SHELFICE_THERMODYNAMICS 
      IF ( convertFW2SaltLoc .EQ. -1. ) convertFW2SaltLoc = 33.4 _d 0
./pkg/shelfice/shelfice_thermodynamics.F 110 SHELFICE_THERMODYNAMICS 
          shelfIceHeatFlux      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 111 SHELFICE_THERMODYNAMICS 
          shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 112 SHELFICE_THERMODYNAMICS 
          shelficeForcingT      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 113 SHELFICE_THERMODYNAMICS 
          shelficeForcingS      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 123 SHELFICE_THERMODYNAMICS 
          sLoc(I,J) = MAX(salt(I,J,K,bi,bj), 0. _d 0)
./pkg/shelfice/shelfice_thermodynamics.F 134 SHELFICE_THERMODYNAMICS 
            drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) )
./pkg/shelfice/shelfice_thermodynamics.F 137 SHELFICE_THERMODYNAMICS 
            recip_drLoc = 1. _d 0 /
./pkg/shelfice/shelfice_thermodynamics.F 143 SHELFICE_THERMODYNAMICS 
     &           + MAX(salt(I,J,Kp1,bi,bj), 0. _d 0) * drKp1 )
./pkg/shelfice/shelfice_thermodynamics.F 163 SHELFICE_THERMODYNAMICS 
           IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 186 SHELFICE_THERMODYNAMICS 
     &           * ( cFac*sLoc(I,J) + (1. _d 0-cFac)*convertFW2SaltLoc )
./pkg/shelfice/shelfice_thermodynamics.F 190 SHELFICE_THERMODYNAMICS 
            shelfIceHeatFlux      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 191 SHELFICE_THERMODYNAMICS 
            shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 192 SHELFICE_THERMODYNAMICS 
            shelficeForcingT      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 193 SHELFICE_THERMODYNAMICS 
            shelficeForcingS      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 214 SHELFICE_THERMODYNAMICS 
           IF ( K .NE. 0 .AND. pLoc(I,J) .GT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 226 SHELFICE_THERMODYNAMICS 
            recip_aqe = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 227 SHELFICE_THERMODYNAMICS 
            IF ( aqe .NE. 0. _d 0 ) recip_aqe = 0.5 _d 0/aqe
./pkg/shelfice/shelfice_thermodynamics.F 230 SHELFICE_THERMODYNAMICS 
            discrim = bqe*bqe - 4. _d 0*aqe*cqe
./pkg/shelfice/shelfice_thermodynamics.F 233 SHELFICE_THERMODYNAMICS 
            IF ( discrim .LT. 0. _d 0 ) THEN
./pkg/shelfice/shelfice_thermodynamics.F 263 SHELFICE_THERMODYNAMICS 
            IF ( saltFreeze .LT. 0. _d 0 )
./pkg/shelfice/shelfice_thermodynamics.F 288 SHELFICE_THERMODYNAMICS 
            shelfIceHeatFlux      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 289 SHELFICE_THERMODYNAMICS 
            shelfIceFreshWaterFlux(I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 290 SHELFICE_THERMODYNAMICS 
            shelficeForcingT      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 291 SHELFICE_THERMODYNAMICS 
            shelficeForcingS      (I,J,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 80 SHELFICE_THERMODYNAMICS 
      cFac = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 81 SHELFICE_THERMODYNAMICS 
      IF ( SHELFICEconserve ) cFac = 1. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 83 SHELFICE_THERMODYNAMICS 
      rFac = 1. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 84 SHELFICE_THERMODYNAMICS 
      IF ( SHELFICEconserve .AND. useRealFreshWaterFlux ) rFac = 0. _d 0
./pkg/shelfice/shelfice_thermodynamics.F 86 SHELFICE_THERMODYNAMICS 
      a0 = -0.0575   _d  0
./pkg/shelfice/shelfice_thermodynamics.F 87 SHELFICE_THERMODYNAMICS 
      a1 =  0.0      _d -0
./pkg/shelfice/shelfice_thermodynamics.F 88 SHELFICE_THERMODYNAMICS 
      a2 =  0.0      _d -0
./pkg/shelfice/shelfice_thermodynamics.F 89 SHELFICE_THERMODYNAMICS 
      c0 =  0.0901   _d  0
./pkg/shelfice/shelfice_thermodynamics.F 90 SHELFICE_THERMODYNAMICS 
      b  =  -7.61    _d -4
./pkg/shelfice/shelfice_thermodynamics.F 94 SHELFICE_THERMODYNAMICS 
       a0 = -0.0575   _d  0
./pkg/shelfice/shelfice_thermodynamics.F 95 SHELFICE_THERMODYNAMICS 
       a1 = 1.710523  _d -3
./pkg/shelfice/shelfice_thermodynamics.F 96 SHELFICE_THERMODYNAMICS 
       a2 = -2.154996 _d -4
./pkg/shelfice/shelfice_thermodynamics.F 97 SHELFICE_THERMODYNAMICS 
       b  = -7.53     _d -4
./pkg/shelfice/shelfice_thermodynamics.F 98 SHELFICE_THERMODYNAMICS 
       c0 = 0. _d 0
./model/src/external_forcing_surf.F 137 EXTERNAL_FORCING_SURF 
     &        *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./model/src/external_forcing_surf.F 142 EXTERNAL_FORCING_SURF 
     &        *( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./model/src/external_forcing_surf.F 187 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./model/src/external_forcing_surf.F 188 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_update_masks.F 58 SHELFICE_UPDATE_MASKS 
          R_shelfIce(i,j,bi,bj) = 0. _d 0
./pkg/shelfice/shelfice_update_masks.F 87 SHELFICE_UPDATE_MASKS 
         hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) )
./pkg/shelfice/shelfice_update_masks.F 93 SHELFICE_UPDATE_MASKS 
           hFacCtmp = hFacC(I,J,K,bi,bj) - max( hFacCtmp, 0. _d 0)
./pkg/shelfice/shelfice_update_masks.F 95 SHELFICE_UPDATE_MASKS 
           hFacCtmp = max( hFacCtmp, 0. _d 0)
./pkg/smooth/SMOOTH.h 16 NO PROCEDURE 
      PARAMETER ( smooth2DdelTime = 1. _d 0 )
./pkg/smooth/SMOOTH.h 17 NO PROCEDURE 
      PARAMETER ( smooth3DdelTime = 1. _d 0 )
./model/src/find_alpha.F 140 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 143 FIND_ALPHA 
               s1   = 0. _d 0
./model/src/find_alpha.F 144 FIND_ALPHA 
               s3o2 = 0. _d 0
./model/src/find_alpha.F 240 FIND_ALPHA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 243 FIND_ALPHA 
               s1  = 0. _d 0
./model/src/find_alpha.F 244 FIND_ALPHA 
               sp5 = 0. _d 0
./model/src/find_alpha.F 400 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 403 FIND_BETA 
               s1   = 0. _d 0
./model/src/find_alpha.F 404 FIND_BETA 
               s3o2 = 0. _d 0
./model/src/find_alpha.F 411 FIND_BETA 
               drhoP0dS = 0. _d 0
./model/src/find_alpha.F 427 FIND_BETA 
               dKdS = 0. _d 0
./model/src/find_alpha.F 486 FIND_BETA 
              IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_alpha.F 489 FIND_BETA 
               s1  = 0. _d 0
./model/src/find_alpha.F 490 FIND_BETA 
               sp5 = 0. _d 0
./pkg/smooth/smooth_diff2d.F 62 SMOOTH_DIFF2D 
           gt_in(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff2d.F 63 SMOOTH_DIFF2D 
           gtm1_in(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 124 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 61 SMOOTH_DIFF3D 
           gT_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_diff3d.F 62 SMOOTH_DIFF3D 
           gTm1_in(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 159 SMOOTH_FILTERVAR2D 
           smoothTmpMean(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 160 SMOOTH_FILTERVAR2D 
           smoothTmpVar(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar2d.F 179 SMOOTH_FILTERVAR2D 
           smoothTmpFld(i,j,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 197 SMOOTH_FILTERVAR3D 
           smoothTmpMean(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 198 SMOOTH_FILTERVAR3D 
           smoothTmpVar(i,j,k,bi,bj)   = 0. _d 0
./pkg/smooth/smooth_filtervar3d.F 219 SMOOTH_FILTERVAR3D 
           smoothTmpFld(i,j,k,bi,bj)   = 0. _d 0
./model/src/find_rho.F 173 FIND_RHO_2D 
     &              /(1. _d 0 -
./model/src/find_rho.F 271 FIND_RHOP0 
           IF ( s .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 274 FIND_RHOP0 
            s    = 0. _d 0
./model/src/find_rho.F 275 FIND_RHOP0 
            s3o2 = 0. _d 0
./model/src/find_rho.F 362 FIND_BULKMOD 
          IF ( s .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 365 FIND_BULKMOD 
            s    = 0. _d 0
./model/src/find_rho.F 366 FIND_BULKMOD 
            s3o2 = 0. _d 0
./model/src/find_rho.F 526 FIND_RHODEN 
      parameter ( epsln = 0. _d 0 )
./model/src/find_rho.F 534 FIND_RHODEN 
           IF ( s1 .GT. 0. _d 0 ) THEN
./model/src/find_rho.F 537 FIND_RHODEN 
            s1  = 0. _d 0
./model/src/find_rho.F 538 FIND_RHODEN 
            sp5 = 0. _d 0
./model/src/find_rho.F 599 FIND_RHO_SCALAR 
      PARAMETER ( epsln = 0. _d 0 )
./model/src/find_rho.F 603 FIND_RHO_SCALAR 
      rhoLoc  = 0. _d 0
./model/src/find_rho.F 604 FIND_RHO_SCALAR 
      rhoP0   = 0. _d 0
./model/src/find_rho.F 605 FIND_RHO_SCALAR 
      bulkMod = 0. _d 0
./model/src/find_rho.F 606 FIND_RHO_SCALAR 
      rfresh  = 0. _d 0
./model/src/find_rho.F 607 FIND_RHO_SCALAR 
      rsalt   = 0. _d 0
./model/src/find_rho.F 608 FIND_RHO_SCALAR 
      bMfresh = 0. _d 0
./model/src/find_rho.F 609 FIND_RHO_SCALAR 
      bMsalt  = 0. _d 0
./model/src/find_rho.F 610 FIND_RHO_SCALAR 
      bMpres  = 0. _d 0
./model/src/find_rho.F 611 FIND_RHO_SCALAR 
      rhoNum  = 0. _d 0
./model/src/find_rho.F 612 FIND_RHO_SCALAR 
      rhoDen  = 0. _d 0
./model/src/find_rho.F 613 FIND_RHO_SCALAR 
      den     = 0. _d 0
./model/src/find_rho.F 621 FIND_RHO_SCALAR 
      IF ( s1 .LT. 0. _d 0 ) THEN
./model/src/find_rho.F 627 FIND_RHO_SCALAR 
         s1 = 0. _d 0
./model/src/find_rho.F 650 FIND_RHO_SCALAR 
         rhoLoc = 0. _d 0
./model/src/find_rho.F 729 FIND_RHO_SCALAR 
         rhoLoc = rhoP0/(1. _d 0 - p1/bulkMod)
./model/src/find_rho.F 74 FIND_RHO_2D 
        rhoLoc(i,j)  = 0. _d 0
./model/src/find_rho.F 75 FIND_RHO_2D 
        rhoP0(i,j)   = 0. _d 0
./model/src/find_rho.F 76 FIND_RHO_2D 
        bulkMod(i,j) = 0. _d 0
./model/src/find_rho.F 821 LOOK_FOR_NEG_SALINITY 
        IF ( sFld(i,j) .LT. 0. _d 0 ) THEN
./model/src/find_rho.F 823 LOOK_FOR_NEG_SALINITY 
         sFld(i,j) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 104 SMOOTH_IMPLDIFF 
         c(i,j,Nr) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 112 SMOOTH_IMPLDIFF 
          b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./pkg/smooth/smooth_impldiff.F 121 SMOOTH_IMPLDIFF 
          bet(i,j,k) = 1. _d 0
./pkg/smooth/smooth_impldiff.F 122 SMOOTH_IMPLDIFF 
          gam(i,j,k) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 134 SMOOTH_IMPLDIFF 
         IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./pkg/smooth/smooth_impldiff.F 150 SMOOTH_IMPLDIFF 
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./pkg/smooth/smooth_impldiff.F 67 SMOOTH_IMPLDIFF 
         gYNm1(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_impldiff.F 75 SMOOTH_IMPLDIFF 
         a(i,j,1) = 0. _d 0
./pkg/smooth/smooth_readparms.F 62 SMOOTH_READPARMS 
      smooth2D_Lx0(smoothOpNb)=0. _d 0
./pkg/smooth/smooth_readparms.F 63 SMOOTH_READPARMS 
      smooth2D_Ly0(smoothOpNb)=0. _d 0
./pkg/smooth/smooth_readparms.F 69 SMOOTH_READPARMS 
      smooth3D_Lx0(smoothOpNb)=0. _d 0
./pkg/smooth/smooth_readparms.F 70 SMOOTH_READPARMS 
      smooth3D_Ly0(smoothOpNb)=0. _d 0
./pkg/smooth/smooth_readparms.F 71 SMOOTH_READPARMS 
      smooth3D_Lz0(smoothOpNb)=0. _d 0
./pkg/smooth/smooth_rhs.F 80 SMOOTH_RHS 
        fZon(i,j,k,bi,bj)      = 0. _d 0
./pkg/smooth/smooth_rhs.F 81 SMOOTH_RHS 
        fMer(i,j,k,bi,bj)      = 0. _d 0
./pkg/smooth/smooth_rhs.F 82 SMOOTH_RHS 
        fVerT(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F 83 SMOOTH_RHS 
        gt_in(i,j,k,bi,bj) = 0. _d 0
./pkg/smooth/smooth_rhs.F 99 SMOOTH_RHS 
        df(i,j,bi,bj)        = 0. _d 0
./model/src/freesurf_rescale_g.F 57 FREESURF_RESCALE_G 
     &        /( 1. _d 0 + dEtaHdt(i,j,bi,bj)*deltaTfreesurf
./pkg/thsice/thsice_advdiff.F 138 THSICE_ADVDIFF 
      areaEpsil = 1. _d -10 * meanCellArea
./pkg/thsice/thsice_advdiff.F 139 THSICE_ADVDIFF 
      vol_Epsil = 1. _d -15 * meanCellArea
./pkg/thsice/thsice_advdiff.F 141 THSICE_ADVDIFF 
      r_minArea = 0. _d 0
./pkg/thsice/thsice_advdiff.F 142 THSICE_ADVDIFF 
      IF ( iceMaskMin.GT.0. _d 0 ) r_minArea = 1. _d 0 / iceMaskMin
./pkg/thsice/thsice_advdiff.F 156 THSICE_ADVDIFF 
         maskOce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 158 THSICE_ADVDIFF 
         iceVol(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 159 THSICE_ADVDIFF 
         uTrans(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 160 THSICE_ADVDIFF 
         vTrans(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 161 THSICE_ADVDIFF 
         uTrIce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 162 THSICE_ADVDIFF 
         vTrIce(i,j) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 163 THSICE_ADVDIFF 
         oceFWfx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 164 THSICE_ADVDIFF 
         oceSflx(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 165 THSICE_ADVDIFF 
         oceQnet(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 421 THSICE_ADVDIFF 
          IF ( iceFrc(i,j) .GT. 1. _d 0 ) THEN
./pkg/thsice/thsice_advdiff.F 423 THSICE_ADVDIFF 
            iceMask(i,j,bi,bj)    = 1. _d 0
./pkg/thsice/thsice_advdiff.F 464 THSICE_ADVDIFF 
     &                                    +Qice2(i,j,bi,bj) )*0.5 _d 0
./pkg/thsice/thsice_advdiff.F 470 THSICE_ADVDIFF 
            iceMask   (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 471 THSICE_ADVDIFF 
            iceHeight (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 472 THSICE_ADVDIFF 
            snowHeight(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 473 THSICE_ADVDIFF 
            Qice1     (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 474 THSICE_ADVDIFF 
            Qice2     (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 475 THSICE_ADVDIFF 
            snowAge   (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_advdiff.F 513 THSICE_ADVDIFF 
        tmpFac = 1. _d 0
./pkg/thsice/thsice_advection.F 316 THSICE_ADVECTION 
     &          MAX( uTrans(i,j), 0. _d 0 )*recip_rA(i-1,j,bi,bj)
./pkg/thsice/thsice_advection.F 317 THSICE_ADVECTION 
     &         +MAX(-uTrans(i,j), 0. _d 0 )*recip_rA( i ,j,bi,bj)
./pkg/thsice/thsice_advection.F 325 THSICE_ADVECTION 
     &        MAX( uTrans(i,j), 0. _d 0 )/MAX( iceVol(i-1,j), iceEps )
./pkg/thsice/thsice_advection.F 326 THSICE_ADVECTION 
     &       +MAX(-uTrans(i,j), 0. _d 0 )/MAX( iceVol( i ,j), iceEps )
./pkg/thsice/thsice_advection.F 531 THSICE_ADVECTION 
     &          MAX( vTrans(i,j), 0. _d 0 )*recip_rA(i,j-1,bi,bj)
./pkg/thsice/thsice_advection.F 532 THSICE_ADVECTION 
     &         +MAX(-vTrans(i,j), 0. _d 0 )*recip_rA(i, j ,bi,bj)
./pkg/thsice/thsice_advection.F 540 THSICE_ADVECTION 
     &        MAX( vTrans(i,j), 0. _d 0 )/MAX( iceVol(i,j-1), iceEps )
./pkg/thsice/thsice_advection.F 541 THSICE_ADVECTION 
     &       +MAX(-vTrans(i,j), 0. _d 0 )/MAX( iceVol(i, j ), iceEps )
./pkg/thsice/thsice_albedo.F 105 THSICE_ALBEDO 
        IF ( iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_albedo.F 130 THSICE_ALBEDO 
         IF ( tempSnowAlb.LT.0. _d 0 ) THEN
./pkg/thsice/thsice_albedo.F 133 THSICE_ALBEDO 
     &         *MAX( 0. _d 0, MIN(1. _d 0 - Tsf/tempSnowAlb, 1. _d 0) )
./pkg/thsice/thsice_albedo.F 139 THSICE_ALBEDO 
     &        +(albNewSnow-albOldSnow)*EXP(-0.2 _d 0*age/86400. _d 0)
./pkg/thsice/thsice_albedo.F 146 THSICE_ALBEDO 
     &         MIN( recFac_albNIR*ATAN(albNIR_fHice*hi), 1. _d 0 )
./pkg/thsice/thsice_albedo.F 147 THSICE_ALBEDO 
     &         + 0.075 _d 0 * MIN( -Tsf - 1. _d 0, 0. _d 0 )
./pkg/thsice/thsice_albedo.F 149 THSICE_ALBEDO 
          sAlbNIR(i,j) = albNIR_ice * ( 1. _d 0 - hs/(hs + 0.02 _d 0) )
./pkg/thsice/thsice_albedo.F 151 THSICE_ALBEDO 
     &             + 0.15 _d 0 *MIN( -Tsf - 1. _d 0, 0. _d 0) )
./pkg/thsice/thsice_albedo.F 152 THSICE_ALBEDO 
     &         * hs/(hs + 0.02 _d 0)
./pkg/thsice/thsice_albedo.F 157 THSICE_ALBEDO 
         IF (albedo.GT.1. _d 0 .OR. albedo.LT. .2 _d 0) THEN
./pkg/thsice/thsice_albedo.F 166 THSICE_ALBEDO 
         sAlb(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F 167 THSICE_ALBEDO 
         sAlbNIR(i,j) = 0. _d 0
./pkg/thsice/thsice_albedo.F 95 THSICE_ALBEDO 
        albNIR_ocean = 0.06 _d 0
./pkg/thsice/thsice_albedo.F 96 THSICE_ALBEDO 
        albNIR_thick = 0.33 _d 0
./pkg/thsice/thsice_albedo.F 97 THSICE_ALBEDO 
        albNIR_dsnow = 0.68 _d 0
./pkg/thsice/thsice_albedo.F 98 THSICE_ALBEDO 
        albNIR_fHice = 4. _d 0
./pkg/thsice/thsice_albedo.F 99 THSICE_ALBEDO 
        recFac_albNIR = 1. _d 0 / ATAN(albNIR_fHice*0.5 _d 0)
./pkg/thsice/thsice_ave.F 54 THSICE_AVE 
      IF ( thSIce_taveFreq .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 1053 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1059 THSICE_CALC_THICKN 
         IF (icFrac(i,j).GT.0. _d 0.AND.extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1060 THSICE_CALC_THICKN 
          rq =  rhoi * 0.5 _d 0*(qicen(i,j,1)+qicen(i,j,2))
./pkg/thsice/thsice_calc_thickn.F 1066 THSICE_CALC_THICKN 
           icFrac(i,j)=(1. _d 0-extend/rqh)*icFrac(i,j)
./pkg/thsice/thsice_calc_thickn.F 1072 THSICE_CALC_THICKN 
           icFrac(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1073 THSICE_CALC_THICKN 
           hIce(i,j)  =0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1074 THSICE_CALC_THICKN 
           hSnow(i,j) =0. _d 0
./pkg/thsice/thsice_calc_thickn.F 1079 THSICE_CALC_THICKN 
         ELSEIF (extend.GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1089 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 1118 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 238 THSICE_CALC_THICKN 
      rec_nlyr = 1. _d 0 / rec_nlyr
./pkg/thsice/thsice_calc_thickn.F 242 THSICE_CALC_THICKN 
      lowIcFrac1 = iceMaskMin*1.01 _d 0
./pkg/thsice/thsice_calc_thickn.F 243 THSICE_CALC_THICKN 
      lowIcFrac2 = iceMaskMin*1.10 _d 0
./pkg/thsice/thsice_calc_thickn.F 248 THSICE_CALC_THICKN 
        rec_pLaw = 1. _d 0 / rec_pLaw
./pkg/thsice/thsice_calc_thickn.F 252 THSICE_CALC_THICKN 
        c2Mlt = (1. _d 0 - fracEnMelt)**rec_pLaw
./pkg/thsice/thsice_calc_thickn.F 258 THSICE_CALC_THICKN 
        c2Frz = (1. _d 0 -fracEnFreez)**rec_pLaw
./pkg/thsice/thsice_calc_thickn.F 264 THSICE_CALC_THICKN 
        aMlt = -1. _d 0 /(hThickIce-hThinIce)
./pkg/thsice/thsice_calc_thickn.F 266 THSICE_CALC_THICKN 
        aFrz = -1. _d 0 /(hThickIce-hThinIce)
./pkg/thsice/thsice_calc_thickn.F 275 THSICE_CALC_THICKN 
        evapLoc(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 276 THSICE_CALC_THICKN 
        Fbot   (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 277 THSICE_CALC_THICKN 
        etop   (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 278 THSICE_CALC_THICKN 
        ebot   (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 279 THSICE_CALC_THICKN 
        etope  (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 280 THSICE_CALC_THICKN 
        ebote  (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 281 THSICE_CALC_THICKN 
        esurp  (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 282 THSICE_CALC_THICKN 
        mwater0(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 283 THSICE_CALC_THICKN 
        msalt0 (i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 285 THSICE_CALC_THICKN 
        enFrcMlt(i,j)= 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 286 THSICE_CALC_THICKN 
        enFrcFrz(i,j)= 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 293 THSICE_CALC_THICKN 
         hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 318 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 323 THSICE_CALC_THICKN 
         esurp(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 354 THSICE_CALC_THICKN 
         enFrcMlt(i,j) = MAX( 0. _d 0, MIN( xxMlt, 1. _d 0 ) )
./pkg/thsice/thsice_calc_thickn.F 355 THSICE_CALC_THICKN 
         enFrcFrz(i,j) = MAX( 0. _d 0, MIN( xxFrz, 1. _d 0 ) )
./pkg/thsice/thsice_calc_thickn.F 358 THSICE_CALC_THICKN 
         IF (fzMlOc(i,j).GE. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 369 THSICE_CALC_THICKN 
            Fbot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 372 THSICE_CALC_THICKN 
            Fbot(i,j) = (1. _d 0 - fracEnFreez)*fzMlOc(i,j)
./pkg/thsice/thsice_calc_thickn.F 381 THSICE_CALC_THICKN 
          ustar = 5. _d -2
./pkg/thsice/thsice_calc_thickn.F 384 THSICE_CALC_THICKN 
     &     ustar = SQRT(0.00536 _d 0*v2oc(i,j))
./pkg/thsice/thsice_calc_thickn.F 385 THSICE_CALC_THICKN 
          ustar=max(5. _d -3,ustar)
./pkg/thsice/thsice_calc_thickn.F 390 THSICE_CALC_THICKN 
          Fbot(i,j) = min(Fbot(i,j),0. _d 0)
./pkg/thsice/thsice_calc_thickn.F 410 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 415 THSICE_CALC_THICKN 
         IF ( fracEnMelt.EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 416 THSICE_CALC_THICKN 
          frace = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 419 THSICE_CALC_THICKN 
          frace = MIN( enFrcMlt(i,j), MAX( 0. _d 0, frace ) )
./pkg/thsice/thsice_calc_thickn.F 422 THSICE_CALC_THICKN 
         IF ( hIce(i,j).GT.hThickIce .OR. fracEnMelt.EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 424 THSICE_CALC_THICKN 
          frace = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 427 THSICE_CALC_THICKN 
          frace = 1. _d 0
./pkg/thsice/thsice_calc_thickn.F 435 THSICE_CALC_THICKN 
          frace = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 442 THSICE_CALC_THICKN 
         IF ( sHeat(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 443 THSICE_CALC_THICKN 
          etop(i,j) = (1. _d 0-frace)*sHeat(i,j) * dt
./pkg/thsice/thsice_calc_thickn.F 446 THSICE_CALC_THICKN 
          etop(i,j) =  0. _d 0
./pkg/thsice/thsice_calc_thickn.F 447 THSICE_CALC_THICKN 
          etope(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 463 THSICE_CALC_THICKN 
         IF (ebot(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 467 THSICE_CALC_THICKN 
          ebote(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 495 THSICE_CALC_THICKN 
        IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 496 THSICE_CALC_THICKN 
     &         etop(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 497 THSICE_CALC_THICKN 
     &        hSnow(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 507 THSICE_CALC_THICKN 
          etop(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 510 THSICE_CALC_THICKN 
          hSnow(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 521 THSICE_CALC_THICKN 
         IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 535 THSICE_CALC_THICKN 
          IF (etop(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 540 THSICE_CALC_THICKN 
            etop(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 543 THSICE_CALC_THICKN 
            hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 546 THSICE_CALC_THICKN 
           etop(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 565 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0 .AND. ebot(i,j) .LT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 570 THSICE_CALC_THICKN 
         ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 611 THSICE_CALC_THICKN 
         IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 612 THSICE_CALC_THICKN 
     &        ebot(i,j)   .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 613 THSICE_CALC_THICKN 
     &        hnew(i,j,k) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 618 THSICE_CALC_THICKN 
           ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 621 THSICE_CALC_THICKN 
           hnew(i,j,k) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 634 THSICE_CALC_THICKN 
        IF (iceMask(i,j) .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 635 THSICE_CALC_THICKN 
     &       ebot(i,j)   .GT. 0. _d 0 .AND.
./pkg/thsice/thsice_calc_thickn.F 636 THSICE_CALC_THICKN 
     &       hSnow(i,j)  .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 641 THSICE_CALC_THICKN 
          ebot(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 644 THSICE_CALC_THICKN 
          hSnow(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 659 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 670 THSICE_CALC_THICKN 
     &        .AND. (hIce(i,j)+hSnow(i,j)).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 674 THSICE_CALC_THICKN 
          hIce(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 675 THSICE_CALC_THICKN 
          hSnow(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 676 THSICE_CALC_THICKN 
          tSrf(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 677 THSICE_CALC_THICKN 
          icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 678 THSICE_CALC_THICKN 
          qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 679 THSICE_CALC_THICKN 
          qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 694 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 701 THSICE_CALC_THICKN 
         IF ( hIce(i,j) .LE. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 715 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 717 THSICE_CALC_THICKN 
         IF ( hIce(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 726 THSICE_CALC_THICKN 
          IF (hSnow(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 729 THSICE_CALC_THICKN 
            hSnow(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 732 THSICE_CALC_THICKN 
            evapLoc(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 752 THSICE_CALC_THICKN 
         IF (iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 760 THSICE_CALC_THICKN 
           IF (hIce(i,j).GT.0. _d 0.AND.evapLoc(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 792 THSICE_CALC_THICKN 
              hnew(i,j,k)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 800 THSICE_CALC_THICKN 
              evapLoc(i,j)=0. _d 0
./pkg/thsice/thsice_calc_thickn.F 829 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 830 THSICE_CALC_THICKN 
         IF (hIce(i,j) .GT. 0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 834 THSICE_CALC_THICKN 
          IF ( hIce(i,j).GT.0. _d 0 .AND. hIce(i,j).LT.hIceMin ) THEN
./pkg/thsice/thsice_calc_thickn.F 840 THSICE_CALC_THICKN 
           hIce(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 841 THSICE_CALC_THICKN 
           hSnow(i,j)  = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 842 THSICE_CALC_THICKN 
           tSrf(i,j)   = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 843 THSICE_CALC_THICKN 
           icFrac(i,j) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 844 THSICE_CALC_THICKN 
           qicen(i,j,1) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 845 THSICE_CALC_THICKN 
           qicen(i,j,2) = 0. _d 0
./pkg/thsice/thsice_calc_thickn.F 872 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 874 THSICE_CALC_THICKN 
         IF ( hIce(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_calc_thickn.F 922 THSICE_CALC_THICKN 
           hnew(i,j,1)=hnew(i,j,1)-chi/2. _d 0
./pkg/thsice/thsice_calc_thickn.F 923 THSICE_CALC_THICKN 
           hnew(i,j,2)=hnew(i,j,2)-chi/2. _d 0
./pkg/thsice/thsice_calc_thickn.F 955 THSICE_CALC_THICKN 
           q2tmp = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 968 THSICE_CALC_THICKN 
           qicen(i,j,1) = f1*qicen(i,j,1) + (1. _d 0-f1)*qicen(i,j,2)
./pkg/thsice/thsice_calc_thickn.F 991 THSICE_CALC_THICKN 
        IF (iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_calc_thickn.F 994 THSICE_CALC_THICKN 
         IF (hIce(i,j).LE.0. _d 0) icFrac(i,j)=0. _d 0
./pkg/thsice/thsice_diagnostics_state.F 55 THSICE_DIAGNOSTICS_STATE 
        tmpFac = 1. _d 0
./pkg/thsice/thsice_diffusion.F 72 THSICE_DIFFUSION 
      hIceEpsil = 1. _d -10
./model/src/freeze.F 41 FREEZE 
      Tfreezing=-1.9 _d 0
./pkg/thsice/thsice_extend.F 163 THSICE_EXTEND 
        IF (fzMlOc(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_extend.F 172 THSICE_EXTEND 
        iceFormed = 0. _d 0
./pkg/thsice/thsice_extend.F 176 THSICE_EXTEND 
        IF ( iceFrac.LE.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F 178 THSICE_EXTEND 
     &             + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf)
./pkg/thsice/thsice_extend.F 181 THSICE_EXTEND 
        qicAv = rhoi*(qicen(1)+qicen(2))*0.5 _d 0
./pkg/thsice/thsice_extend.F 184 THSICE_EXTEND 
        IF ( icFrac(i,j).EQ.0. _d 0 ) THEN
./pkg/thsice/thsice_extend.F 234 THSICE_EXTEND 
          IF ( iceFrac.GT.0. _d 0 .AND. icFrac(i,j).EQ.0. _d 0) THEN
./pkg/thsice/thsice_get_bulkf.F 110 THSICE_GET_BULKF 
          evap(i,j)  = EVPloc(1) * 1. _d -3
./pkg/thsice/thsice_get_bulkf.F 111 THSICE_GET_BULKF 
          dEvdT(i,j) = dEvp(1)   * 1. _d -3
./pkg/thsice/thsice_get_bulkf.F 89 THSICE_GET_BULKF 
         IF ( hSnow(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_exf.F 201 THSICE_GET_EXF 
        tstar(i,j)  = 0. _d 0
./pkg/thsice/thsice_get_exf.F 202 THSICE_GET_EXF 
        qstar(i,j)  = 0. _d 0
./pkg/thsice/thsice_get_exf.F 203 THSICE_GET_EXF 
        ustar(i,j)  = 0. _d 0
./pkg/thsice/thsice_get_exf.F 204 THSICE_GET_EXF 
        rdn(i,j)    = 0. _d 0
./pkg/thsice/thsice_get_exf.F 205 THSICE_GET_EXF 
        rd(i,j)     = 0. _d 0
./pkg/thsice/thsice_get_exf.F 206 THSICE_GET_EXF 
        rh(i,j)     = 0. _d 0
./pkg/thsice/thsice_get_exf.F 207 THSICE_GET_EXF 
        re(i,j)     = 0. _d 0
./pkg/thsice/thsice_get_exf.F 208 THSICE_GET_EXF 
        delq(i,j)   = 0. _d 0
./pkg/thsice/thsice_get_exf.F 209 THSICE_GET_EXF 
        deltap(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 210 THSICE_GET_EXF 
        ssq(i,j)    = 0. _d 0
./pkg/thsice/thsice_get_exf.F 224 THSICE_GET_EXF 
        IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 225 THSICE_GET_EXF 
         IF ( hSnow(i,j).GT.3. _d -1 ) THEN
./pkg/thsice/thsice_get_exf.F 251 THSICE_GET_EXF 
         dflwupdT    = emiss*stefanBoltzmann*Ts2*Tsf * 4. _d 0
./pkg/thsice/thsice_get_exf.F 273 THSICE_GET_EXF 
         IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 289 THSICE_GET_EXF 
           rdn(i,j)   = 0. _d 0
./pkg/thsice/thsice_get_exf.F 305 THSICE_GET_EXF 
          IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 329 THSICE_GET_EXF 
           huol   = MIN( MAX(-10. _d 0,huol), 10. _d 0 )
./pkg/thsice/thsice_get_exf.F 341 THSICE_GET_EXF 
           xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 344 THSICE_GET_EXF 
           xsq    = MAX(SQRT(ABS(exf_one - huol*16. _d 0)),exf_one)
./pkg/thsice/thsice_get_exf.F 350 THSICE_GET_EXF 
     &                    *(exf_one+xsq)*0.125 _d 0 )
./pkg/thsice/thsice_get_exf.F 354 THSICE_GET_EXF 
           xsq    = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/thsice/thsice_get_exf.F 357 THSICE_GET_EXF 
           xsq    = MAX(SQRT(ABS(exf_one - htol*16. _d 0)),exf_one)
./pkg/thsice/thsice_get_exf.F 402 THSICE_GET_EXF 
         IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 429 THSICE_GET_EXF 
         IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 462 THSICE_GET_EXF 
        IF ( iceFlag(i,j) .AND. atemp(i,j,bi,bj).LE.0. _d 0 ) THEN
./pkg/thsice/thsice_get_exf.F 464 THSICE_GET_EXF 
         flxExcSw(i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 465 THSICE_GET_EXF 
         dFlxdT  (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 466 THSICE_GET_EXF 
         evapLoc (i,j) = 0. _d 0
./pkg/thsice/thsice_get_exf.F 467 THSICE_GET_EXF 
         dEvdT   (i,j) = 0. _d 0
./pkg/thsice/thsice_get_precip.F 69 THSICE_GET_PRECIP 
           IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_impl_temp.F 84 THSICE_IMPL_TEMP 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_ini_vars.F 101 THSICE_INI_VARS 
             IF ( aim_landFr(i,j,bi,bj).EQ.1. _d 0 )
./pkg/thsice/thsice_ini_vars.F 144 THSICE_INI_VARS 
         Tf = -1.70 _d 0
./pkg/thsice/thsice_ini_vars.F 149 THSICE_INI_VARS 
             IF (iceMask(i,j,bi,bj) .NE. 0. _d 0) THEN
./pkg/thsice/thsice_ini_vars.F 151 THSICE_INI_VARS 
     &             + cpIce *(Tmlt1-Tf) + Lfresh*(1. _d 0-Tmlt1/Tf)
./pkg/thsice/thsice_ini_vars.F 58 THSICE_INI_VARS 
            iceMask(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 59 THSICE_INI_VARS 
            iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_ini_vars.F 60 THSICE_INI_VARS 
            snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_ini_vars.F 61 THSICE_INI_VARS 
            Tsrf(i,j,bi,bj)     = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 62 THSICE_INI_VARS 
            Tice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 63 THSICE_INI_VARS 
            Tice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 64 THSICE_INI_VARS 
            Qice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 65 THSICE_INI_VARS 
            Qice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 66 THSICE_INI_VARS 
            snowAge(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 72 THSICE_INI_VARS 
            sHeating(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 73 THSICE_INI_VARS 
            flxCndBt(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 74 THSICE_INI_VARS 
            snowPrc(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 75 THSICE_INI_VARS 
            siceAlb(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 76 THSICE_INI_VARS 
            icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 77 THSICE_INI_VARS 
            icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 78 THSICE_INI_VARS 
            icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 80 THSICE_INI_VARS 
            oceFWfx(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 81 THSICE_INI_VARS 
            oceSflx(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 82 THSICE_INI_VARS 
            oceQnet(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_ini_vars.F 90 THSICE_INI_VARS 
             tOceMxL(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 163 THSICE_MAIN 
     &              )*0.5 _d 0
./pkg/thsice/thsice_main.F 165 THSICE_MAIN 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 166 THSICE_MAIN 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 167 THSICE_MAIN 
          icFlxSW (i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 168 THSICE_MAIN 
          snowPrc(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 169 THSICE_MAIN 
          siceAlb(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_main.F 258 THSICE_MAIN 
      ELSEIF ( useEXF .AND. stressReduction.GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_main.F 274 THSICE_MAIN 
        IF ( stressReduction.GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_main.F 278 THSICE_MAIN 
     &             *(iceMask(i-1,j,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 279 THSICE_MAIN 
            fu(i,j,bi,bj) = (1. _d 0 - tauFac)*fu(i,j,bi,bj)
./pkg/thsice/thsice_main.F 285 THSICE_MAIN 
     &             *(iceMask(i,j-1,bi,bj)+iceMask(i,j,bi,bj))*0.5 _d 0
./pkg/thsice/thsice_main.F 286 THSICE_MAIN 
            fv(i,j,bi,bj) = (1. _d 0 - tauFac)*fv(i,j,bi,bj)
./pkg/thsice/thsice_main.F 70 THSICE_MAIN 
      ELSEIF ( stressReduction.GT. 0. _d 0 ) THEN
./model/src/freeze_surface.F 51 FREEZE_SURFACE 
      Tfreezing = -1.9 _d 0
./model/src/freeze_surface.F 64 FREEZE_SURFACE 
             surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_map_exf.F 95 THSICE_MAP_EXF 
         IF ( iceMsk(i,j,bi,bj).GT.0. _d 0
./pkg/thsice/thsice_output.F 378 THSICE_OUTPUT 
      IF ( thSIce_monFreq.GT. 0. _d 0 )
./pkg/thsice/thsice_readparms.F 100 THSICE_READPARMS 
      tempSnowAlb= -10. _d 0
./pkg/thsice/thsice_readparms.F 101 THSICE_READPARMS 
      albOldSnow = 0.55 _d 0
./pkg/thsice/thsice_readparms.F 102 THSICE_READPARMS 
      albIceMax  = 0.65 _d 0
./pkg/thsice/thsice_readparms.F 103 THSICE_READPARMS 
      albIceMin  = 0.20 _d 0
./pkg/thsice/thsice_readparms.F 104 THSICE_READPARMS 
      hAlbIce    = 0.50 _d 0
./pkg/thsice/thsice_readparms.F 105 THSICE_READPARMS 
      hAlbSnow   = 0.30 _d 0
./pkg/thsice/thsice_readparms.F 106 THSICE_READPARMS 
      hNewSnowAge= 2. _d -3
./pkg/thsice/thsice_readparms.F 107 THSICE_READPARMS 
      snowAgTime = 50. _d 0 * 86400. _d 0
./pkg/thsice/thsice_readparms.F 108 THSICE_READPARMS 
      i0swFrac = 0.3 _d 0
./pkg/thsice/thsice_readparms.F 109 THSICE_READPARMS 
      ksolar   = 1.5 _d 0
./pkg/thsice/thsice_readparms.F 110 THSICE_READPARMS 
      dhSnowLin= 0. _d 0
./pkg/thsice/thsice_readparms.F 111 THSICE_READPARMS 
      saltIce  = 4. _d 0
./pkg/thsice/thsice_readparms.F 112 THSICE_READPARMS 
      S_winton = 1. _d 0
./pkg/thsice/thsice_readparms.F 113 THSICE_READPARMS 
      mu_Tf    = 0.054 _d 0
./pkg/thsice/thsice_readparms.F 115 THSICE_READPARMS 
      Terrmax  = 5.0 _d -1
./pkg/thsice/thsice_readparms.F 117 THSICE_READPARMS 
      hIceMin    = 1. _d -2
./pkg/thsice/thsice_readparms.F 118 THSICE_READPARMS 
      hiMax      = 10. _d 0
./pkg/thsice/thsice_readparms.F 119 THSICE_READPARMS 
      hsMax      = 10. _d 0
./pkg/thsice/thsice_readparms.F 120 THSICE_READPARMS 
      iceMaskMax =  1. _d 0
./pkg/thsice/thsice_readparms.F 121 THSICE_READPARMS 
      iceMaskMin = 0.1 _d 0
./pkg/thsice/thsice_readparms.F 122 THSICE_READPARMS 
      fracEnMelt = 0.4 _d 0
./pkg/thsice/thsice_readparms.F 123 THSICE_READPARMS 
      fracEnFreez=  0. _d 0
./pkg/thsice/thsice_readparms.F 124 THSICE_READPARMS 
      hThinIce   = 0.2 _d 0
./pkg/thsice/thsice_readparms.F 125 THSICE_READPARMS 
      hThickIce  = 2.5 _d 0
./pkg/thsice/thsice_readparms.F 135 THSICE_READPARMS 
      tauRelax_MxL    = 0. _d 0
./pkg/thsice/thsice_readparms.F 137 THSICE_READPARMS 
      hMxL_default    = 50. _d 0
./pkg/thsice/thsice_readparms.F 138 THSICE_READPARMS 
      sMxL_default    = 35. _d 0
./pkg/thsice/thsice_readparms.F 139 THSICE_READPARMS 
      vMxL_default    = 5. _d -2
./pkg/thsice/thsice_readparms.F 140 THSICE_READPARMS 
      thSIce_diffK    = 0. _d 0
./pkg/thsice/thsice_readparms.F 142 THSICE_READPARMS 
      stressReduction = 1. _d 0
./pkg/thsice/thsice_readparms.F 143 THSICE_READPARMS 
      IF ( useSEAICE ) stressReduction = 0. _d 0
./pkg/thsice/thsice_readparms.F 237 THSICE_READPARMS 
      IF ( useSEAICE .AND. stressReduction.NE.0. _d 0 ) THEN
./pkg/thsice/thsice_readparms.F 249 THSICE_READPARMS 
        stressReduction = 0. _d 0
./pkg/thsice/thsice_readparms.F 87 THSICE_READPARMS 
      rhos     = 330. _d 0
./pkg/thsice/thsice_readparms.F 88 THSICE_READPARMS 
      rhoi     = 900. _d 0
./pkg/thsice/thsice_readparms.F 91 THSICE_READPARMS 
      cpIce    = 2106. _d 0
./pkg/thsice/thsice_readparms.F 93 THSICE_READPARMS 
      kIce     = 2.03 _d 0
./pkg/thsice/thsice_readparms.F 94 THSICE_READPARMS 
      kSnow    = 0.30 _d 0
./pkg/thsice/thsice_readparms.F 95 THSICE_READPARMS 
      bMeltCoef=0.006 _d 0
./pkg/thsice/thsice_readparms.F 96 THSICE_READPARMS 
      Lfresh   = 3.34 _d 5
./pkg/thsice/thsice_readparms.F 98 THSICE_READPARMS 
      albColdSnow= 0.85 _d 0
./pkg/thsice/thsice_readparms.F 99 THSICE_READPARMS 
      albWarmSnow= 0.70 _d 0
./pkg/thsice/thsice_reshape_layers.F 58 THSICE_RESHAPE_LAYERS 
         q2tmp = f1*qicen(1) + (1. _d 0-f1)*qicen(2)
./pkg/thsice/thsice_reshape_layers.F 71 THSICE_RESHAPE_LAYERS 
         qicen(1) = f1*qicen(1) + (1. _d 0-f1)*qicen(2)
./pkg/thsice/thsice_slab_ocean.F 103 THSICE_SLAB_OCEAN 
       IF ( tauRelax_MxL .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 106 THSICE_SLAB_OCEAN 
        dtFacR  = 1. _d 0 /(1. _d 0 + dtFac)
./pkg/thsice/thsice_slab_ocean.F 107 THSICE_SLAB_OCEAN 
        oceTfreez = - 1.9 _d 0
./pkg/thsice/thsice_slab_ocean.F 110 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 124 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 138 THSICE_SLAB_OCEAN 
         IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 78 THSICE_SLAB_OCEAN 
         IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 90 THSICE_SLAB_OCEAN 
       IF ( tauRelax_MxL_salt .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_slab_ocean.F 93 THSICE_SLAB_OCEAN 
        dtFacR  = 1. _d 0 /(1. _d 0 + dtFac)
./pkg/thsice/thsice_slab_ocean.F 96 THSICE_SLAB_OCEAN 
          IF ( hOceMxL(i,j,bi,bj).NE.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 199 THSICE_SOLVE4TEMP 
        tIc1(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 200 THSICE_SOLVE4TEMP 
        tIc2(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 208 THSICE_SOLVE4TEMP 
      IF ( dhSnowLin.GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 209 THSICE_SOLVE4TEMP 
        recip_dhSnowLin = 1. _d 0 / dhSnowLin
./pkg/thsice/thsice_solve4temp.F 211 THSICE_SOLVE4TEMP 
        recip_dhSnowLin = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 235 THSICE_SOLVE4TEMP 
        IF ( iceMask(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 255 THSICE_SOLVE4TEMP 
           frsnow = 1. _d 0
./pkg/thsice/thsice_solve4temp.F 258 THSICE_SOLVE4TEMP 
           IF ( frsnow.GT.0. _d 0 ) frsnow = SQRT(frsnow)
./pkg/thsice/thsice_solve4temp.F 262 THSICE_SOLVE4TEMP 
          fswpen = flxSW(i,j) * (1. _d 0 - frsnow) * i0swFrac
./pkg/thsice/thsice_solve4temp.F 275 THSICE_SOLVE4TEMP 
          k12(i,j) = 4. _d 0*kIce*kSnow
./pkg/thsice/thsice_solve4temp.F 276 THSICE_SOLVE4TEMP 
     &             / (kSnow*hIce(i,j) + 4. _d 0*kIce*hSnow(i,j))
./pkg/thsice/thsice_solve4temp.F 277 THSICE_SOLVE4TEMP 
          k32      = 2. _d 0*kIce  / hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 283 THSICE_SOLVE4TEMP 
          tIc1(i,j) = 0.5 _d 0 *(-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/a1
./pkg/thsice/thsice_solve4temp.F 287 THSICE_SOLVE4TEMP 
          IF (tIc1(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 293 THSICE_SOLVE4TEMP 
          IF ( tIc2(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 305 THSICE_SOLVE4TEMP 
          a10(i,j) = rhoi*cpIce *hIce(i,j)/(2. _d 0*dt) +
./pkg/thsice/thsice_solve4temp.F 306 THSICE_SOLVE4TEMP 
     &          k32*( 4. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 307 THSICE_SOLVE4TEMP 
     &           / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 310 THSICE_SOLVE4TEMP 
     &           /(2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 311 THSICE_SOLVE4TEMP 
     &        - k32*( 4. _d 0*dt*k32*tFrz(i,j)
./pkg/thsice/thsice_solve4temp.F 313 THSICE_SOLVE4TEMP 
     &           / ( 6. _d 0*dt*k32 + rhoi*cpIce *hIce(i,j) )
./pkg/thsice/thsice_solve4temp.F 315 THSICE_SOLVE4TEMP 
          c10(i,j) = rhoi*Lfresh*hIce(i,j)*Tmlt1 / (2. _d 0*dt)
./pkg/thsice/thsice_solve4temp.F 455 THSICE_SOLVE4TEMP 
          tIc1(i,j)  = -(b1 + SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./pkg/thsice/thsice_solve4temp.F 459 THSICE_SOLVE4TEMP 
          IF ( Tsf(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 467 THSICE_SOLVE4TEMP 
           tIc1(i,j) = (-b1 - SQRT(b1*b1-4. _d 0*a1*c1))/(2. _d 0*a1)
./pkg/thsice/thsice_solve4temp.F 468 THSICE_SOLVE4TEMP 
           Tsf(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 472 THSICE_SOLVE4TEMP 
            dTsrf(i,j) = 0. _d 0
./pkg/thsice/thsice_solve4temp.F 499 THSICE_SOLVE4TEMP 
           IF ( Tsf(i,j).LT.-70. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 522 THSICE_SOLVE4TEMP 
        IF ( iceMask(i,j).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_solve4temp.F 525 THSICE_SOLVE4TEMP 
          k32       = 2. _d 0*kIce  / hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 526 THSICE_SOLVE4TEMP 
          tIc2(i,j) = ( 2. _d 0*dt*k32*(tIc1(i,j)+2. _d 0*tFrz(i,j))
./pkg/thsice/thsice_solve4temp.F 528 THSICE_SOLVE4TEMP 
     &               /(6. _d 0*dt*k32 + rhoi*cpIce*hIce(i,j))
./pkg/thsice/thsice_solve4temp.F 538 THSICE_SOLVE4TEMP 
          flxCnB(i,j) = 4. _d 0*kIce *(tIc2(i,j)-tFrz(i,j))/hIce(i,j)
./pkg/thsice/thsice_solve4temp.F 563 THSICE_SOLVE4TEMP 
     &                + Lfresh*(1. _d 0-Tmlt1/tIc1(i,j))
./pkg/thsice/thsice_solve4temp.F 573 THSICE_SOLVE4TEMP 
          IF (tIc2(i,j) .GE. 0. _d 0) THEN
./pkg/thsice/thsice_solve4temp.F 592 THSICE_SOLVE4TEMP 
          dTsrf (i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 130 THSICE_STEP_FWD 
          sFluxFromIce(i,j) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 132 THSICE_STEP_FWD 
          saltFlux(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 140 THSICE_STEP_FWD 
      ageFac = 1. _d 0 - thSIce_deltaT/snowAgTime
./pkg/thsice/thsice_step_fwd.F 153 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 157 THSICE_STEP_FWD 
          IF ( snowPrc(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 174 THSICE_STEP_FWD 
        tmpFac = 1. _d 0
./pkg/thsice/thsice_step_fwd.F 263 THSICE_STEP_FWD 
        IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 272 THSICE_STEP_FWD 
          opFrac= 1. _d 0-icFrac
./pkg/thsice/thsice_step_fwd.F 295 THSICE_STEP_FWD 
        ELSEIF (hOceMxL(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 299 THSICE_STEP_FWD 
          icFlxAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 300 THSICE_STEP_FWD 
          icFrwAtm(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 327 THSICE_STEP_FWD 
        IF (frzmltMxL(i,j).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_fwd.F 347 THSICE_STEP_FWD 
        IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 348 THSICE_STEP_FWD 
     &    isIceFree(i,j) = iceMask(i,j,bi,bj).LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 349 THSICE_STEP_FWD 
     &                  .AND.   iceFrac(i,j) .LE.0. _d 0
./pkg/thsice/thsice_step_fwd.F 350 THSICE_STEP_FWD 
        IF ( iceFrac(i,j) .GT. 0. _d 0 ) THEN
./pkg/thsice/thsice_step_fwd.F 352 THSICE_STEP_FWD 
          IF ( snowHeight(i,j,bi,bj).EQ.0. _d 0 )
./pkg/thsice/thsice_step_fwd.F 353 THSICE_STEP_FWD 
     &     snowAge(i,j,bi,bj) = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 355 THSICE_STEP_FWD 
          iceMask(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 356 THSICE_STEP_FWD 
          iceHeight(i,j,bi,bj)= 0. _d 0
./pkg/thsice/thsice_step_fwd.F 357 THSICE_STEP_FWD 
          snowHeight(i,j,bi,bj)=0. _d 0
./pkg/thsice/thsice_step_fwd.F 358 THSICE_STEP_FWD 
          snowAge(i,j,bi,bj)  = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 360 THSICE_STEP_FWD 
          Tice1(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 361 THSICE_STEP_FWD 
          Tice2(i,j,bi,bj)    = 0. _d 0
./pkg/thsice/thsice_step_fwd.F 385 THSICE_STEP_FWD 
         IF ( hOceMxL(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/thsice/thsice_step_temp.F 135 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 148 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 151 THSICE_STEP_TEMP 
     &                       *(1. _d 0 - siceAlb(i,j,bi,bj))
./pkg/thsice/thsice_step_temp.F 154 THSICE_STEP_TEMP 
          tFrzOce(i,j) = 0. _d 0
./pkg/thsice/thsice_step_temp.F 182 THSICE_STEP_TEMP 
         IF (iceMask(i,j,bi,bj).GT.0. _d 0) THEN
./pkg/thsice/thsice_step_temp.F 184 THSICE_STEP_TEMP 
          opFrac = 1. _d 0 - icFrac
./pkg/thsice/thsice_test_addfluid.h 21 NO PROCEDURE 
           EmPmR(i,j,bi,bj) = 0. _d 0
./pkg/timeave/timeave_cumul_2v.F 113 TIMEAVE_CUMUL_2V 
     &      + .25 _d 0*( fld1(i,j-1,k,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 128 TIMEAVE_CUMUL_2V 
     &      + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 145 TIMEAVE_CUMUL_2V 
     &      + .25 _d 0*( fld1(i,j,km1,bi,bj) + fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 162 TIMEAVE_CUMUL_2V 
     &       + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) )
./pkg/timeave/timeave_cumul_2v.F 179 TIMEAVE_CUMUL_2V 
     &       + .5 _d 0*( fld1(i,j,k-1,bi,bj) - fld1(i,j,k,bi,bj) )
./model/src/impldiff.F 114 IMPLDIFF 
         gYNm1(i,j,k,bi,bj) = 0. _d 0
./model/src/impldiff.F 127 IMPLDIFF 
         a(i,j,1) = 0. _d 0
./model/src/impldiff.F 171 IMPLDIFF 
         c(i,j,Nr) = 0. _d 0
./model/src/impldiff.F 184 IMPLDIFF 
          b(i,j,k) = 1. _d 0 - c(i,j,k) - a(i,j,k)
./model/src/impldiff.F 198 IMPLDIFF 
          bet(i,j,k) = 1. _d 0
./model/src/impldiff.F 199 IMPLDIFF 
          gam(i,j,k) = 0. _d 0
./model/src/impldiff.F 216 IMPLDIFF 
         IF (b(i,j,1).NE.0.) bet(i,j,1) = 1. _d 0 / b(i,j,1)
./model/src/impldiff.F 237 IMPLDIFF 
     &        bet(i,j,k) = 1. _d 0 / ( b(i,j,k) - a(i,j,k)*gam(i,j,k) )
./model/src/impldiff.F 324 IMPLDIFF 
               df(i,j) = 0. _d 0
./pkg/timeave/timeave_norma_2v.F 40 TIMEAVE_NORMA_2V 
           IF ( cumulWeight(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN
./pkg/timeave/timeave_normalize.F 48 TIMEAVE_NORMALIZE 
        IF ( timeave_cumul(bi,bj) .NE. 0. _d 0 ) THEN
./pkg/timeave/timeave_reset.F 36 TIMEAVE_RESET 
             fldtave(i,j,k,bi,bj) = 0. _d 0
./pkg/timeave/timeave_statvars.F 111 TIMEAVE_STATVARS 
      IF ( DDTT .NE. 0. _d 0) THEN
./pkg/timeave/timeave_statvars.F 91 TIMEAVE_STATVARS 
        timeAve_half(bi,bj) = 0. _d 0
./pkg/timeave/timeave_statvars.F 92 TIMEAVE_STATVARS 
        timeAve_full(bi,bj) = 0. _d 0
./pkg/timeave/timeave_statvars.F 97 TIMEAVE_STATVARS 
        DDTT = deltaTclock*(1. _d 0 - tave_lastIter)
./model/src/ini_cartesian_grid.F 146 INI_CARTESIAN_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F 148 INI_CARTESIAN_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cartesian_grid.F 186 INI_CARTESIAN_GRID 
          dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_cartesian_grid.F 193 INI_CARTESIAN_GRID 
          dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_cartesian_grid.F 201 INI_CARTESIAN_GRID 
          dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_cartesian_grid.F 202 INI_CARTESIAN_GRID 
          dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_cartesian_grid.F 243 INI_CARTESIAN_GRID 
        latBandClimRelax = latBandClimRelax*3. _d 0
./pkg/zonal_filt/zonal_filt_init.F 63 ZONAL_FILT_INIT 
      PARAMETER( oneRL = 1. _d 0 )
./model/src/ini_cg2d.F 140 INI_CG2D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg2d.F 141 INI_CG2D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg2d.F 143 INI_CG2D 
       myNorm = 1. _d 0
./model/src/ini_cg2d.F 231 INI_CG2D 
            pC(i,j,bi,bj) = 1. _d 0
./model/src/ini_cg2d.F 233 INI_CG2D 
            pC(i,j,bi,bj) =  1. _d 0 / aC
./model/src/ini_cg2d.F 61 INI_CG2D 
          aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 62 INI_CG2D 
          aS2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 63 INI_CG2D 
          aC2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 64 INI_CG2D 
          pW(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 65 INI_CG2D 
          pS(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 66 INI_CG2D 
          pC(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 71 INI_CG2D 
          cg2d_q(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 72 INI_CG2D 
          cg2d_r(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 73 INI_CG2D 
          cg2d_s(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 75 INI_CG2D 
          cg2d_z(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 78 INI_CG2D 
          cg2d_y(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 79 INI_CG2D 
          cg2d_v(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 89 INI_CG2D 
      myNorm = 0. _d 0
./model/src/ini_cg2d.F 94 INI_CG2D 
          aW2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg2d.F 95 INI_CG2D 
          aS2d(i,j,bi,bj) = 0. _d 0
./model/src/ini_cg3d.F 100 INI_CG3D 
     &      .AND. nh_Am2.NE.0. ) nh_Fac = 1. _d 0 / nh_Am2
./model/src/ini_cg3d.F 101 INI_CG3D 
      IF ( implicitIntGravWave ) igwFac = 1. _d 0
./model/src/ini_cg3d.F 108 INI_CG3D 
      myNorm = 0. _d 0
./model/src/ini_cg3d.F 142 INI_CG3D 
         IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac
./model/src/ini_cg3d.F 201 INI_CG3D 
      IF ( myNorm .NE. 0. _d 0 ) THEN
./model/src/ini_cg3d.F 202 INI_CG3D 
       myNorm = 1. _d 0/myNorm
./model/src/ini_cg3d.F 204 INI_CG3D 
       myNorm = 1. _d 0
./model/src/ini_cg3d.F 248 INI_CG3D 
             tmpSurf = tmpSurf / (1. _d 0 + tmpSurf )
./model/src/ini_cg3d.F 307 INI_CG3D 
            zMC(i,j,k,bi,bj) = 1. _d 0
./model/src/ini_cg3d.F 317 INI_CG3D 
           zMC(i,j,k,bi,bj) = 1. _d 0 / zMC(i,j,k,bi,bj)
./model/src/ini_cg3d.F 324 INI_CG3D 
           zMC(i,j,k,bi,bj) = 1. _d 0 /
./model/src/ini_cori.F 113 INI_CORI 
                fCori(i,j,bi,bj)  = 0. _d 0
./model/src/ini_cori.F 114 INI_CORI 
                fCoriG(i,j,bi,bj) = 0. _d 0
./model/src/ini_cori.F 115 INI_CORI 
                fCoriCos(i,j,bi,bj)=0. _d 0
./model/src/ini_cori.F 73 INI_CORI 
        facGrid = 1. _d 0
./model/src/ini_cori.F 95 INI_CORI 
     &                 2. _d 0*omega*sin(_yC(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F 97 INI_CORI 
     &                 2. _d 0*omega*sin(yG(i,j,bi,bj)*deg2rad)
./model/src/ini_cori.F 99 INI_CORI 
     &                 2. _d 0*omega*cos(_yC(i,j,bi,bj)*deg2rad)
./verification/OpenAD/code_oad_all/cost_dependent_init.F 61 COST_DEPENDENT_INIT 
         objf_vector(i,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/cost_dependent_init.F 62 COST_DEPENDENT_INIT 
         adobjf_vector(i,bi,bj) = 1. _d 0
./verification/OpenAD/code_oad_all/cost_dependent_init.F 69 COST_DEPENDENT_INIT 
            objf_state_final(i,j,bi,bj,k) = 0. _d 0
./verification/OpenAD/code_oad_all/cost_dependent_init.F 71 COST_DEPENDENT_INIT 
           objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./verification/OpenAD/code_oad_all/ctrl_pack.F 93 CTRL_PACK 
      fmin       = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 100 GAD_IMPLICIT_R 
         d5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 101 GAD_IMPLICIT_R 
         e5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 156 GAD_IMPLICIT_R 
           c5d(i,j,k) = 1. _d 0 - b5d(i,j,k) - d5d(i,j,k)
./verification/OpenAD/code_oad_all/gad_implicit_r.F 186 GAD_IMPLICIT_R 
            wFld(i,j)   = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 187 GAD_IMPLICIT_R 
            rTrans(i,j) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 305 GAD_IMPLICIT_R 
               df(i,j) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 97 GAD_IMPLICIT_R 
         a5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 98 GAD_IMPLICIT_R 
         b5d(i,j,k) = 0. _d 0
./verification/OpenAD/code_oad_all/gad_implicit_r.F 99 GAD_IMPLICIT_R 
         c5d(i,j,k) = 1. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 175 GRDCHK_MAIN 
                     tmpplot1(i,j,k,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 176 GRDCHK_MAIN 
                     tmpplot2(i,j,k,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 177 GRDCHK_MAIN 
                     tmpplot3(i,j,k,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 185 GRDCHK_MAIN 
         grdchk_epsfac = 2. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 187 GRDCHK_MAIN 
         grdchk_epsfac = 1. _d 0
./verification/OpenAD/code_oad_all/grdchk_main.F 258 GRDCHK_MAIN 
               localEps = 1. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 110 INI_LINEAR_PHISURF 
            IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 118 INI_LINEAR_PHISURF 
             IF ( rhoLoc .EQ. 0. _d 0 ) THEN
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 119 INI_LINEAR_PHISURF 
              Bo_surf(I,J,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 121 INI_LINEAR_PHISURF 
              Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 125 INI_LINEAR_PHISURF 
              Bo_surf(I,J,bi,bj)  = 0. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 126 INI_LINEAR_PHISURF 
              recip_Bo(I,J,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 139 INI_LINEAR_PHISURF 
            IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 142 INI_LINEAR_PHISURF 
     &         (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 144 INI_LINEAR_PHISURF 
              recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj)
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 58 INI_LINEAR_PHISURF 
           Bo_surf(I,J,bi,bj)  = 0. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 59 INI_LINEAR_PHISURF 
           recip_Bo(I,J,bi,bj) = 0. _d 0
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F 86 INI_LINEAR_PHISURF 
             recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro
./verification/OpenAD/code_oad_all/seawater.F 118 SW_TEMP 
      PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 )
./verification/OpenAD/code_oad_all/seawater.F 178 SW_ADTG 
      sref = 35. _d 0
./verification/OpenAD/code_oad_all/seawater.F 179 SW_ADTG 
      a0 =  3.5803 _d -5
./verification/OpenAD/code_oad_all/seawater.F 180 SW_ADTG 
      a1 = +8.5258 _d -6
./verification/OpenAD/code_oad_all/seawater.F 181 SW_ADTG 
      a2 = -6.836 _d -8
./verification/OpenAD/code_oad_all/seawater.F 182 SW_ADTG 
      a3 =  6.6228 _d -10
./verification/OpenAD/code_oad_all/seawater.F 184 SW_ADTG 
      b0 = +1.8932 _d -6
./verification/OpenAD/code_oad_all/seawater.F 185 SW_ADTG 
      b1 = -4.2393 _d -8
./verification/OpenAD/code_oad_all/seawater.F 187 SW_ADTG 
      c0 = +1.8741 _d -8
./verification/OpenAD/code_oad_all/seawater.F 188 SW_ADTG 
      c1 = -6.7795 _d -10
./verification/OpenAD/code_oad_all/seawater.F 189 SW_ADTG 
      c2 = +8.733 _d -12
./verification/OpenAD/code_oad_all/seawater.F 190 SW_ADTG 
      c3 = -5.4481 _d -14
./verification/OpenAD/code_oad_all/seawater.F 192 SW_ADTG 
      d0 = -1.1351 _d -10
./verification/OpenAD/code_oad_all/seawater.F 193 SW_ADTG 
      d1 =  2.7759 _d -12
./verification/OpenAD/code_oad_all/seawater.F 195 SW_ADTG 
      e0 = -4.6206 _d -13
./verification/OpenAD/code_oad_all/seawater.F 196 SW_ADTG 
      e1 = +1.8676 _d -14
./verification/OpenAD/code_oad_all/seawater.F 197 SW_ADTG 
      e2 = -2.1687 _d -16
./verification/OpenAD/code_oad_all/seawater.F 47 SW_PTMP 
      PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 )
./model/src/ini_cylinder_grid.F 152 INI_CYLINDER_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F 154 INI_CYLINDER_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_cylinder_grid.F 172 INI_CYLINDER_GRID 
          thisRad = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_cylinder_grid.F 197 INI_CYLINDER_GRID 
          dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_cylinder_grid.F 205 INI_CYLINDER_GRID 
          dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_cylinder_grid.F 213 INI_CYLINDER_GRID 
          dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_cylinder_grid.F 214 INI_CYLINDER_GRID 
          dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_cylinder_grid.F 252 INI_CYLINDER_GRID 
        latBandClimRelax = latBandClimRelax*3. _d 0
./model/src/ini_depths.F 79 INI_DEPTHS 
          R_low(i,j,bi,bj)   = 0. _d 0
./model/src/ini_depths.F 80 INI_DEPTHS 
          Ro_surf(i,j,bi,bj) = 0. _d 0
./model/src/ini_depths.F 81 INI_DEPTHS 
          topoZ(i,j,bi,bj)   = 0. _d 0
./verification/advect_cs/code/ini_vel.F 59 INI_VEL 
           uVel(i,j,k,bi,bj)=0. _d 0
./verification/advect_cs/code/ini_vel.F 61 INI_VEL 
           vVel(i,j,k,bi,bj)=0. _d 0
./verification/advect_xy/code/ini_salt.F 65 INI_SALT 
            rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_salt.F 66 INI_SALT 
     &                +( yC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_salt.F 67 INI_SALT 
     &                +( rC(k) + 50. _d 3 )**2
./verification/advect_xy/code/ini_salt.F 69 INI_SALT 
            IF ( rD.LE.60. _d 3 ) salt(i,j,k,bi,bj) = sRef(k)+1. _d 0
./verification/advect_xy/code/ini_theta.F 132 INI_THETA 
      Tfreezing=-1.9 _d 0
./verification/advect_xy/code/ini_theta.F 66 INI_THETA 
            rD = SQRT( ( xC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_theta.F 67 INI_THETA 
     &                +( yC(i,j,bi,bj) - 40. _d 3 )**2
./verification/advect_xy/code/ini_theta.F 68 INI_THETA 
     &                +( rC(k) + 50. _d 3 )**2
./verification/advect_xy/code/ini_theta.F 70 INI_THETA 
            theta(i,j,k,bi,bj) = EXP( -0.5 _d 0*( rD/20. _d 3 )**2 )
./verification/advect_xy/code/ini_vel.F 51 INI_VEL 
           uVel(i,j,k,bi,bj)=1. _d 0
./verification/advect_xy/code/ini_vel.F 52 INI_VEL 
           vVel(i,j,k,bi,bj)=1. _d 0
./model/src/ini_dynvars.F 51 INI_DYNVARS 
           uVel(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 52 INI_DYNVARS 
           vVel(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 53 INI_DYNVARS 
           wVel(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 54 INI_DYNVARS 
           theta(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 55 INI_DYNVARS 
           salt(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 57 INI_DYNVARS 
           gU(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 58 INI_DYNVARS 
           gV(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 59 INI_DYNVARS 
           gT(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 60 INI_DYNVARS 
           gS(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 62 INI_DYNVARS 
           guNm(I,J,K,bi,bj,1)=0. _d 0
./model/src/ini_dynvars.F 63 INI_DYNVARS 
           gvNm(I,J,K,bi,bj,1)=0. _d 0
./model/src/ini_dynvars.F 64 INI_DYNVARS 
           gtNm(I,J,K,bi,bj,1)=0. _d 0
./model/src/ini_dynvars.F 65 INI_DYNVARS 
           gsNm(I,J,K,bi,bj,1)=0. _d 0
./model/src/ini_dynvars.F 66 INI_DYNVARS 
           guNm(I,J,K,bi,bj,2)=0. _d 0
./model/src/ini_dynvars.F 67 INI_DYNVARS 
           gvNm(I,J,K,bi,bj,2)=0. _d 0
./model/src/ini_dynvars.F 68 INI_DYNVARS 
           gtNm(I,J,K,bi,bj,2)=0. _d 0
./model/src/ini_dynvars.F 69 INI_DYNVARS 
           gsNm(I,J,K,bi,bj,2)=0. _d 0
./model/src/ini_dynvars.F 71 INI_DYNVARS 
           guNm1(I,J,K,bi,bj) =0. _d 0
./model/src/ini_dynvars.F 72 INI_DYNVARS 
           gvNm1(I,J,K,bi,bj) =0. _d 0
./model/src/ini_dynvars.F 73 INI_DYNVARS 
           gtNm1(I,J,K,bi,bj) =0. _d 0
./model/src/ini_dynvars.F 74 INI_DYNVARS 
           gsNm1(I,J,K,bi,bj) =0. _d 0
./model/src/ini_dynvars.F 76 INI_DYNVARS 
           totPhiHyd(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 77 INI_DYNVARS 
           rhoInSitu(I,J,K,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 78 INI_DYNVARS 
           IVDConvCount(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 80 INI_DYNVARS 
           addMass(I,J,K,bi,bj) = 0. _d 0
./model/src/ini_dynvars.F 89 INI_DYNVARS 
          etaN(I,J,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 90 INI_DYNVARS 
          etaH(I,J,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 91 INI_DYNVARS 
          phiHydLow(I,J,bi,bj)=0. _d 0
./model/src/ini_dynvars.F 92 INI_DYNVARS 
          hMixLayer(I,J,bi,bj)=0. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 106 AIM_SURF_BC 
      tYear = 0.25 _d 0 - 10. _d 0/365. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 131 AIM_SURF_BC 
        tmprd = t0prd - 0.5 _d 0 + tNcyc
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 138 AIM_SURF_BC 
        aim_sWght1 = 0.5 _d 0+(dTprd-0.5 _d 0)*aim_surfForc_TransRatio
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 139 AIM_SURF_BC 
        aim_sWght1 = MAX( 0. _d 0, MIN(1. _d 0, aim_sWght1) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 140 AIM_SURF_BC 
        aim_sWght0 = 1. _d 0 - aim_sWght1
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 162 AIM_SURF_BC 
        SDEP1 = 70. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 163 AIM_SURF_BC 
        IDEP2 =  3. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 167 AIM_SURF_BC 
        RSW   = 1. _d 0/(SDEP1*SWCAP+SDEP2*(SWCAP-SWWIL))
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 174 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 178 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 182 AIM_SURF_BC 
          soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 200 AIM_SURF_BC 
         oceTfreez = celsius2K - 1.9 _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 203 AIM_SURF_BC 
          IF ( oice1(J) .GT. 1. _d -2 ) THEN
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 208 AIM_SURF_BC 
            oice1(J) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 219 AIM_SURF_BC 
        RSD=1. _d 0/SDALB
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 220 AIM_SURF_BC 
        ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 221 AIM_SURF_BC 
        RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 232 AIM_SURF_BC 
     &       + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 233 AIM_SURF_BC 
     &        *MIN( 1. _d 0, RSD*snow1(I2))
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 244 AIM_SURF_BC 
           IF (TMPL .GE. 1.0 _d 0) THEN
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 245 AIM_SURF_BC 
            CZEN = 0.0 _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 246 AIM_SURF_BC 
           ELSEIF (TMPL .LE. -1.0 _d 0) THEN
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 247 AIM_SURF_BC 
            CZEN = (2.0 _d 0)*TMPA*PI
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 248 AIM_SURF_BC 
            CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 252 AIM_SURF_BC 
            CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim))
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 253 AIM_SURF_BC 
            CZEN2= 2.0 _d 0*TMPA*TMPA*hlim
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 254 AIM_SURF_BC 
     &          + 4.0 _d 0*TMPA*TMPB*SIN(hlim)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 255 AIM_SURF_BC 
     &          + TMPB*TMPB*( hlim + 0.5 _d 0*SIN(2.0 _d 0*hlim) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 258 AIM_SURF_BC 
           ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) )
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 259 AIM_SURF_BC 
     &          + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 260 AIM_SURF_BC 
     &          * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 264 AIM_SURF_BC 
          alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 265 AIM_SURF_BC 
     &        + 0.5 _d 0 * ALBSEA1
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 276 AIM_SURF_BC 
        aim_sWght1 = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 277 AIM_SURF_BC 
        aim_sWght0 = 1. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 325 AIM_SURF_BC 
     &     +20. _d 0 *exp( -((xC(i,j,bi,bj)-xBump)/dxBump)**2
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 391 AIM_SURF_BC 
         pCO2scl = 1. _d 6
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 421 AIM_SURF_BC 
          fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid))
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 423 AIM_SURF_BC 
          fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid)
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 443 AIM_SURF_BC 
          fMask1(J,3,myThid) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F 444 AIM_SURF_BC 
          fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid)
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 79 INI_DEPTHS 
          R_low(i,j,bi,bj)   = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 80 INI_DEPTHS 
          Ro_surf(i,j,bi,bj) = 0. _d 0
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F 81 INI_DEPTHS 
          topoZ(i,j,bi,bj)   = 0. _d 0
./model/src/ini_eos.F 118 INI_EOS 
         eosJMDCFw(1) =  999.842594 _d +00
./model/src/ini_eos.F 119 INI_EOS 
         eosJMDCFw(2) =    6.793952 _d -02
./model/src/ini_eos.F 120 INI_EOS 
         eosJMDCFw(3) = -  9.095290 _d -03
./model/src/ini_eos.F 121 INI_EOS 
         eosJMDCFw(4) =    1.001685 _d -04
./model/src/ini_eos.F 122 INI_EOS 
         eosJMDCFw(5) = -  1.120083 _d -06
./model/src/ini_eos.F 123 INI_EOS 
         eosJMDCFw(6) =    6.536332 _d -09
./model/src/ini_eos.F 125 INI_EOS 
         eosJMDCSw(1) =    8.24493  _d -01
./model/src/ini_eos.F 126 INI_EOS 
         eosJMDCSw(2) = -  4.0899   _d -03
./model/src/ini_eos.F 127 INI_EOS 
         eosJMDCSw(3) =    7.6438   _d -05
./model/src/ini_eos.F 128 INI_EOS 
         eosJMDCSw(4) = -  8.2467   _d -07
./model/src/ini_eos.F 129 INI_EOS 
         eosJMDCSw(5) =    5.3875   _d -09
./model/src/ini_eos.F 130 INI_EOS 
         eosJMDCSw(6) = -  5.72466  _d -03
./model/src/ini_eos.F 131 INI_EOS 
         eosJMDCSw(7) =    1.0227   _d -04
./model/src/ini_eos.F 132 INI_EOS 
         eosJMDCSw(8) = -  1.6546   _d -06
./model/src/ini_eos.F 133 INI_EOS 
         eosJMDCSw(9) =    4.8314   _d -04
./model/src/ini_eos.F 136 INI_EOS 
            eosJMDCKFw(1) =   1.965933 _d +04
./model/src/ini_eos.F 137 INI_EOS 
            eosJMDCKFw(2) =   1.444304 _d +02
./model/src/ini_eos.F 138 INI_EOS 
            eosJMDCKFw(3) = - 1.706103 _d +00
./model/src/ini_eos.F 139 INI_EOS 
            eosJMDCKFw(4) =   9.648704 _d -03
./model/src/ini_eos.F 140 INI_EOS 
            eosJMDCKFw(5) = - 4.190253 _d -05
./model/src/ini_eos.F 142 INI_EOS 
            eosJMDCKSw(1) =   5.284855 _d +01
./model/src/ini_eos.F 143 INI_EOS 
            eosJMDCKSw(2) = - 3.101089 _d -01
./model/src/ini_eos.F 144 INI_EOS 
            eosJMDCKSw(3) =   6.283263 _d -03
./model/src/ini_eos.F 145 INI_EOS 
            eosJMDCKSw(4) = - 5.084188 _d -05
./model/src/ini_eos.F 146 INI_EOS 
            eosJMDCKSw(5) =   3.886640 _d -01
./model/src/ini_eos.F 147 INI_EOS 
            eosJMDCKSw(6) =   9.085835 _d -03
./model/src/ini_eos.F 148 INI_EOS 
            eosJMDCKSw(7) = - 4.619924 _d -04
./model/src/ini_eos.F 150 INI_EOS 
            eosJMDCKP( 1) =   3.186519 _d +00
./model/src/ini_eos.F 151 INI_EOS 
            eosJMDCKP( 2) =   2.212276 _d -02
./model/src/ini_eos.F 152 INI_EOS 
            eosJMDCKP( 3) = - 2.984642 _d -04
./model/src/ini_eos.F 153 INI_EOS 
            eosJMDCKP( 4) =   1.956415 _d -06
./model/src/ini_eos.F 154 INI_EOS 
            eosJMDCKP( 5) =   6.704388 _d -03
./model/src/ini_eos.F 155 INI_EOS 
            eosJMDCKP( 6) = - 1.847318 _d -04
./model/src/ini_eos.F 156 INI_EOS 
            eosJMDCKP( 7) =   2.059331 _d -07
./model/src/ini_eos.F 157 INI_EOS 
            eosJMDCKP( 8) =   1.480266 _d -04
./model/src/ini_eos.F 158 INI_EOS 
            eosJMDCKP( 9) =   2.102898 _d -04
./model/src/ini_eos.F 159 INI_EOS 
            eosJMDCKP(10) = - 1.202016 _d -05
./model/src/ini_eos.F 160 INI_EOS 
            eosJMDCKP(11) =   1.394680 _d -07
./model/src/ini_eos.F 161 INI_EOS 
            eosJMDCKP(12) = - 2.040237 _d -06
./model/src/ini_eos.F 162 INI_EOS 
            eosJMDCKP(13) =   6.128773 _d -08
./model/src/ini_eos.F 163 INI_EOS 
            eosJMDCKP(14) =   6.207323 _d -10
./model/src/ini_eos.F 190 INI_EOS 
            eosJMDCKFw(1) =   1.965221 _d +04
./model/src/ini_eos.F 191 INI_EOS 
            eosJMDCKFw(2) =   1.484206 _d +02
./model/src/ini_eos.F 192 INI_EOS 
            eosJMDCKFw(3) = - 2.327105 _d +00
./model/src/ini_eos.F 193 INI_EOS 
            eosJMDCKFw(4) =   1.360477 _d -02
./model/src/ini_eos.F 194 INI_EOS 
            eosJMDCKFw(5) = - 5.155288 _d -05
./model/src/ini_eos.F 196 INI_EOS 
            eosJMDCKSw(1) =   5.46746  _d +01
./model/src/ini_eos.F 197 INI_EOS 
            eosJMDCKSw(2) = - 0.603459 _d +00
./model/src/ini_eos.F 198 INI_EOS 
            eosJMDCKSw(3) =   1.09987  _d -02
./model/src/ini_eos.F 199 INI_EOS 
            eosJMDCKSw(4) = - 6.1670   _d -05
./model/src/ini_eos.F 200 INI_EOS 
            eosJMDCKSw(5) =   7.944    _d -02
./model/src/ini_eos.F 201 INI_EOS 
            eosJMDCKSw(6) =   1.6483   _d -02
./model/src/ini_eos.F 202 INI_EOS 
            eosJMDCKSw(7) = - 5.3009   _d -04
./model/src/ini_eos.F 204 INI_EOS 
            eosJMDCKP( 1) =   3.239908 _d +00
./model/src/ini_eos.F 205 INI_EOS 
            eosJMDCKP( 2) =   1.43713  _d -03
./model/src/ini_eos.F 206 INI_EOS 
            eosJMDCKP( 3) =   1.16092  _d -04
./model/src/ini_eos.F 207 INI_EOS 
            eosJMDCKP( 4) = - 5.77905  _d -07
./model/src/ini_eos.F 208 INI_EOS 
            eosJMDCKP( 5) =   2.2838   _d -03
./model/src/ini_eos.F 209 INI_EOS 
            eosJMDCKP( 6) = - 1.0981   _d -05
./model/src/ini_eos.F 210 INI_EOS 
            eosJMDCKP( 7) = - 1.6078   _d -06
./model/src/ini_eos.F 211 INI_EOS 
            eosJMDCKP( 8) =   1.91075  _d -04
./model/src/ini_eos.F 212 INI_EOS 
            eosJMDCKP( 9) =   8.50935  _d -05
./model/src/ini_eos.F 213 INI_EOS 
            eosJMDCKP(10) = - 6.12293  _d -06
./model/src/ini_eos.F 214 INI_EOS 
            eosJMDCKP(11) =   5.2787   _d -08
./model/src/ini_eos.F 215 INI_EOS 
            eosJMDCKP(12) = - 9.9348   _d -07
./model/src/ini_eos.F 216 INI_EOS 
            eosJMDCKP(13) =   2.0816   _d -08
./model/src/ini_eos.F 217 INI_EOS 
            eosJMDCKP(14) =   9.1697   _d -10
./model/src/ini_eos.F 224 INI_EOS 
         eosMDJWFnum( 0) =  9.99843699 _d +02
./model/src/ini_eos.F 225 INI_EOS 
         eosMDJWFnum( 1) =  7.35212840 _d +00
./model/src/ini_eos.F 226 INI_EOS 
         eosMDJWFnum( 2) = -5.45928211 _d -02
./model/src/ini_eos.F 227 INI_EOS 
         eosMDJWFnum( 3) =  3.98476704 _d -04
./model/src/ini_eos.F 228 INI_EOS 
         eosMDJWFnum( 4) =  2.96938239 _d +00
./model/src/ini_eos.F 229 INI_EOS 
         eosMDJWFnum( 5) = -7.23268813 _d -03
./model/src/ini_eos.F 230 INI_EOS 
         eosMDJWFnum( 6) =  2.12382341 _d -03
./model/src/ini_eos.F 231 INI_EOS 
         eosMDJWFnum( 7) =  1.04004591 _d -02
./model/src/ini_eos.F 232 INI_EOS 
         eosMDJWFnum( 8) =  1.03970529 _d -07
./model/src/ini_eos.F 233 INI_EOS 
         eosMDJWFnum( 9) =  5.18761880 _d -06
./model/src/ini_eos.F 234 INI_EOS 
         eosMDJWFnum(10) = -3.24041825 _d -08
./model/src/ini_eos.F 235 INI_EOS 
         eosMDJWFnum(11) = -1.23869360 _d -11
./model/src/ini_eos.F 238 INI_EOS 
         eosMDJWFden( 0) =  1.00000000 _d +00
./model/src/ini_eos.F 239 INI_EOS 
         eosMDJWFden( 1) =  7.28606739 _d -03
./model/src/ini_eos.F 240 INI_EOS 
         eosMDJWFden( 2) = -4.60835542 _d -05
./model/src/ini_eos.F 241 INI_EOS 
         eosMDJWFden( 3) =  3.68390573 _d -07
./model/src/ini_eos.F 242 INI_EOS 
         eosMDJWFden( 4) =  1.80809186 _d -10
./model/src/ini_eos.F 243 INI_EOS 
         eosMDJWFden( 5) =  2.14691708 _d -03
./model/src/ini_eos.F 244 INI_EOS 
         eosMDJWFden( 6) = -9.27062484 _d -06
./model/src/ini_eos.F 245 INI_EOS 
         eosMDJWFden( 7) = -1.78343643 _d -10
./model/src/ini_eos.F 246 INI_EOS 
         eosMDJWFden( 8) =  4.76534122 _d -06
./model/src/ini_eos.F 247 INI_EOS 
         eosMDJWFden( 9) =  1.63410736 _d -09
./model/src/ini_eos.F 248 INI_EOS 
         eosMDJWFden(10) =  5.30848875 _d -06
./model/src/ini_eos.F 249 INI_EOS 
         eosMDJWFden(11) = -3.03175128 _d -16
./model/src/ini_eos.F 250 INI_EOS 
         eosMDJWFden(12) = -1.27934137 _d -17
./model/src/ini_eos.F 323 EOS_CHECK 
     &     /3.25905152915860 _d 0, 20.38687090048638 _d 0,
./model/src/ini_eos.F 324 EOS_CHECK 
     &     25.44820830309568 _d 0, 20.17368557065936 _d 0,
./model/src/ini_eos.F 325 EOS_CHECK 
     &     13.43397459640398 _d 0,
./model/src/ini_eos.F 326 EOS_CHECK 
     &      5.               _d 0, 25.               _d 0,
./model/src/ini_eos.F 327 EOS_CHECK 
     &      5.               _d 0, 25.               _d 0,
./model/src/ini_eos.F 328 EOS_CHECK 
     &      5.               _d 0, 25.               _d 0,
./model/src/ini_eos.F 329 EOS_CHECK 
     &      5.               _d 0, 25.               _d 0/,
./model/src/ini_eos.F 331 EOS_CHECK 
     &     /3.               _d 0, 20.               _d 0,
./model/src/ini_eos.F 332 EOS_CHECK 
     &     25.               _d 0, 20.               _d 0,
./model/src/ini_eos.F 333 EOS_CHECK 
     &     12.               _d 0,
./model/src/ini_eos.F 334 EOS_CHECK 
     &      5.               _d 0, 25.               _d 0,
./model/src/ini_eos.F 335 EOS_CHECK 
     &      5.               _d 0, 25.               _d 0,
./model/src/ini_eos.F 336 EOS_CHECK 
     &      4.03692566635316 _d 0, 22.84661726775120 _d 0,
./model/src/ini_eos.F 337 EOS_CHECK 
     &      3.62720389416752 _d 0, 22.62420229124846 _d 0/
./model/src/ini_eos.F 339 EOS_CHECK 
     &     /35.5 _d 0, 35. _d 0,
./model/src/ini_eos.F 340 EOS_CHECK 
     &      35.0 _d 0, 20. _d 0,
./model/src/ini_eos.F 341 EOS_CHECK 
     &      40.0 _d 0,
./model/src/ini_eos.F 342 EOS_CHECK 
     &       0.  _d 0,  0. _d 0,
./model/src/ini_eos.F 343 EOS_CHECK 
     &      35.  _d 0, 35. _d 0,
./model/src/ini_eos.F 344 EOS_CHECK 
     &       0.  _d 0,  0. _d 0,
./model/src/ini_eos.F 345 EOS_CHECK 
     &      35.  _d 0, 35. _d 0/
./model/src/ini_eos.F 347 EOS_CHECK 
     &     /300. _d 5,  200. _d 5,
./model/src/ini_eos.F 348 EOS_CHECK 
     &      200. _d 5,  100. _d 5,
./model/src/ini_eos.F 349 EOS_CHECK 
     &      800. _d 5,
./model/src/ini_eos.F 350 EOS_CHECK 
     &        0. _d 0,    0. _d 0,
./model/src/ini_eos.F 351 EOS_CHECK 
     &        0. _d 0,    0. _d 0,
./model/src/ini_eos.F 352 EOS_CHECK 
     &     1000. _d 5, 1000. _d 5,
./model/src/ini_eos.F 353 EOS_CHECK 
     &     1000. _d 5, 1000. _d 5/
./model/src/ini_eos.F 355 EOS_CHECK 
     &     /1041.83267  _d 0, 1033.213387 _d 0,
./model/src/ini_eos.F 356 EOS_CHECK 
     &      1031.654229 _d 0, 1017.726743 _d 0,
./model/src/ini_eos.F 357 EOS_CHECK 
     &      1062.928258 _d 0,
./model/src/ini_eos.F 358 EOS_CHECK 
     &       999.96675  _d 0,  997.04796  _d 0,
./model/src/ini_eos.F 359 EOS_CHECK 
     &      1027.67547  _d 0, 1023.34306  _d 0,
./model/src/ini_eos.F 360 EOS_CHECK 
     &      1044.12802  _d 0, 1037.90204  _d 0,
./model/src/ini_eos.F 361 EOS_CHECK 
     &      1069.48914  _d 0, 1062.53817  _d 0/
./model/src/ini_eos.F 363 EOS_CHECK 
     &     /   -1.00000 _d 0,    -1.00000 _d 0,
./model/src/ini_eos.F 364 EOS_CHECK 
     &         -1.00000 _d 0,    -1.00000 _d 0,
./model/src/ini_eos.F 365 EOS_CHECK 
     &         -1.00000 _d 0,
./model/src/ini_eos.F 366 EOS_CHECK 
     &      20337.80375 _d 0, 22100.72106 _d 0,
./model/src/ini_eos.F 367 EOS_CHECK 
     &      22185.93358 _d 0, 23726.34949 _d 0,
./model/src/ini_eos.F 368 EOS_CHECK 
     &      23643.52599 _d 0, 25405.09717 _d 0,
./model/src/ini_eos.F 369 EOS_CHECK 
     &      25577.49819 _d 0, 27108.94504 _d 0/
./model/src/ini_eos.F 409 EOS_CHECK 
          rhoLoc(i,j)  =  0. _d 0
./model/src/ini_eos.F 418 EOS_CHECK 
            bulkMod(i,j) = -1. _d 0
./model/src/ini_eos.F 52 INI_EOS 
         eosJMDCFw(k) = 0. _d 0
./model/src/ini_eos.F 55 INI_EOS 
         eosJMDCSw(k) = 0. _d 0
./model/src/ini_eos.F 58 INI_EOS 
         eosJMDCKFw(k) = 0. _d 0
./model/src/ini_eos.F 61 INI_EOS 
         eosJMDCKSw(k) = 0. _d 0
./model/src/ini_eos.F 64 INI_EOS 
         eosJMDCKP(k) = 0. _d 0
./model/src/ini_eos.F 67 INI_EOS 
         eosMDJWFnum(k) = 0. _d 0
./model/src/ini_eos.F 70 INI_EOS 
         eosMDJWFden(k) = 0. _d 0
./model/src/ini_eos.F 74 INI_EOS 
         IF ( tAlpha .EQ. UNSET_RL ) tAlpha = 2.  _d -4
./model/src/ini_eos.F 75 INI_EOS 
         IF ( sBeta  .EQ. UNSET_RL ) sBeta  = 7.4 _d -4
./model/src/ini_forcing.F 103 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./model/src/ini_forcing.F 105 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 47 INI_FORCING 
          fu              (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 48 INI_FORCING 
          fv              (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 49 INI_FORCING 
          Qnet            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 50 INI_FORCING 
          EmPmR           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 51 INI_FORCING 
          saltFlux        (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 52 INI_FORCING 
          SST             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 53 INI_FORCING 
          SSS             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 54 INI_FORCING 
          Qsw             (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 55 INI_FORCING 
          pLoad           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 56 INI_FORCING 
          sIceLoad        (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 57 INI_FORCING 
          surfaceForcingU (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 58 INI_FORCING 
          surfaceForcingV (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 59 INI_FORCING 
          surfaceForcingT (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 60 INI_FORCING 
          surfaceForcingS (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 61 INI_FORCING 
          surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 63 INI_FORCING 
          taux0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 64 INI_FORCING 
          taux1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 65 INI_FORCING 
          tauy0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 66 INI_FORCING 
          tauy1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 67 INI_FORCING 
          Qnet0           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 68 INI_FORCING 
          Qnet1           (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 69 INI_FORCING 
          EmPmR0          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 70 INI_FORCING 
          EmPmR1          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 71 INI_FORCING 
          saltFlux0       (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 72 INI_FORCING 
          saltFlux1       (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 73 INI_FORCING 
          SST0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 74 INI_FORCING 
          SST1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 75 INI_FORCING 
          SSS0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 76 INI_FORCING 
          SSS1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 78 INI_FORCING 
          Qsw0            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 79 INI_FORCING 
          Qsw1            (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 82 INI_FORCING 
          pLoad0          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 83 INI_FORCING 
          pLoad1          (i,j,bi,bj) = 0. _d 0
./model/src/ini_forcing.F 97 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./model/src/ini_forcing.F 99 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./model/src/ini_hfac.F 43 INI_HFAC 
           hFacC(I,J,K,bi,bj) = 0. _d 0
./model/src/ini_hfac.F 44 INI_HFAC 
           hFacS(I,J,K,bi,bj) = 0. _d 0
./model/src/ini_hfac.F 45 INI_HFAC 
           hFacW(I,J,K,bi,bj) = 0. _d 0
./model/src/ini_hfac.F 46 INI_HFAC 
           maskC(I,J,K,bi,bj) = 0. _d 0
./model/src/ini_hfac.F 47 INI_HFAC 
           maskS(I,J,K,bi,bj) = 0. _d 0
./model/src/ini_hfac.F 48 INI_HFAC 
           maskW(I,J,K,bi,bj) = 0. _d 0
./verification/dome/code/obcs_calc.F 151 OBCS_CALC 
           x=(xC(I,1,bi,bj)-Xcenter)/Lrho +Width/2. _d 0
./verification/dome/code/obcs_calc.F 159 OBCS_CALC 
            IF (zt.GE.(Rit/(2. _d 0 -Rit))) THEN
./verification/dome/code/obcs_calc.F 163 OBCS_CALC 
              Fz=1. _d 0/Rit*zt/(zt+1. _d 0) + 0.5 _d 0
./verification/dome/code/obcs_calc.F 176 OBCS_CALC 
     &                            *(1. _d 0 - Fz)
./verification/dome/code/obcs_calc.F 183 OBCS_CALC 
           IF (tRef(K).LE. (-dTemp*(1. _d 0 - Fz))) THEN
./verification/dome/code/obcs_calc.F 186 OBCS_CALC 
            OBNt(I,K,bi,bj) = -dTemp*(1. _d 0 - Fz)
./verification/dome/code/obcs_calc.F 194 OBCS_CALC 
            OBNs(I,K,bi,bj)=sRef(K) + 1. _d 0*(1. _d 0 - Fz)
./verification/dome/code/obcs_calc.F 50 OBCS_CALC 
      Dmax = 600. _d 0
./verification/dome/code/obcs_calc.F 52 OBCS_CALC 
      delh=5. _d 0
./verification/dome/code/obcs_calc.F 54 OBCS_CALC 
      Dinf=300. _d 0
./verification/dome/code/obcs_calc.F 56 OBCS_CALC 
      dTemp=(2. _d 0/rhonil)/(2. _d -4)
./verification/dome/code/obcs_calc.F 61 OBCS_CALC 
      Width=100. _d 3
./verification/dome/code/obcs_calc.F 66 OBCS_CALC 
      Xcenter = 1700. _d 3
./verification/dome/code/obcs_calc.F 68 OBCS_CALC 
      Rit = 1. _d 0/3. _d 0
./verification/dome/code/obcs_calc.F 75 OBCS_CALC 
      z(1) = -delR(1)/2. _d 0
./verification/dome/code/obcs_calc.F 84 OBCS_CALC 
      rampTime2 = 4. _d 0*44567. _d 0
./verification/dome/code/obcs_calc.F 85 OBCS_CALC 
      rexpt=1. _d 0/exp(futureTime/rampTime2)
./model/src/ini_linear_phisurf.F 109 INI_LINEAR_PHISURF 
        IF ( tileArea(bi,bj).EQ.0. _d 0 ) THEN
./model/src/ini_linear_phisurf.F 148 INI_LINEAR_PHISURF 
             recip_Bo(I,J,bi,bj) = 1. _d 0 / gBaro
./model/src/ini_linear_phisurf.F 172 INI_LINEAR_PHISURF 
            IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 179 INI_LINEAR_PHISURF 
             IF ( rhoLoc .EQ. 0. _d 0 ) THEN
./model/src/ini_linear_phisurf.F 180 INI_LINEAR_PHISURF 
              Bo_surf(I,J,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F 182 INI_LINEAR_PHISURF 
              Bo_surf(I,J,bi,bj) = 1. _d 0/rhoLoc
./model/src/ini_linear_phisurf.F 186 INI_LINEAR_PHISURF 
              Bo_surf(I,J,bi,bj)  = 0. _d 0
./model/src/ini_linear_phisurf.F 187 INI_LINEAR_PHISURF 
              recip_Bo(I,J,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F 200 INI_LINEAR_PHISURF 
            IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0
./model/src/ini_linear_phisurf.F 203 INI_LINEAR_PHISURF 
     &         (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0)
./model/src/ini_linear_phisurf.F 205 INI_LINEAR_PHISURF 
              recip_Bo(I,J,bi,bj) = 1. _d 0 / Bo_surf(I,J,bi,bj)
./model/src/ini_linear_phisurf.F 69 INI_LINEAR_PHISURF 
           Bo_surf(I,J,bi,bj)  = 0. _d 0
./model/src/ini_linear_phisurf.F 70 INI_LINEAR_PHISURF 
           recip_Bo(I,J,bi,bj) = 0. _d 0
./model/src/ini_linear_phisurf.F 82 INI_LINEAR_PHISURF 
      threadArea = 0. _d 0
./model/src/ini_linear_phisurf.F 86 INI_LINEAR_PHISURF 
        tileArea(bi,bj) = 0. _d 0
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 261 GETSST 
      pio2 = pi / 2. _d 0
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 262 GETSST 
      pio3 = pi / 3. _d 0
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 263 GETSST 
      pio36 = pi / 36. _d 0
./verification/fizhi-cs-aqualev20/code/update_ocean_exports.F 264 GETSST 
      mpio3 = -1. _d 0 * pi / 3. _d 0
./model/src/ini_masks_etc.F 100 INI_MASKS_ETC 
           hFacCtmp=min( max( hFacCtmp, 0. _d 0) , 1. _d 0)
./model/src/ini_masks_etc.F 134 INI_MASKS_ETC 
         hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) )
./model/src/ini_masks_etc.F 140 INI_MASKS_ETC 
           hFacCtmp = hFacC(i,j,k,bi,bj) - max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 142 INI_MASKS_ETC 
           hFacCtmp = max( hFacCtmp, 0. _d 0)
./model/src/ini_masks_etc.F 225 INI_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/ini_masks_etc.F 352 INI_MASKS_ETC 
            recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / hFacC(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 359 INI_MASKS_ETC 
            recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / hFacW(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 366 INI_MASKS_ETC 
            recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / hFacS(i,j,k,bi,bj)
./model/src/ini_masks_etc.F 56 INI_MASKS_ETC 
     &    recip_dxG(i,j,bi,bj) = 1. _d 0/dxG(i,j,bi,bj)
./model/src/ini_masks_etc.F 58 INI_MASKS_ETC 
     &    recip_dyG(i,j,bi,bj) = 1. _d 0/dyG(i,j,bi,bj)
./model/src/ini_masks_etc.F 60 INI_MASKS_ETC 
     &    recip_dxC(i,j,bi,bj) = 1. _d 0/dxC(i,j,bi,bj)
./model/src/ini_masks_etc.F 62 INI_MASKS_ETC 
     &    recip_dyC(i,j,bi,bj) = 1. _d 0/dyC(i,j,bi,bj)
./model/src/ini_masks_etc.F 64 INI_MASKS_ETC 
     &    recip_dxF(i,j,bi,bj) = 1. _d 0/dxF(i,j,bi,bj)
./model/src/ini_masks_etc.F 66 INI_MASKS_ETC 
     &    recip_dyF(i,j,bi,bj) = 1. _d 0/dyF(i,j,bi,bj)
./model/src/ini_masks_etc.F 68 INI_MASKS_ETC 
     &    recip_dxV(i,j,bi,bj) = 1. _d 0/dxV(i,j,bi,bj)
./model/src/ini_masks_etc.F 70 INI_MASKS_ETC 
     &    recip_dyU(i,j,bi,bj) = 1. _d 0/dyU(i,j,bi,bj)
./model/src/ini_masks_etc.F 72 INI_MASKS_ETC 
     &    recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj)
./model/src/ini_masks_etc.F 74 INI_MASKS_ETC 
     &    recip_rAs(i,j,bi,bj) = 1. _d 0/rAs(i,j,bi,bj)
./model/src/ini_masks_etc.F 76 INI_MASKS_ETC 
     &    recip_rAw(i,j,bi,bj) = 1. _d 0/rAw(i,j,bi,bj)
./model/src/ini_masks_etc.F 78 INI_MASKS_ETC 
     &    recip_rAz(i,j,bi,bj) = 1. _d 0/rAz(i,j,bi,bj)
./model/src/ini_masks_etc.F 94 INI_MASKS_ETC 
         hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) )
./verification/fizhi-gridalt-hs/code/do_fizhi.F 160 DO_FIZHI 
       kF=1. _d 0/86400. _d 0
./verification/fizhi-gridalt-hs/code/do_fizhi.F 161 DO_FIZHI 
       sigma_b = 0.7 _d 0
./verification/fizhi-gridalt-hs/code/do_fizhi.F 162 DO_FIZHI 
       ka=1. _d 0/(40. _d 0*86400. _d 0)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 163 DO_FIZHI 
       ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 172 DO_FIZHI 
         recip_P0g= 1. _d 0 / pephy(i,j,Nrphys+1,bi,bj)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 174 DO_FIZHI 
         termP=0.5 _d 0*((pephy(i,j,L,bi,bj)+pephy(i,j,L+1,bi,bj))
./verification/fizhi-gridalt-hs/code/do_fizhi.F 176 DO_FIZHI 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/fizhi-gridalt-hs/code/do_fizhi.F 182 DO_FIZHI 
         term1=60. _d 0*(sin(lats(I,J,bi,bj)*deg2rad)**2)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 183 DO_FIZHI 
         termP=0.5 _d 0*( pephy(i,j,L,bi,bj) + pephy(i,j,L+1,bi,bj) )
./verification/fizhi-gridalt-hs/code/do_fizhi.F 184 DO_FIZHI 
         term2=10. _d 0*log(termP/atm_po)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 186 DO_FIZHI 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/fizhi-gridalt-hs/code/do_fizhi.F 187 DO_FIZHI 
         thetaEq=315. _d 0-term1-term2
./verification/fizhi-gridalt-hs/code/do_fizhi.F 190 DO_FIZHI 
     &     *MAX(0. _d 0,
./verification/fizhi-gridalt-hs/code/do_fizhi.F 191 DO_FIZHI 
     &       (termP*recip_P0g-sigma_b)/(1. _d 0-sigma_b) )
./model/src/ini_mixing.F 72 INI_MIXING 
           BL79LatArray(i,j,bi,bj) = 0.0 _d 0
./model/src/ini_model_io.F 191 INI_MODEL_IO 
          xy_buffer_r8(i) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1009 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1015 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 101 ECCO_COST_WEIGHTS 
         wti(k) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1021 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1027 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 102 ECCO_COST_WEIGHTS 
         wsi(k) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1033 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1039 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 103 ECCO_COST_WEIGHTS 
         wui(k) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1045 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 104 ECCO_COST_WEIGHTS 
         wvi(k) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1051 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1057 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1063 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1070 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1076 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1082 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1088 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1100 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1106 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 110 ECCO_COST_WEIGHTS 
              whflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1112 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1118 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 111 ECCO_COST_WEIGHTS 
              whfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 112 ECCO_COST_WEIGHTS 
              wsflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1130 ECCO_COST_WEIGHTS 
              wtheta(k,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1135 ECCO_COST_WEIGHTS 
              wsalt(k,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 113 ECCO_COST_WEIGHTS 
              wsfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1148 ECCO_COST_WEIGHTS 
                 wobcsn(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 114 ECCO_COST_WEIGHTS 
              wtauu   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1156 ECCO_COST_WEIGHTS 
                 wobcss(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 115 ECCO_COST_WEIGHTS 
              wtauum  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1164 ECCO_COST_WEIGHTS 
                 wobcsw(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 116 ECCO_COST_WEIGHTS 
              wtauv   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 1172 ECCO_COST_WEIGHTS 
                 wobcse(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 117 ECCO_COST_WEIGHTS 
              wtauvm  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS 
              watemp  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 119 ECCO_COST_WEIGHTS 
              waqh    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS 
              wuwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS 
              wvwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 122 ECCO_COST_WEIGHTS 
              wsst    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 123 ECCO_COST_WEIGHTS 
              wsss    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 124 ECCO_COST_WEIGHTS 
              wtp     (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 125 ECCO_COST_WEIGHTS 
              wers    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 126 ECCO_COST_WEIGHTS 
              wgfo    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 127 ECCO_COST_WEIGHTS 
              wp      (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 128 ECCO_COST_WEIGHTS 
              wudrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 129 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS 
              whflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 132 ECCO_COST_WEIGHTS 
              wsflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 133 ECCO_COST_WEIGHTS 
              wtauu2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 134 ECCO_COST_WEIGHTS 
              wtauv2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 143 ECCO_COST_WEIGHTS 
            wtheta (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 144 ECCO_COST_WEIGHTS 
            wsalt  (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 145 ECCO_COST_WEIGHTS 
            wctdt  (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 146 ECCO_COST_WEIGHTS 
            wctds  (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 149 ECCO_COST_WEIGHTS 
                wtheta2 (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 150 ECCO_COST_WEIGHTS 
                wsalt2  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 151 ECCO_COST_WEIGHTS 
                wthetaLev (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 152 ECCO_COST_WEIGHTS 
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 165 ECCO_COST_WEIGHTS 
          wobcsn(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 169 ECCO_COST_WEIGHTS 
          wobcss(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 173 ECCO_COST_WEIGHTS 
          wobcsw(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 177 ECCO_COST_WEIGHTS 
          wobcse(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 192 ECCO_COST_WEIGHTS 
            frame(i,j) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 194 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 201 ECCO_COST_WEIGHTS 
        factor = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 203 ECCO_COST_WEIGHTS 
        factor = 1. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 325 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 364 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 408 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 451 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 469 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 488 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 489 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 566 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 567 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 568 ECCO_COST_WEIGHTS 
                wgfo(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 625 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 642 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 680 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 686 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 714 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 757 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 788 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 831 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 863 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 899 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 931 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code/ecco_cost_weights.F 967 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0. _d 0
./model/src/ini_nh_vars.F 48 INI_NH_VARS 
              dPhiNH(i,j,bi,bj)    = 0. _d 0
./model/src/ini_nh_vars.F 54 INI_NH_VARS 
              phi_nh(i,j,k,bi,bj)  = 0. _d 0
./model/src/ini_nh_vars.F 55 INI_NH_VARS 
              gW   (i,j,k,bi,bj)   = 0. _d 0
./model/src/ini_nh_vars.F 57 INI_NH_VARS 
              gWnm (i,j,k,bi,bj,1) = 0. _d 0
./model/src/ini_nh_vars.F 58 INI_NH_VARS 
              gWnm (i,j,k,bi,bj,2) = 0. _d 0
./model/src/ini_nh_vars.F 60 INI_NH_VARS 
              gWnm1(i,j,k,bi,bj)   = 0. _d 0
./model/src/ini_nh_vars.F 62 INI_NH_VARS 
              viscAh_W(i,j,k,bi,bj)= 0. _d 0
./model/src/ini_nh_vars.F 63 INI_NH_VARS 
              viscA4_W(i,j,k,bi,bj)= 0. _d 0
./model/src/ini_nlfs_vars.F 127 INI_NLFS_VARS 
            etaHw(i,j,bi,bj) = 0.5 _d 0
./model/src/ini_nlfs_vars.F 129 INI_NLFS_VARS 
            etaHs(i,j,bi,bj) = 0.5 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1002 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1008 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 100 ECCO_COST_WEIGHTS 
         wti(k) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1014 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 101 ECCO_COST_WEIGHTS 
         wsi(k) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1020 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1026 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 102 ECCO_COST_WEIGHTS 
         wui(k) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1032 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1038 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 103 ECCO_COST_WEIGHTS 
         wvi(k) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1044 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1050 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1056 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1063 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1069 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1075 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1081 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1093 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1099 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 109 ECCO_COST_WEIGHTS 
              whflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1105 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 110 ECCO_COST_WEIGHTS 
              whfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1111 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 111 ECCO_COST_WEIGHTS 
              wsflux  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1123 ECCO_COST_WEIGHTS 
              wtheta(k,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1128 ECCO_COST_WEIGHTS 
              wsalt(k,bi,bj) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 112 ECCO_COST_WEIGHTS 
              wsfluxm (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 113 ECCO_COST_WEIGHTS 
              wtauu   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1141 ECCO_COST_WEIGHTS 
                 wobcsn(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1149 ECCO_COST_WEIGHTS 
                 wobcss(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 114 ECCO_COST_WEIGHTS 
              wtauum  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1157 ECCO_COST_WEIGHTS 
                 wobcsw(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 115 ECCO_COST_WEIGHTS 
              wtauv   (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 1165 ECCO_COST_WEIGHTS 
                 wobcse(k,iobcs) = 0.0 _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 116 ECCO_COST_WEIGHTS 
              wtauvm  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 117 ECCO_COST_WEIGHTS 
              watemp  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS 
              waqh    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 119 ECCO_COST_WEIGHTS 
              wuwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS 
              wvwind  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS 
              wsst    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 122 ECCO_COST_WEIGHTS 
              wsss    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 123 ECCO_COST_WEIGHTS 
              wtp     (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 124 ECCO_COST_WEIGHTS 
              wers    (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 125 ECCO_COST_WEIGHTS 
              wp      (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 126 ECCO_COST_WEIGHTS 
              wudrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 127 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 129 ECCO_COST_WEIGHTS 
              whflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 130 ECCO_COST_WEIGHTS 
              wsflux2 (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS 
              wtauu2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 132 ECCO_COST_WEIGHTS 
              wtauv2  (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 141 ECCO_COST_WEIGHTS 
            wtheta (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 142 ECCO_COST_WEIGHTS 
            wsalt  (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 143 ECCO_COST_WEIGHTS 
            wctdt  (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 144 ECCO_COST_WEIGHTS 
            wctds  (k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 147 ECCO_COST_WEIGHTS 
                wtheta2 (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
                wsalt2  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 149 ECCO_COST_WEIGHTS 
                wthetaLev (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 150 ECCO_COST_WEIGHTS 
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 163 ECCO_COST_WEIGHTS 
          wobcsn(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 167 ECCO_COST_WEIGHTS 
          wobcss(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 171 ECCO_COST_WEIGHTS 
          wobcsw(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 175 ECCO_COST_WEIGHTS 
          wobcse(k,iobcs) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 190 ECCO_COST_WEIGHTS 
            frame(i,j) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 192 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 199 ECCO_COST_WEIGHTS 
        factor = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 201 ECCO_COST_WEIGHTS 
        factor = 1. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 323 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 362 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 406 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 449 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 467 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 486 ECCO_COST_WEIGHTS 
                wsst(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 487 ECCO_COST_WEIGHTS 
                wsss(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 564 ECCO_COST_WEIGHTS 
                wtp (i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 565 ECCO_COST_WEIGHTS 
                wers(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 621 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 638 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 676 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 682 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 710 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 753 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 784 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 827 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 859 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 895 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 927 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0. _d 0
./verification/global1x1_tot/code_taueddy/ecco_cost_weights.F 963 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0. _d 0
./model/src/ini_p_ground.F 129 INI_P_GROUND 
      recip_kappa = 1. _d 0 / atm_kappa
./model/src/ini_p_ground.F 130 INI_P_GROUND 
      plowHvR = 0.4 _d 0
./model/src/ini_p_ground.F 138 INI_P_GROUND 
        pMidHvR(k)= (pLevHvR(k)+pLevHvR(k+1))*0.5 _d 0
./model/src/ini_p_ground.F 145 INI_P_GROUND 
         ratioRm(k) = 1. _d 0
./model/src/ini_p_ground.F 146 INI_P_GROUND 
         ratioRp(k) = 1. _d 0
./model/src/ini_p_ground.F 147 INI_P_GROUND 
         IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k))
./model/src/ini_p_ground.F 148 INI_P_GROUND 
         IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1))
./model/src/ini_p_ground.F 179 INI_P_GROUND 
          IF ( Hfld(i,j,bi,bj) .LE. 0. _d 0) THEN
./model/src/ini_p_ground.F 237 INI_P_GROUND 
                  IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0
./model/src/ini_p_ground.F 414 ANALYLIC_THETA 
     &  / 45. _d 0, 65. _d 0, 65. _d 0, .9 _d 0, .9 _d 0, 10. _d 0 /
./model/src/ini_p_ground.F 416 ANALYLIC_THETA 
     &   /  2.6 _d 0, 1.5 _d 0, 3.3 _d 0 /
./model/src/ini_p_ground.F 418 ANALYLIC_THETA 
     &   / .1 _d 0, .19 _d 0, .3 _d 0, .9 _d 0, .7 _d 0, .925 _d 0 /
./model/src/ini_p_ground.F 420 ANALYLIC_THETA 
     &   / 350. _d 0, 342. _d 0, 307. _d 0, 301. _d 0, 257. _d 0 /
./model/src/ini_p_ground.F 425 ANALYLIC_THETA 
       yAtmp = yyA + MIN(0. _d 0,yAtmp/yyAd) + MAX(yAtmp, 0. _d 0)
./model/src/ini_p_ground.F 426 ANALYLIC_THETA 
       yAtmp = COS( deg2rad*MAX(yAtmp, 0. _d 0) )
./model/src/ini_p_ground.F 429 ANALYLIC_THETA 
       yBtmp = COS( deg2rad*MAX( 0. _d 0, MIN(yBtmp,90. _d 0) ) )
./model/src/ini_p_ground.F 431 ANALYLIC_THETA 
       yCtmp = MAX( 0. _d 0, 1. _d 0 - (yCtmp/yyCd)**2 )
./model/src/ini_p_ground.F 442 ANALYLIC_THETA 
     &       ( (1. _d 0 -ppr)*ttp1*ppN1**atm_kappa
./model/src/ini_p_ground.F 445 ANALYLIC_THETA 
     &     + a1tmp*(1. _d 0 /ppm - 1. _d 0/ppN1)
./model/src/ini_p_ground.F 447 ANALYLIC_THETA 
     &     + (ttdC+yCtmp)*MAX(0. _d 0,pNlev(k)-yDtmp)/(1-yDtmp)
./model/src/ini_parms.F 1058 INI_PARMS 
       recip_rSphere = 1. _d 0/rSphere
./model/src/ini_parms.F 1133 INI_PARMS 
      IF ( phiEuler .NE. 0. _d 0 .OR. thetaEuler .NE. 0. _d 0
./model/src/ini_parms.F 1134 INI_PARMS 
     &     .OR. psiEuler .NE. 0. _d 0 ) rotateGrid = .TRUE.
./model/src/ini_parms.F 1139 INI_PARMS 
        IF ( usingSphericalPolarGrid ) latBandClimRelax= 180. _d 0
./model/src/ini_parms.F 1140 INI_PARMS 
        IF ( usingCurvilinearGrid )    latBandClimRelax= 180. _d 0
./model/src/ini_parms.F 409 INI_PARMS 
      IF ( implicitFreeSurface ) freeSurfFac = 1. _d 0
./model/src/ini_parms.F 410 INI_PARMS 
      IF ( rigidLid            ) freeSurfFac = 0. _d 0
./model/src/ini_parms.F 417 INI_PARMS 
        omega = 0. _d 0
./model/src/ini_parms.F 418 INI_PARMS 
        IF ( rotationPeriod .NE. 0. _d 0 )
./model/src/ini_parms.F 419 INI_PARMS 
     &  omega = 2. _d 0 * PI / rotationPeriod
./model/src/ini_parms.F 420 INI_PARMS 
      ELSEIF ( omega .EQ. 0. _d 0 ) THEN
./model/src/ini_parms.F 421 INI_PARMS 
        rotationPeriod = 0. _d 0
./model/src/ini_parms.F 423 INI_PARMS 
        rotationPeriod = 2. _d 0 * PI / omega
./model/src/ini_parms.F 581 INI_PARMS 
       recip_rhoConst = 1. _d 0 / rhoConst
./model/src/ini_parms.F 589 INI_PARMS 
       recip_rhoNil = 1. _d 0 / rhoNil
./model/src/ini_parms.F 597 INI_PARMS 
       recip_Cp = 1. _d 0 / HeatCapacity_Cp
./model/src/ini_parms.F 605 INI_PARMS 
       recip_gravity = 1. _d 0 / gravity
./model/src/ini_parms.F 746 INI_PARMS 
      rCD               = -1. _d 0
./model/src/ini_parms.F 749 INI_PARMS 
      deltaTtracer      = 0. _d 0
./model/src/ini_parms.F 872 INI_PARMS 
        IF ( tauCD .EQ. 0. _d 0 ) tauCD = deltaTmom
./model/src/ini_parms.F 873 INI_PARMS 
        IF ( rCD .LT. 0. ) rCD = 1. _d 0 - deltaTMom/tauCD
./model/src/ini_parms.F 877 INI_PARMS 
      IF ( tauThetaClimRelax .EQ. 0. _d 0 ) THEN
./model/src/ini_parms.F 883 INI_PARMS 
      IF ( tauSaltClimRelax .EQ. 0. _d 0 ) THEN
./model/src/ini_pressure.F 102 INI_PRESSURE 
             phiHydF(i,j) = 0. _d 0
./model/src/ini_pressure.F 139 INI_PRESSURE 
           rmspp = 0. _d 0
./model/src/ini_pressure.F 73 INI_PRESSURE 
           totPhiHyd(i,j,k,bi,bj) = 0. _d 0
./model/src/ini_pressure.F 87 INI_PRESSURE 
       rmspp    = 1. _d 0
./model/src/ini_pressure.F 88 INI_PRESSURE 
       rmsppold = 0. _d 0
./model/src/ini_pressure.F 94 INI_PRESSURE 
        rmspp    = 0. _d 0
./model/src/ini_pressure.F 95 INI_PRESSURE 
        count    = 0. _d 0
./model/src/ini_pressure.F 98 INI_PRESSURE 
          rmsTile = 0. _d 0
./model/src/ini_pressure.F 99 INI_PRESSURE 
          sumTile = 0. _d 0
./model/src/ini_psurf.F 55 INI_PSURF 
          etaN(I,J,bi,bj) = 0. _d 0
./model/src/ini_psurf.F 90 INI_PSURF 
          dEtaHdt(i,j,bi,bj) = 0. _d 0
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h 277 NO PROCEDURE 
      parameter ( ZERO = 0.0 _d 0, ONE = 1.0 _d 0, TWO = 2.0 _d 0 )
./verification/global_ocean.cs32x15/code_ad/SEAICE_PARAMS.h 279 NO PROCEDURE 
      parameter ( QUART = 0.25 _d 0, HALF = 0.5 _d 0 )
./model/src/ini_sigma_hfac.F 104 INI_SIGMA_HFAC 
           IF ( maskInC(i,j,bi,bj).NE.0. _d 0 ) THEN
./model/src/ini_sigma_hfac.F 151 INI_SIGMA_HFAC 
     &               + Ro_surf( i, j,bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 154 INI_SIGMA_HFAC 
     &                 + R_low( i, j,bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 174 INI_SIGMA_HFAC 
     &               + Ro_surf(i, j, bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 177 INI_SIGMA_HFAC 
     &                 + R_low(i, j, bi,bj) )*0.5 _d 0
./model/src/ini_sigma_hfac.F 74 INI_SIGMA_HFAC 
     &       tmpFld(i,j) = 0. _d 0
./model/src/ini_sigma_hfac.F 85 INI_SIGMA_HFAC 
           IF ( tmpFld(i,j).GT.0. _d 0 ) THEN
./model/src/ini_sigma_hfac.F 89 INI_SIGMA_HFAC 
             recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpFld(i,j)
./model/src/ini_sigma_hfac.F 94 INI_SIGMA_HFAC 
             recip_Rcol(i,j,bi,bj) = 0. _d 0
./model/src/ini_spherical_polar_grid.F 156 INI_SPHERICAL_POLAR_GRID 
          xC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_spherical_polar_grid.F 158 INI_SPHERICAL_POLAR_GRID 
          yC(i,j,bi,bj) = 0.25 _d 0*(
./model/src/ini_spherical_polar_grid.F 189 INI_SPHERICAL_POLAR_GRID 
          lat = 0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 216 INI_SPHERICAL_POLAR_GRID 
          dxC(i,j,bi,bj) = 0.5 _d 0*(dxF(i,j,bi,bj)+dxF(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F 232 INI_SPHERICAL_POLAR_GRID 
          dyC(i,j,bi,bj) = 0.5 _d 0*(dyF(i,j,bi,bj)+dyF(i,j-1,bi,bj))
./model/src/ini_spherical_polar_grid.F 246 INI_SPHERICAL_POLAR_GRID 
          dxV(i,j,bi,bj) = 0.5 _d 0*(dxG(i,j,bi,bj)+dxG(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F 247 INI_SPHERICAL_POLAR_GRID 
          dyU(i,j,bi,bj) = 0.5 _d 0*(dyG(i,j,bi,bj)+dyG(i,j-1,bi,bj))
./model/src/ini_spherical_polar_grid.F 257 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./model/src/ini_spherical_polar_grid.F 263 INI_SPHERICAL_POLAR_GRID 
          lat=yC(i,j,bi,bj)-delY( jGl(j,bj) )*0.5 _d 0
./model/src/ini_spherical_polar_grid.F 264 INI_SPHERICAL_POLAR_GRID 
          lon=yC(i,j,bi,bj)+delY( jGl(j,bj) )*0.5 _d 0
./model/src/ini_spherical_polar_grid.F 275 INI_SPHERICAL_POLAR_GRID 
          rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj))
./model/src/ini_spherical_polar_grid.F 291 INI_SPHERICAL_POLAR_GRID 
          dlat=0.5 _d 0*( delY( jGl(j,bj) ) + delY( jGl(j-1,bj) ) )
./model/src/ini_spherical_polar_grid.F 308 INI_SPHERICAL_POLAR_GRID 
          lat =0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F 309 INI_SPHERICAL_POLAR_GRID 
          dlon=0.5 _d 0*( delX( iGl(i,bi) ) + delX( iGl(i-1,bi) ) )
./model/src/ini_spherical_polar_grid.F 310 INI_SPHERICAL_POLAR_GRID 
          dlat=0.5 _d 0*( delY( jGl(j,bj) ) + delY( jGl(j-1,bj) ) )
./model/src/ini_spherical_polar_grid.F 320 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i,j+1))
./model/src/ini_spherical_polar_grid.F 322 INI_SPHERICAL_POLAR_GRID 
          lat=0.5 _d 0*(yGloc(i,j)+yGloc(i+1,j))
./verification/hs94.128x64x5/code/external_forcing.F 120 EXTERNAL_FORCING_V 
      kF=1. _d 0/86400. _d 0
./verification/hs94.128x64x5/code/external_forcing.F 121 EXTERNAL_FORCING_V 
      sigma_b = 0.7 _d 0
./verification/hs94.128x64x5/code/external_forcing.F 128 EXTERNAL_FORCING_V 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.128x64x5/code/external_forcing.F 131 EXTERNAL_FORCING_V 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.128x64x5/code/external_forcing.F 188 EXTERNAL_FORCING_T 
      ka=1. _d 0/(40. _d 0*86400. _d 0)
./verification/hs94.128x64x5/code/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.128x64x5/code/external_forcing.F 190 EXTERNAL_FORCING_T 
      sigma_b = 0.7 _d 0
./verification/hs94.128x64x5/code/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.128x64x5/code/external_forcing.F 194 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) )
./verification/hs94.128x64x5/code/external_forcing.F 195 EXTERNAL_FORCING_T 
         term2=10. _d 0*LOG(termP/atm_po)
./verification/hs94.128x64x5/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.128x64x5/code/external_forcing.F 198 EXTERNAL_FORCING_T 
         thetaEq=315. _d 0-term1-term2
./verification/hs94.128x64x5/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.128x64x5/code/external_forcing.F 202 EXTERNAL_FORCING_T 
     &     *MAX(0. _d 0,
./verification/hs94.128x64x5/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.128x64x5/code/external_forcing.F 52 EXTERNAL_FORCING_U 
      kF=1. _d 0/86400. _d 0
./verification/hs94.128x64x5/code/external_forcing.F 53 EXTERNAL_FORCING_U 
      sigma_b = 0.7 _d 0
./verification/hs94.128x64x5/code/external_forcing.F 60 EXTERNAL_FORCING_U 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.128x64x5/code/external_forcing.F 63 EXTERNAL_FORCING_U 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code/external_forcing.F 120 EXTERNAL_FORCING_V 
      kF=1. _d 0/86400. _d 0
./verification/hs94.1x64x5/code/external_forcing.F 121 EXTERNAL_FORCING_V 
      sigma_b = 0.7 _d 0
./verification/hs94.1x64x5/code/external_forcing.F 128 EXTERNAL_FORCING_V 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.1x64x5/code/external_forcing.F 131 EXTERNAL_FORCING_V 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code/external_forcing.F 188 EXTERNAL_FORCING_T 
      ka=1. _d 0/(40. _d 0*86400. _d 0)
./verification/hs94.1x64x5/code/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.1x64x5/code/external_forcing.F 190 EXTERNAL_FORCING_T 
      sigma_b = 0.7 _d 0
./verification/hs94.1x64x5/code/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/external_forcing.F 194 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) )
./verification/hs94.1x64x5/code/external_forcing.F 195 EXTERNAL_FORCING_T 
         term2=10. _d 0*LOG(termP/atm_po)
./verification/hs94.1x64x5/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code/external_forcing.F 198 EXTERNAL_FORCING_T 
         thetaEq=315. _d 0-term1-term2
./verification/hs94.1x64x5/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.1x64x5/code/external_forcing.F 202 EXTERNAL_FORCING_T 
     &     *MAX(0. _d 0,
./verification/hs94.1x64x5/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code/external_forcing.F 52 EXTERNAL_FORCING_U 
      kF=1. _d 0/86400. _d 0
./verification/hs94.1x64x5/code/external_forcing.F 53 EXTERNAL_FORCING_U 
      sigma_b = 0.7 _d 0
./verification/hs94.1x64x5/code/external_forcing.F 60 EXTERNAL_FORCING_U 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.1x64x5/code/external_forcing.F 63 EXTERNAL_FORCING_U 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code/ini_theta.F 66 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code/ini_theta.F 69 INI_THETA 
            term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code/ini_theta.F 70 INI_THETA 
            term2=10. _d 0*log((rC(K)/atm_po))
./verification/hs94.1x64x5/code/ini_theta.F 72 INI_THETA 
            thetaEq=315. _d 0-term1-term2
./model/src/ini_theta.F 132 INI_THETA 
      Tfreezing=-1.9 _d 0
./verification/hs94.1x64x5/code_ad/cost_test.F 55 COST_TEST 
          objf_test(bi,bj)= 0. _d 0
./verification/hs94.1x64x5/code_ad/cost_test.F 84 COST_TEST 
          objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0
./verification/hs94.1x64x5/code_ad/external_forcing.F 120 EXTERNAL_FORCING_V 
      kF=1. _d 0/86400. _d 0
./verification/hs94.1x64x5/code_ad/external_forcing.F 121 EXTERNAL_FORCING_V 
      sigma_b = 0.7 _d 0
./verification/hs94.1x64x5/code_ad/external_forcing.F 128 EXTERNAL_FORCING_V 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.1x64x5/code_ad/external_forcing.F 131 EXTERNAL_FORCING_V 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code_ad/external_forcing.F 188 EXTERNAL_FORCING_T 
      ka=1. _d 0/(40. _d 0*86400. _d 0)
./verification/hs94.1x64x5/code_ad/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.1x64x5/code_ad/external_forcing.F 190 EXTERNAL_FORCING_T 
      sigma_b = 0.7 _d 0
./verification/hs94.1x64x5/code_ad/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/external_forcing.F 194 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) )
./verification/hs94.1x64x5/code_ad/external_forcing.F 195 EXTERNAL_FORCING_T 
         term2=10. _d 0*LOG(termP/atm_po)
./verification/hs94.1x64x5/code_ad/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_ad/external_forcing.F 198 EXTERNAL_FORCING_T 
         thetaEq=315. _d 0-term1-term2
./verification/hs94.1x64x5/code_ad/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.1x64x5/code_ad/external_forcing.F 202 EXTERNAL_FORCING_T 
     &     *MAX(0. _d 0,
./verification/hs94.1x64x5/code_ad/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code_ad/external_forcing.F 52 EXTERNAL_FORCING_U 
      kF=1. _d 0/86400. _d 0
./verification/hs94.1x64x5/code_ad/external_forcing.F 53 EXTERNAL_FORCING_U 
      sigma_b = 0.7 _d 0
./verification/hs94.1x64x5/code_ad/external_forcing.F 60 EXTERNAL_FORCING_U 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.1x64x5/code_ad/external_forcing.F 63 EXTERNAL_FORCING_U 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.1x64x5/code_ad/ini_theta.F 66 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.1x64x5/code_ad/ini_theta.F 69 INI_THETA 
            term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.1x64x5/code_ad/ini_theta.F 70 INI_THETA 
            term2=10. _d 0*log((rC(K)/atm_po))
./verification/hs94.1x64x5/code_ad/ini_theta.F 72 INI_THETA 
            thetaEq=315. _d 0-term1-term2
./verification/hs94.cs-32x32x5/code/external_forcing.F 138 EXTERNAL_FORCING_V 
      kF=1. _d 0/86400. _d 0
./verification/hs94.cs-32x32x5/code/external_forcing.F 139 EXTERNAL_FORCING_V 
      sigma_b = 0.7 _d 0
./verification/hs94.cs-32x32x5/code/external_forcing.F 148 EXTERNAL_FORCING_V 
          termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.cs-32x32x5/code/external_forcing.F 163 EXTERNAL_FORCING_V 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.cs-32x32x5/code/external_forcing.F 221 EXTERNAL_FORCING_T 
      ka=1. _d 0/(40. _d 0*86400. _d 0)
./verification/hs94.cs-32x32x5/code/external_forcing.F 222 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/hs94.cs-32x32x5/code/external_forcing.F 223 EXTERNAL_FORCING_T 
      sigma_b = 0.7 _d 0
./verification/hs94.cs-32x32x5/code/external_forcing.F 227 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/external_forcing.F 228 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) )
./verification/hs94.cs-32x32x5/code/external_forcing.F 229 EXTERNAL_FORCING_T 
         term2=10. _d 0*LOG(termP/atm_po)
./verification/hs94.cs-32x32x5/code/external_forcing.F 231 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/hs94.cs-32x32x5/code/external_forcing.F 232 EXTERNAL_FORCING_T 
         thetaEq=315. _d 0-term1-term2
./verification/hs94.cs-32x32x5/code/external_forcing.F 235 EXTERNAL_FORCING_T 
          termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/hs94.cs-32x32x5/code/external_forcing.F 251 EXTERNAL_FORCING_T 
     &     *MAX(0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/hs94.cs-32x32x5/code/external_forcing.F 54 EXTERNAL_FORCING_U 
      kF=1. _d 0/86400. _d 0
./verification/hs94.cs-32x32x5/code/external_forcing.F 55 EXTERNAL_FORCING_U 
      sigma_b = 0.7 _d 0
./verification/hs94.cs-32x32x5/code/external_forcing.F 64 EXTERNAL_FORCING_U 
          termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/hs94.cs-32x32x5/code/external_forcing.F 79 EXTERNAL_FORCING_U 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./model/src/ini_vel.F 51 INI_VEL 
           uVel(i,j,k,bi,bj)=0. _d 0
./model/src/ini_vel.F 52 INI_VEL 
           vVel(i,j,k,bi,bj)=0. _d 0
./verification/hs94.cs-32x32x5/code/ini_theta.F 66 INI_THETA 
          thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa)
./verification/hs94.cs-32x32x5/code/ini_theta.F 69 INI_THETA 
            term1=60. _d 0*(sin(yC(I,J,bi,bj)*deg2rad)**2)
./verification/hs94.cs-32x32x5/code/ini_theta.F 70 INI_THETA 
            term2=10. _d 0*log((rC(K)/atm_po))
./verification/hs94.cs-32x32x5/code/ini_theta.F 72 INI_THETA 
            thetaEq=315. _d 0-term1-term2
./verification/internal_wave/code/obcs_calc.F 106 OBCS_CALC 
          OBWu(J,K,bi,bj)=0. _d 0
./verification/internal_wave/code/obcs_calc.F 109 OBCS_CALC 
     &       *sin(2. _d 0*PI*futureTime/obTimeScale)
./verification/internal_wave/code/obcs_calc.F 114 OBCS_CALC 
     &   *cos(kx*(3. _d 0-2. _d 0-0.5 _d 0)*delX(1))
./verification/internal_wave/code/obcs_calc.F 115 OBCS_CALC 
          OBWv(J,K,bi,bj)=0. _d 0
./verification/internal_wave/code/obcs_calc.F 117 OBCS_CALC 
     &       *f0/(2.0 _d 0*PI/obTimeScale)
./verification/internal_wave/code/obcs_calc.F 119 OBCS_CALC 
     &       *cos(2. _d 0*PI*futureTime/obTimeScale )
./verification/internal_wave/code/obcs_calc.F 125 OBCS_CALC 
     & + Uinflow*sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr))
./verification/internal_wave/code/obcs_calc.F 126 OBCS_CALC 
     & * sin(2.0 _d 0*PI*futureTime/obTimeScale)
./verification/internal_wave/code/obcs_calc.F 128 OBCS_CALC 
     & *sqrt(2.0 _d 0*PI/obTimeScale*2.0*PI/obTimeScale - f0*f0)
./verification/internal_wave/code/obcs_calc.F 129 OBCS_CALC 
     & /(2.0 _d 0*PI/obTimeScale)
./verification/internal_wave/code/obcs_calc.F 136 OBCS_CALC 
     & *sqrt(2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale - f0*f0)
./verification/internal_wave/code/obcs_calc.F 138 OBCS_CALC 
     &          2.0 _d 0*PI/obTimeScale*2.0 _d 0*PI/obTimeScale)
./verification/internal_wave/code/obcs_calc.F 139 OBCS_CALC 
     & *sin(mz*PI*(float(k)-0.5 _d 0)/float(Nr))
./verification/internal_wave/code/obcs_calc.F 140 OBCS_CALC 
     &       *cos(2. _d 0*PI*futureTime/obTimeScale)
./verification/internal_wave/code/obcs_calc.F 48 OBCS_CALC 
      mz=1.0 _d 0
./verification/internal_wave/code/obcs_calc.F 50 OBCS_CALC 
      strat = 1.0 _d -6 / (gravity*tAlpha)
./verification/internal_wave/code/obcs_calc.F 63 OBCS_CALC 
      obTimeScale = 44567.0 _d 0
./verification/internal_wave/code/obcs_calc.F 64 OBCS_CALC 
       kx=mz*2. _d 0*pi/400.0 _d 0
./verification/internal_wave/code/obcs_calc.F 65 OBCS_CALC 
     &  *sqrt((2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale)
./verification/internal_wave/code/obcs_calc.F 66 OBCS_CALC 
     & - f0*f0)/(1.0 _d -6
./verification/internal_wave/code/obcs_calc.F 67 OBCS_CALC 
     & - 2.0 _d 0*pi*2.0 _d 0*pi/(obTimeScale*obTimeScale)))
./verification/internal_wave/code/obcs_calc.F 68 OBCS_CALC 
      Uinflow = 0.024 _d 0
./verification/internal_wave/code/obcs_calc.F 72 OBCS_CALC 
      rampTime2 = 4. _d 0*44567.0 _d 0
./model/src/ini_vertical_grid.F 122 INI_VERTICAL_GRID 
       drC(1)  = 0.5 _d 0 *delR(1)
./model/src/ini_vertical_grid.F 124 INI_VERTICAL_GRID 
         drC(k) = 0.5 _d 0 *(delR(k-1)+delR(k))
./model/src/ini_vertical_grid.F 140 INI_VERTICAL_GRID 
      checkRatio1 = 1. _d 0 / checkRatio2
./model/src/ini_vertical_grid.F 164 INI_VERTICAL_GRID 
       recip_drC(k)   = 1. _d 0/drC(k)
./model/src/ini_vertical_grid.F 165 INI_VERTICAL_GRID 
       recip_drF(k)   = 1. _d 0/drF(k)
./model/src/ini_vertical_grid.F 171 INI_VERTICAL_GRID 
         aHybSigmF(k) = 0. _d 0
./model/src/ini_vertical_grid.F 172 INI_VERTICAL_GRID 
         bHybSigmF(k) = 0. _d 0
./model/src/ini_vertical_grid.F 173 INI_VERTICAL_GRID 
         dAHybSigC(k) = 0. _d 0
./model/src/ini_vertical_grid.F 174 INI_VERTICAL_GRID 
         dAHybSigC(k) = 0. _d 0
./model/src/ini_vertical_grid.F 177 INI_VERTICAL_GRID 
         aHybSigmC(k) = 0. _d 0
./model/src/ini_vertical_grid.F 178 INI_VERTICAL_GRID 
         bHybSigmC(k) = 0. _d 0
./model/src/ini_vertical_grid.F 179 INI_VERTICAL_GRID 
         dAHybSigF(k) = 0. _d 0
./model/src/ini_vertical_grid.F 180 INI_VERTICAL_GRID 
         dAHybSigF(k) = 0. _d 0
./model/src/ini_vertical_grid.F 184 INI_VERTICAL_GRID 
       recip_fullDepth = 0. _d 0
./model/src/ini_vertical_grid.F 185 INI_VERTICAL_GRID 
       IF ( rFullDepth.GT.0. ) recip_fullDepth = 1. _d 0 / rFullDepth
./model/src/ini_vertical_grid.F 226 INI_VERTICAL_GRID 
          aHybSigmF(k) = (1. _d 0 - bHybSigmF(k))
./model/src/ini_vertical_grid.F 244 INI_VERTICAL_GRID 
          aHybSigmC(k) = (1. _d 0 - bHybSigmC(k))
./model/src/ini_vertical_grid.F 292 INI_VERTICAL_GRID 
        bHybSigmF(1) = 1. _d 0
./model/src/ini_vertical_grid.F 293 INI_VERTICAL_GRID 
        aHybSigmF(1) = 0. _d 0
./model/src/ini_vertical_grid.F 294 INI_VERTICAL_GRID 
        bHybSigmF(Nr+1) = 0. _d 0
./model/src/ini_vertical_grid.F 295 INI_VERTICAL_GRID 
        aHybSigmF(Nr+1) = 0. _d 0
./model/src/ini_vertical_grid.F 297 INI_VERTICAL_GRID 
          bHybSigmF(k) = ( bHybSigmC(k) + bHybSigmC(k-1) )*0.5 _d 0
./model/src/ini_vertical_grid.F 298 INI_VERTICAL_GRID 
          aHybSigmF(k) = ( aHybSigmC(k) + aHybSigmC(k-1) )*0.5 _d 0
./model/src/ini_vertical_grid.F 304 INI_VERTICAL_GRID 
          bHybSigmC(k) = ( bHybSigmF(k) + bHybSigmF(k+1) )*0.5 _d 0
./model/src/ini_vertical_grid.F 305 INI_VERTICAL_GRID 
          aHybSigmC(k) = ( aHybSigmF(k) + aHybSigmF(k+1) )*0.5 _d 0
./model/src/ini_vertical_grid.F 326 INI_VERTICAL_GRID 
       epsil = 1. _d -9
./model/src/ini_vertical_grid.F 56 INI_VERTICAL_GRID 
      rkSign       = -1. _d 0
./model/src/ini_vertical_grid.F 57 INI_VERTICAL_GRID 
      gravitySign  = -1. _d 0
./model/src/ini_vertical_grid.F 59 INI_VERTICAL_GRID 
         gravitySign = 1. _d 0
./model/src/ini_vertical_grid.F 96 INI_VERTICAL_GRID 
         drF(k-1) = 0.5 _d 0 *delRc(k) + drF(k-1)
./model/src/ini_vertical_grid.F 97 INI_VERTICAL_GRID 
         drF( k ) = 0.5 _d 0 *delRc(k)
./model/src/integr_continuity.F 149 INTEGR_CONTINUITY 
            PmEpR(i,j,bi,bj) = 0. _d 0
./model/src/integr_continuity.F 181 INTEGR_CONTINUITY 
       IF (implicDiv2Dflow.EQ. 0. _d 0) THEN
./model/src/integr_continuity.F 84 INTEGR_CONTINUITY 
         hDivFlow(i,j)      = 0. _d 0
./model/src/integr_continuity.F 85 INTEGR_CONTINUITY 
         utrans(i,j)        = 0. _d 0
./model/src/integr_continuity.F 86 INTEGR_CONTINUITY 
         vtrans(i,j)        = 0. _d 0
./model/src/momentum_correction_step.F 186 MOMENTUM_CORRECTION_STEP 
      IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)
./verification/rotating_tank/code/external_forcing.F 343 EXTERNAL_FORCING_T 
        swfracb(2)=0. _d 0
./verification/rotating_tank/code/external_forcing.F 357 EXTERNAL_FORCING_T 
      kDiffCyl = 3. _d -7
./verification/tidal_basin_2d/code/external_forcing.F 331 EXTERNAL_FORCING_T 
        swfracb(2)=0. _d 0
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F 49 COST_TRACER 
      locfc = 0. _d 0
./verification/tutorial_global_oce_latlon/code/ptracers_forcing.F 88 PTRACERS_FORCING 
     &                          + 1. _d 0 * maskC(i,j,k,bi,bj)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 110 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = 0. _d 0
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 68 PTRACERS_FORCING_SURF 
     &        + 1. _d 0 / (10. _d 0 * 86400. _d 0)
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 69 PTRACERS_FORCING_SURF 
     &                  * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) )
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 80 PTRACERS_FORCING_SURF 
        epsil = 1. _d -10
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F 81 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 42 COST_HFLUX 
      tmpC = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 53 COST_HFLUX 
      IF ( tmpC.GT.0. ) tmpC = 1. _d 0 / tmpC
./verification/tutorial_global_oce_optim/code_ad/cost_hflux.F 68 COST_HFLUX 
         locfc = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 46 COST_TEMP 
      tmp  = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 59 COST_TEMP 
      IF ( tmp.GT.0. ) tmp = 1. _d 0 / tmp
./verification/tutorial_global_oce_optim/code_ad/cost_temp.F 74 COST_TEMP 
         locfc = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 106 COST_WEIGHTS 
               wtheta(k,bi,bj) = 1. _d 0/wti(k)/wti(k)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 123 COST_WEIGHTS 
             IF (whfluxm(i,j,bi,bj) .NE. 0. _d 0) THEN
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 124 COST_WEIGHTS 
                 whfluxm(i,j,bi,bj) = 1. _d 0 /whfluxm(i,j,bi,bj)
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 127 COST_WEIGHTS 
                 whfluxm(i,j,bi,bj) = 1. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 59 COST_WEIGHTS 
         wti(k) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 65 COST_WEIGHTS 
              whfluxm(i,j,bi,bj)= 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 69 COST_WEIGHTS 
             wunit(k,bi,bj)  = 1. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 70 COST_WEIGHTS 
             wtheta(k,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/cost_weights.F 71 COST_WEIGHTS 
             wsalt(k,bi,bj)  = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 170 EXTERNAL_FORCING_SURF 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F 171 EXTERNAL_FORCING_SURF 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 101 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 105 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 1. _d 0/tauSaltClimRelax
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 107 INI_FORCING 
           lambdaSaltClimRelax(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 46 INI_FORCING 
          fu              (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 47 INI_FORCING 
          fv              (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 48 INI_FORCING 
          Qnet            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 49 INI_FORCING 
          EmPmR           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 50 INI_FORCING 
          saltFlux        (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 51 INI_FORCING 
          SST             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 52 INI_FORCING 
          SSS             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 53 INI_FORCING 
          Qsw             (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 54 INI_FORCING 
          pLoad           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 55 INI_FORCING 
          sIceLoad        (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 56 INI_FORCING 
          surfaceForcingU(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 57 INI_FORCING 
          surfaceForcingV(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 58 INI_FORCING 
          surfaceForcingT(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 59 INI_FORCING 
          surfaceForcingS(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 60 INI_FORCING 
          surfaceForcingTice(i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 62 INI_FORCING 
          taux0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 63 INI_FORCING 
          taux1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 64 INI_FORCING 
          tauy0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 65 INI_FORCING 
          tauy1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 66 INI_FORCING 
          Qnet0           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 67 INI_FORCING 
          Qnet1           (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 68 INI_FORCING 
          EmPmR0          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 69 INI_FORCING 
          EmPmR1          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 70 INI_FORCING 
          saltFlux0       (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 71 INI_FORCING 
          saltFlux1       (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 72 INI_FORCING 
          SST0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 73 INI_FORCING 
          SST1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 74 INI_FORCING 
          SSS0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 75 INI_FORCING 
          SSS1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 77 INI_FORCING 
          Qsw0            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 78 INI_FORCING 
          Qsw1            (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 81 INI_FORCING 
          pLoad0          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 82 INI_FORCING 
          pLoad1          (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 86 INI_FORCING 
          Qnetm (i,j,bi,bj) = 0. _d 0
./verification/tutorial_global_oce_optim/code_ad/ini_forcing.F 99 INI_FORCING 
           lambdaThetaClimRelax(i,j,bi,bj) = 1. _d 0/tauThetaClimRelax
./verification/tutorial_held_suarez_cs/code/external_forcing.F 120 EXTERNAL_FORCING_V 
      kF=1. _d 0/86400. _d 0
./verification/tutorial_held_suarez_cs/code/external_forcing.F 121 EXTERNAL_FORCING_V 
      sigma_b = 0.7 _d 0
./verification/tutorial_held_suarez_cs/code/external_forcing.F 128 EXTERNAL_FORCING_V 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 131 EXTERNAL_FORCING_V 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 188 EXTERNAL_FORCING_T 
      ka=1. _d 0/(40. _d 0*86400. _d 0)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 189 EXTERNAL_FORCING_T 
      ks=1. _d 0/(4. _d 0 *86400. _d 0)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 190 EXTERNAL_FORCING_T 
      sigma_b = 0.7 _d 0
./verification/tutorial_held_suarez_cs/code/external_forcing.F 193 EXTERNAL_FORCING_T 
         term1=60. _d 0*(SIN(yC(i,j,bi,bj)*deg2rad)**2)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 194 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 195 EXTERNAL_FORCING_T 
         term2=10. _d 0*LOG(termP/atm_po)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 197 EXTERNAL_FORCING_T 
         thetaLim = 200. _d 0/ ((termP/atm_po)**atm_kappa)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 198 EXTERNAL_FORCING_T 
         thetaEq=315. _d 0-term1-term2
./verification/tutorial_held_suarez_cs/code/external_forcing.F 200 EXTERNAL_FORCING_T 
         termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 202 EXTERNAL_FORCING_T 
     &     *MAX(0. _d 0,
./verification/tutorial_held_suarez_cs/code/external_forcing.F 203 EXTERNAL_FORCING_T 
     &       (termP*recip_Rcol(i,j,bi,bj)-sigma_b)/(1. _d 0-sigma_b) )
./verification/tutorial_held_suarez_cs/code/external_forcing.F 52 EXTERNAL_FORCING_U 
      kF=1. _d 0/86400. _d 0
./verification/tutorial_held_suarez_cs/code/external_forcing.F 53 EXTERNAL_FORCING_U 
      sigma_b = 0.7 _d 0
./verification/tutorial_held_suarez_cs/code/external_forcing.F 60 EXTERNAL_FORCING_U 
         termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0)
./verification/tutorial_held_suarez_cs/code/external_forcing.F 63 EXTERNAL_FORCING_U 
         kV=kF*MAX( 0. _d 0, (termP-sigma_b)/(1. _d 0-sigma_b) )
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 109 PTRACERS_FORCING_SURF 
            add2EmP(i,j) = 0. _d 0
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 79 PTRACERS_FORCING_SURF 
        epsil = 1. _d -10
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F 80 PTRACERS_FORCING_SURF 
        cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks)
./model/src/post_cg3d.F 116 POST_CG3D 
     &                  )        )/(1. _d 0 + tmpSurf )
./model/src/post_cg3d.F 123 POST_CG3D 
     &      implicitNHPress.LT.1. _d 0 ) THEN
./model/src/pre_cg3d.F 109 PRE_CG3D 
     &                   )/(1. _d 0 + tmpSurf )
./model/src/rotate_spherical_polar_grid.F 103 ROTATE_SPHERICAL_POLAR_GRID 
      Binv(1,3) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 107 ROTATE_SPHERICAL_POLAR_GRID 
      Binv(2,3) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 109 ROTATE_SPHERICAL_POLAR_GRID 
      Binv(3,1) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 110 ROTATE_SPHERICAL_POLAR_GRID 
      Binv(3,2) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 111 ROTATE_SPHERICAL_POLAR_GRID 
      Binv(3,3) =  1. _d 0
./model/src/rotate_spherical_polar_grid.F 115 ROTATE_SPHERICAL_POLAR_GRID 
        Ainv(ia,ja) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 116 ROTATE_SPHERICAL_POLAR_GRID 
        CB  (ia,ja) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 151 ROTATE_SPHERICAL_POLAR_GRID 
           XYZgeo(iA) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 161 ROTATE_SPHERICAL_POLAR_GRID 
          IF(XYZgeo(1) .EQ. 0. _d 0 .AND. XYZgeo(2) .EQ. 0. _d 0)THEN
./model/src/rotate_spherical_polar_grid.F 163 ROTATE_SPHERICAL_POLAR_GRID 
           X(I,J,bi,bj) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 166 ROTATE_SPHERICAL_POLAR_GRID 
           IF ( X(I,J,bi,bj) .LT. 0. _d 0 )
./model/src/rotate_spherical_polar_grid.F 167 ROTATE_SPHERICAL_POLAR_GRID 
     &          X(I,J,bi,bj) = X(I,J,bi,bj) + 360. _d 0
./model/src/rotate_spherical_polar_grid.F 169 ROTATE_SPHERICAL_POLAR_GRID 
          IF(hypotxy .EQ. 0. _d 0 .AND. XYZgeo(3) .EQ. 0. _d 0)THEN
./model/src/rotate_spherical_polar_grid.F 171 ROTATE_SPHERICAL_POLAR_GRID 
           Y(I,J,bi,bj) = 0. _d 0
./model/src/rotate_spherical_polar_grid.F 250 CALC_ANGLES 
          IF ( uNorm .NE. 0. _d 0 ) uNorm = 1./uNorm
./model/src/rotate_spherical_polar_grid.F 79 ROTATE_SPHERICAL_POLAR_GRID 
      Dinv(1,3) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 83 ROTATE_SPHERICAL_POLAR_GRID 
      Dinv(2,3) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 85 ROTATE_SPHERICAL_POLAR_GRID 
      Dinv(3,1) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 86 ROTATE_SPHERICAL_POLAR_GRID 
      Dinv(3,2) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 87 ROTATE_SPHERICAL_POLAR_GRID 
      Dinv(3,3) =  1. _d 0
./model/src/rotate_spherical_polar_grid.F 89 ROTATE_SPHERICAL_POLAR_GRID 
      Cinv(1,1) =  1. _d 0
./model/src/rotate_spherical_polar_grid.F 90 ROTATE_SPHERICAL_POLAR_GRID 
      Cinv(1,2) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 91 ROTATE_SPHERICAL_POLAR_GRID 
      Cinv(1,3) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 93 ROTATE_SPHERICAL_POLAR_GRID 
      Cinv(2,1) =  0. _d 0
./model/src/rotate_spherical_polar_grid.F 97 ROTATE_SPHERICAL_POLAR_GRID 
      Cinv(3,1) =  0. _d 0
./model/src/rotate_uv2en.F 100 ROTATE_UV2EN_RL 
          tmpV(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F 159 ROTATE_UV2EN_RL 
            uFldX(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 161 ROTATE_UV2EN_RL 
            vFldY(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 279 ROTATE_UV2EN_RS 
          tmpU(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F 281 ROTATE_UV2EN_RS 
          tmpV(i,j) = 0.5 _d 0
./model/src/rotate_uv2en.F 340 ROTATE_UV2EN_RS 
            uFldX(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 342 ROTATE_UV2EN_RS 
            vFldY(i,j,k,bi,bj) = 0.5 _d 0
./model/src/rotate_uv2en.F 98 ROTATE_UV2EN_RL 
          tmpU(i,j) = 0.5 _d 0
./model/src/seawater.F 119 NO PROCEDURE 
      PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 )
./model/src/seawater.F 173 NO PROCEDURE 
      sref = 35. _d 0
./model/src/seawater.F 174 NO PROCEDURE 
      a0 =  3.5803 _d -5
./model/src/seawater.F 175 NO PROCEDURE 
      a1 = +8.5258 _d -6
./model/src/seawater.F 176 NO PROCEDURE 
      a2 = -6.836 _d -8
./model/src/seawater.F 177 NO PROCEDURE 
      a3 =  6.6228 _d -10
./model/src/seawater.F 179 NO PROCEDURE 
      b0 = +1.8932 _d -6
./model/src/seawater.F 180 NO PROCEDURE 
      b1 = -4.2393 _d -8
./model/src/seawater.F 182 NO PROCEDURE 
      c0 = +1.8741 _d -8
./model/src/seawater.F 183 NO PROCEDURE 
      c1 = -6.7795 _d -10
./model/src/seawater.F 184 NO PROCEDURE 
      c2 = +8.733 _d -12
./model/src/seawater.F 185 NO PROCEDURE 
      c3 = -5.4481 _d -14
./model/src/seawater.F 187 NO PROCEDURE 
      d0 = -1.1351 _d -10
./model/src/seawater.F 188 NO PROCEDURE 
      d1 =  2.7759 _d -12
./model/src/seawater.F 190 NO PROCEDURE 
      e0 = -4.6206 _d -13
./model/src/seawater.F 191 NO PROCEDURE 
      e1 = +1.8676 _d -14
./model/src/seawater.F 192 NO PROCEDURE 
      e2 = -2.1687 _d -16
./model/src/seawater.F 50 NO PROCEDURE 
      PARAMETER ( onehalf = 0.5 _d 0, two = 2. _d 0, three = 3. _d 0 )
./model/src/set_defaults.F 101 SET_DEFAULTS 
      rotationPeriod      = 86164. _d 0
./model/src/set_defaults.F 102 SET_DEFAULTS 
      viscAh              = 0. _d 3
./model/src/set_defaults.F 103 SET_DEFAULTS 
      viscAhGrid          = 0. _d 0
./model/src/set_defaults.F 104 SET_DEFAULTS 
      viscAhGridMin       = 0. _d 0
./model/src/set_defaults.F 105 SET_DEFAULTS 
      viscAhGridMax       = 1. _d 21
./model/src/set_defaults.F 106 SET_DEFAULTS 
      viscAhMax           = 1. _d 21
./model/src/set_defaults.F 107 SET_DEFAULTS 
      viscAhReMax         = 0. _d 0
./model/src/set_defaults.F 108 SET_DEFAULTS 
      viscC2leith         = 0. _d 0
./model/src/set_defaults.F 109 SET_DEFAULTS 
      viscC2leithD        = 0. _d 0
./model/src/set_defaults.F 110 SET_DEFAULTS 
      viscC2smag          = 0. _d 0
./model/src/set_defaults.F 111 SET_DEFAULTS 
      diffKhT             = 0. _d 3
./model/src/set_defaults.F 112 SET_DEFAULTS 
      diffKhS             = 0. _d 3
./model/src/set_defaults.F 113 SET_DEFAULTS 
      viscArDefault       = 0. _d -3
./model/src/set_defaults.F 116 SET_DEFAULTS 
      sideDragFactor      = 2. _d 0
./model/src/set_defaults.F 119 SET_DEFAULTS 
      smoothAbsFuncRange  = 0. _d 0
./model/src/set_defaults.F 120 SET_DEFAULTS 
      diffKrTDefault      = 0. _d -3
./model/src/set_defaults.F 121 SET_DEFAULTS 
      diffKrSDefault      = 0. _d -3
./model/src/set_defaults.F 122 SET_DEFAULTS 
      diffKrBL79surf      = 0. _d 0
./model/src/set_defaults.F 123 SET_DEFAULTS 
      diffKrBL79deep      = 0. _d 0
./model/src/set_defaults.F 124 SET_DEFAULTS 
      diffKrBL79scl       = 200. _d 0
./model/src/set_defaults.F 125 SET_DEFAULTS 
      diffKrBL79Ho        = -2000. _d 0
./model/src/set_defaults.F 131 SET_DEFAULTS 
      viscA4              = 0. _d 11
./model/src/set_defaults.F 132 SET_DEFAULTS 
      viscA4Grid          = 0. _d 0
./model/src/set_defaults.F 133 SET_DEFAULTS 
      viscA4GridMax       = 1. _d 21
./model/src/set_defaults.F 134 SET_DEFAULTS 
      viscA4GridMin       = 0. _d 0
./model/src/set_defaults.F 135 SET_DEFAULTS 
      viscA4Max           = 1. _d 21
./model/src/set_defaults.F 136 SET_DEFAULTS 
      viscA4ReMax         = 0. _d 0
./model/src/set_defaults.F 137 SET_DEFAULTS 
      viscC4leith         = 0. _d 0
./model/src/set_defaults.F 138 SET_DEFAULTS 
      viscC4leithD        = 0. _d 0
./model/src/set_defaults.F 139 SET_DEFAULTS 
      viscC4smag          = 0. _d 0
./model/src/set_defaults.F 140 SET_DEFAULTS 
      diffK4T             = 0. _d 11
./model/src/set_defaults.F 141 SET_DEFAULTS 
      diffK4S             = 0. _d 11
./model/src/set_defaults.F 143 SET_DEFAULTS 
      HeatCapacity_Cp     = 3994. _d 0
./model/src/set_defaults.F 148 SET_DEFAULTS 
      hFacMin             = 1. _d 0
./model/src/set_defaults.F 149 SET_DEFAULTS 
      hFacMinDrDefault    = 0. _d 0
./model/src/set_defaults.F 181 SET_DEFAULTS 
      ivdc_kappa          = 0. _d 0
./model/src/set_defaults.F 182 SET_DEFAULTS 
      hMixCriteria        = -.8 _d 0
./model/src/set_defaults.F 183 SET_DEFAULTS 
      dRhoSmall           = 1. _d -6
./model/src/set_defaults.F 184 SET_DEFAULTS 
      hMixSmooth          = 0. _d 0
./model/src/set_defaults.F 208 SET_DEFAULTS 
      implicSurfPress     = 1. _d 0
./model/src/set_defaults.F 209 SET_DEFAULTS 
      implicDiv2Dflow     = 1. _d 0
./model/src/set_defaults.F 214 SET_DEFAULTS 
      hFacInf             = 0.2 _d 0
./model/src/set_defaults.F 215 SET_DEFAULTS 
      hFacSup             = 2.0 _d 0
./model/src/set_defaults.F 229 SET_DEFAULTS 
      celsius2K = 273.16 _d 0
./model/src/set_defaults.F 230 SET_DEFAULTS 
      atm_Po =  1. _d 5
./model/src/set_defaults.F 231 SET_DEFAULTS 
      atm_Cp = 1004. _d 0
./model/src/set_defaults.F 233 SET_DEFAULTS 
      atm_kappa = 2. _d 0 / 7. _d 0
./model/src/set_defaults.F 234 SET_DEFAULTS 
      atm_Rq = 0. _d 0
./model/src/set_defaults.F 240 SET_DEFAULTS 
      cg2dTargetResidual = 1. _d -7
./model/src/set_defaults.F 243 SET_DEFAULTS 
      cg2dpcOffDFac      = 0.51 _d 0
./model/src/set_defaults.F 246 SET_DEFAULTS 
      cg3dTargetResidual = 1. _d -7
./model/src/set_defaults.F 251 SET_DEFAULTS 
      deltaT            = 0. _d 0
./model/src/set_defaults.F 252 SET_DEFAULTS 
      deltaTmom         = 0. _d 0
./model/src/set_defaults.F 253 SET_DEFAULTS 
      deltaTfreesurf    = 0. _d 0
./model/src/set_defaults.F 255 SET_DEFAULTS 
        dTtracerLev(k)  = 0. _d 0
./model/src/set_defaults.F 257 SET_DEFAULTS 
      baseTime          = 0. _d 0
./model/src/set_defaults.F 269 SET_DEFAULTS 
      abEps             = 0.01 _d 0
./model/src/set_defaults.F 271 SET_DEFAULTS 
      alph_AB           = 0.5 _d 0
./model/src/set_defaults.F 272 SET_DEFAULTS 
      beta_AB           = 5. _d 0 / 12. _d 0
./model/src/set_defaults.F 297 SET_DEFAULTS 
      tave_lastIter     = 0.5 _d 0
./model/src/set_defaults.F 301 SET_DEFAULTS 
      cAdjFreq          =  0. _d 0
./model/src/set_defaults.F 302 SET_DEFAULTS 
      tauCD             =  0. _d 0
./model/src/set_defaults.F 303 SET_DEFAULTS 
      tauThetaClimRelax =  0. _d 0
./model/src/set_defaults.F 304 SET_DEFAULTS 
      tauSaltClimRelax  =  0. _d 0
./model/src/set_defaults.F 76 SET_DEFAULTS 
      rSphere             = 6370. _d 3
./model/src/set_defaults.F 86 SET_DEFAULTS 
      phiEuler            = 0. _d 0
./model/src/set_defaults.F 87 SET_DEFAULTS 
      thetaEuler          = 0. _d 0
./model/src/set_defaults.F 88 SET_DEFAULTS 
      psiEuler            = 0. _d 0
./model/src/set_defaults.F 91 SET_DEFAULTS 
      nh_Am2              = 1. _d 0
./model/src/set_defaults.F 92 SET_DEFAULTS 
      gravity             = 9.81 _d 0
./model/src/set_defaults.F 93 SET_DEFAULTS 
      rhoNil              = 999.8 _d 0
./model/src/set_defaults.F 97 SET_DEFAULTS 
      f0                  = 1. _d -4
./model/src/set_defaults.F 98 SET_DEFAULTS 
      beta                = 1. _d -11
./model/src/set_defaults.F 99 SET_DEFAULTS 
      fPrime              = 0. _d 0
./model/src/set_grid_factors.F 52 SET_GRID_FACTORS 
        deepFacC(k) = 1. _d 0
./model/src/set_grid_factors.F 53 SET_GRID_FACTORS 
        deepFac2C(k)= 1. _d 0
./model/src/set_grid_factors.F 54 SET_GRID_FACTORS 
        recip_deepFacC(k) = 1. _d 0
./model/src/set_grid_factors.F 55 SET_GRID_FACTORS 
        recip_deepFac2C(k)= 1. _d 0
./model/src/set_grid_factors.F 58 SET_GRID_FACTORS 
        deepFacF(k) = 1. _d 0
./model/src/set_grid_factors.F 59 SET_GRID_FACTORS 
        deepFac2F(k)= 1. _d 0
./model/src/set_grid_factors.F 60 SET_GRID_FACTORS 
        recip_deepFacF(k) = 1. _d 0
./model/src/set_grid_factors.F 61 SET_GRID_FACTORS 
        recip_deepFac2F(k)= 1. _d 0
./model/src/set_grid_factors.F 88 SET_GRID_FACTORS 
        recip_deepFacC(k) = 1. _d 0/deepFacC(k)
./model/src/set_grid_factors.F 89 SET_GRID_FACTORS 
        recip_deepFac2C(k)= 1. _d 0/deepFac2C(k)
./model/src/set_grid_factors.F 92 SET_GRID_FACTORS 
        recip_deepFacF(k) = 1. _d 0/deepFacF(k)
./model/src/set_grid_factors.F 93 SET_GRID_FACTORS 
        recip_deepFac2F(k)= 1. _d 0/deepFac2F(k)
./model/src/set_parms.F 101 SET_PARMS 
       afFacMom = 0. _d 0
./model/src/set_parms.F 105 SET_PARMS 
       foFacMom = 1. _d 0
./model/src/set_parms.F 107 SET_PARMS 
       foFacMom = 0. _d 0
./model/src/set_parms.F 111 SET_PARMS 
       cfFacMom = 1. _d 0
./model/src/set_parms.F 113 SET_PARMS 
       cfFacMom = 0. _d 0
./model/src/set_parms.F 117 SET_PARMS 
       pfFacMom = 1. _d 0
./model/src/set_parms.F 119 SET_PARMS 
       pfFacMom = 0. _d 0
./model/src/set_parms.F 123 SET_PARMS 
       mTFacMom = 1. _d 0
./model/src/set_parms.F 125 SET_PARMS 
       mTFacMom = 0. _d 0
./model/src/set_parms.F 160 SET_PARMS 
       IF ( ABS(endTime-tmpVar).GT.deltaTClock*1. _d -6 ) THEN
./model/src/set_parms.F 93 SET_PARMS 
       vfFacMom = 1. _d 0
./model/src/set_parms.F 95 SET_PARMS 
       vfFacMom = 0. _d 0
./model/src/set_parms.F 99 SET_PARMS 
       afFacMom = 1. _d 0
./model/src/set_ref_state.F 120 SET_REF_STATE 
        dBdrRef(1) = 0. _d 0
./model/src/set_ref_state.F 152 SET_REF_STATE 
        dBdrRef(1) = 0. _d 0
./model/src/set_ref_state.F 164 SET_REF_STATE 
            rhoLoc = ( rhoDw + rhoUp )*0.5 _d 0
./model/src/set_ref_state.F 175 SET_REF_STATE 
          rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k)
./model/src/set_ref_state.F 182 SET_REF_STATE 
        dBdrRef(1) = 0. _d 0
./model/src/set_ref_state.F 204 SET_REF_STATE 
            thetaLoc = (tRef(k) + tRef(k-1))*0.5 _d 0
./model/src/set_ref_state.F 206 SET_REF_STATE 
          IF ( thetaLoc.GT.0. _d 0 .AND. rF(k).GT.0. _d 0 ) THEN
./model/src/set_ref_state.F 210 SET_REF_STATE 
            rVel2wUnit(k) = 1. _d 0 / wUnit2rVel(k)
./model/src/set_ref_state.F 217 SET_REF_STATE 
       phiRef(1) = 0. _d 0
./model/src/set_ref_state.F 258 SET_REF_STATE 
        phiRef(1) = 0. _d 0
./model/src/set_ref_state.F 279 SET_REF_STATE 
        rhoFacF(1)   = 1. _d 0
./model/src/set_ref_state.F 289 SET_REF_STATE 
        rhoFacF(Nr+1)= 2. _d 0*rhoFacC(Nr) - rhoFacF(Nr)
./model/src/set_ref_state.F 292 SET_REF_STATE 
          recip_rhoFacC(k) = 1. _d 0/rhoFacC(k)
./model/src/set_ref_state.F 295 SET_REF_STATE 
          recip_rhoFacF(k) = 1. _d 0/rhoFacF(k)
./model/src/set_ref_state.F 65 SET_REF_STATE 
        rVel2wUnit(k) = 1. _d 0
./model/src/set_ref_state.F 66 SET_REF_STATE 
        wUnit2rVel(k) = 1. _d 0
./model/src/set_ref_state.F 71 SET_REF_STATE 
        rhoFacC(k) = 1. _d 0
./model/src/set_ref_state.F 72 SET_REF_STATE 
        recip_rhoFacC(k) = 1. _d 0
./model/src/set_ref_state.F 75 SET_REF_STATE 
        rhoFacF(k) = 1. _d 0
./model/src/set_ref_state.F 76 SET_REF_STATE 
        recip_rhoFacF(k) = 1. _d 0
./model/src/solve_pentadiagonal.F 101 SOLVE_PENTADIAGONAL 
          IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F 102 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F 104 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F 125 SOLVE_PENTADIAGONAL 
          IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F 126 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F 128 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 0. _d 0
./model/src/solve_pentadiagonal.F 184 SOLVE_PENTADIAGONAL 
        a5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 185 SOLVE_PENTADIAGONAL 
        b5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 186 SOLVE_PENTADIAGONAL 
        c5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 187 SOLVE_PENTADIAGONAL 
        d5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 188 SOLVE_PENTADIAGONAL 
        e5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 189 SOLVE_PENTADIAGONAL 
        y5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 190 SOLVE_PENTADIAGONAL 
        y5d_update(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 198 SOLVE_PENTADIAGONAL 
           a5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 199 SOLVE_PENTADIAGONAL 
           b5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 206 SOLVE_PENTADIAGONAL 
           a5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 207 SOLVE_PENTADIAGONAL 
           b5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 217 SOLVE_PENTADIAGONAL 
           a5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 218 SOLVE_PENTADIAGONAL 
           b5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 232 SOLVE_PENTADIAGONAL 
          IF ( tmpval.NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F 235 SOLVE_PENTADIAGONAL 
           c5d_prime(k) = 1. _d 0
./model/src/solve_pentadiagonal.F 240 SOLVE_PENTADIAGONAL 
           a5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 241 SOLVE_PENTADIAGONAL 
           b5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 242 SOLVE_PENTADIAGONAL 
           c5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 243 SOLVE_PENTADIAGONAL 
           d5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 244 SOLVE_PENTADIAGONAL 
           e5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 245 SOLVE_PENTADIAGONAL 
           y5d_prime(k) = 0. _d 0
./model/src/solve_pentadiagonal.F 83 SOLVE_PENTADIAGONAL 
          IF ( c5d(i,j,k).NE.0. _d 0 ) THEN
./model/src/solve_pentadiagonal.F 84 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 1. _d 0 / c5d(i,j,k)
./model/src/solve_pentadiagonal.F 86 SOLVE_PENTADIAGONAL 
           c5d(i,j,k) = 0. _d 0
./model/src/solve_tridiagonal.F 140 SOLVE_TRIDIAGONAL 
        c3d_prime(k) = 0. _d 0
./model/src/solve_tridiagonal.F 141 SOLVE_TRIDIAGONAL 
        y3d_prime(k) = 0. _d 0
./model/src/solve_tridiagonal.F 142 SOLVE_TRIDIAGONAL 
        y3d_update(k) = 0. _d 0
./model/src/solve_tridiagonal.F 148 SOLVE_TRIDIAGONAL 
           IF ( b3d(i,j,1).NE.0. _d 0 ) THEN
./model/src/solve_tridiagonal.F 152 SOLVE_TRIDIAGONAL 
             c3d_prime(1) = 0. _d 0
./model/src/solve_tridiagonal.F 153 SOLVE_TRIDIAGONAL 
             y3d_prime(1) = 0. _d 0
./model/src/solve_tridiagonal.F 158 SOLVE_TRIDIAGONAL 
           IF ( tmpvar .NE. 0. _d 0 ) THEN
./model/src/solve_tridiagonal.F 163 SOLVE_TRIDIAGONAL 
             c3d_prime(k) = 0. _d 0
./model/src/solve_tridiagonal.F 164 SOLVE_TRIDIAGONAL 
             y3d_prime(k) = 0. _d 0
./model/src/solve_tridiagonal.F 71 SOLVE_TRIDIAGONAL 
         IF ( b3d(i,j,1).NE.0. _d 0 ) THEN
./model/src/solve_tridiagonal.F 72 SOLVE_TRIDIAGONAL 
           bet(i,j,1) = 1. _d 0 / b3d(i,j,1)
./model/src/solve_tridiagonal.F 74 SOLVE_TRIDIAGONAL 
           bet(i,j,1) = 0. _d 0
./model/src/solve_tridiagonal.F 85 SOLVE_TRIDIAGONAL 
         IF ( tmpvar .NE. 0. _d 0 ) THEN
./model/src/solve_tridiagonal.F 86 SOLVE_TRIDIAGONAL 
           bet(i,j,k) = 1. _d 0 / tmpvar
./model/src/solve_tridiagonal.F 88 SOLVE_TRIDIAGONAL 
           bet(i,j,k) = 0. _d 0
./model/src/swfrac.F 102 SWFRAC 
        IF ( facz .LT. -200. _d 0 ) THEN
./model/src/swfrac.F 103 SWFRAC 
          swdk(i) = 0. _d 0
./model/src/swfrac.F 106 SWFRAC 
     &       + (1. _d 0 - rfac(jwtype)) * exp( facz/a2(jwtype) )
./model/src/swfrac.F 77 SWFRAC 
      DATA rfac / 0.58 _d 0, 0.62 _d 0, 0.67 _d 0, 0.77 _d 0, 0.78 _d 0/
./model/src/swfrac.F 78 SWFRAC 
      DATA a1   / 0.35 _d 0, 0.6  _d 0, 1.0  _d 0, 1.5  _d 0, 1.4  _d 0/
./model/src/swfrac.F 79 SWFRAC 
      DATA a2   / 23.0 _d 0, 20.0 _d 0, 17.0 _d 0, 14.0 _d 0, 7.9  _d 0/
./model/src/thermodynamics.F 215 THERMODYNAMICS 
      TsurfCor = 0. _d 0
./model/src/thermodynamics.F 216 THERMODYNAMICS 
      SsurfCor = 0. _d 0
./model/src/thermodynamics.F 264 THERMODYNAMICS 
          xA(i,j)        = 0. _d 0
./model/src/thermodynamics.F 265 THERMODYNAMICS 
          yA(i,j)        = 0. _d 0
./model/src/thermodynamics.F 266 THERMODYNAMICS 
          uTrans(i,j)    = 0. _d 0
./model/src/thermodynamics.F 267 THERMODYNAMICS 
          vTrans(i,j)    = 0. _d 0
./model/src/thermodynamics.F 268 THERMODYNAMICS 
          rTrans (i,j)   = 0. _d 0
./model/src/thermodynamics.F 269 THERMODYNAMICS 
          rTransKp1(i,j) = 0. _d 0
./model/src/thermodynamics.F 270 THERMODYNAMICS 
          fVerT  (i,j,1) = 0. _d 0
./model/src/thermodynamics.F 271 THERMODYNAMICS 
          fVerT  (i,j,2) = 0. _d 0
./model/src/thermodynamics.F 272 THERMODYNAMICS 
          fVerS  (i,j,1) = 0. _d 0
./model/src/thermodynamics.F 273 THERMODYNAMICS 
          fVerS  (i,j,2) = 0. _d 0
./model/src/thermodynamics.F 274 THERMODYNAMICS 
          kappaRT(i,j)   = 0. _d 0
./model/src/thermodynamics.F 275 THERMODYNAMICS 
          kappaRS(i,j)   = 0. _d 0
./model/src/thermodynamics.F 283 THERMODYNAMICS 
           kappaRk(i,j,k)    = 0. _d 0
./model/src/thermodynamics.F 285 THERMODYNAMICS 
           gT(i,j,k,bi,bj)   = 0. _d 0
./model/src/thermodynamics.F 286 THERMODYNAMICS 
           gS(i,j,k,bi,bj)   = 0. _d 0
./model/src/thermodynamics.F 297 THERMODYNAMICS 
             fVerP  (i,j,1,ip) = 0. _d 0
./model/src/thermodynamics.F 298 THERMODYNAMICS 
             fVerP  (i,j,2,ip) = 0. _d 0
./model/src/thermodynamics.F 299 THERMODYNAMICS 
             kappaRTr(i,j,ip)  = 0. _d 0
./model/src/thermodynamics.F 308 THERMODYNAMICS 
             gPTr(i,j,k,bi,bj,itracer) = 0. _d 0
./model/src/thermodynamics.F 480 THERMODYNAMICS 
             rTransKp1(i,j) = 0. _d 0
./model/src/thermodynamics.F 507 THERMODYNAMICS 
             wFld(i,j)   = 0. _d 0
./model/src/thermodynamics.F 508 THERMODYNAMICS 
             maskUp(i,j) = 0. _d 0
./model/src/thermodynamics.F 509 THERMODYNAMICS 
             rTrans(i,j) = 0. _d 0
./model/src/timestep.F 103 TIMESTEP 
          gUtmp(i,j) = 0. _d 0
./model/src/timestep.F 104 TIMESTEP 
          gVtmp(i,j) = 0. _d 0
./model/src/timestep.F 106 TIMESTEP 
          guCor(i,j) = 0. _d 0
./model/src/timestep.F 107 TIMESTEP 
          gvCor(i,j) = 0. _d 0
./model/src/timestep.F 310 TIMESTEP 
     &        /( 1. _d 0 + dEtaWdt(i,j,bi,bj)*deltaTfreesurf
./model/src/timestep.F 315 TIMESTEP 
     &        /( 1. _d 0 + dEtaSdt(i,j,bi,bj)*deltaTfreesurf
./model/src/timestep.F 353 TIMESTEP 
      IF ( use3Dsolver .AND. implicitNHPress.NE.1. _d 0 ) THEN
./model/src/timestep.F 354 TIMESTEP 
        nhFac = pfFacMom*(1. _d 0 - implicitNHPress)
./model/src/timestep.F 83 TIMESTEP 
      psFac = pfFacMom*(1. _d 0 - implicSurfPress)
./model/src/timestep_wvel.F 50 TIMESTEP_WVEL 
      igwFac = 0. _d 0
./model/src/timestep_wvel.F 51 TIMESTEP_WVEL 
      IF ( implicitIntGravWave ) igwFac = 1. _d 0
./model/src/timestep_wvel.F 57 TIMESTEP_WVEL 
        IF ( nh_Am2.NE.0. ) nh_Fac = 1. _d 0 / nh_Am2
./model/src/timestep_wvel.F 62 TIMESTEP_WVEL 
         IF ( implicitNHPress.NE.1. _d 0 ) THEN
./model/src/timestep_wvel.F 64 TIMESTEP_WVEL 
          tmpFac = pfFacMom*(1. _d 0 - implicitNHPress)
./model/src/timestep_wvel.F 95 TIMESTEP_WVEL 
         IF (tmpFac.GT.0. ) tmpFac = 1. _d 0 / tmpFac
./model/src/tracers_iigw_correction.F 57 TRACERS_IIGW_CORRECTION 
          dWp1(i,j) = 0. _d 0
./model/src/tracers_iigw_correction.F 75 TRACERS_IIGW_CORRECTION 
       dTr_k = 0. _d 0
./model/src/tracers_iigw_correction.F 79 TRACERS_IIGW_CORRECTION 
     &     (dTr_k.NE.0. _d 0 .OR. dTrp1.NE.0. _d 0) ) THEN
./model/src/tracers_iigw_correction.F 83 TRACERS_IIGW_CORRECTION 
     &       -dTtracerLev(k)*0.5 _d 0
./model/src/tracers_iigw_correction.F 91 TRACERS_IIGW_CORRECTION 
       dTr_k = 0. _d 0
./model/src/tracers_iigw_correction.F 95 TRACERS_IIGW_CORRECTION 
     &     (dTr_k.NE.0. _d 0 .OR. dTrp1.NE.0. _d 0) ) THEN
./model/src/tracers_iigw_correction.F 99 TRACERS_IIGW_CORRECTION 
     &       -dTtracerLev(k)*0.5 _d 0
./model/src/update_cg2d.F 160 UPDATE_CG2D 
            pC(I,J,bi,bj) = 1. _d 0
./model/src/update_cg2d.F 162 UPDATE_CG2D 
           pC(I,J,bi,bj) =  1. _d 0 / aC2d(I,J,bi,bj)
./model/src/update_cg2d.F 75 UPDATE_CG2D 
          aW2d(I,J,bi,bj) = 0. _d 0
./model/src/update_cg2d.F 76 UPDATE_CG2D 
          aS2d(I,J,bi,bj) = 0. _d 0
./model/src/update_etah.F 100 UPDATE_ETAH 
      IF (implicDiv2Dflow .NE. 1. _d 0 .OR. useOBCS )
./model/src/update_etah.F 125 UPDATE_ETAH 
     &                           + etaH ( i ,j,bi,bj) )*0.5 _d 0
./model/src/update_etah.F 127 UPDATE_ETAH 
     &                           + etaH (i, j ,bi,bj) )*0.5 _d 0
./model/src/update_etah.F 64 UPDATE_ETAH 
        IF (implicDiv2Dflow.EQ. 1. _d 0) THEN
./model/src/update_masks_etc.F 182 UPDATE_MASKS_ETC 
           recip_Rcol(i,j,bi,bj) = 1. _d 0 / tmpfld(i,j,bi,bj)
./model/src/update_masks_etc.F 298 UPDATE_MASKS_ETC 
            recip_hFacC(I,J,K,bi,bj) = 1. _d 0 / hFacC(I,J,K,bi,bj)
./model/src/update_masks_etc.F 306 UPDATE_MASKS_ETC 
            recip_hFacW(I,J,K,bi,bj) = 1. _d 0 / hFacw(I,J,K,bi,bj)
./model/src/update_masks_etc.F 314 UPDATE_MASKS_ETC 
            recip_hFacS(I,J,K,bi,bj) = 1. _d 0 / hFacS(I,J,K,bi,bj)
./model/src/update_masks_etc.F 68 UPDATE_MASKS_ETC 
         hFacMnSz=max( hFacMin, min(hFacMinDr*recip_drF(k),1. _d 0) )
./model/src/update_masks_etc.F 86 UPDATE_MASKS_ETC 
           IF ( hFacCtmp .le. 0. _d 0 ) THEN
./model/src/update_masks_etc.F 88 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = 0. _d 0
./model/src/update_masks_etc.F 89 UPDATE_MASKS_ETC 
           ELSEIF ( hFacCtmp .gt. 1. _d 0 ) THEN
./model/src/update_masks_etc.F 90 UPDATE_MASKS_ETC 
            hFacC(I,J,K,bi,bj) = 1. _d 0
./model/src/update_r_star.F 107 UPDATE_R_STAR 
     &      recip_hFacC(i,j,k,bi,bj) = 1. _d 0 / _hFacC(i,j,k,bi,bj)
./model/src/update_r_star.F 109 UPDATE_R_STAR 
     &      recip_hFacW(i,j,k,bi,bj) = 1. _d 0 / _hFacW(i,j,k,bi,bj)
./model/src/update_r_star.F 111 UPDATE_R_STAR 
     &      recip_hFacS(i,j,k,bi,bj) = 1. _d 0 / _hFacS(i,j,k,bi,bj)
./model/src/update_surf_dr.F 105 UPDATE_SURF_DR 
           recip_hFacW(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfW(i,j,bi,bj)
./model/src/update_surf_dr.F 114 UPDATE_SURF_DR 
           recip_hFacS(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfS(i,j,bi,bj)
./model/src/update_surf_dr.F 92 UPDATE_SURF_DR 
           recip_hFacC(i,j,ks,bi,bj)= 1. _d 0 / hFac_surfC(i,j,bi,bj)
./pkg/admtlm/admtlm_dsvd2model.F 110 ADMTLM_DSVD2MODEL 
      fmin       = 0. _d 0
./pkg/admtlm/admtlm_init_fixed.F 43 ADMTLM_INIT_FIXED 
         wtheta(k,bi,bj) = 1. / (1. _d 0)**2
./pkg/admtlm/admtlm_init_fixed.F 44 ADMTLM_INIT_FIXED 
         wsalt (k,bi,bj) = 1. / (0.1 _d 0)**2
./pkg/admtlm/admtlm_init_fixed.F 45 ADMTLM_INIT_FIXED 
         wuvvel(k,bi,bj) = 1. / (0.01 _d 0)**2
./pkg/admtlm/admtlm_init_fixed.F 50 ADMTLM_INIT_FIXED 
          wetan(i,j,bi,bj) = 1. / (0.1 _d 0)**2
./pkg/admtlm/admtlm_metric.F 42 ADMTLM_METRIC 
      myMetric  = 0. _d 0
./pkg/admtlm/admtlm_metric.F 43 ADMTLM_METRIC 
      stdDevSST = 0.52 _d 0
./pkg/admtlm/admtlm_metric.F 44 ADMTLM_METRIC 
      stdDevSSS = 0.134 _d 0
./pkg/admtlm/admtlm_model2dsvd.F 95 ADMTLM_MODEL2DSVD 
      fmin       = 0. _d 0
./pkg/aim_compon_interf/atm_apply_import.F 125 ATM_APPLY_IMPORT 
           ELSEIF ( SSTocn(i,j,bi,bj).GE. -1. _d 0)  THEN
./pkg/aim_compon_interf/atm_export_fld.F 58 ATM_EXPORT_FLD 
        IF ( ABS(countTime(bi,bj) -1. _d 0).GT. 1. _d -12
./pkg/aim_compon_interf/atm_export_fld.F 60 ATM_EXPORT_FLD 
         recipAvT = 1. _d 0/countTime(bi,bj)
./pkg/aim_compon_interf/atm_store_airco2.F 66 ATM_STORE_AIRCO2 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_atmslp.F 50 ATM_STORE_ATMSLP 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_evmpr.F 53 ATM_STORE_EVMPR 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_fracice.F 59 ATM_STORE_FRACICE 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_heatflux.F 61 ATM_STORE_HEATFLUX 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_qshortwave.F 51 ATM_STORE_QSHORTWAVE 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_roenfx.F 59 ATM_STORE_ROENFX 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_runoff.F 60 ATM_STORE_RUNOFF 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_saltfx.F 50 ATM_STORE_SALTFX 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_seaice.F 54 ATM_STORE_SEAICE 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_seaice.F 57 ATM_STORE_SEAICE 
       cplTimeFraction = 1. _d 0
./pkg/aim_compon_interf/atm_store_taux.F 58 ATM_STORE_TAUX 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_taux.F 62 ATM_STORE_TAUX 
      IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN
./pkg/aim_compon_interf/atm_store_taux.F 70 ATM_STORE_TAUX 
     &       *(1. _d 0 - iceMask(i-1,j,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_taux.F 72 ATM_STORE_TAUX 
     &       *(1. _d 0 - iceMask( i ,j,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_taux.F 73 ATM_STORE_TAUX 
     &      )* 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_taux.F 89 ATM_STORE_TAUX 
     &       * 0.5 _d 0 * uVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 58 ATM_STORE_TAUY 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/atm_store_tauy.F 62 ATM_STORE_TAUY 
      IF ( useThSIce .AND. stressReduction.GT. 0. _d 0 ) THEN
./pkg/aim_compon_interf/atm_store_tauy.F 70 ATM_STORE_TAUY 
     &       *(1. _d 0 - iceMask(i,j-1,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_tauy.F 72 ATM_STORE_TAUY 
     &       *(1. _d 0 - iceMask(i, j ,bi,bj)*stressReduction)
./pkg/aim_compon_interf/atm_store_tauy.F 73 ATM_STORE_TAUY 
     &      )* 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_tauy.F 89 ATM_STORE_TAUY 
     &       * 0.5 _d 0 * vVel(i,j,k,bi,bj)
./pkg/aim_compon_interf/atm_store_wspeed.F 62 ATM_STORE_WSPEED 
       cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
./pkg/aim_compon_interf/cpl_exch_configs.F 82 CPL_EXCH_CONFIGS 
      seaSurface_ocn    = 0. _d 0
./pkg/aim_v23/aim_aim2land.F 102 AIM_AIM2LAND 
          IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR.
./pkg/aim_v23/aim_aim2land.F 103 AIM_AIM2LAND 
     &         land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2land.F 67 AIM_AIM2LAND 
         land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2land.F 68 AIM_AIM2LAND 
         land_EnWFlux(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2land.F 78 AIM_AIM2LAND 
       conv_Precip = 1. _d -3
./pkg/aim_v23/aim_aim2sioce.F 100 AIM_AIM2SIOCE 
        IF ( land_frc(i,j,bi,bj).GE.1. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F 103 AIM_AIM2SIOCE 
         prcAtm(i,j)     = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 104 AIM_AIM2SIOCE 
         Qnet(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 105 AIM_AIM2SIOCE 
         EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 106 AIM_AIM2SIOCE 
         Qsw(i,j,bi,bj)  = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 151 AIM_AIM2SIOCE 
         opFrac = 1. _d 0 - icFrac
./pkg/aim_v23/aim_aim2sioce.F 162 AIM_AIM2SIOCE 
           IF ( iceMask(i,j,bi,bj).GT.0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F 164 AIM_AIM2SIOCE 
            IF ( EnPrec(I2,myThid).GE.0. _d 0 ) THEN
./pkg/aim_v23/aim_aim2sioce.F 168 AIM_AIM2SIOCE 
              snowPrc(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 174 AIM_AIM2SIOCE 
              snowPrc(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_aim2sioce.F 190 AIM_AIM2SIOCE 
          icFrac = siceFrac(i,j)/(1. _d 0 - land_frc(i,j,bi,bj))
./pkg/aim_v23/aim_aim2sioce.F 191 AIM_AIM2SIOCE 
          opFrac = 1. _d 0 - icFrac
./pkg/aim_v23/aim_aim2sioce.F 96 AIM_AIM2SIOCE 
      convPrcEvp = 1. _d -3
./eesupp/src/fill_cs_corner_tr_rl.F 106 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i, 1-j ) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F 113 FILL_CS_CORNER_TR_RL 
            trFld( 1-i ,sNy+j) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F 120 FILL_CS_CORNER_TR_RL 
            trFld(sNx+i,sNy+j) = 0. _d 0
./eesupp/src/fill_cs_corner_tr_rl.F 99 FILL_CS_CORNER_TR_RL 
            trFld( 1-i , 1-j ) = 0. _d 0
./pkg/aim_v23/aim_do_co2.F 86 AIM_DO_CO2 
          flxCO2tile(bi,bj) = 0. _d 0
./pkg/aim_v23/aim_do_physics.F 113 AIM_DO_PHYSICS 
      tYear = MOD(myTime/yearLength, 1. _d 0)
./pkg/aim_v23/aim_dyn2aim.F 165 AIM_DYN2AIM 
         IF (maskC(i,j,k,bi,bj).EQ.1. _d 0) THEN
./pkg/aim_v23/aim_dyn2aim.F 173 AIM_DYN2AIM 
          QA(I2,Katm)  = MAX(salt(I,J,K,bi,bj), 0. _d 0)
./pkg/aim_v23/aim_dyn2aim.F 177 AIM_DYN2AIM 
          TA(I2,Katm)  = 300. _d 0
./pkg/aim_v23/aim_dyn2aim.F 178 AIM_DYN2AIM 
          QA(I2,Katm)  =   0. _d 0
./pkg/aim_v23/aim_dyn2aim.F 179 AIM_DYN2AIM 
          ThA(I2,Katm) = 300. _d 0
./pkg/aim_v23/aim_fields_load.F 314 AIM_FIELDS_LOAD 
             aim_albedo(i,j,bi,bj) = aim_albedo(I,J,bi,bj)/100. _d 0
./pkg/aim_v23/aim_fields_load.F 323 AIM_FIELDS_LOAD 
     &                 MAX(0. _d 0, aim_veget(i,j,bi,bj)/100. _d 0)
./pkg/aim_v23/aim_fields_load.F 89 AIM_FIELDS_LOAD 
        tmprd = t0prd - 0.5 _d 0 + tNcyc
./pkg/aim_v23/aim_land2aim.F 119 AIM_LAND2AIM 
         recip_hSnWet = 0. _d 0
./pkg/aim_v23/aim_land2aim.F 120 AIM_LAND2AIM 
         IF ( hSnowWetness .NE. 0. _d 0 )
./pkg/aim_v23/aim_land2aim.F 121 AIM_LAND2AIM 
     &   recip_hSnWet = 1. _d 0 / hSnowWetness
./pkg/aim_v23/aim_land2aim.F 126 AIM_LAND2AIM 
           aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 )
./pkg/aim_v23/aim_land2aim.F 131 AIM_LAND2AIM 
         recip_mSnWet = 0. _d 0
./pkg/aim_v23/aim_land2aim.F 132 AIM_LAND2AIM 
         IF ( hSnowWetness .NE. 0. _d 0 )
./pkg/aim_v23/aim_land2aim.F 134 AIM_LAND2AIM 
     &                / (land_rhoSnow*hSnowWetness*1000. _d 0)
./pkg/aim_v23/aim_land2aim.F 139 AIM_LAND2AIM 
           aimSWA(i,j) = MIN( MAX(0. _d 0, aimSWA(i,j)), 1. _d 0 )
./pkg/aim_v23/aim_land2aim.F 188 AIM_LAND2AIM 
         RSD = 1. _d 0/SDALB
./pkg/aim_v23/aim_land2aim.F 192 AIM_LAND2AIM 
     &       + MAX( 0. _d 0, ALBSN-grnd_alb(i,j,bi,bj) )
./pkg/aim_v23/aim_land2aim.F 193 AIM_LAND2AIM 
     &        *MIN( 1. _d 0, RSD*snowFld(i,j) )
./pkg/aim_v23/aim_land_impl.F 103 AIM_LAND_IMPL 
          IF ( land_skinT(i,j,bi,bj).LT. 0. _d 0 .OR.
./pkg/aim_v23/aim_land_impl.F 104 AIM_LAND_IMPL 
     &         land_hSnow(i,j,bi,bj).GT. 0. _d 0 ) THEN
./pkg/aim_v23/aim_land_impl.F 92 AIM_LAND_IMPL 
         land_Pr_m_Ev(i,j,bi,bj) = 0. _d 0
./pkg/aim_v23/aim_land_impl.F 93 AIM_LAND_IMPL 
         land_EnWFlux(i,j,bi,bj) = 0. _d 0
./eesupp/src/fill_cs_corner_uv_rs.F 70 FILL_CS_CORNER_UV_RS 
       negOne = 1. _d 0
./eesupp/src/fill_cs_corner_uv_rs.F 71 FILL_CS_CORNER_UV_RS 
       IF (withSigns) negOne = -1. _d 0
./pkg/aim_v23/aim_readparms.F 263 AIM_READPARMS 
      OBLIQ = 23.45 _d 0
./pkg/aim_v23/aim_readparms.F 265 AIM_READPARMS 
      atmpCO2init  = 326. _d -6
./pkg/aim_v23/aim_sice2aim.F 137 AIM_SICE2AIM 
      IF ( tauRelax_MxL .EQ. -1. _d 0
./pkg/aim_v23/aim_sice2aim.F 145 AIM_SICE2AIM 
          IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_sice2aim.F 164 AIM_SICE2AIM 
          IF ( land_frc(i,j,bi,bj) .LT. 1. _d 0 ) THEN
./pkg/aim_v23/aim_surf_bc.F 120 AIM_SURF_BC 
        tmprd = t0prd - 0.5 _d 0 + tNcyc
./pkg/aim_v23/aim_surf_bc.F 127 AIM_SURF_BC 
        aim_sWght1 = 0.5 _d 0+(dTprd-0.5 _d 0)*aim_surfForc_TransRatio
./pkg/aim_v23/aim_surf_bc.F 128 AIM_SURF_BC 
        aim_sWght1 = MAX( 0. _d 0, MIN(1. _d 0, aim_sWght1) )
./pkg/aim_v23/aim_surf_bc.F 129 AIM_SURF_BC 
        aim_sWght0 = 1. _d 0 - aim_sWght1
./pkg/aim_v23/aim_surf_bc.F 151 AIM_SURF_BC 
        SDEP1 = 70. _d 0
./pkg/aim_v23/aim_surf_bc.F 152 AIM_SURF_BC 
        IDEP2 =  3. _d 0
./pkg/aim_v23/aim_surf_bc.F 156 AIM_SURF_BC 
        RSW   = 1. _d 0/(SDEP1*SWCAP+SDEP2*(SWCAP-SWWIL))
./pkg/aim_v23/aim_surf_bc.F 163 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw20(i,j,bi,bj)-SWWIL2, 0. _d 0)
./pkg/aim_v23/aim_surf_bc.F 167 AIM_SURF_BC 
     &      MAX(IDEP2*aim_sw21(i,j,bi,bj)-SWWIL2, 0. _d 0)
./pkg/aim_v23/aim_surf_bc.F 171 AIM_SURF_BC 
          soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) )
./pkg/aim_v23/aim_surf_bc.F 189 AIM_SURF_BC 
         oceTfreez = celsius2K - 1.9 _d 0
./pkg/aim_v23/aim_surf_bc.F 192 AIM_SURF_BC 
          IF ( oice1(J) .GT. 1. _d -2 ) THEN
./pkg/aim_v23/aim_surf_bc.F 197 AIM_SURF_BC 
            oice1(J) = 0. _d 0
./pkg/aim_v23/aim_surf_bc.F 208 AIM_SURF_BC 
        RSD=1. _d 0/SDALB
./pkg/aim_v23/aim_surf_bc.F 209 AIM_SURF_BC 
        ALPHA= 2. _d 0*PI*(TYEAR+10. _d 0/365. _d 0)
./pkg/aim_v23/aim_surf_bc.F 211 AIM_SURF_BC 
        RZEN = COS(ALPHA) * ( -23.45 _d 0 * deg2rad)
./pkg/aim_v23/aim_surf_bc.F 227 AIM_SURF_BC 
     &       + MAX( 0. _d 0, ALBSN-aim_albedo(i,j,bi,bj) )
./pkg/aim_v23/aim_surf_bc.F 228 AIM_SURF_BC 
     &        *MIN( 1. _d 0, RSD*snow1(I2))
./pkg/aim_v23/aim_surf_bc.F 239 AIM_SURF_BC 
           IF (TMPL .GE. 1.0 _d 0) THEN
./pkg/aim_v23/aim_surf_bc.F 240 AIM_SURF_BC 
            CZEN = 0.0 _d 0
./pkg/aim_v23/aim_surf_bc.F 241 AIM_SURF_BC 
           ELSEIF (TMPL .LE. -1.0 _d 0) THEN
./pkg/aim_v23/aim_surf_bc.F 242 AIM_SURF_BC 
            CZEN = (2.0 _d 0)*TMPA*PI
./pkg/aim_v23/aim_surf_bc.F 243 AIM_SURF_BC 
            CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB)
./pkg/aim_v23/aim_surf_bc.F 247 AIM_SURF_BC 
            CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim))
./pkg/aim_v23/aim_surf_bc.F 248 AIM_SURF_BC 
            CZEN2= 2.0 _d 0*TMPA*TMPA*hlim
./pkg/aim_v23/aim_surf_bc.F 249 AIM_SURF_BC 
     &          + 4.0 _d 0*TMPA*TMPB*SIN(hlim)
./pkg/aim_v23/aim_surf_bc.F 250 AIM_SURF_BC 
     &          + TMPB*TMPB*( hlim + 0.5 _d 0*SIN(2.0 _d 0*hlim) )
./pkg/aim_v23/aim_surf_bc.F 253 AIM_SURF_BC 
           ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) )
./pkg/aim_v23/aim_surf_bc.F 254 AIM_SURF_BC 
     &          + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0)
./pkg/aim_v23/aim_surf_bc.F 255 AIM_SURF_BC 
     &          * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0
./pkg/aim_v23/aim_surf_bc.F 259 AIM_SURF_BC 
          alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA
./pkg/aim_v23/aim_surf_bc.F 260 AIM_SURF_BC 
     &        + 0.5 _d 0 * ALBSEA1
./pkg/aim_v23/aim_surf_bc.F 271 AIM_SURF_BC 
        aim_sWght1 = 0. _d 0
./pkg/aim_v23/aim_surf_bc.F 272 AIM_SURF_BC 
        aim_sWght0 = 1. _d 0
./pkg/aim_v23/aim_surf_bc.F 372 AIM_SURF_BC 
         pCO2scl = 1. _d 6
./pkg/aim_v23/aim_surf_bc.F 402 AIM_SURF_BC 
          fMask1(J,3,myThid) =(1. _d 0 - fMask1(J,1,myThid))
./pkg/aim_v23/aim_surf_bc.F 404 AIM_SURF_BC 
          fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid)
./pkg/aim_v23/aim_surf_bc.F 424 AIM_SURF_BC 
          fMask1(J,3,myThid) = 0. _d 0
./pkg/aim_v23/aim_surf_bc.F 425 AIM_SURF_BC 
          fMask1(J,2,myThid) = 1. _d 0 - fMask1(J,1,myThid)
./pkg/aim_v23/aim_tendency_apply.F 107 AIM_TENDENCY_APPLY_U 
     &       )* 0.5 _d 0 * uVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 216 AIM_TENDENCY_APPLY_V 
     &       * 0.5 _d 0 * vVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 233 AIM_TENDENCY_APPLY_V 
     &      )* 0.5 _d 0 * vVel(i,j,kLev,bi,bj)
./pkg/aim_v23/aim_tendency_apply.F 90 AIM_TENDENCY_APPLY_U 
     &       * 0.5 _d 0 * uVel(i,j,kLev,bi,bj)
./pkg/aim_v23/phy_const.h 10 NO PROCEDURE 
      ALBSEA = 0.07 _d 0
./pkg/aim_v23/phy_const.h 11 NO PROCEDURE 
      ALBICE = 0.60 _d 0
./pkg/aim_v23/phy_const.h 12 NO PROCEDURE 
      ALBSN  = 0.60 _d 0
./pkg/aim_v23/phy_const.h 13 NO PROCEDURE 
      SDALB  = 60.  _d 0
./pkg/aim_v23/phy_const.h 15 NO PROCEDURE 
      SWCAP = 0.30 _d 0
./pkg/aim_v23/phy_const.h 16 NO PROCEDURE 
      SWWIL = 0.17 _d 0
./pkg/aim_v23/phy_const.h 17 NO PROCEDURE 
      hSnowWetness = 1. _d -2
./pkg/aim_v23/phy_const.h 21 NO PROCEDURE 
      PSMIN  =  0.7 _d 0
./pkg/aim_v23/phy_const.h 22 NO PROCEDURE 
      TRCNV  =  6.  _d 0
./pkg/aim_v23/phy_const.h 23 NO PROCEDURE 
      QBL    = 15.  _d 0
./pkg/aim_v23/phy_const.h 24 NO PROCEDURE 
      RHBL   =  0.8 _d 0
./pkg/aim_v23/phy_const.h 25 NO PROCEDURE 
      RHIL   =  0.7 _d 0
./pkg/aim_v23/phy_const.h 26 NO PROCEDURE 
      ENTMAX =  0.5 _d 0
./pkg/aim_v23/phy_const.h 27 NO PROCEDURE 
      SMF    =  0.5 _d 0
./pkg/aim_v23/phy_const.h 31 NO PROCEDURE 
      TRLSC  = 4.  _d 0
./pkg/aim_v23/phy_const.h 32 NO PROCEDURE 
      RHLSC  = 0.9 _d 0
./pkg/aim_v23/phy_const.h 33 NO PROCEDURE 
      DRHLSC = 0.1 _d 0
./pkg/aim_v23/phy_const.h 34 NO PROCEDURE 
      QSMAX  = 50. _d 0
./pkg/aim_v23/phy_const.h 38 NO PROCEDURE 
      RHCL1 = 0.45 _d 0
./pkg/aim_v23/phy_const.h 39 NO PROCEDURE 
      RHCL2 = 0.85 _d 0
./pkg/aim_v23/phy_const.h 40 NO PROCEDURE 
      QACL1 = 0.10 _d 0
./pkg/aim_v23/phy_const.h 41 NO PROCEDURE 
      QACL2 = 1.00 _d 0
./pkg/aim_v23/phy_const.h 42 NO PROCEDURE 
      ALBCL = 0.40 _d 0
./pkg/aim_v23/phy_const.h 44 NO PROCEDURE 
      EPSSW  =  0.015 _d 0
./pkg/aim_v23/phy_const.h 45 NO PROCEDURE 
      EPSLW  =  0.00  _d 0
./pkg/aim_v23/phy_const.h 46 NO PROCEDURE 
      EMISFC =  0.98  _d 0
./pkg/aim_v23/phy_const.h 48 NO PROCEDURE 
      ABSDRY =  0.033 _d 0
./pkg/aim_v23/phy_const.h 49 NO PROCEDURE 
      ABSAER =  0.033 _d 0
./pkg/aim_v23/phy_const.h 50 NO PROCEDURE 
      ABSWV1 =  0.022 _d 0
./pkg/aim_v23/phy_const.h 51 NO PROCEDURE 
      ABSWV2 = 15.000 _d 0
./pkg/aim_v23/phy_const.h 52 NO PROCEDURE 
      ABSCL1 =  0.0   _d 0
./pkg/aim_v23/phy_const.h 53 NO PROCEDURE 
      ABSCL2 =  0.010 _d 0
./pkg/aim_v23/phy_const.h 55 NO PROCEDURE 
      ABLWIN =  0.7 _d 0
./pkg/aim_v23/phy_const.h 56 NO PROCEDURE 
      ABLCO2 =  4.0 _d 0
./pkg/aim_v23/phy_const.h 57 NO PROCEDURE 
      ABLWV1 =  0.7 _d 0
./pkg/aim_v23/phy_const.h 58 NO PROCEDURE 
      ABLWV2 = 50.0 _d 0
./pkg/aim_v23/phy_const.h 59 NO PROCEDURE 
      ABLCL1 = 12.0 _d 0
./pkg/aim_v23/phy_const.h 60 NO PROCEDURE 
      ABLCL2 =  0.0 _d 0
./pkg/aim_v23/phy_const.h 65 NO PROCEDURE 
      FWIND0 = 0.6 _d 0
./pkg/aim_v23/phy_const.h 66 NO PROCEDURE 
      FTEMP0 = 1.  _d 0
./pkg/aim_v23/phy_const.h 67 NO PROCEDURE 
      FHUM0  = 1.  _d 0
./pkg/aim_v23/phy_const.h 69 NO PROCEDURE 
      CDL = 1.8 _d -3
./pkg/aim_v23/phy_const.h 70 NO PROCEDURE 
      CDS = 0.8 _d -3
./pkg/aim_v23/phy_const.h 71 NO PROCEDURE 
      CHL = 1.2 _d -3
./pkg/aim_v23/phy_const.h 72 NO PROCEDURE 
      CHS = 0.8 _d -3
./pkg/aim_v23/phy_const.h 74 NO PROCEDURE 
      VGUST  = 5. _d 0
./pkg/aim_v23/phy_const.h 75 NO PROCEDURE 
      CTDAY  = 1. _d -2
./pkg/aim_v23/phy_const.h 76 NO PROCEDURE 
      DTHETA = 3. _d 0
./pkg/aim_v23/phy_const.h 77 NO PROCEDURE 
      FSTAB  = 0.67 _d 0
./pkg/aim_v23/phy_const.h 78 NO PROCEDURE 
      HDRAG  = 2000. _d 0
./pkg/aim_v23/phy_const.h 79 NO PROCEDURE 
      FHDRAG = 0.8 _d 0
./pkg/aim_v23/phy_const.h 83 NO PROCEDURE 
      TRSHC  = 24. _d 0
./pkg/aim_v23/phy_const.h 84 NO PROCEDURE 
      TRVDI  = 40. _d 0
./pkg/aim_v23/phy_const.h 85 NO PROCEDURE 
      TRVDS  =  5. _d 0
./pkg/aim_v23/phy_const.h 86 NO PROCEDURE 
      RHGRAD = 0.5 _d 0
./pkg/aim_v23/phy_const.h 87 NO PROCEDURE 
      SEGRAD = 0.1 _d 0
./pkg/aim_v23/phy_const.h 8 NO PROCEDURE 
      SOLC   = 342. _d 0
./pkg/aim_v23/phy_convmf.F 149 CONVMF 
           ENTR(K)= ( MAX( 0. _d 0, SIG(K)/PSA(J) - 0.5 _d 0) )**2
./pkg/aim_v23/phy_convmf.F 210 CONVMF 
        QMAX=MAX(1.01 _d 0 *QA(J,K),QSAT(J,K))
./pkg/aim_v23/phy_convmf.F 286 CONVMF 
        PRECNV(J)=MAX(FUQ-FMASS*QSATB, 0. _d 0)
./pkg/aim_v23/phy_convmf.F 78 CONVMF 
      RDPS = 2. _d 0 /(1. _d 0 - PSMIN)
./pkg/aim_v23/phy_convmf.F 86 CONVMF 
        FPSA = MIN(1. _d 0 ,(PSA(J)-PSMIN)*RDPS)
./pkg/aim_v23/phy_convmf.F 87 CONVMF 
        FM0(J)=P0*DSIG(Ktmp)*dpFac(J,Ktmp)/(GG*TRCNV*3600. _d 0)
./pkg/aim_v23/phy_driver.F 146 PHY_DRIVER 
      RPS_1 = 1. _d 0
./pkg/aim_v23/phy_driver.F 148 PHY_DRIVER 
       PSG_1(J)=1. _d 0
./pkg/aim_v23/phy_driver.F 209 PHY_DRIVER 
          EnPrec(J,myThid) = 0. _d 0
./pkg/aim_v23/phy_driver.F 338 PHY_DRIVER 
          SHF (J,3,myThid) = 0. _d 0
./pkg/aim_v23/phy_driver.F 339 PHY_DRIVER 
          EVAP(J,3,myThid) = 0. _d 0
./pkg/aim_v23/phy_driver.F 340 PHY_DRIVER 
          SLR (J,3,myThid) = 0. _d 0
./pkg/aim_v23/phy_inphys.F 127 INPHYS 
       dTstab = 1. _d 0
./pkg/aim_v23/phy_inphys.F 69 INPHYS 
      ALHC = 2501. _d 0
./pkg/aim_v23/phy_inphys.F 70 INPHYS 
      ALHF =  334. _d 0
./pkg/aim_v23/phy_inphys.F 71 INPHYS 
      SBC = 5.67 _d -8
./pkg/aim_v23/phy_inphys.F 74 INPHYS 
      rainCP = 4200. _d 0 / 1000. _d 0
./pkg/aim_v23/phy_lscond.F 85 LSCOND 
          RHREF = RHLSC+DRHLSC*(SIG2/PSA2(J) - 1. _d 0)
./pkg/aim_v23/phy_lscond.F 86 LSCOND 
          DQMAX = (1.1 _d 0-RHREF)*QSMAX*SIG2*RTLSC
./pkg/aim_v23/phy_lscond.F 87 LSCOND 
          DQLSC(J,K) = MIN(0. _d 0,(RHREF*QSAT(J,K)-QA(J,K)))*RTLSC
./pkg/aim_v23/phy_radiat.F 104 SOL_OZ 
     &     MAX( 0. _d 0, 1. _d 0+CSR1*SLAT(J)+CSR2*FLAT2 )
./pkg/aim_v23/phy_radiat.F 106 SOL_OZ 
        IF ( CLAT(J) .EQ. 0. _d 0 ) THEN
./pkg/aim_v23/phy_radiat.F 107 SOL_OZ 
           TanLat = sign(1. _d 0, SLAT(J) ) * LargeTan
./pkg/aim_v23/phy_radiat.F 112 SOL_OZ 
        cosH     = MAX(MIN(cosH,1. _d 0), -1. _d 0)
./pkg/aim_v23/phy_radiat.F 114 SOL_OZ 
        FSOL(J)  = 4. _d 0 / PI * SOLC *
./pkg/aim_v23/phy_radiat.F 124 SOL_OZ 
     &    (1. _d 0-(CLAT(J)*CZEN+SLAT(J)*SZEN))**NZEN
./pkg/aim_v23/phy_radiat.F 130 SOL_OZ 
     &           +MAX( FS0-FSOL(J), 0. _d 0 )
./pkg/aim_v23/phy_radiat.F 230 RADSW 
      FBAND2=0.05 _d 0
./pkg/aim_v23/phy_radiat.F 267 RADSW 
       DQACL=(QACL2-QACL1)/(0.5 _d 0 - SIG(2))
./pkg/aim_v23/phy_radiat.F 276 RADSW 
            CLDCLW(J,K)=MAX(0. _d 0,RH(J,K)-RHCL1)
./pkg/aim_v23/phy_radiat.F 277 RADSW 
            CLDCLW(J,K)=MIN(1. _d 0,CLDCLW(J,K)*RRCL)
./pkg/aim_v23/phy_radiat.F 286 RADSW 
        CLOUDC(J)=MIN(1. _d 0,CLOUDC(J)*RRCL)
./pkg/aim_v23/phy_radiat.F 288 RADSW 
          CLOUDC(J)=CLOUDC(J)*MIN(1. _d 0,QCLOUD(J)*RQCL)
./pkg/aim_v23/phy_radiat.F 291 RADSW 
             CLDCLW(J,K)=CLDCLW(J,K)*MIN(1. _d 0,QCLOUD(J)*RQCL)
./pkg/aim_v23/phy_radiat.F 427 RADSW 
         DFABS(J,K)= 0. _d 0
./pkg/aim_v23/phy_radiat.F 60 SOL_OZ 
      PI = 3.14159265358979323844 _d 0
./pkg/aim_v23/phy_radiat.F 61 SOL_OZ 
      LargeTan = 1. _d 16
./pkg/aim_v23/phy_radiat.F 66 SOL_OZ 
      ALPHA = 4. _d 0*ASIN(1. _d 0)*(TYEAR+10. _d 0/365. _d 0)
./pkg/aim_v23/phy_radiat.F 68 SOL_OZ 
      CSR1=-0.796 _d 0*COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 69 SOL_OZ 
      CSR2= 0.147 _d 0*COS(2. _d 0*ALPHA)-0.477 _d 0
./pkg/aim_v23/phy_radiat.F 70 SOL_OZ 
      COZ1= 1.0 _d 0 * COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 71 SOL_OZ 
      COZ2= 1.8 _d 0
./pkg/aim_v23/phy_radiat.F 766 RADSET 
      EPS3=0.95 _d 0
./pkg/aim_v23/phy_radiat.F 770 RADSET 
        FBAND(JTEMP,2)= 0.148 _d 0 - 3.0 _d -6 *(JTEMP-247)**2
./pkg/aim_v23/phy_radiat.F 771 RADSET 
        FBAND(JTEMP,3)=(0.375 _d 0 - 5.5 _d -6 *(JTEMP-282)**2)*EPS3
./pkg/aim_v23/phy_radiat.F 772 RADSET 
        FBAND(JTEMP,4)= 0.314 _d 0 + 1.0 _d -5 *(JTEMP-315)**2
./pkg/aim_v23/phy_radiat.F 773 RADSET 
        FBAND(JTEMP,1)= 1. _d 0 -(FBAND(JTEMP,0)+FBAND(JTEMP,2)
./pkg/aim_v23/phy_radiat.F 77 SOL_OZ 
      SZEN = - SIN(  OBLIQ * PI/180. _d 0) * COS(ALPHA)
./pkg/aim_v23/phy_radiat.F 80 SOL_OZ 
      IF ( SZEN .EQ. 1. _d 0 ) THEN
./pkg/aim_v23/phy_radiat.F 82 SOL_OZ 
      ELSEIF ( SZEN .EQ. -1. _d 0 ) THEN
./pkg/aim_v23/phy_radiat.F 88 SOL_OZ 
      RZEN=-COS(ALPHA)*23.45 _d 0*ASIN(1. _d 0)/90. _d 0
./pkg/aim_v23/phy_radiat.F 93 SOL_OZ 
      AST=0.025 _d 0
./pkg/aim_v23/phy_radiat.F 94 SOL_OZ 
      FS0=10. _d 0
./pkg/aim_v23/phy_radiat.F 99 SOL_OZ 
        FLAT2 = 1.5 _d 0*SLAT(J)**2 - 0.5 _d 0
./pkg/aim_v23/phy_shtorh.F 50 SHTORH 
      E0=  6.108 _d -3
./pkg/aim_v23/phy_shtorh.F 51 SHTORH 
      C1= 17.269 _d 0
./pkg/aim_v23/phy_shtorh.F 52 SHTORH 
      C2= 21.875 _d 0
./pkg/aim_v23/phy_shtorh.F 53 SHTORH 
      T0=273.16 _d 0
./pkg/aim_v23/phy_shtorh.F 54 SHTORH 
      T1= 35.86 _d 0
./pkg/aim_v23/phy_shtorh.F 55 SHTORH 
      T2=  7.66 _d 0
./pkg/aim_v23/phy_shtorh.F 56 SHTORH 
      QS1= 622. _d 0
./pkg/aim_v23/phy_shtorh.F 57 SHTORH 
      QS2= .378 _d 0
./pkg/aim_v23/phy_shtorh.F 69 SHTORH 
          recT   = 1. _d 0 / (TA(J)-T1)
./pkg/aim_v23/phy_shtorh.F 74 SHTORH 
          recT   = 1. _d 0 / (TA(J)-T2)
./pkg/aim_v23/phy_suflux_land.F 108 SUFLUX_LAND 
        TSFC(J)=273.16 _d 0 + dTskin(J)
./pkg/aim_v23/phy_suflux_land.F 123 SUFLUX_LAND 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/aim_v23/phy_suflux_land.F 131 SUFLUX_LAND 
        dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0))
./pkg/aim_v23/phy_suflux_land.F 138 SUFLUX_LAND 
      CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp,
./pkg/aim_v23/phy_suflux_land.F 140 SUFLUX_LAND 
      CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_land.F 145 SUFLUX_LAND 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/aim_v23/phy_suflux_land.F 162 SUFLUX_LAND 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/aim_v23/phy_suflux_land.F 165 SUFLUX_LAND 
        EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 166 SUFLUX_LAND 
        Evp0(J) =   Shf0(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 168 SUFLUX_LAND 
     &            + dShf(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 175 SUFLUX_LAND 
        EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 176 SUFLUX_LAND 
        Evp0(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J))
./pkg/aim_v23/phy_suflux_land.F 184 SUFLUX_LAND 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/aim_v23/phy_suflux_land.F 191 SUFLUX_LAND 
        dShf(J) = MAX( dShf(J), 0. _d 0 )
./pkg/aim_v23/phy_suflux_land.F 212 SUFLUX_LAND 
        dSlr(J)  = 4. _d 0 *SBC*TS2*TSKIN(J)
./pkg/aim_v23/phy_suflux_ocean.F 100 SUFLUX_OCEAN 
      CALL SHTORH (0, NGP, Tsurf, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_prep.F 125 SUFLUX_PREP 
      RCP = 1. _d 0 /CP
./pkg/aim_v23/phy_suflux_prep.F 140 SUFLUX_PREP 
        T0(J) = 273.16 _d 0
./pkg/aim_v23/phy_suflux_prep.F 141 SUFLUX_PREP 
        T1(J) = 273.16 _d 0
./pkg/aim_v23/phy_suflux_prep.F 155 SUFLUX_PREP 
      CALL SHTORH (-1,NGP,T0, PSA, 1. _d 0, Q0, tmpRH, QSAT0, myThid)
./pkg/aim_v23/phy_suflux_prep.F 255 SFLSET 
        FOROG(J) = 1. _d 0
./pkg/aim_v23/phy_suflux_prep.F 256 SFLSET 
     &   + FHDRAG*(1. _d 0 - EXP(-MAX(PHI0(J),0. _d 0)*RHDRAG) )
./pkg/aim_v23/phy_suflux_sice.F 115 SUFLUX_SICE 
        TSFC(J)=273.16 _d 0
./pkg/aim_v23/phy_suflux_sice.F 129 SUFLUX_SICE 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/aim_v23/phy_suflux_sice.F 137 SUFLUX_SICE 
        dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0))
./pkg/aim_v23/phy_suflux_sice.F 148 SUFLUX_SICE 
      CALL SHTORH (2, NGP, TSKIN, PSA, 1. _d 0, QDUMMY, dEvp,
./pkg/aim_v23/phy_suflux_sice.F 150 SUFLUX_SICE 
      CALL SHTORH (0, NGP, TSFC, PSA, 1. _d 0, QDUMMY, RDUMMY,
./pkg/aim_v23/phy_suflux_sice.F 153 SUFLUX_SICE 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/aim_v23/phy_suflux_sice.F 171 SUFLUX_SICE 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/aim_v23/phy_suflux_sice.F 178 SUFLUX_SICE 
        dShf(J) = MAX( dShf(J), 0. _d 0 )
./pkg/aim_v23/phy_suflux_sice.F 199 SUFLUX_SICE 
        dSlr(J)  = 4. _d 0 *SBC*TS2*TSKIN(J)
./pkg/aim_v23/phy_vdifsc.F 135 VDIFSC 
        FSHCQ = DSIG(Ktmp)*dpFac(J,Ktmp)/(TRSHC*3600. _d 0)
./pkg/aim_v23/phy_vdifsc.F 194 VDIFSC 
     &        +SEGRAD*CP*DeltaPI(K)*(SE(J,K+1)+SE(J,K))*0.5 _d 0
./pkg/aim_v23/phy_vdifsc.F 97 VDIFSC 
          CVDI(J) = (SIGH(NL1)-SIGH(1))/((NL1-1)*3600. _d 0)
./pkg/atm2d/atm2d_readparms.F 109 ATM2D_READPARMS 
      IF (tauThetaRelax .NE. 0. _d 0)
./pkg/atm2d/atm2d_readparms.F 110 ATM2D_READPARMS 
     &                  r_tauThetaRelax= 1. _d 0/tauThetaRelax
./pkg/atm2d/atm2d_readparms.F 111 ATM2D_READPARMS 
      IF (tauSaltRelax .NE. 0. _d 0)
./pkg/atm2d/atm2d_readparms.F 112 ATM2D_READPARMS 
     &                  r_tauSaltRelax= 1. _d 0/tauSaltRelax
./pkg/atm2d/atm2d_readparms.F 81 ATM2D_READPARMS 
      r_tauThetaRelax=0. _d 0
./pkg/atm2d/atm2d_readparms.F 82 ATM2D_READPARMS 
      r_tauSaltRelax=0. _d 0
./pkg/atm2d/calc_1dto2d.F 141 CALC_WGHT2D 
      IF (evapo_2D(i,j).GT.0. _d 0) THEN  !convert negative evap. to precip
./pkg/atm2d/calc_1dto2d.F 143 CALC_WGHT2D 
        evapo_2D(i,j)=0. _d 0
./pkg/atm2d/calc_1dto2d.F 146 CALC_WGHT2D 
      IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F 150 CALC_WGHT2D 
        IF (evapi_2D(i,j).GT.0. _d 0) THEN  !convert negative evap. to precip
./pkg/atm2d/calc_1dto2d.F 152 CALC_WGHT2D 
          evapi_2D(i,j)=0. _d 0
./pkg/atm2d/calc_1dto2d.F 164 CALC_WGHT2D 
        IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F 175 CALC_WGHT2D 
        IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/calc_1dto2d.F 216 INIT_2DFLD 
          precipo_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 217 INIT_2DFLD 
          precipi_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 218 INIT_2DFLD 
          solarnet_ocn_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 219 INIT_2DFLD 
          slp_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 220 INIT_2DFLD 
          pCO2_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 221 INIT_2DFLD 
          wspeed_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 222 INIT_2DFLD 
          fu_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 223 INIT_2DFLD 
          fv_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 224 INIT_2DFLD 
          qneto_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 225 INIT_2DFLD 
          evapo_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 226 INIT_2DFLD 
          qneti_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 227 INIT_2DFLD 
          evapi_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 228 INIT_2DFLD 
          dFdT_ice_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 229 INIT_2DFLD 
          Tair_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 230 INIT_2DFLD 
          solarinc_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 231 INIT_2DFLD 
          runoff_2D(i,j)= 0. _d 0
./pkg/atm2d/calc_1dto2d.F 47 CALC_1DTO2D 
        run_b(ib)=0. _d 0
./pkg/atm2d/calc_1dto2d.F 59 CALC_1DTO2D 
     &        atm_tauv(tauv_jpt(j)+1) * (1. _d 0 - tauv_jwght(j))
./pkg/atm2d/calc_1dto2d.F 70 CALC_1DTO2D 
            IF (atm_oc_wgt(j).LT.1. _d 0)
./pkg/atm2d/calc_1dto2d.F 72 CALC_1DTO2D 
     &                           1. _d 0-atm_oc_wgt(j))
./pkg/atm2d/calc_1dto2d.F 79 CALC_1DTO2D 
     &          qneto_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F 82 CALC_1DTO2D 
     &          evapo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_1dto2d.F 85 CALC_1DTO2D 
     &           precipo_2D(i,j)*dtatmo*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/calc_fileload.F 77 CALC_FILELOAD 
      wght0= 1. _d 0-wght1
./pkg/atm2d/calc_zonal_means.F 119 CALC_ZONAL_MEANS 
        IF (ocnArea(j_atm).GT.1. _d -32) THEN
./pkg/atm2d/calc_zonal_means.F 123 CALC_ZONAL_MEANS 
          IF (cfice(j_atm).GT.1. _d -32) THEN
./pkg/atm2d/calc_zonal_means.F 129 CALC_ZONAL_MEANS 
          IF ((1. _d 0-cfice(j_atm).GT.1. _d -32).AND.doAll)
./pkg/atm2d/calc_zonal_means.F 131 CALC_ZONAL_MEANS 
     &                        /(1. _d 0-cfice(j_atm))
./pkg/atm2d/calc_zonal_means.F 154 CALC_ZONAL_MEANS 
          mmco2flux(1)= 0. _d 0
./pkg/atm2d/calc_zonal_means.F 155 CALC_ZONAL_MEANS 
          mmco2flux(jm0)= 0. _d 0 ! converted to mol/s; pole point contribution in jm0-1
./pkg/atm2d/calc_zonal_means.F 52 CALC_ZONAL_MEANS 
          ctocn(j_atm)=0. _d 0
./pkg/atm2d/calc_zonal_means.F 53 CALC_ZONAL_MEANS 
          cfice(j_atm)=0. _d 0
./pkg/atm2d/calc_zonal_means.F 54 CALC_ZONAL_MEANS 
          cco2flux(j_atm)=0. _d 0
./pkg/atm2d/calc_zonal_means.F 56 CALC_ZONAL_MEANS 
        ctice(j_atm)=0. _d 0
./pkg/atm2d/calc_zonal_means.F 57 CALC_ZONAL_MEANS 
        csAlb(j_atm)=0. _d 0
./pkg/atm2d/calc_zonal_means.F 58 CALC_ZONAL_MEANS 
        csAlbNIR(j_atm)=0. _d 0
./pkg/atm2d/calc_zonal_means.F 78 CALC_ZONAL_MEANS 
     &                      (1. _d 0-iceMask(i,j,1,1))*atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 93 CALC_ZONAL_MEANS 
           IF (atm_oc_wgt(j).LT.1. _d 0) THEN
./pkg/atm2d/calc_zonal_means.F 94 CALC_ZONAL_MEANS 
             mWgt= 1. _d 0-atm_oc_wgt(j)
./pkg/atm2d/calc_zonal_means.F 98 CALC_ZONAL_MEANS 
     &                                 (1. _d 0-iceMask(i,j,1,1))*mWgt
./pkg/atm2d/cpl_send_ocn_atmconfig.F 34 CPL_SEND_OCN_ATMCONFIG 
          AtmDepths_ocn(i,j)=1. _d 5   !ocean code checks for this
./pkg/atm2d/fixed_flux_add.F 130 FIXED_FLUX_ADD 
          IF ( (qfadj .NE. 0. _d 0) .AND.
./pkg/atm2d/fixed_flux_add.F 131 FIXED_FLUX_ADD 
     &       (iceMask(i,j,1,1) .LT. 0.999 _d 0)) THEN
./pkg/atm2d/fixed_flux_add.F 133 FIXED_FLUX_ADD 
     &                / (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/fixed_flux_add.F 140 FIXED_FLUX_ADD 
            IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/fixed_flux_add.F 150 FIXED_FLUX_ADD 
            IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./eesupp/src/global_sum.F 163 GLOBAL_SUM_R8 
       tmp = 0. _d 0
./pkg/atm2d/get_ocnvars.F 113 GET_OCNVARS 
     &              )*0.5 _d 0
./pkg/atm2d/init_atm2d.F 101 INIT_ATM2D 
      endwgt1 = endwgt1 + 1. _d 0                 !and goes 90S to 90N
./pkg/atm2d/init_atm2d.F 102 INIT_ATM2D 
      rsumwgt = 1. _d 0/(endwgt1 + endwgt2)
./pkg/atm2d/init_atm2d.F 105 INIT_ATM2D 
      atm_yG(jm0)=90. _d 0
./pkg/atm2d/init_atm2d.F 125 INIT_ATM2D 
          atm_oc_wgt(j)=1. _d 0
./pkg/atm2d/init_atm2d.F 127 INIT_ATM2D 
          atm_oc_frac2(j)=0. _d 0
./pkg/atm2d/init_atm2d.F 133 INIT_ATM2D 
      tauv_jwght(1) = 1. _d 0
./pkg/atm2d/init_atm2d.F 140 INIT_ATM2D 
        tauv_jwght(j)= 1. _d 0 - (yG(1,j,1,1) - atm_yC(j_atm)) /
./pkg/atm2d/init_atm2d.F 152 INIT_ATM2D 
        cflan(j_atm)=0. _d 0
./pkg/atm2d/init_atm2d.F 153 INIT_ATM2D 
        ocnArea(j_atm)=0. _d 0
./pkg/atm2d/init_atm2d.F 170 INIT_ATM2D 
        cflan(j_atm)=1. _d 0 - ocnArea(j_atm) /
./pkg/atm2d/init_atm2d.F 171 INIT_ATM2D 
     &              (2. _d 0 * PI * 6.37 _d 6 * 6.37 _d 6 *
./pkg/atm2d/init_atm2d.F 173 INIT_ATM2D 
        if (cflan(j_atm).LT.1. _d -14) cflan(j_atm)=0. _d 0
./pkg/atm2d/init_atm2d.F 177 INIT_ATM2D 
      cflan(2)= 1. _d 0 - ocnArea(2) /
./pkg/atm2d/init_atm2d.F 178 INIT_ATM2D 
     &         (2. _d 0*PI*6.37 _d 6*6.37 _d 6*
./pkg/atm2d/init_atm2d.F 179 INIT_ATM2D 
     &         (sin(atm_yG(3)*deg2rad)+1. _d 0))
./pkg/atm2d/init_atm2d.F 180 INIT_ATM2D 
      IF (cflan(2).LT.1. _d -14) cflan(2)=0. _d 0
./pkg/atm2d/init_atm2d.F 183 INIT_ATM2D 
     &             (2. _d 0*PI*6.37 _d 6*6.37 _d 6*
./pkg/atm2d/init_atm2d.F 184 INIT_ATM2D 
     &             (1. _d 0-sin(atm_yG(jm0-1)*deg2rad)))
./pkg/atm2d/init_atm2d.F 185 INIT_ATM2D 
      IF (cflan(jm0-1).LT.1. _d -14) cflan(jm0-1)=0. _d 0
./pkg/atm2d/init_atm2d.F 202 INIT_ATM2D 
          atau(j_atm,mn)=0. _d 0
./pkg/atm2d/init_atm2d.F 203 INIT_ATM2D 
          atav(j_atm,mn)=0. _d 0
./pkg/atm2d/init_atm2d.F 204 INIT_ATM2D 
          awind(j_atm,mn)=0. _d 0
./pkg/atm2d/init_atm2d.F 258 INIT_ATM2D 
              runoffVal(i,j)=1. _d 0
./pkg/atm2d/init_atm2d.F 288 INIT_ATM2D 
          sum_tauu_ta(j_atm,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 289 INIT_ATM2D 
          sum_tauv_ta(j_atm,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 290 INIT_ATM2D 
          sum_wsocean_ta(j_atm,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 291 INIT_ATM2D 
          sum_ps4ocean_ta(j_atm,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 299 INIT_ATM2D 
            qnet_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 300 INIT_ATM2D 
            evap_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 301 INIT_ATM2D 
            precip_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 302 INIT_ATM2D 
            runoff_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 303 INIT_ATM2D 
            sum_qrel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 304 INIT_ATM2D 
            sum_frel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 305 INIT_ATM2D 
            sum_iceMask_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 306 INIT_ATM2D 
            sum_iceHeight_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 307 INIT_ATM2D 
            sum_iceTime_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 308 INIT_ATM2D 
            sum_oceMxLT_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 309 INIT_ATM2D 
            sum_oceMxLS_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/init_atm2d.F 311 INIT_ATM2D 
          qnet_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 312 INIT_ATM2D 
          evap_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 313 INIT_ATM2D 
          precip_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 314 INIT_ATM2D 
          runoff_atm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 315 INIT_ATM2D 
          sum_qrel(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 316 INIT_ATM2D 
          sum_frel(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 317 INIT_ATM2D 
          sum_iceMask(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 318 INIT_ATM2D 
          sum_iceHeight(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 319 INIT_ATM2D 
          sum_iceTime(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 320 INIT_ATM2D 
          sum_oceMxLT(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 321 INIT_ATM2D 
          sum_oceMxLS(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 326 INIT_ATM2D 
      SHice_min = 1. _d 18
./pkg/atm2d/init_atm2d.F 327 INIT_ATM2D 
      NHice_min = 1. _d 18
./pkg/atm2d/init_atm2d.F 328 INIT_ATM2D 
      SHice_max = 0. _d 0
./pkg/atm2d/init_atm2d.F 329 INIT_ATM2D 
      NHice_max = 0. _d 0
./pkg/atm2d/init_atm2d.F 330 INIT_ATM2D 
      sst_tave=  0. _d 0
./pkg/atm2d/init_atm2d.F 331 INIT_ATM2D 
      sss_tave=  0. _d 0
./pkg/atm2d/init_atm2d.F 332 INIT_ATM2D 
      HF2ocn_tave=  0. _d 0
./pkg/atm2d/init_atm2d.F 333 INIT_ATM2D 
      FW2ocn_tave=  0. _d 0
./pkg/atm2d/init_atm2d.F 334 INIT_ATM2D 
      CO2flx_tave=  0. _d 0
./pkg/atm2d/init_atm2d.F 341 INIT_ATM2D 
          pass_runoff(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 342 INIT_ATM2D 
          pass_qnet(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 343 INIT_ATM2D 
          pass_evap(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 344 INIT_ATM2D 
          pass_precip(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 345 INIT_ATM2D 
          pass_fu(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 346 INIT_ATM2D 
          pass_fv(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 347 INIT_ATM2D 
          pass_wspeed(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 348 INIT_ATM2D 
          pass_solarnet(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 349 INIT_ATM2D 
          pass_slp(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 350 INIT_ATM2D 
          pass_siceLoad(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 351 INIT_ATM2D 
          pass_pCO2(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 352 INIT_ATM2D 
          pass_prcAtm(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 353 INIT_ATM2D 
          sFluxFromIce(i,j)= 0. _d 0
./pkg/atm2d/init_atm2d.F 360 INIT_ATM2D 
          oFluxCO2(i,j) = 0. _d 0
./pkg/atm2d/init_atm2d.F 85 INIT_ATM2D 
      atm_oc_wgt(1)=1. _d 0
./pkg/atm2d/init_atm2d.F 89 INIT_ATM2D 
      atm_oc_frac2(1)= 0. _d 0   ! assumes ocean(1) fits in atm(1)
./pkg/atm2d/init_atm2d.F 91 INIT_ATM2D 
      atm_oc_wgt(sNy)=1. _d 0
./pkg/atm2d/init_atm2d.F 97 INIT_ATM2D 
      atm_oc_frac2(sNy)= 0. _d 0   ! assumes ocean(1) fits in atm(1)
./pkg/atm2d/init_sumvars.F 31 INIT_SUMVARS 
          sum_runoff(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 32 INIT_SUMVARS 
          sum_precip(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 33 INIT_SUMVARS 
          sum_evap(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 34 INIT_SUMVARS 
          sum_qnet(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 35 INIT_SUMVARS 
          sum_fu(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 36 INIT_SUMVARS 
          sum_fv(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 37 INIT_SUMVARS 
          sum_wspeed(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 38 INIT_SUMVARS 
          sum_solarnet(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 39 INIT_SUMVARS 
          sum_slp(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 40 INIT_SUMVARS 
          sum_pCO2(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 41 INIT_SUMVARS 
          sum_prcIce(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 42 INIT_SUMVARS 
          sum_snowPrc(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 43 INIT_SUMVARS 
          sum_evapIce(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 44 INIT_SUMVARS 
          sum_sHeat(i,j)= 0. _d 0
./pkg/atm2d/init_sumvars.F 45 INIT_SUMVARS 
          sum_flxCnB(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 109 MONTH_END_DIAGS 
          qnet_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 110 MONTH_END_DIAGS 
          evap_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 111 MONTH_END_DIAGS 
          precip_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 112 MONTH_END_DIAGS 
          runoff_atm(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 113 MONTH_END_DIAGS 
          sum_qrel(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 114 MONTH_END_DIAGS 
          sum_frel(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 115 MONTH_END_DIAGS 
          sum_iceMask(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 116 MONTH_END_DIAGS 
          sum_iceHeight(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 117 MONTH_END_DIAGS 
          sum_iceTime(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 118 MONTH_END_DIAGS 
          sum_oceMxLT(i,j)= 0. _d 0
./pkg/atm2d/month_end_diags.F 119 MONTH_END_DIAGS 
          sum_oceMxLS(i,j)= 0. _d 0
./pkg/atm2d/norm_ocn_fluxes.F 51 NORM_OCN_FLUXES 
            pass_slp(i,j)= sum_slp(i,j)/nper*100. _d 0  !convert to Pa
./pkg/atm2d/norm_ocn_fluxes.F 52 NORM_OCN_FLUXES 
            pass_pCO2(i,j)= sum_pCO2(i,j)*1. _d -6/nper
./pkg/atm2d/norm_ocn_fluxes.F 63 NORM_OCN_FLUXES 
            IF ( pass_wspeed(i,j) .LT. 0. _d 0)
./pkg/atm2d/norm_ocn_fluxes.F 64 NORM_OCN_FLUXES 
     &         pass_wspeed(i,j) = 0. _d 0
./pkg/atm2d/norm_ocn_fluxes.F 71 NORM_OCN_FLUXES 
            IF (iceMask(i,j,1,1) .NE. 0. _d 0)
./pkg/atm2d/pass_thsice_fluxes.F 39 PASS_THSICE_FLUXES 
         IF (iceMask(i,j,1,1) .GT. 0. _d 0) THEN
./pkg/atm2d/pass_thsice_fluxes.F 40 PASS_THSICE_FLUXES 
           netSW(i,j) = solarinc_2D(i,j)*(1. _d 0 - siceAlb(i,j,1,1)) ! convert to netSW
./pkg/atm2d/pass_thsice_fluxes.F 49 PASS_THSICE_FLUXES 
           IF (Tair_2D(i,j) .LE. 0. _d 0)
./pkg/atm2d/read_atmos.F 67 READ_ATMOS 
        atm_dLdt_ice(j_atm)  = 0. _d 0  ! -devidtg(j_atm)/secDay1000
./pkg/atm2d/read_atmos.F 71 READ_ATMOS 
        atm_dLdt_iceq(j_atm) = 0. _d 0  ! -devidtgeq(j_atm)/secDay1000
./pkg/atm2d/read_atmos.F 82 READ_ATMOS 
      IF (cflan(2).NE.1. _d 0)
./pkg/atm2d/read_atmos.F 84 READ_ATMOS 
      IF (cflan(jm0-1).NE.1. _d 0)
./eesupp/src/global_sum_singlecpu.F 115 GLOBAL_SUM_SINGLECPU_RL 
        sumAll = 0. _d 0
./pkg/atm2d/relax_add.F 117 RELAX_ADD 
          IF ((sstRelax(i,j).GT.2. _d 0).OR.
./pkg/atm2d/relax_add.F 118 RELAX_ADD 
     &        (iceMask(i,j,1,1) .EQ. 0. _d 0)) THEN
./pkg/atm2d/relax_add.F 120 RELAX_ADD 
          ELSEIF (sstRelax(i,j) .LE. -1. _d 0) THEN
./pkg/atm2d/relax_add.F 131 RELAX_ADD 
          IF (iceMask(i,j,1,1) .LT. 0.999 _d 0) THEN
./pkg/atm2d/relax_add.F 133 RELAX_ADD 
     &                / (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/relax_add.F 143 RELAX_ADD 
          IF (frelflux .GT. 0. _d 0) THEN
./pkg/atm2d/relax_add.F 147 RELAX_ADD 
            IF (iceMask(i,j,1,1).GT.0. _d 0)
./pkg/atm2d/relax_add.F 151 RELAX_ADD 
            IF (iceMask(i,j,1,1).GT.0. _d 0)
./pkg/atm2d/relax_add.F 89 RELAX_ADD 
     &                 max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0)
./pkg/atm2d/relax_add.F 95 RELAX_ADD 
     &                max(cos(1.5 _d 0*yC(1,j,1,1)*deg2rad),0. _d 0)
./pkg/atm2d/sum_ocn_fluxes.F 47 SUM_OCN_FLUXES 
           fu_2D(i,j)= fu_2D(i,j) * (1. _d 0 -
./pkg/atm2d/sum_ocn_fluxes.F 48 SUM_OCN_FLUXES 
     &          (iceMask(i,j,1,1) + iceMask(i-1,j,1,1)) * 0.5 _d 0 )
./pkg/atm2d/sum_ocn_fluxes.F 49 SUM_OCN_FLUXES 
     &                 / (1. _d 0 - windice_thres)
./pkg/atm2d/sum_ocn_fluxes.F 50 SUM_OCN_FLUXES 
           fv_2D(i,j)= fv_2D(i,j) * (1. _d 0 -
./pkg/atm2d/sum_ocn_fluxes.F 51 SUM_OCN_FLUXES 
     &          (iceMask(i,j,1,1) + iceMask(i,j-1,1,1)) * 0.5 _d 0 )
./pkg/atm2d/sum_ocn_fluxes.F 52 SUM_OCN_FLUXES 
     &                 / (1. _d 0 - windice_thres)
./pkg/atm2d/sum_ocn_fluxes.F 54 SUM_OCN_FLUXES 
     &                    * (1. _d 0 - iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 55 SUM_OCN_FLUXES 
     &                    / (1. _d 0 - windice_thres)
./pkg/atm2d/sum_ocn_fluxes.F 60 SUM_OCN_FLUXES 
     &                     precipo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 62 SUM_OCN_FLUXES 
     &                   evapo_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 64 SUM_OCN_FLUXES 
     &                   qneto_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_ocn_fluxes.F 69 SUM_OCN_FLUXES 
     &               solarnet_ocn_2D(i,j)*(1. _d 0-iceMask(i,j,1,1))
./pkg/atm2d/sum_thsice_out.F 37 SUM_THSICE_OUT 
          IF (iceMask(i,j,1,1) .NE. 0. _d 0) THEN
./pkg/atm2d/sum_thsice_out.F 45 SUM_THSICE_OUT 
            icFlxSW(i,j,1,1)= 0. _d 0
./pkg/atm2d/sum_yr_end_diags.F 37 SUM_YR_END_DIAGS 
      iceArea = 0. _d 0
./pkg/atm2d/sum_yr_end_diags.F 40 SUM_YR_END_DIAGS 
          IF (iceMask(i,j,1,1).GT. 0. _d 0)
./pkg/atm2d/sum_yr_end_diags.F 47 SUM_YR_END_DIAGS 
      iceArea = 0. _d 0
./pkg/atm2d/sum_yr_end_diags.F 50 SUM_YR_END_DIAGS 
          IF (iceMask(i,j,1,1).GT. 0. _d 0)
./pkg/atm2d/tave_end_diags.F 106 TAVE_END_DIAGS 
            qnet_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 107 TAVE_END_DIAGS 
            evap_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 108 TAVE_END_DIAGS 
            precip_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 109 TAVE_END_DIAGS 
            runoff_atm_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 110 TAVE_END_DIAGS 
            sum_qrel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 111 TAVE_END_DIAGS 
            sum_frel_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 112 TAVE_END_DIAGS 
            sum_iceMask_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 113 TAVE_END_DIAGS 
            sum_iceHeight_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 114 TAVE_END_DIAGS 
            sum_iceTime_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 115 TAVE_END_DIAGS 
            sum_oceMxLT_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 116 TAVE_END_DIAGS 
            sum_oceMxLS_ta(i,j,mn)= 0. _d 0
./pkg/atm2d/tave_end_diags.F 200 TAVE_END_DIAGS 
          sum_tauu_ta(j_atm,mn) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 201 TAVE_END_DIAGS 
          sum_tauv_ta(j_atm,mn) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 202 TAVE_END_DIAGS 
          sum_wsocean_ta(j_atm,mn) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 203 TAVE_END_DIAGS 
          sum_ps4ocean_ta(j_atm,mn) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 38 TAVE_END_DIAGS 
      DATA secYr /31536000. _d 0/
./pkg/atm2d/tave_end_diags.F 65 TAVE_END_DIAGS 
          qnet_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 66 TAVE_END_DIAGS 
          evap_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 67 TAVE_END_DIAGS 
          precip_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 68 TAVE_END_DIAGS 
          runoff_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 69 TAVE_END_DIAGS 
          qrel_ann(i,j) = 0. _d 0
./pkg/atm2d/tave_end_diags.F 70 TAVE_END_DIAGS 
          frel_ann(i,j) = 0. _d 0
./pkg/atm2d/yr_end_diags.F 53 YR_END_DIAGS 
      WRITE(25,*) 'SH ICE', SHice_max*1. _d -12, SHice_min*1. _d -12
./pkg/atm2d/yr_end_diags.F 54 YR_END_DIAGS 
      WRITE(25,*) 'NH ICE', NHice_max*1. _d -12, NHice_min*1. _d -12
./pkg/atm2d/yr_end_diags.F 55 YR_END_DIAGS 
      IF  (CO2flx_tave .NE. 0. _d 0)
./pkg/atm2d/yr_end_diags.F 62 YR_END_DIAGS 
      SHice_min = 1. _d 18
./pkg/atm2d/yr_end_diags.F 63 YR_END_DIAGS 
      NHice_min = 1. _d 18
./pkg/atm2d/yr_end_diags.F 64 YR_END_DIAGS 
      SHice_max = 0. _d 0
./pkg/atm2d/yr_end_diags.F 65 YR_END_DIAGS 
      NHice_max = 0. _d 0
./pkg/atm2d/yr_end_diags.F 66 YR_END_DIAGS 
      sst_tave =  0. _d 0
./pkg/atm2d/yr_end_diags.F 67 YR_END_DIAGS 
      sss_tave =  0. _d 0
./pkg/atm2d/yr_end_diags.F 68 YR_END_DIAGS 
      HF2ocn_tave =  0. _d 0
./pkg/atm2d/yr_end_diags.F 69 YR_END_DIAGS 
      FW2ocn_tave =  0. _d 0
./pkg/atm2d/yr_end_diags.F 70 YR_END_DIAGS 
      CO2flx_tave =  0. _d 0
./eesupp/src/global_vec_sum.F 140 GLOBAL_VEC_SUM_R8 
        tmp1(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 141 GLOBAL_VEC_SUM_R8 
        tmp2(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 227 GLOBAL_VEC_SUM_INT 
        tmp1(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 228 GLOBAL_VEC_SUM_INT 
        tmp2(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 54 GLOBAL_VEC_SUM_R4 
        tmp1(i) = 0. _d 0
./eesupp/src/global_vec_sum.F 55 GLOBAL_VEC_SUM_R4 
        tmp2(i) = 0. _d 0
./pkg/autodiff/active_file_control.F 153 ACTIVE_READ_RL 
                         active_data_t(i,j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_control.F 227 ACTIVE_READ_RL 
                       active_var(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 389 ACTIVE_WRITE_RL 
                       active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control.F 590 ACTIVE_READ_TILE_RL 
            active_var(i) = 0. _d 0
./pkg/autodiff/active_file_control.F 602 ACTIVE_READ_TILE_RL 
            active_data_t(i) = 0. _d 0
./pkg/autodiff/active_file_control.F 678 ACTIVE_READ_TILE_RL 
              active_var(index_var) = 0. _d 0
./pkg/autodiff/active_file_control.F 725 ACTIVE_READ_TILE_RL 
            active_var(i) = 0. _d 0
./pkg/autodiff/active_file_control.F 896 ACTIVE_WRITE_TILE_RL 
              active_data_t(index_t) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 138 ACTIVE_READ_XZ_RL 
                      active_data_t(i,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_control_slice.F 208 ACTIVE_READ_XZ_RL 
                    active_var(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 357 ACTIVE_WRITE_XZ_RL 
                    active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 522 ACTIVE_READ_YZ_RL 
                      active_data_t(j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_control_slice.F 592 ACTIVE_READ_YZ_RL 
                    active_var(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_control_slice.F 741 ACTIVE_WRITE_YZ_RL 
                    active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control.F 139 ACTIVE_READ_RL_LOC 
                         active_data_t(i,j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_loc_control.F 213 ACTIVE_READ_RL_LOC 
                       active_var(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control.F 371 ACTIVE_WRITE_RL_LOC 
                       active_data_t(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 134 ACTIVE_READ_XZ_RL_LOC 
                      active_data_t(i,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 204 ACTIVE_READ_XZ_RL_LOC 
                    active_var(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 349 ACTIVE_WRITE_XZ_RL_LOC 
                    active_data_t(i,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 510 ACTIVE_READ_YZ_RL_LOC 
                      active_data_t(j,k,bi,bj)= 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 580 ACTIVE_READ_YZ_RL_LOC 
                    active_var(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/active_file_loc_control_slice.F 725 ACTIVE_WRITE_YZ_RL_LOC 
                    active_data_t(j,k,bi,bj) = 0. _d 0
./pkg/autodiff/addamp_adj.F 39 ADDAMP_ADJ 
              facDamp=(1. _d 0-deltaTClock/timeDamp)
./pkg/autodiff/addamp_adj.F 41 ADDAMP_ADJ 
              facDamp=1. _d 0
./pkg/autodiff/adzero_adj.F 104 ADZERO_ADJ 
           adFieldFwd(i,j,k,bi,bj) = 0. _d 0
./pkg/autodiff/adzero_adj.F 32 ADZERO_ADJ_1D 
         adFieldFwd(k) = 0. _d 0
./pkg/autodiff/adzero_adj.F 66 ADZERO_ADJ_LOC 
         adFieldFwd(i,j,k) = 0. _d 0
./pkg/autodiff/ini_autodiff.F 43 INI_AUTODIFF 
      TsurfCor=0. _d 0
./pkg/autodiff/ini_autodiff.F 44 INI_AUTODIFF 
      SsurfCor=0. _d 0
./pkg/autodiff/ini_autodiff.F 66 INI_AUTODIFF 
         dEtaHdt(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/ini_autodiff.F 67 INI_AUTODIFF 
         PmEpR(i,j,bi,bj) = 0. _d 0
./pkg/autodiff/ini_autodiff.F 71 INI_AUTODIFF 
          EmPmR(I,J,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 133 BULKF_FIELDS_LOAD 
              tair0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 134 BULKF_FIELDS_LOAD 
              tair1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 135 BULKF_FIELDS_LOAD 
              qair0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 136 BULKF_FIELDS_LOAD 
              qair1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 137 BULKF_FIELDS_LOAD 
              rain0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 138 BULKF_FIELDS_LOAD 
              rain1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 139 BULKF_FIELDS_LOAD 
              solar0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 140 BULKF_FIELDS_LOAD 
              solar1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 141 BULKF_FIELDS_LOAD 
              flwdwn0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 142 BULKF_FIELDS_LOAD 
              flwdwn1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 143 BULKF_FIELDS_LOAD 
              cloud0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 144 BULKF_FIELDS_LOAD 
              cloud1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 145 BULKF_FIELDS_LOAD 
              wspeed0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 146 BULKF_FIELDS_LOAD 
              wspeed1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 147 BULKF_FIELDS_LOAD 
              uwind0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 148 BULKF_FIELDS_LOAD 
              uwind1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 149 BULKF_FIELDS_LOAD 
              vwind0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 150 BULKF_FIELDS_LOAD 
              vwind1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 151 BULKF_FIELDS_LOAD 
              runoff0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 152 BULKF_FIELDS_LOAD 
              runoff1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 153 BULKF_FIELDS_LOAD 
              snow0(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 154 BULKF_FIELDS_LOAD 
              snow1(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 156 BULKF_FIELDS_LOAD 
              thAir0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 157 BULKF_FIELDS_LOAD 
              thAir1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 159 BULKF_FIELDS_LOAD 
              qnetch0(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 160 BULKF_FIELDS_LOAD 
              qnetch1(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 161 BULKF_FIELDS_LOAD 
              empch0(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 162 BULKF_FIELDS_LOAD 
              empch1(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_fields_load.F 170 BULKF_FIELDS_LOAD 
      rdt = 1. _d 0 / deltaTclock
./pkg/bulk_force/bulkf_fields_load.F 183 BULKF_FIELDS_LOAD 
      bWght = 1. _d 0 - aWght
./pkg/bulk_force/bulkf_forcing.F 100 BULKF_FORCING 
                  evap(i,j,bi,bj) = EVPloc(1) * 1. _d -3 / rhoFW
./pkg/bulk_force/bulkf_forcing.F 101 BULKF_FORCING 
                  dEvdT = dEvp(1) * 1. _d -3
./pkg/bulk_force/bulkf_forcing.F 143 BULKF_FORCING 
     &                         *( 1. _d 0 - ocean_albedo )
./pkg/bulk_force/bulkf_forcing.F 145 BULKF_FORCING 
             ustress(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 146 BULKF_FORCING 
             vstress(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 147 BULKF_FORCING 
             fsh(i,j,bi,bj)     = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 148 BULKF_FORCING 
             flh(i,j,bi,bj)     = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 149 BULKF_FORCING 
             flwup(i,j,bi,bj)   = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 150 BULKF_FORCING 
             evap(i,j,bi,bj)    = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 151 BULKF_FORCING 
             fswnet(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 152 BULKF_FORCING 
             savssq(i,j,bi,bj)  = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 162 BULKF_FORCING 
     &          *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0
./pkg/bulk_force/bulkf_forcing.F 168 BULKF_FORCING 
     &          *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0
./pkg/bulk_force/bulkf_forcing.F 176 BULKF_FORCING 
            IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_forcing.F 178 BULKF_FORCING 
              hfl = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 197 BULKF_FORCING 
              Qnet(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 198 BULKF_FORCING 
              Qsw (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 199 BULKF_FORCING 
              EmPmR(i,j,bi,bj)= 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 201 BULKF_FORCING 
              dFdT(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_forcing.F 207 BULKF_FORCING 
         IF ( blk_taveFreq.GT.0. _d 0 )
./pkg/bulk_force/bulkf_forcing.F 83 BULKF_FORCING 
           IF ( maskC(i,j,ks,bi,bj).NE.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_formula_aim.F 125 BULKF_FORMULA_AIM 
      PSA(1) = 1. _d 0
./pkg/bulk_force/bulkf_formula_aim.F 126 BULKF_FORMULA_AIM 
      P0 = 1. _d +5
./pkg/bulk_force/bulkf_formula_aim.F 153 BULKF_FORMULA_AIM 
        TSFC(J)=273.16 _d 0
./pkg/bulk_force/bulkf_formula_aim.F 167 BULKF_FORMULA_AIM 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_formula_aim.F 175 BULKF_FORMULA_AIM 
        dFstb = RDTH*MIN(1. _d 0, MAX(0. _d 0, dTstb*0.5 _d 0))
./pkg/bulk_force/bulkf_formula_aim.F 182 BULKF_FORMULA_AIM 
      CALL BULKF_SH2RH_AIM( 2, NGP, TSKIN, PSA, 1. _d 0,
./pkg/bulk_force/bulkf_formula_aim.F 184 BULKF_FORMULA_AIM 
      CALL BULKF_SH2RH_AIM( 0, NGP, TSFC,  PSA, 1. _d 0,
./pkg/bulk_force/bulkf_formula_aim.F 187 BULKF_FORMULA_AIM 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_formula_aim.F 205 BULKF_FORMULA_AIM 
      IF ( dTstab.GT.0. _d 0 ) THEN
./pkg/bulk_force/bulkf_formula_aim.F 212 BULKF_FORMULA_AIM 
        dShf(J) = MAX( dShf(J), 0. _d 0 )
./pkg/bulk_force/bulkf_formula_aim.F 233 BULKF_FORMULA_AIM 
        dSlr(J)  = 4. _d 0 *SBC*TS2*TSKIN(J)
./pkg/bulk_force/bulkf_formula_lanl.F 120 BULKF_FORMULA_LANL 
     &     / 3.797915 _d 0 , 7.93252 _d -6 , 2.166847 _d -3 /
./pkg/bulk_force/bulkf_formula_lanl.F 121 BULKF_FORMULA_LANL 
      DATA   p0 / 1013. _d 0 /
./pkg/bulk_force/bulkf_formula_lanl.F 124 BULKF_FORMULA_LANL 
              ht =  2. _d 0
./pkg/bulk_force/bulkf_formula_lanl.F 126 BULKF_FORMULA_LANL 
              hu = 10. _d 0
./pkg/bulk_force/bulkf_formula_lanl.F 128 BULKF_FORMULA_LANL 
              zice = 0.0005 _d 0
./pkg/bulk_force/bulkf_formula_lanl.F 140 BULKF_FORMULA_LANL 
              if (us.eq.0. _d 0) then
./pkg/bulk_force/bulkf_formula_lanl.F 145 BULKF_FORMULA_LANL 
              t0     = Ta*(1. _d 0 + humid_fac*Qa)
./pkg/bulk_force/bulkf_formula_lanl.F 168 BULKF_FORMULA_LANL 
     &                    qstar/(1. _d 0/humid_fac+Qa))
./pkg/bulk_force/bulkf_formula_lanl.F 169 BULKF_FORMULA_LANL 
                 huol   = sign( min(abs(huol),10. _d 0), huol)
./pkg/bulk_force/bulkf_formula_lanl.F 170 BULKF_FORMULA_LANL 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/bulk_force/bulkf_formula_lanl.F 171 BULKF_FORMULA_LANL 
                 xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
./pkg/bulk_force/bulkf_formula_lanl.F 173 BULKF_FORMULA_LANL 
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/bulk_force/bulkf_formula_lanl.F 174 BULKF_FORMULA_LANL 
     &                    (2. _d 0*log(5. _d -1*(1. _d 0+x)) +
./pkg/bulk_force/bulkf_formula_lanl.F 175 BULKF_FORMULA_LANL 
     &                     2. _d 0*log(5. _d -1*(1. _d 0+xsq)) -
./pkg/bulk_force/bulkf_formula_lanl.F 176 BULKF_FORMULA_LANL 
     &                     2. _d 0*atan(x) + pi*.5 _d 0)
./pkg/bulk_force/bulkf_formula_lanl.F 177 BULKF_FORMULA_LANL 
                 psixh  = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/bulk_force/bulkf_formula_lanl.F 178 BULKF_FORMULA_LANL 
     &                     (2. _d 0*log(5. _d -1*(1. _d 0+xsq)))
./pkg/bulk_force/bulkf_formula_lanl.F 181 BULKF_FORMULA_LANL 
                 rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar)
./pkg/bulk_force/bulkf_formula_lanl.F 182 BULKF_FORMULA_LANL 
                 rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar)
./pkg/bulk_force/bulkf_formula_lanl.F 207 BULKF_FORMULA_LANL 
               dflwupdT=4. _d 0*ocean_emissivity*stefan*tsf**3
./pkg/bulk_force/bulkf_formula_lanl.F 210 BULKF_FORMULA_LANL 
                dflwupdT=4. _d 0*snow_emissivity*stefan*tsf**3
./pkg/bulk_force/bulkf_formula_lanl.F 213 BULKF_FORMULA_LANL 
                dflwupdT=4. _d 0*ice_emissivity*stefan*tsf**3
./pkg/bulk_force/bulkf_formula_lay.F 129 BULKF_FORMULA_LAY 
     &     / 0.5 _d 0 , 1. _d 0 , 2. _d 0 /
./pkg/bulk_force/bulkf_formula_lay.F 134 BULKF_FORMULA_LAY 
     &     /   640.38 _d 3 , 5107.0 _d -0 /
./pkg/bulk_force/bulkf_formula_lay.F 136 BULKF_FORMULA_LAY 
     &     / 11637.80 _d 3 , 5897.8 _d -0 /
./pkg/bulk_force/bulkf_formula_lay.F 148 BULKF_FORMULA_LAY 
              IF (ws.EQ.0. _d 0) THEN
./pkg/bulk_force/bulkf_formula_lay.F 192 BULKF_FORMULA_LAY 
                 huol   = SIGN( MIN(abs(huol),10. _d 0), huol)
./pkg/bulk_force/bulkf_formula_lay.F 194 BULKF_FORMULA_LAY 
                 xsq    = SQRT( ABS(one - huol*16. _d 0) )
./pkg/bulk_force/bulkf_formula_lay.F 196 BULKF_FORMULA_LAY 
                 psimh = -5. _d 0*huol*stable
./pkg/bulk_force/bulkf_formula_lay.F 201 BULKF_FORMULA_LAY 
                 xsq    = SQRT( ABS(one - htol*16. _d 0) )
./pkg/bulk_force/bulkf_formula_lay.F 202 BULKF_FORMULA_LAY 
                 psixh  = -5. _d 0*htol*stable
./pkg/bulk_force/bulkf_formula_lay.F 216 BULKF_FORMULA_LAY 
                 rd = rdn/(1. _d 0 + rdn*(zwln-psimh)/xkar)
./pkg/bulk_force/bulkf_formula_lay.F 217 BULKF_FORMULA_LAY 
                 rh = rhn/(1. _d 0 + rhn*(ztln-psixh)/xkar)
./pkg/bulk_force/bulkf_formula_lay.F 218 BULKF_FORMULA_LAY 
                 re = ren/(1. _d 0 + ren*(ztln-psixh)/xkar)
./pkg/bulk_force/bulkf_formula_lay.F 247 BULKF_FORMULA_LAY 
                dflwupdT= ocean_emissivity*stefan*Ts2*Tsf*4. _d 0
./pkg/bulk_force/bulkf_formula_lay.F 250 BULKF_FORMULA_LAY 
                dflwupdT = snow_emissivity*stefan*Ts2*Tsf*4. _d 0
./pkg/bulk_force/bulkf_formula_lay.F 253 BULKF_FORMULA_LAY 
                dflwupdT =  ice_emissivity*stefan*Ts2*Tsf*4. _d 0
./pkg/bulk_force/bulkf_init_varia.F 46 BULKF_INIT_VARIA 
             Tair  (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 47 BULKF_INIT_VARIA 
             Qair  (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 48 BULKF_INIT_VARIA 
             Solar (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 49 BULKF_INIT_VARIA 
             flwdwn(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 50 BULKF_INIT_VARIA 
             cloud (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 51 BULKF_INIT_VARIA 
             wspeed(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 52 BULKF_INIT_VARIA 
             uwind (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 53 BULKF_INIT_VARIA 
             vwind (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 54 BULKF_INIT_VARIA 
             runoff(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 56 BULKF_INIT_VARIA 
             thAir (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 58 BULKF_INIT_VARIA 
             qnetch(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 59 BULKF_INIT_VARIA 
             empch (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 63 BULKF_INIT_VARIA 
         BULK_timeAve(bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 66 BULKF_INIT_VARIA 
              BULK_Qnet_Ave    (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 67 BULKF_INIT_VARIA 
              BULK_EmPmR_Ave   (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 68 BULKF_INIT_VARIA 
              BULK_fu_Ave      (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 69 BULKF_INIT_VARIA 
              BULK_fv_Ave      (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 70 BULKF_INIT_VARIA 
              BULK_latent_Ave  (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 71 BULKF_INIT_VARIA 
              BULK_sensible_Ave(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 72 BULKF_INIT_VARIA 
              BULK_evap_Ave    (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 73 BULKF_INIT_VARIA 
              BULK_flwup_Ave   (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 74 BULKF_INIT_VARIA 
              BULK_flwupnet_Ave(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 75 BULKF_INIT_VARIA 
              BULK_solar_Ave   (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 76 BULKF_INIT_VARIA 
              BULK_ssq_Ave     (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 83 BULKF_INIT_VARIA 
              CONS_Qnet (i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 84 BULKF_INIT_VARIA 
              CONS_EmPmR(i,j,bi,bj) = 0. _d 0
./pkg/bulk_force/bulkf_init_varia.F 92 BULKF_INIT_VARIA 
      constim = 0. _d 0
./pkg/bulk_force/bulkf_readparms.F 100 BULKF_READPARMS 
      gamma_blk =  0.010 _d 0
./pkg/bulk_force/bulkf_readparms.F 101 BULKF_READPARMS 
      atm_emissivity  = .90 _d 0
./pkg/bulk_force/bulkf_readparms.F 102 BULKF_READPARMS 
      ocean_emissivity= .985 _d 0
./pkg/bulk_force/bulkf_readparms.F 103 BULKF_READPARMS 
      snow_emissivity = .98 _d 0
./pkg/bulk_force/bulkf_readparms.F 104 BULKF_READPARMS 
      ice_emissivity  = .98 _d 0
./pkg/bulk_force/bulkf_readparms.F 105 BULKF_READPARMS 
      ocean_albedo    = .10 _d 0
./pkg/bulk_force/bulkf_readparms.F 107 BULKF_READPARMS 
      FWIND0 = 0.6 _d 0
./pkg/bulk_force/bulkf_readparms.F 108 BULKF_READPARMS 
      CHS = 0.8 _d -3
./pkg/bulk_force/bulkf_readparms.F 109 BULKF_READPARMS 
      VGUST  = 5. _d 0
./pkg/bulk_force/bulkf_readparms.F 110 BULKF_READPARMS 
      DTHETA = 3. _d 0
./pkg/bulk_force/bulkf_readparms.F 111 BULKF_READPARMS 
      dTstab = 1. _d 0
./pkg/bulk_force/bulkf_readparms.F 112 BULKF_READPARMS 
      FSTAB  = 0.67 _d 0
./pkg/bulk_force/bulkf_readparms.F 76 BULKF_READPARMS 
      rhoA   = 1.3 _d 0
./pkg/bulk_force/bulkf_readparms.F 80 BULKF_READPARMS 
      Lvap   = 2.5 _d 6
./pkg/bulk_force/bulkf_readparms.F 81 BULKF_READPARMS 
      Lfresh = 3.34 _d 5
./pkg/bulk_force/bulkf_readparms.F 86 BULKF_READPARMS 
      xkar   = 0.4  _d 0
./pkg/bulk_force/bulkf_readparms.F 87 BULKF_READPARMS 
      stefan = 5.67 _d -8
./pkg/bulk_force/bulkf_readparms.F 88 BULKF_READPARMS 
      zref   = 10.0 _d 0
./pkg/bulk_force/bulkf_readparms.F 91 BULKF_READPARMS 
      cDrag_1 = 2.70   _d -3
./pkg/bulk_force/bulkf_readparms.F 92 BULKF_READPARMS 
      cDrag_2 = 0.142  _d -3
./pkg/bulk_force/bulkf_readparms.F 93 BULKF_READPARMS 
      cDrag_3 = 0.0764 _d -3
./pkg/bulk_force/bulkf_readparms.F 94 BULKF_READPARMS 
      cStantonS = 18.0 _d -3
./pkg/bulk_force/bulkf_readparms.F 95 BULKF_READPARMS 
      cStantonU = 32.7 _d -3
./pkg/bulk_force/bulkf_readparms.F 96 BULKF_READPARMS 
      cDalton   = 34.6 _d -3
./pkg/bulk_force/bulkf_readparms.F 97 BULKF_READPARMS 
      umin      =  1.0 _d 0
./pkg/bulk_force/bulkf_readparms.F 98 BULKF_READPARMS 
      humid_fac =  0.606 _d 0
./pkg/bulk_force/bulkf_readparms.F 99 BULKF_READPARMS 
      saltQsFac =  0.980 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 50 BULKF_SH2RH_AIM 
      E0=  6.108 _d -3
./pkg/bulk_force/bulkf_sh2rh_aim.F 51 BULKF_SH2RH_AIM 
      C1= 17.269 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 52 BULKF_SH2RH_AIM 
      C2= 21.875 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 53 BULKF_SH2RH_AIM 
      T0=273.16 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 54 BULKF_SH2RH_AIM 
      T1= 35.86 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 55 BULKF_SH2RH_AIM 
      T2=  7.66 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 56 BULKF_SH2RH_AIM 
      QS1= 622. _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 57 BULKF_SH2RH_AIM 
      QS2= .378 _d 0
./pkg/bulk_force/bulkf_sh2rh_aim.F 69 BULKF_SH2RH_AIM 
          recT   = 1. _d 0 / (TA(J)-T1)
./pkg/bulk_force/bulkf_sh2rh_aim.F 74 BULKF_SH2RH_AIM 
          recT   = 1. _d 0 / (TA(J)-T2)
./pkg/cd_code/cd_code_ini_vars.F 37 CD_CODE_INI_VARS 
           uNM1(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 38 CD_CODE_INI_VARS 
           vNM1(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 39 CD_CODE_INI_VARS 
           uVeld(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 40 CD_CODE_INI_VARS 
           vVeld(I,J,K,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_ini_vars.F 48 CD_CODE_INI_VARS 
          etaNm1(I,J,bi,bj)=0. _d 0
./pkg/cd_code/cd_code_scheme.F 125 CD_CODE_SCHEME 
     &            +(af(i-1,j)+af(i,j+1)) )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 128 CD_CODE_SCHEME 
     &            +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 146 CD_CODE_SCHEME 
     &                         +(1. _d 0 - rCD)
./pkg/cd_code/cd_code_scheme.F 150 CD_CODE_SCHEME 
     &                 )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 154 CD_CODE_SCHEME 
     &                 )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 163 CD_CODE_SCHEME 
     &               +_fCori(i-1,j,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 184 CD_CODE_SCHEME 
     &            +(af(i+1,j)+af(i,j-1)) )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 187 CD_CODE_SCHEME 
     &            +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 205 CD_CODE_SCHEME 
     &                         +(1. _d 0 - rCD)
./pkg/cd_code/cd_code_scheme.F 209 CD_CODE_SCHEME 
     &                 )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 213 CD_CODE_SCHEME 
     &                 )*0.25 _d 0
./pkg/cd_code/cd_code_scheme.F 222 CD_CODE_SCHEME 
     &               +_fCori(i,j-1,bi,bj) )*0.5 _d 0
./pkg/cd_code/cd_code_scheme.F 72 CD_CODE_SCHEME 
      ab15   =  1.5 _d 0 + epsAB_CD
./pkg/cd_code/cd_code_scheme.F 73 CD_CODE_SCHEME 
      ab05   = -0.5 _d 0 - epsAB_CD
./pkg/cfc/cfc11_surfforcing.F 61 CFC11_SURFFORCING 
              ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc11_surfforcing.F 71 CFC11_SURFFORCING 
              SolCFC11(i,j) = 1000. _d 0 * SolCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F 73 CFC11_SURFFORCING 
              SolCFC11(i,j) = 1. _d -12 * SolCFC11(i,j)
./pkg/cfc/cfc11_surfforcing.F 77 CFC11_SURFFORCING 
              Kwexch(i,j) = (1. _d 0 - fice(i,j,bi,bj))
./pkg/cfc/cfc11_surfforcing.F 79 CFC11_SURFFORCING 
     &                    / sqrt(SchmidtNoCFC11(i,j)/660. _d 0)
./pkg/cfc/cfc11_surfforcing.F 84 CFC11_SURFFORCING 
              FluxCFC11(i,j) = 0. _d 0
./pkg/cfc/cfc12_surfforcing.F 61 CFC12_SURFFORCING 
              ttemp=( theta(i,j,k,bi,bj) + 273.16 _d 0)* 0.01 _d 0
./pkg/cfc/cfc12_surfforcing.F 71 CFC12_SURFFORCING 
              SolCFC12(i,j) = 1000. _d 0 * SolCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F 73 CFC12_SURFFORCING 
              SolCFC12(i,j) = 1. _d -12 * SolCFC12(i,j)
./pkg/cfc/cfc12_surfforcing.F 77 CFC12_SURFFORCING 
              Kwexch(i,j) = (1. _d 0 - fice(i,j,bi,bj))
./pkg/cfc/cfc12_surfforcing.F 79 CFC12_SURFFORCING 
     &                    / sqrt(SchmidtNoCFC12(i,j)/660. _d 0)
./pkg/cfc/cfc12_surfforcing.F 84 CFC12_SURFFORCING 
              FluxCFC12(i,j) = 0. _d 0
./pkg/cfc/cfc_atmos.F 40 CFC_ATMOS 
           AtmosCFC11(i,j,bi,bj)=0. _d 0
./pkg/cfc/cfc_atmos.F 41 CFC_ATMOS 
           AtmosCFC12(i,j,bi,bj)=0. _d 0
./pkg/cfc/cfc_fields_load.F 129 CFC_FIELDS_LOAD 
           pisvel(i,j,bi,bj)=(0.31 _d 0*sh(i,j,bi,bj)**2)/3.6 _d 5
./pkg/cfc/cfc_fields_load.F 146 CFC_FIELDS_LOAD 
             WIND = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/cfc/cfc_fields_load.F 151 CFC_FIELDS_LOAD 
           pisvel(i,j,bi,bj)=(0.31 _d 0*wind**2)/3.6 _d 5
./pkg/cfc/cfc_fields_load.F 195 CFC_FIELDS_LOAD 
            FIce(i,j,bi,bj) =0. _d 0
./pkg/cfc/cfc_fields_load.F 41 CFC_FIELDS_LOAD 
      IF ( CFC_forcingCycle .GT. 0. _d 0 ) THEN
./pkg/cfc/cfc_fields_load.F 56 CFC_FIELDS_LOAD 
       rdt = 1. _d 0 / deltaTclock
./pkg/cfc/cfc_fields_load.F 70 CFC_FIELDS_LOAD 
       bWght = 1. _d 0 - aWght
./pkg/cfc/cfc_param.F 33 CFC_PARAM 
      sca_11_1 = 3501.8 _d 0
./pkg/cfc/cfc_param.F 34 CFC_PARAM 
      sca_11_2 = -210.31 _d 0
./pkg/cfc/cfc_param.F 35 CFC_PARAM 
      sca_11_3 =    6.1851 _d 0
./pkg/cfc/cfc_param.F 36 CFC_PARAM 
      sca_11_4 =   -0.075139 _d 0
./pkg/cfc/cfc_param.F 38 CFC_PARAM 
      A1_11=  -229.9261 _d 0
./pkg/cfc/cfc_param.F 39 CFC_PARAM 
      A2_11=   319.6552 _d 0
./pkg/cfc/cfc_param.F 40 CFC_PARAM 
      A3_11=   119.4471 _d 0
./pkg/cfc/cfc_param.F 41 CFC_PARAM 
      A4_11=   -1.39165 _d 0
./pkg/cfc/cfc_param.F 42 CFC_PARAM 
      B1_11=   -0.142382 _d 0
./pkg/cfc/cfc_param.F 43 CFC_PARAM 
      B2_11=    0.091459 _d 0
./pkg/cfc/cfc_param.F 44 CFC_PARAM 
      B3_11=   -0.0157274 _d 0
./pkg/cfc/cfc_param.F 48 CFC_PARAM 
      sca_12_1 = 3845.4 _d 0
./pkg/cfc/cfc_param.F 49 CFC_PARAM 
      sca_12_2 = -228.95 _d 0
./pkg/cfc/cfc_param.F 50 CFC_PARAM 
      sca_12_3 =    6.1908 _d 0
./pkg/cfc/cfc_param.F 51 CFC_PARAM 
      sca_12_4 =   -0.067430 _d 0
./pkg/cfc/cfc_param.F 53 CFC_PARAM 
      A1_12=  -218.0971 _d 0
./pkg/cfc/cfc_param.F 54 CFC_PARAM 
      A2_12=   298.9702 _d 0
./pkg/cfc/cfc_param.F 55 CFC_PARAM 
      A3_12=   113.8049 _d 0
./pkg/cfc/cfc_param.F 56 CFC_PARAM 
      A4_12=   -1.39165 _d 0
./pkg/cfc/cfc_param.F 57 CFC_PARAM 
      B1_12=   -0.143566 _d 0
./pkg/cfc/cfc_param.F 58 CFC_PARAM 
      B2_12=    0.091015 _d 0
./pkg/cfc/cfc_param.F 59 CFC_PARAM 
      B3_12=   -0.0153924 _d 0
./pkg/cheapaml/adams2d.F 53 ADAMS2D 
        ab15 = 1. _d 0
./pkg/cheapaml/adams2d.F 54 ADAMS2D 
        ab05 = 0. _d 0
./pkg/cheapaml/adams2d.F 56 ADAMS2D 
        ab15 = 1.5 _d 0 + abEps
./pkg/cheapaml/adams2d.F 57 ADAMS2D 
        ab05 = -( 0.5 _d 0 + abEps )
./pkg/cheapaml/cheapaml.F 104 CHEAPAML 
     &     / 3.797915 _d 0 , 7.93252 _d -6 , 2.166847 _d -3 /
./pkg/cheapaml/cheapaml.F 118 CHEAPAML 
              ht =  2. _d 0
./pkg/cheapaml/cheapaml.F 119 CHEAPAML 
              hq =  2. _d 0
./pkg/cheapaml/cheapaml.F 120 CHEAPAML 
              hu = 10. _d 0
./pkg/cheapaml/cheapaml.F 121 CHEAPAML 
              zref = 10. _d 0
./pkg/cheapaml/cheapaml.F 130 CHEAPAML 
              cdalton = 0.0346000 _d 0
./pkg/cheapaml/cheapaml.F 132 CHEAPAML 
              psim_fac=5. _d 0
./pkg/cheapaml/cheapaml.F 161 CHEAPAML 
             if (hFacC(i,j,1,bi,bj).ne.0. _d 0) then
./pkg/cheapaml/cheapaml.F 163 CHEAPAML 
               if (ICEMASK(i,j,bi,bj).gt.0. _d 0) then
./pkg/cheapaml/cheapaml.F 165 CHEAPAML 
                if (snowheight(i,j,bi,bj).gt.3. _d -1) then
./pkg/cheapaml/cheapaml.F 179 CHEAPAML 
                       usm=max(uss,1. _d 0)
./pkg/cheapaml/cheapaml.F 186 CHEAPAML 
               ustress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F 187 CHEAPAML 
               vstress(i,j,bi,bj) = 0. _d 0
./pkg/cheapaml/cheapaml.F 291 CHEAPAML 
              t0     = tta*(1. _d 0 + humid_fac*Qa*ssq)
./pkg/cheapaml/cheapaml.F 307 CHEAPAML 
     &                    qstar/(1. _d 0/humid_fac+Qa))
./pkg/cheapaml/cheapaml.F 308 CHEAPAML 
                 huol   = sign( min(abs(huol),10. _d 0), huol)
./pkg/cheapaml/cheapaml.F 309 CHEAPAML 
                 stable = 5. _d -1 + sign(5. _d -1 , huol)
./pkg/cheapaml/cheapaml.F 310 CHEAPAML 
                 xsq = max(sqrt(abs(1. _d 0 - 16. _d 0*huol)),1. _d 0)
./pkg/cheapaml/cheapaml.F 312 CHEAPAML 
                 psimh = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml.F 313 CHEAPAML 
     &                    (2. _d 0*log(5. _d -1*(1. _d 0+x)) +
./pkg/cheapaml/cheapaml.F 314 CHEAPAML 
     &                     2. _d 0*log(5. _d -1*(1. _d 0+xsq)) -
./pkg/cheapaml/cheapaml.F 315 CHEAPAML 
     &                     2. _d 0*atan(x) + pi*.5 _d 0)
./pkg/cheapaml/cheapaml.F 316 CHEAPAML 
                 psixh  = -5. _d 0*huol*stable + (1. _d 0-stable)*
./pkg/cheapaml/cheapaml.F 317 CHEAPAML 
     &                     (2. _d 0*log(5. _d -1*(1. _d 0+xsq)))
./pkg/cheapaml/cheapaml.F 321 CHEAPAML 
                 rd = rdn/(1. _d 0 + rdn*(aln-psimh)/xkar)
./pkg/cheapaml/cheapaml.F 322 CHEAPAML 
                 rh = rhn/(1. _d 0 + rhn*(aln-psixh)/xkar)
./pkg/cheapaml/cheapaml.F 333 CHEAPAML 
                        usm=max(uss,0.5 _d 0)
./pkg/cheapaml/cheapaml.F 447 CHEAPAML 
     &          *(ustress(i,j,bi,bj)+ustress(i-1,j,bi,bj))*0.5 _d 0
./pkg/cheapaml/cheapaml.F 453 CHEAPAML 
     &          *(vstress(i,j,bi,bj)+vstress(i,j-1,bi,bj))*0.5 _d 0
./pkg/cheapaml/cheapaml_fields_load.F 110 CHEAPAML_FIELDS_LOAD 
         xsolph=myTime*2.d0*3.14159 _d 0/365. _d 0/86400. _d 0
./pkg/cheapaml/cheapaml_fields_load.F 111 CHEAPAML_FIELDS_LOAD 
         xinxx=cos(xsolph+xphaseinit+3.14159 _d 0)
./pkg/cheapaml/cheapaml_fields_load.F 133 CHEAPAML_FIELDS_LOAD 
          local=(2.d0*local/stefan)**(0.25d0)-273.16 _d 0
./pkg/cheapaml/cheapaml_fields_load.F 200 CHEAPAML_FIELDS_LOAD 
      rdt=1. _d 0 / deltaTclock
./pkg/cheapaml/cheapaml_fields_load.F 320 CHEAPAML_FIELDS_LOAD 
        local=(2.d0*local/stefan)**(0.25d0)-273.16 _d 0
./pkg/cheapaml/cheapaml_fields_load.F 87 CHEAPAML_FIELDS_LOAD 
     &     / 3.797915 _d 0 , 7.93252 _d -6 , 2.166847 _d -3 /
./pkg/cheapaml/cheapaml_readparms.F 74 CHEAPAML_READPARMS 
      rhoa   = 1.3 _d 0
./pkg/cheapaml/cheapaml_readparms.F 76 CHEAPAML_READPARMS 
      stefan = 5.67 _d -8
./pkg/cheapaml/gad_2d_calc_rhs.F 110 GAD_2D_CALC_RHS 
        fZon(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 128 GAD_2D_CALC_RHS 
         df(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 142 GAD_2D_CALC_RHS 
        fMer(i,j) = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 94 GAD_2D_CALC_RHS 
        fZon(i,j)      = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 95 GAD_2D_CALC_RHS 
        fMer(i,j)      = 0. _d 0
./pkg/cheapaml/gad_2d_calc_rhs.F 96 GAD_2D_CALC_RHS 
        df(i,j)        = 0. _d 0
./pkg/cheapaml/gad_c2_2d_adv_x.F 52 GAD_C2_2D_ADV_X 
     &   uVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i-1,j))*0.5 _d 0
./pkg/cheapaml/gad_c2_2d_adv_y.F 54 GAD_C2_2D_ADV_Y 
     &   vVel(i,j,bi,bj)*(Tracer(i,j)+Tracer(i,j-1))*0.5 _d 0
./eesupp/src/print.F 1236 PRINT_MAPRL 
      small  = 1. _d -15
./eesupp/src/print.F 1237 PRINT_MAPRL 
      fMin   =  1. _d 32
./eesupp/src/print.F 1238 PRINT_MAPRL 
      fMax   = -1. _d 32
./eesupp/src/print.F 803 PRINT_MAPRS 
      small  =  1. _d -15
./eesupp/src/print.F 804 PRINT_MAPRS 
      fMin   =  1. _d  32
./eesupp/src/print.F 805 PRINT_MAPRS 
      fMax   = -1. _d  32
./pkg/cost/cost_atlantic_heat.F 42 COST_ATLANTIC_HEAT 
      parameter( petawatt = 1. _d +15 )
./pkg/cost/cost_dependent_init.F 52 COST_DEPENDENT_INIT 
      fc   = 0. _d 0
./pkg/cost/cost_dependent_init.F 57 COST_DEPENDENT_INIT 
       adfc = 1. _d 0
./pkg/cost/cost_dependent_init.F 64 COST_DEPENDENT_INIT 
         objf_vector(i,bi,bj) = 0. _d 0
./pkg/cost/cost_dependent_init.F 65 COST_DEPENDENT_INIT 
         adobjf_vector(i,bi,bj) = 1. _d 0
./pkg/cost/cost_dependent_init.F 72 COST_DEPENDENT_INIT 
            objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_dependent_init.F 74 COST_DEPENDENT_INIT 
           objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_init_varia.F 111 COST_INIT_VARIA 
        fc         = 0. _d 0
./pkg/cost/cost_init_varia.F 57 COST_INIT_VARIA 
          objf_atl(bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 58 COST_INIT_VARIA 
          objf_test(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 59 COST_INIT_VARIA 
          objf_tracer(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 61 COST_INIT_VARIA 
          objf_transport(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 64 COST_INIT_VARIA 
          objf_depth(bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 68 COST_INIT_VARIA 
            objf_vector(i,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 76 COST_INIT_VARIA 
                cMeanTheta(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 77 COST_INIT_VARIA 
                cMeanUVel(i,j,k,bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 78 COST_INIT_VARIA 
                cMeanVVel(i,j,k,bi,bj)  = 0. _d 0
./pkg/cost/cost_init_varia.F 79 COST_INIT_VARIA 
                cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 80 COST_INIT_VARIA 
                cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0
./pkg/cost/cost_init_varia.F 90 COST_INIT_VARIA 
                objf_state_final(i,j,bi,bj,k) = 0. _d 0
./pkg/cost/cost_init_varia.F 92 COST_INIT_VARIA 
              objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
./pkg/cost/cost_readparms.F 58 COST_READPARMS 
        mult_atl              =      0. _d 0
./pkg/cost/cost_readparms.F 59 COST_READPARMS 
        mult_test             =      0. _d 0
./pkg/cost/cost_readparms.F 60 COST_READPARMS 
        mult_tracer           =      0. _d 0
./pkg/cost/cost_readparms.F 61 COST_READPARMS 
        multTheta             =      0. _d 0
./pkg/cost/cost_readparms.F 62 COST_READPARMS 
        multSalt              =      0. _d 0
./pkg/cost/cost_readparms.F 63 COST_READPARMS 
        multUvel              =      0. _d 0
./pkg/cost/cost_readparms.F 64 COST_READPARMS 
        multVvel              =      0. _d 0
./pkg/cost/cost_readparms.F 65 COST_READPARMS 
        multEtan              =      0. _d 0
./pkg/cost/cost_readparms.F 67 COST_READPARMS 
        mult_transport        =      0. _d 0
./pkg/cost/cost_readparms.F 70 COST_READPARMS 
        mult_depth            =      0. _d 0
./pkg/cost/cost_readparms.F 73 COST_READPARMS 
        mult_temp_tut         =      0. _d 0
./pkg/cost/cost_readparms.F 74 COST_READPARMS 
        mult_hflux_tut        =      0. _d 0
./pkg/cost/cost_tracer.F 49 COST_TRACER 
      locfc = 0. _d 0
./pkg/cost/cost_vector.F 67 COST_VECTOR 
            sum = 0. _d 0
./pkg/ctrl/ctrl_depth_ini.F 106 CTRL_DEPTH_INI 
              xx_r_low(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_depth_ini.F 78 CTRL_DEPTH_INI 
        fac = 1. _d 0
./pkg/ctrl/ctrl_depth_ini.F 80 CTRL_DEPTH_INI 
        fac = 0. _d 0
./pkg/ctrl/ctrl_depth_ini.F 95 CTRL_DEPTH_INI 
          tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_get_gen.F 209 CTRL_GET_GEN 
     &              + gensign*(1. _d 0 - genfac)*xx_gen1(i,j,bi,bj)
./pkg/ctrl/ctrl_getobcse.F 347 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 353 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 359 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcse.F 365 CTRL_GETOBCSE 
     &                 + (1. _d 0 - obcsefac)*xx_obcse1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 375 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 382 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 389 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsn.F 396 CTRL_GETOBCSN 
     &                 + (1. _d 0 - obcsnfac)*xx_obcsn1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 350 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 356 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 362 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcss.F 368 CTRL_GETOBCSS 
     &                 + (1. _d 0 - obcssfac)*xx_obcss1(i,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 350 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 356 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 362 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_getobcsw.F 368 CTRL_GETOBCSW 
     &                 + (1. _d 0 - obcswfac)*xx_obcsw1(j,k,bi,bj,iobcs)
./pkg/ctrl/ctrl_hfacc_ini.F 105 CTRL_HFACC_INI 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_hfacc_ini.F 78 CTRL_HFACC_INI 
        fac = 1. _d 0
./pkg/ctrl/ctrl_hfacc_ini.F 80 CTRL_HFACC_INI 
        fac = 0. _d 0
./pkg/ctrl/ctrl_init.F 1063 CTRL_INIT 
           xx_dic(i) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 100 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 114 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 115 CTRL_INIT_OBCS_VARIABLES 
                xx_obcse1(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 69 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 70 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsn1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 84 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss0(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 85 CTRL_INIT_OBCS_VARIABLES 
                xx_obcss1(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_obcs_variables.F 99 CTRL_INIT_OBCS_VARIABLES 
                xx_obcsw0(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 101 CTRL_INIT_VARIABLES 
              xx_tauv0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 102 CTRL_INIT_VARIABLES 
              xx_tauv1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 114 CTRL_INIT_VARIABLES 
              xx_uwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 115 CTRL_INIT_VARIABLES 
              xx_uwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 127 CTRL_INIT_VARIABLES 
              xx_vwind0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 128 CTRL_INIT_VARIABLES 
              xx_vwind1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 140 CTRL_INIT_VARIABLES 
              xx_atemp0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 141 CTRL_INIT_VARIABLES 
              xx_atemp1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 153 CTRL_INIT_VARIABLES 
              xx_aqh0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 154 CTRL_INIT_VARIABLES 
              xx_aqh1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 166 CTRL_INIT_VARIABLES 
              xx_precip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 167 CTRL_INIT_VARIABLES 
              xx_precip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 179 CTRL_INIT_VARIABLES 
              xx_swflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 180 CTRL_INIT_VARIABLES 
              xx_swflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 192 CTRL_INIT_VARIABLES 
              xx_swdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 193 CTRL_INIT_VARIABLES 
              xx_swdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 205 CTRL_INIT_VARIABLES 
              xx_lwflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 206 CTRL_INIT_VARIABLES 
              xx_lwflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 218 CTRL_INIT_VARIABLES 
              xx_lwdown0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 219 CTRL_INIT_VARIABLES 
              xx_lwdown1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 231 CTRL_INIT_VARIABLES 
              xx_evap0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 232 CTRL_INIT_VARIABLES 
              xx_evap1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 244 CTRL_INIT_VARIABLES 
              xx_snowprecip0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 245 CTRL_INIT_VARIABLES 
              xx_snowprecip1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 257 CTRL_INIT_VARIABLES 
              xx_apressure0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 258 CTRL_INIT_VARIABLES 
              xx_apressure1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 270 CTRL_INIT_VARIABLES 
              xx_runoff0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 271 CTRL_INIT_VARIABLES 
              xx_runoff1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 283 CTRL_INIT_VARIABLES 
              xx_sst0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 284 CTRL_INIT_VARIABLES 
              xx_sst1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 296 CTRL_INIT_VARIABLES 
              xx_sss0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 297 CTRL_INIT_VARIABLES 
              xx_sss1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 62 CTRL_INIT_VARIABLES 
              xx_hflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 63 CTRL_INIT_VARIABLES 
              xx_hflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 75 CTRL_INIT_VARIABLES 
              xx_sflux0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 76 CTRL_INIT_VARIABLES 
              xx_sflux1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 88 CTRL_INIT_VARIABLES 
              xx_tauu0(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_variables.F 89 CTRL_INIT_VARIABLES 
              xx_tauu1(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_init_wet.F 534 CTRL_INIT_WET 
               wunit(k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_init_wet.F 539 CTRL_INIT_WET 
               tmpfld3d(i,j,k,bi,bj) = 1. _d 0
./pkg/ctrl/ctrl_map_ini.F 88 CTRL_MAP_INI 
        fac = 1. _d 0
./pkg/ctrl/ctrl_map_ini.F 90 CTRL_MAP_INI 
        fac = 0. _d 0
./pkg/ctrl/ctrl_map_ini_ecco.F 109 CTRL_MAP_INI_ECCO 
      fac = 1. _d 0
./pkg/ctrl/ctrl_map_ini_ecco.F 244 CTRL_MAP_INI_ECCO 
      boundsVec(2)=1. _d -4
./pkg/ctrl/ctrl_map_ini_ecco.F 245 CTRL_MAP_INI_ECCO 
      boundsVec(3)=0.9 _d -2
./pkg/ctrl/ctrl_map_ini_ecco.F 246 CTRL_MAP_INI_ECCO 
      boundsVec(4)=1. _d -2
./pkg/ctrl/ctrl_map_ini_ecco.F 277 CTRL_MAP_INI_ECCO 
      boundsVec(1)=1. _d -6
./pkg/ctrl/ctrl_map_ini_ecco.F 278 CTRL_MAP_INI_ECCO 
      boundsVec(2)=2. _d -6
./pkg/ctrl/ctrl_map_ini_ecco.F 279 CTRL_MAP_INI_ECCO 
      boundsVec(3)=0.9 _d -3
./pkg/ctrl/ctrl_map_ini_ecco.F 280 CTRL_MAP_INI_ECCO 
      boundsVec(4)=1. _d -3
./pkg/ctrl/ctrl_map_ini_ecco.F 291 CTRL_MAP_INI_ECCO 
      boundsVec(1)=1. _d 1
./pkg/ctrl/ctrl_map_ini_ecco.F 292 CTRL_MAP_INI_ECCO 
      boundsVec(2)=2. _d 1
./pkg/ctrl/ctrl_map_ini_ecco.F 293 CTRL_MAP_INI_ECCO 
      boundsVec(3)=0.9 _d 4
./pkg/ctrl/ctrl_map_ini_ecco.F 294 CTRL_MAP_INI_ECCO 
      boundsVec(4)=1. _d 4
./pkg/ctrl/ctrl_map_ini_ecco.F 305 CTRL_MAP_INI_ECCO 
      boundsVec(1)=3. _d 2
./pkg/ctrl/ctrl_map_ini_ecco.F 306 CTRL_MAP_INI_ECCO 
      boundsVec(2)=4. _d 2
./pkg/ctrl/ctrl_map_ini_ecco.F 307 CTRL_MAP_INI_ECCO 
      boundsVec(3)=2.5 _d 3
./pkg/ctrl/ctrl_map_ini_ecco.F 308 CTRL_MAP_INI_ECCO 
      boundsVec(4)=3.0 _d 3
./pkg/ctrl/ctrl_mask_set_xz.F 91 CTRL_MASK_SET_XZ 
                maskxz(i,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_mask_set_yz.F 92 CTRL_MASK_SET_YZ 
                maskyz(j,k,bi,bj,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_pack.F 93 CTRL_PACK 
      fmin       = 0. _d 0
./pkg/ctrl/ctrl_readparms.F 161 CTRL_READPARMS 
        forcingPrecond = 1. _d 0
./pkg/ctrl/ctrl_readparms.F 171 CTRL_READPARMS 
        xx_hfluxperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 173 CTRL_READPARMS 
        xx_hflux_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 174 CTRL_READPARMS 
        xx_hflux_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 178 CTRL_READPARMS 
        xx_sfluxperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 180 CTRL_READPARMS 
        xx_sflux_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 181 CTRL_READPARMS 
        xx_sflux_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 185 CTRL_READPARMS 
        xx_tauuperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 187 CTRL_READPARMS 
        xx_tauu_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 188 CTRL_READPARMS 
        xx_tauu_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 192 CTRL_READPARMS 
        xx_tauvperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 194 CTRL_READPARMS 
        xx_tauv_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 195 CTRL_READPARMS 
        xx_tauv_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 199 CTRL_READPARMS 
        xx_atempperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 201 CTRL_READPARMS 
        xx_atemp_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 202 CTRL_READPARMS 
        xx_atemp_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 206 CTRL_READPARMS 
        xx_aqhperiod        =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 208 CTRL_READPARMS 
        xx_aqh_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 209 CTRL_READPARMS 
        xx_aqh_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 213 CTRL_READPARMS 
        xx_precipperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 215 CTRL_READPARMS 
        xx_precip_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 216 CTRL_READPARMS 
        xx_precip_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 220 CTRL_READPARMS 
        xx_swfluxperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 222 CTRL_READPARMS 
        xx_swflux_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 223 CTRL_READPARMS 
        xx_swflux_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 227 CTRL_READPARMS 
        xx_swdownperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 229 CTRL_READPARMS 
        xx_swdown_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 230 CTRL_READPARMS 
        xx_swdown_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 234 CTRL_READPARMS 
        xx_lwfluxperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 236 CTRL_READPARMS 
        xx_lwflux_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 237 CTRL_READPARMS 
        xx_lwflux_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 241 CTRL_READPARMS 
        xx_lwdownperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 243 CTRL_READPARMS 
        xx_lwdown_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 244 CTRL_READPARMS 
        xx_lwdown_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 248 CTRL_READPARMS 
        xx_evapperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 250 CTRL_READPARMS 
        xx_evap_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 251 CTRL_READPARMS 
        xx_evap_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 255 CTRL_READPARMS 
        xx_snowprecipperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 257 CTRL_READPARMS 
        xx_snowprecip_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 258 CTRL_READPARMS 
        xx_snowprecip_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 262 CTRL_READPARMS 
        xx_apressureperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 264 CTRL_READPARMS 
        xx_apressure_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 265 CTRL_READPARMS 
        xx_apressure_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 269 CTRL_READPARMS 
        xx_runoffperiod     =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 271 CTRL_READPARMS 
        xx_runoff_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 272 CTRL_READPARMS 
        xx_runoff_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 276 CTRL_READPARMS 
        xx_uwindperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 278 CTRL_READPARMS 
        xx_uwind_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 279 CTRL_READPARMS 
        xx_uwind_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 283 CTRL_READPARMS 
        xx_vwindperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 285 CTRL_READPARMS 
        xx_vwind_remo_intercept =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 286 CTRL_READPARMS 
        xx_vwind_remo_slope =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 290 CTRL_READPARMS 
        xx_obcsnperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 295 CTRL_READPARMS 
        xx_obcssperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 300 CTRL_READPARMS 
        xx_obcswperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 305 CTRL_READPARMS 
        xx_obcseperiod      =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 310 CTRL_READPARMS 
        xx_sstperiod        =   0. _d 0
./pkg/ctrl/ctrl_readparms.F 315 CTRL_READPARMS 
        xx_sssperiod        =   0. _d 0
./pkg/ctrl/ctrl_set_globfld_xy.F 75 CTRL_SET_GLOBFLD_XY 
                  globfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xy.F 86 CTRL_SET_GLOBFLD_XY 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xyz.F 70 CTRL_SET_GLOBFLD_XYZ 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xz.F 75 CTRL_SET_GLOBFLD_XZ 
                  globfldxz(i,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_xz.F 86 CTRL_SET_GLOBFLD_XZ 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F 76 CTRL_SET_GLOBFLD_YZ 
                  globfldyz(j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_globfld_yz.F 87 CTRL_SET_GLOBFLD_YZ 
                     globfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 102 CTRL_SET_PACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 103 CTRL_SET_PACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 411 CTRL_SET_PACK_XY 
           if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xy.F 412 CTRL_SET_PACK_XY 
            fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xy.F 413 CTRL_SET_PACK_XY 
            fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 111 CTRL_SET_PACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 112 CTRL_SET_PACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 183 CTRL_SET_PACK_XYZ 
               delZnorm = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 344 CTRL_SET_PACK_XYZ 
            delZnorm = 1. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 348 CTRL_SET_PACK_XYZ 
           if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_pack_xyz.F 349 CTRL_SET_PACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xyz.F 350 CTRL_SET_PACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 108 CTRL_SET_PACK_XZ 
                        globfldxz  (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 112 CTRL_SET_PACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_xz.F 128 CTRL_SET_PACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 106 CTRL_SET_PACK_YZ 
                        globfldyz  (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 110 CTRL_SET_PACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_pack_yz.F 126 CTRL_SET_PACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 104 CTRL_SET_UNPACK_XY 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 105 CTRL_SET_UNPACK_XY 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 243 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 351 CTRL_SET_UNPACK_XY 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 528 CTRL_SET_UNPACK_XY 
           if (msk3d(i,j,1,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xy.F 529 CTRL_SET_UNPACK_XY 
            fld2dDim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xy.F 530 CTRL_SET_UNPACK_XY 
            fld2dNodim(i,j,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 112 CTRL_SET_UNPACK_XYZ 
                           globfld3d  (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 113 CTRL_SET_UNPACK_XYZ 
                           globmsk    (i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 193 CTRL_SET_UNPACK_XYZ 
               delZnorm = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 259 CTRL_SET_UNPACK_XYZ 
                     globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 441 CTRL_SET_UNPACK_XYZ 
            delZnorm = 1. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 445 CTRL_SET_UNPACK_XYZ 
           if (msk3d(i,j,k,bi,bj).EQ.0. _d 0) then
./pkg/ctrl/ctrl_set_unpack_xyz.F 446 CTRL_SET_UNPACK_XYZ 
            fld3dDim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xyz.F 447 CTRL_SET_UNPACK_XYZ 
            fld3dNodim(i,j,k,bi,bj)=0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 111 CTRL_SET_UNPACK_XZ 
                        globfldxz  (i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 115 CTRL_SET_UNPACK_XZ 
                           globmskxz(i,bi,ip,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 131 CTRL_SET_UNPACK_XZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 268 CTRL_SET_UNPACK_XZ 
                       globfld3d(i,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_xz.F 354 CTRL_SET_UNPACK_XZ 
                     globfldxz(i,bi,ip,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 111 CTRL_SET_UNPACK_YZ 
                        globfldyz  (bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 115 CTRL_SET_UNPACK_YZ 
                           globmskyz(bi,ip,j,bj,jp,k,iobcs) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 131 CTRL_SET_UNPACK_YZ 
                           globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 268 CTRL_SET_UNPACK_YZ 
                       globfld3d(ii,bi,ip,jj,bj,jp,kk) = 0. _d 0
./pkg/ctrl/ctrl_set_unpack_yz.F 351 CTRL_SET_UNPACK_YZ 
                     globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
./pkg/ctrl/ctrl_unpack.F 108 CTRL_UNPACK 
      fmin       = 0. _d 0
./pkg/ctrl/optim_readparms.F 69 OPTIM_READPARMS 
        fmin          =   0.0 _d 0
./pkg/diagnostics/diag_vegtile_fill.F 184 DIAG_VEGTILE_FILL 
      scaleFact = 1. _d 0
./pkg/diagnostics/diag_vegtile_fill.F 242 DIAG_VEGTILE_FILL 
              ELSEIF ( gridFrac(ij).GT.0. _d 0 ) THEN
./pkg/diagnostics/diag_vegtile_fill.F 250 DIAG_VEGTILE_FILL 
              IF ( gridFrac(ij).GT.0. _d 0 ) THEN
./pkg/diagnostics/diagnostics_check.F 123 DIAGNOSTICS_CHECK 
          margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0
./pkg/diagnostics/diagnostics_fill.F 75 DIAGNOSTICS_FILL 
      scaleFact = 1. _d 0
./pkg/diagnostics/diagnostics_fill_rs.F 75 DIAGNOSTICS_FILL_RS 
      scaleFact = 1. _d 0
./pkg/diagnostics/diagnostics_fill_state.F 110 DIAGNOSTICS_FILL_STATE 
              uBarC = 0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 112 DIAGNOSTICS_FILL_STATE 
              vBarC = 0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 135 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,K,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 153 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,K,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 173 DIAGNOSTICS_FILL_STATE 
              tmpMk(i,j,K,bi,bj) = 0.25 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 194 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 210 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 227 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 243 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 259 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 276 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 293 DIAGNOSTICS_FILL_STATE 
     &       *0.5 _d 0*(totPhiHyd(i,j,K,bi,bj)+totPhiHyd(i-1,j,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 309 DIAGNOSTICS_FILL_STATE 
     &       *0.5 _d 0*(totPhiHyd(i,j,K,bi,bj)+totPhiHyd(i,j-1,K,bi,bj))
./pkg/diagnostics/diagnostics_fill_state.F 483 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = salt(i,j,K,bi,bj)-35. _d 0
./pkg/diagnostics/diagnostics_fill_state.F 536 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 553 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 56 DIAGNOSTICS_FILL_STATE 
      tmpFac = 1. _d 0
./pkg/diagnostics/diagnostics_fill_state.F 571 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 587 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = uVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 604 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = vVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_fill_state.F 622 DIAGNOSTICS_FILL_STATE 
               tmpMk(i,j,K,bi,bj) = wVel(i,j,K,bi,bj)*0.5 _d 0
./pkg/diagnostics/diagnostics_init_varia.F 38 DIAGNOSTICS_INIT_VARIA 
                qdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_init_varia.F 57 DIAGNOSTICS_INIT_VARIA 
                qSdiag(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_interp_vert.F 113 DIAGNOSTICS_INTERP_VERT 
             tmpLev = 1. _d 0
./pkg/diagnostics/diagnostics_interp_vert.F 82 DIAGNOSTICS_INTERP_VERT 
        pkTop = 0. _d 0
./pkg/diagnostics/diagnostics_out.F 141 DIAGNOSTICS_OUT 
        timeRec(1) = myTime-deltaTClock*0.5 _d 0
./pkg/diagnostics/diagnostics_out.F 156 DIAGNOSTICS_OUT 
        tmpLev = FLOAT(i) - 0.5 _d 0
./pkg/diagnostics/diagnostics_out.F 371 DIAGNOSTICS_OUT 
                      qtmp1(i,j,k,bi,bj) = 0. _d 0
./pkg/diagnostics/diagnostics_readparms.F 232 DIAGNOSTICS_READPARMS 
           phase(n) = -0.5 _d 0 * frequency(l)
./pkg/diagnostics/diagnostics_readparms.F 381 DIAGNOSTICS_READPARMS 
           diagSt_phase(n) = -0.5 _d 0 * stat_freq(l)
./pkg/diagnostics/diagnostics_sum_levels.F 77 DIAGNOSTICS_SUM_LEVELS 
              tmpFld(i,j) = 0. _d 0
./pkg/diagnostics/diagnostics_switch_onoff.F 111 DIAGNOSTICS_SWITCH_ONOFF 
        xInterval = myTime + deltaTclock*0.5 _d 0 - averagePhase(n)
./pkg/diagnostics/diagnostics_utils.F 71 GETDIAG 
          IF (ndiag(ip,bi,bj).NE.0) factor = 1. _d 0 / factor
./pkg/diagnostics/diagstats_local.F 185 DIAGSTATS_LOCAL 
          drLoc = 1. _d 0
./pkg/diagnostics/diagstats_others_calc.F 215 DIAGSTATS_G_CALC 
          drLoc = 1. _d 0
./pkg/diagnostics/diagstats_others_calc.F 98 DIAGSTATS_LM_CALC 
        drLoc = 1. _d 0
./pkg/dic/alk_surfforcing.F 54 ALK_SURFFORCING 
            IF (maskC(i,j,1,bi,bj).NE.0. _d 0) THEN
./pkg/dic/alk_surfforcing.F 68 ALK_SURFFORCING 
              GALK(i,j)=0. _d 0
./pkg/dic/bio_export.F 105 BIO_EXPORT 
         atten=(k0*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0)
./pkg/dic/bio_export.F 107 BIO_EXPORT 
     &                         *hFacC(i,j,k-1,bi,bj)*.5 _d 0)
./pkg/dic/bio_export.F 112 BIO_EXPORT 
         IF (lit(i,j).LT.0. _d 0.OR.lit(i,j).GT.350. _d 0) THEN
./pkg/dic/bio_export.F 118 BIO_EXPORT 
         tmppo4=max(0. _d 0, PTR_PO4(i,j,k))
./pkg/dic/bio_export.F 119 BIO_EXPORT 
         lit(i,j)=max(0. _d 0,lit(i,j))
./pkg/dic/bio_export.F 126 BIO_EXPORT 
         tmpfe=max(0. _d 0,PTR_FE(i,j,k))
./pkg/dic/bio_export.F 137 BIO_EXPORT 
         thaux = tanh( (thx-thy)*1. _d 6 )
./pkg/dic/bio_export.F 138 BIO_EXPORT 
         nutlimit= ( 1. _d 0 - thaux ) * thx * 0.5 _d 0
./pkg/dic/bio_export.F 139 BIO_EXPORT 
     &        +    ( 1. _d 0 + thaux ) * thy * 0.5 _d 0
./pkg/dic/bio_export.F 96 BIO_EXPORT 
         lit(i,j)=lit(i,j)*(1. _d 0 - FIce(i,j,bi,bj))
./pkg/dic/calcite_saturation.F 155 CALCITE_SATURATION 
             omegaC(i,j,k,bi,bj) = 0. _d 0
./pkg/dic/calcite_saturation.F 84 CALCITE_SATURATION 
           if ( hFacC(i,j,k,bi,bj) .gt. 0. _d 0 ) then
./pkg/dic/calcite_saturation.F 86 CALCITE_SATURATION 
             calcium = 1.028 _d -2*salt(i,j,k,bi,bj)/35. _d 0
./pkg/dic/calcite_saturation.F 89 CALCITE_SATURATION 
             silicaTEST = 0.03 _d 0
./pkg/dic/calcite_saturation.F 93 CALCITE_SATURATION 
             pHlocal = 7.9 _d 0
./pkg/dic/car_flux.F 104 CAR_FLUX 
          IF ( caexport(i,j) .NE. 0. _d 0 ) THEN
./pkg/dic/car_flux.F 126 CAR_FLUX 
       flux_l = 0. _d 0
./pkg/dic/car_flux.F 65 CAR_FLUX 
         caexport(i,j) = 0. _d 0
./pkg/dic/car_flux.F 66 CAR_FLUX 
         IF (hFacC(i,j,k,bi,bj).GT.0. _d 0) THEN
./pkg/dic/car_flux.F 71 CAR_FLUX 
          ELSEIF ( _hFacC(i,j,k+1,bi,bj).EQ.0. _d 0 ) THEN
./pkg/dic/carbon_chem.F 584 CALC_PCO2_APPROX 
     &           - hpo4g - 2.0 _d 0*po4g + h3po4g
./pkg/dic/carbon_chem.F 590 CALC_PCO2_APPROX 
        stuff = (1.0 _d 0-gamm)*(1.0 _d 0-gamm)*k1local*k1local
./pkg/dic/carbon_chem.F 591 CALC_PCO2_APPROX 
     &          - 4.0 _d 0*k1local*k2local*(1.0 _d 0-2.0 _d 0*gamm)
./pkg/dic/carbon_chem.F 592 CALC_PCO2_APPROX 
        hnew  = 0.5 _d 0*( (gamm-1.0 _d 0)*k1local + sqrt(stuff) )
./pkg/dic/carbon_chem.F 595 CALC_PCO2_APPROX 
     &   (1.0 _d 0 + (k1local/hnew) + (k1local*k2local/(hnew*hnew)))
./pkg/dic/carbon_chem.F 708 CARBON_COEFFS 
          if (hFacC(i,j,1,bi,bj).gt.0. _d 0) then
./pkg/dic/carbon_chem.F 712 CARBON_COEFFS 
           tk = 273.15 _d 0 + t
./pkg/dic/carbon_chem.F 713 CARBON_COEFFS 
           tk100 = tk/100. _d 0
./pkg/dic/carbon_chem.F 715 CARBON_COEFFS 
           invtk=1.0 _d 0/tk
./pkg/dic/carbon_chem.F 717 CARBON_COEFFS 
           is=19.924 _d 0*s/(1000. _d 0-1.005 _d 0*s)
./pkg/dic/carbon_chem.F 722 CARBON_COEFFS 
           s15=s**1.5 _d 0
./pkg/dic/carbon_chem.F 723 CARBON_COEFFS 
           scl=s/1.80655 _d 0
./pkg/dic/carbon_chem.F 727 CARBON_COEFFS 
           ff(i,j,bi,bj) = exp(-162.8301 _d 0 + 218.2968 _d 0/tk100  +
./pkg/dic/carbon_chem.F 728 CARBON_COEFFS 
     &          90.9241 _d 0*log(tk100) - 1.47696 _d 0*tk1002 +
./pkg/dic/carbon_chem.F 729 CARBON_COEFFS 
     &          s * (.025695 _d 0 - .025225 _d 0*tk100 +
./pkg/dic/carbon_chem.F 730 CARBON_COEFFS 
     &          0.0049867 _d 0*tk1002))
./pkg/dic/carbon_chem.F 733 CARBON_COEFFS 
           ak0(i,j,bi,bj) = exp(93.4517 _d 0/tk100 - 60.2409 _d 0 +
./pkg/dic/carbon_chem.F 734 CARBON_COEFFS 
     &        23.3585 _d 0 * log(tk100) +
./pkg/dic/carbon_chem.F 735 CARBON_COEFFS 
     &        s * (0.023517 _d 0 - 0.023656 _d 0*tk100 +
./pkg/dic/carbon_chem.F 736 CARBON_COEFFS 
     &        0.0047036 _d 0*tk1002))
./pkg/dic/carbon_chem.F 741 CARBON_COEFFS 
           ak1(i,j,bi,bj)=10.**(-1. _d 0*(3670.7 _d 0*invtk -
./pkg/dic/carbon_chem.F 742 CARBON_COEFFS 
     &          62.008 _d 0 + 9.7944 _d 0*dlogtk -
./pkg/dic/carbon_chem.F 743 CARBON_COEFFS 
     &          0.0118 _d 0 * s + 0.000116 _d 0*s2))
./pkg/dic/carbon_chem.F 744 CARBON_COEFFS 
           ak2(i,j,bi,bj)=10.**(-1. _d 0*(1394.7 _d 0*invtk+ 4.777 _d 0-
./pkg/dic/carbon_chem.F 745 CARBON_COEFFS 
     &          0.0184 _d 0*s + 0.000118 _d 0*s2))
./pkg/dic/carbon_chem.F 749 CARBON_COEFFS 
           akb(i,j,bi,bj)=exp((-8966.90 _d 0- 2890.53 _d 0*sqrts -
./pkg/dic/carbon_chem.F 750 CARBON_COEFFS 
     &          77.942 _d 0*s + 1.728 _d 0*s15 - 0.0996 _d 0*s2)*invtk +
./pkg/dic/carbon_chem.F 751 CARBON_COEFFS 
     &          (148.0248 _d 0 + 137.1942 _d 0*sqrts + 1.62142 _d 0*s) +
./pkg/dic/carbon_chem.F 752 CARBON_COEFFS 
     &          (-24.4344 _d 0 - 25.085 _d 0*sqrts - 0.2474 _d 0*s) *
./pkg/dic/carbon_chem.F 753 CARBON_COEFFS 
     &          dlogtk + 0.053105 _d 0*sqrts*tk)
./pkg/dic/carbon_chem.F 757 CARBON_COEFFS 
           ak1p(i,j,bi,bj) = exp(-4576.752 _d 0*invtk + 115.525 _d 0 -
./pkg/dic/carbon_chem.F 758 CARBON_COEFFS 
     &          18.453 _d 0*dlogtk +
./pkg/dic/carbon_chem.F 759 CARBON_COEFFS 
     &          (-106.736 _d 0*invtk + 0.69171 _d 0)*sqrts +
./pkg/dic/carbon_chem.F 760 CARBON_COEFFS 
     &          (-0.65643 _d 0*invtk - 0.01844 _d 0)*s)
./pkg/dic/carbon_chem.F 764 CARBON_COEFFS 
           ak2p(i,j,bi,bj) = exp(-8814.715 _d 0*invtk + 172.0883 _d 0 -
./pkg/dic/carbon_chem.F 765 CARBON_COEFFS 
     &          27.927 _d 0*dlogtk +
./pkg/dic/carbon_chem.F 766 CARBON_COEFFS 
     &          (-160.340 _d 0*invtk + 1.3566 _d 0) * sqrts +
./pkg/dic/carbon_chem.F 767 CARBON_COEFFS 
     &          (0.37335 _d 0*invtk - 0.05778 _d 0) * s)
./pkg/dic/carbon_chem.F 771 CARBON_COEFFS 
           ak3p(i,j,bi,bj) = exp(-3070.75 _d 0*invtk - 18.141 _d 0 +
./pkg/dic/carbon_chem.F 772 CARBON_COEFFS 
     &          (17.27039 _d 0*invtk + 2.81197 _d 0) *
./pkg/dic/carbon_chem.F 773 CARBON_COEFFS 
     &          sqrts + (-44.99486 _d 0*invtk - 0.09984 _d 0) * s)
./pkg/dic/carbon_chem.F 777 CARBON_COEFFS 
           aksi(i,j,bi,bj) = exp(-8904.2 _d 0*invtk + 117.385 _d 0 -
./pkg/dic/carbon_chem.F 778 CARBON_COEFFS 
     &          19.334 _d 0*dlogtk +
./pkg/dic/carbon_chem.F 779 CARBON_COEFFS 
     &          (-458.79 _d 0*invtk + 3.5913 _d 0) * sqrtis +
./pkg/dic/carbon_chem.F 780 CARBON_COEFFS 
     &          (188.74 _d 0*invtk - 1.5998 _d 0) * is +
./pkg/dic/carbon_chem.F 781 CARBON_COEFFS 
     &          (-12.1652 _d 0*invtk + 0.07871 _d 0) * is2 +
./pkg/dic/carbon_chem.F 782 CARBON_COEFFS 
     &          log(1.0 _d 0-0.001005 _d 0*s))
./pkg/dic/carbon_chem.F 786 CARBON_COEFFS 
           akw(i,j,bi,bj) = exp(-13847.26 _d 0*invtk + 148.9652 _d 0 -
./pkg/dic/carbon_chem.F 787 CARBON_COEFFS 
     &          23.6521 _d 0*dlogtk +
./pkg/dic/carbon_chem.F 788 CARBON_COEFFS 
     &          (118.67 _d 0*invtk - 5.977 _d 0 + 1.0495 _d 0 * dlogtk)
./pkg/dic/carbon_chem.F 789 CARBON_COEFFS 
     &          * sqrts - 0.01615 _d 0 * s)
./pkg/dic/carbon_chem.F 793 CARBON_COEFFS 
           aks(i,j,bi,bj)=exp(-4276.1 _d 0*invtk + 141.328 _d 0 -
./pkg/dic/carbon_chem.F 794 CARBON_COEFFS 
     &          23.093 _d 0*dlogtk +
./pkg/dic/carbon_chem.F 795 CARBON_COEFFS 
     &   (-13856. _d 0*invtk + 324.57 _d 0 - 47.986 _d 0*dlogtk)*sqrtis+
./pkg/dic/carbon_chem.F 796 CARBON_COEFFS 
     &   (35474. _d 0*invtk - 771.54 _d 0 + 114.723 _d 0*dlogtk)*is -
./pkg/dic/carbon_chem.F 797 CARBON_COEFFS 
     &          2698. _d 0*invtk*is**1.5 _d 0 + 1776. _d 0*invtk*is2 +
./pkg/dic/carbon_chem.F 798 CARBON_COEFFS 
     &          log(1.0 _d 0 - 0.001005 _d 0*s))
./pkg/dic/carbon_chem.F 802 CARBON_COEFFS 
           akf(i,j,bi,bj)=exp(1590.2 _d 0*invtk - 12.641 _d 0 +
./pkg/dic/carbon_chem.F 803 CARBON_COEFFS 
     &   1.525 _d 0*sqrtis + log(1.0 _d 0 - 0.001005 _d 0*s) +
./pkg/dic/carbon_chem.F 804 CARBON_COEFFS 
     &   log(1.0 _d 0 + (0.1400 _d 0/96.062 _d 0)*(scl)/aks(i,j,bi,bj)))
./pkg/dic/carbon_chem.F 808 CARBON_COEFFS 
           bt(i,j,bi,bj) = 0.000232 _d 0 * scl/10.811 _d 0
./pkg/dic/carbon_chem.F 810 CARBON_COEFFS 
           st(i,j,bi,bj) = 0.14 _d 0 * scl/96.062 _d 0
./pkg/dic/carbon_chem.F 812 CARBON_COEFFS 
           ft(i,j,bi,bj) = 0.000067 _d 0 * scl/18.9984 _d 0
./pkg/dic/carbon_chem.F 815 CARBON_COEFFS 
            ff(i,j,bi,bj)=0. _d 0
./pkg/dic/carbon_chem.F 816 CARBON_COEFFS 
            ak0(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 817 CARBON_COEFFS 
            ak1(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 818 CARBON_COEFFS 
            ak2(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 819 CARBON_COEFFS 
            akb(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 820 CARBON_COEFFS 
            ak1p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 821 CARBON_COEFFS 
            ak2p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 822 CARBON_COEFFS 
            ak3p(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 823 CARBON_COEFFS 
            aksi(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 824 CARBON_COEFFS 
            akw(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 825 CARBON_COEFFS 
            aks(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 826 CARBON_COEFFS 
            akf(i,j,bi,bj)= 0. _d 0
./pkg/dic/carbon_chem.F 827 CARBON_COEFFS 
            bt(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 828 CARBON_COEFFS 
            st(i,j,bi,bj) = 0. _d 0
./pkg/dic/carbon_chem.F 829 CARBON_COEFFS 
            ft(i,j,bi,bj) = 0. _d 0
./pkg/dic/dic_atmos.F 105 DIC_ATMOS 
        aWght = 0.5 _d 0 + aWght/bWght - FLOAT(ntim-1)
./pkg/dic/dic_atmos.F 106 DIC_ATMOS 
        IF (aWght.GT.1. _d 0) THEN
./pkg/dic/dic_atmos.F 108 DIC_ATMOS 
          aWght=aWght-1. _d 0
./pkg/dic/dic_atmos.F 110 DIC_ATMOS 
        bWght = 1. _d 0 - aWght
./pkg/dic/dic_atmos.F 132 DIC_ATMOS 
       total_atmos_moles= 1.77 _d 20
./pkg/dic/dic_aver.F 60 DIC_AVER 
      rdt=1. _d 0 / deltaTclock
./pkg/dic/dic_aver_init.F 218 DIC_AVER_INIT 
         OBS_timetave(bi,bj) = 0. _d 0
./pkg/dic/dic_aver_init.F 220 DIC_AVER_INIT 
           OBSM_Timetave(it,bi,bj) = 0. _d 0
./pkg/dic/dic_aver_init.F 61 DIC_AVER_INIT 
          OBS_timetave(bi,bj) = 0. _d 0
./pkg/dic/dic_aver_init.F 63 DIC_AVER_INIT 
            po4av(k)  = 0. _d 0
./pkg/dic/dic_aver_init.F 64 DIC_AVER_INIT 
            o2av(k)   = 0. _d 0
./pkg/dic/dic_aver_init.F 65 DIC_AVER_INIT 
            po4var(k) = 0. _d 0
./pkg/dic/dic_aver_init.F 66 DIC_AVER_INIT 
            o2var(k)  = 0. _d 0
./pkg/dic/dic_aver_init.F 67 DIC_AVER_INIT 
            volvar(k) = 0. _d 0
./pkg/dic/dic_aver_init.F 72 DIC_AVER_INIT 
            OBSM_Timetave(it,bi,bj) = 0. _d 0
./pkg/dic/dic_aver_init.F 73 DIC_AVER_INIT 
            po4avm(it,k) = 0. _d 0
./pkg/dic/dic_aver_init.F 74 DIC_AVER_INIT 
            o2avm(it,k)  = 0. _d 0
./pkg/dic/dic_aver_init.F 75 DIC_AVER_INIT 
            po4varm(it,k)= 0. _d 0
./pkg/dic/dic_aver_init.F 76 DIC_AVER_INIT 
            o2varm(it,k) = 0. _d 0
./pkg/dic/dic_biotic_diags.F 152 DIC_BIOTIC_DIAGS 
         DIC_timeAve(bi,bj) = 0. _d 0
./pkg/dic/dic_biotic_forcing.F 111 DIC_BIOTIC_FORCING 
           RDOP(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 112 DIC_BIOTIC_FORCING 
           GDIC(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 113 DIC_BIOTIC_FORCING 
           GALK(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 114 DIC_BIOTIC_FORCING 
           GPO4(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 115 DIC_BIOTIC_FORCING 
           GDOP(i,j,k) =0. _d 0
./pkg/dic/dic_biotic_forcing.F 116 DIC_BIOTIC_FORCING 
           CAR(i,j,k)  =0. _d 0
./pkg/dic/dic_biotic_forcing.F 117 DIC_BIOTIC_FORCING 
           BIOac(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 118 DIC_BIOTIC_FORCING 
           pflux(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 119 DIC_BIOTIC_FORCING 
           exportflux(i,j,k)=0. _d 0
./pkg/dic/dic_biotic_forcing.F 120 DIC_BIOTIC_FORCING 
           cflux(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 121 DIC_BIOTIC_FORCING 
           CAR_S(i,j,k)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 123 DIC_BIOTIC_FORCING 
           GO2(i,j,k)     =0. _d 0
./pkg/dic/dic_biotic_forcing.F 126 DIC_BIOTIC_FORCING 
           GFE(i,j,k)     =0. _d 0
./pkg/dic/dic_biotic_forcing.F 127 DIC_BIOTIC_FORCING 
           freefe(i,j,k)  =0. _d 0
./pkg/dic/dic_biotic_forcing.F 134 DIC_BIOTIC_FORCING 
           SURA(i,j)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 135 DIC_BIOTIC_FORCING 
           SURC(i,j)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 136 DIC_BIOTIC_FORCING 
           SURO(i,j)   =0. _d 0
./pkg/dic/dic_biotic_forcing.F 183 DIC_BIOTIC_FORCING 
     &                    (1. _d 0-DOPfraction)
./pkg/dic/dic_biotic_forcing.F 216 DIC_BIOTIC_FORCING 
     &                     ,0. _d 0)
./pkg/dic/dic_biotic_forcing.F 226 DIC_BIOTIC_FORCING 
           GALK(i,j,k)=+2. _d 0 *car(i,j,k)-R_NP*GPO4(i,j,k)
./pkg/dic/dic_biotic_forcing.F 234 DIC_BIOTIC_FORCING 
             GO2(i,j,k)= 0. _d 0
./pkg/dic/dic_biotic_init.F 49 DIC_BIOTIC_INIT 
          DIC_timeAve(bi,bj) = 0. _d 0
./pkg/dic/dic_cost.F 41 DIC_COST 
      tmpcost = 0. _d 0
./pkg/dic/dic_fields_load.F 50 DIC_FIELDS_LOAD 
      IF (  DIC_forcingCycle.gt.0. _d 0 ) THEN
./pkg/dic/dic_fields_load.F 54 DIC_FIELDS_LOAD 
       rdt = 1. _d 0 / deltaTclock
./pkg/dic/dic_fields_load.F 68 DIC_FIELDS_LOAD 
       bWght = 1. _d 0 - aWght
./pkg/dic/dic_ini_forcing.F 106 DIC_INI_FORCING 
       total_atmos_carbon = 0. _d 0
./pkg/dic/dic_ini_forcing.F 90 DIC_INI_FORCING 
             WIND(i,j,bi,bj)   = 5. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 91 DIC_INI_FORCING 
             AtmosP(i,j,bi,bj) = 1. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 92 DIC_INI_FORCING 
             SILICA(i,j,bi,bj) = 7.6838 _d -3*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 93 DIC_INI_FORCING 
             FIce(i,j,bi,bj)   = 0. _d 0
./pkg/dic/dic_ini_forcing.F 94 DIC_INI_FORCING 
             FluxCO2(i,j,bi,bj)= 0. _d 0
./pkg/dic/dic_ini_forcing.F 96 DIC_INI_FORCING 
             PAR(i,j,bi,bj)    = 100. _d 0*maskC(i,j,1,bi,bj)
./pkg/dic/dic_ini_forcing.F 99 DIC_INI_FORCING 
             InputFe(i,j,bi,bj)= 1. _d -11*maskC(i,j,1,bi,bj)
./pkg/dic/dic_init_fixed.F 41 DIC_INIT_FIXED 
      sca1 = 2073.1 _d 0
./pkg/dic/dic_init_fixed.F 42 DIC_INIT_FIXED 
      sca2 = -125.62 _d 0
./pkg/dic/dic_init_fixed.F 43 DIC_INIT_FIXED 
      sca3 =    3.6276 _d 0
./pkg/dic/dic_init_fixed.F 44 DIC_INIT_FIXED 
      sca4 =   -0.043219 _d 0
./pkg/dic/dic_init_fixed.F 47 DIC_INIT_FIXED 
      sox1 = 1638.0 _d 0
./pkg/dic/dic_init_fixed.F 48 DIC_INIT_FIXED 
      sox2 = -81.83 _d 0
./pkg/dic/dic_init_fixed.F 49 DIC_INIT_FIXED 
      sox3 =    1.483 _d 0
./pkg/dic/dic_init_fixed.F 50 DIC_INIT_FIXED 
      sox4 =   -0.008004 _d 0
./pkg/dic/dic_init_fixed.F 53 DIC_INIT_FIXED 
      oA0=  2.00907 _d 0
./pkg/dic/dic_init_fixed.F 54 DIC_INIT_FIXED 
      oA1=  3.22014 _d 0
./pkg/dic/dic_init_fixed.F 55 DIC_INIT_FIXED 
      oA2=  4.05010 _d 0
./pkg/dic/dic_init_fixed.F 56 DIC_INIT_FIXED 
      oA3=  4.94457 _d 0
./pkg/dic/dic_init_fixed.F 57 DIC_INIT_FIXED 
      oA4= -2.56847 _d -1
./pkg/dic/dic_init_fixed.F 58 DIC_INIT_FIXED 
      oA5=  3.88767 _d 0
./pkg/dic/dic_init_fixed.F 59 DIC_INIT_FIXED 
      oB0= -6.24523 _d -3
./pkg/dic/dic_init_fixed.F 60 DIC_INIT_FIXED 
      oB1= -7.37614 _d -3
./pkg/dic/dic_init_fixed.F 61 DIC_INIT_FIXED 
      oB2= -1.03410 _d -2
./pkg/dic/dic_init_fixed.F 62 DIC_INIT_FIXED 
      oB3= -8.17083 _d -3
./pkg/dic/dic_init_fixed.F 63 DIC_INIT_FIXED 
      oC0= -4.88682 _d -7
./pkg/dic/dic_init_varia.F 52 DIC_INIT_VARIA 
            omegaC(i,j,k,bi,bj) =  0. _d 0
./pkg/dic/dic_init_varia.F 59 DIC_INIT_VARIA 
      totcost =  0. _d 0
./pkg/dic/dic_readparms.F 102 DIC_READPARMS 
       permil      = 1. _d 0 / 1024.5 _d 0
./pkg/dic/dic_readparms.F 103 DIC_READPARMS 
       Pa2Atm      = 1.01325 _d 5
./pkg/dic/dic_readparms.F 105 DIC_READPARMS 
       DOPfraction = 0.67 _d 0
./pkg/dic/dic_readparms.F 106 DIC_READPARMS 
       KDOPRemin   = 1. _d 0/(6. _d 0*30. _d 0*86400. _d 0)
./pkg/dic/dic_readparms.F 107 DIC_READPARMS 
       KRemin      = 0.9 _d 0
./pkg/dic/dic_readparms.F 108 DIC_READPARMS 
       zcrit       = 500. _d 0
./pkg/dic/dic_readparms.F 109 DIC_READPARMS 
       O2crit      = 4. _d -3
./pkg/dic/dic_readparms.F 110 DIC_READPARMS 
       R_OP        =-170. _d 0
./pkg/dic/dic_readparms.F 111 DIC_READPARMS 
       R_CP        = 117. _d 0
./pkg/dic/dic_readparms.F 112 DIC_READPARMS 
       R_NP        = 16. _d 0
./pkg/dic/dic_readparms.F 113 DIC_READPARMS 
       R_FeP       = 0.000468 _d 0
./pkg/dic/dic_readparms.F 114 DIC_READPARMS 
       zca         = 3500. _d 0
./pkg/dic/dic_readparms.F 115 DIC_READPARMS 
       parfrac     = 0.4 _d 0
./pkg/dic/dic_readparms.F 116 DIC_READPARMS 
       k0          = 0.02 _d 0
./pkg/dic/dic_readparms.F 117 DIC_READPARMS 
       lit0        = 30. _d 0
./pkg/dic/dic_readparms.F 118 DIC_READPARMS 
       KPO4        = 5. _d -4
./pkg/dic/dic_readparms.F 119 DIC_READPARMS 
       KFE         = 1.2 _d -7
./pkg/dic/dic_readparms.F 120 DIC_READPARMS 
       alpfe       = 0.01 _d 0
./pkg/dic/dic_readparms.F 121 DIC_READPARMS 
       freefemax   = 3. _d -7
./pkg/dic/dic_readparms.F 122 DIC_READPARMS 
       KScav       = 0.19 _d 0/(360. _d 0*86400. _d 0)
./pkg/dic/dic_readparms.F 123 DIC_READPARMS 
       ligand_stab = 1. _d 8
./pkg/dic/dic_readparms.F 124 DIC_READPARMS 
       ligand_tot  = 1. _d -6
./pkg/dic/dic_readparms.F 125 DIC_READPARMS 
       alphaUniform     = 2. _d -3/(360. _d 0 * 86400. _d 0)
./pkg/dic/dic_readparms.F 126 DIC_READPARMS 
       rainRatioUniform = 7. _d -2
./pkg/dic/dic_readparms.F 137 DIC_READPARMS 
       dic_pCO2    = 278. _d -6
./pkg/dic/dic_readparms.F 285 DIC_READPARMS 
      IF ( dic_int1.EQ.0 .AND. dic_pCO2.NE.278. _d -6 ) THEN
./pkg/dic/dic_set_control.F 102 DIC_SET_CONTROL 
            feload(i,j,bi,bj) = feload(i,j,bi,bj)*(1. _d 0 +xx_dic(1))
./pkg/dic/dic_set_control.F 104 DIC_SET_CONTROL 
     &                      rain_ratio(i,j,bi,bj)*(1. _d 0 +xx_dic(2))
./pkg/dic/dic_set_control.F 114 DIC_SET_CONTROL 
      KScav       = KScav       * ( 1. _d 0 + xx_dic(3)*1. _d 6 )
./pkg/dic/dic_set_control.F 115 DIC_SET_CONTROL 
      ligand_stab = ligand_stab * ( 1. _d 0 + xx_dic(4)*1. _d 6 )
./pkg/dic/dic_set_control.F 116 DIC_SET_CONTROL 
      ligand_tot  = ligand_tot  * ( 1. _d 0 + xx_dic(5)*1. _d 6 )
./pkg/dic/dic_set_control.F 59 DIC_SET_CONTROL 
        fac = 1. _d 0
./pkg/dic/dic_set_control.F 61 DIC_SET_CONTROL 
        fac = 0. _d 0
./pkg/dic/dic_surfforcing.F 116 DIC_SURFFORCING 
                AtmosP(i,j,bi,bj)= 1. _d 0 + pLoad(i,j,bi,bj)/Pa2Atm
./pkg/dic/dic_surfforcing.F 121 DIC_SURFFORCING 
              pisvel(i,j)=0.337 _d 0 *wind(i,j,bi,bj)**2/3.6 _d 5
./pkg/dic/dic_surfforcing.F 123 DIC_SURFFORCING 
     &                              * (1. _d 0 - FIce(i,j,bi,bj))
./pkg/dic/dic_surfforcing.F 134 DIC_SURFFORCING 
          IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F 147 DIC_SURFFORCING 
            pCO2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing.F 155 DIC_SURFFORCING 
          IF ( maskC(i,j,kLev,bi,bj).NE.0. _d 0 ) THEN
./pkg/dic/dic_surfforcing.F 171 DIC_SURFFORCING 
     &                    / sqrt(SchmidtNoDIC(i,j)/660.0 _d 0)
./pkg/dic/dic_surfforcing.F 183 DIC_SURFFORCING 
              FluxCO2(i,j,bi,bj) = 0. _d 0
./pkg/dic/dic_surfforcing.F 189 DIC_SURFFORCING 
            IF (maskC(i,j,kLev,bi,bj).NE.0. _d 0) THEN
./pkg/dic/dic_surfforcing.F 203 DIC_SURFFORCING 
              VirtualFlux(i,j)=0. _d 0
./pkg/dic/dic_surfforcing.F 92 DIC_SURFFORCING 
             surfalk(i,j) = 2.366595 _d 0 * salt(i,j,kLev,bi,bj)/gsm_s
./pkg/dic/dic_surfforcing.F 94 DIC_SURFFORCING 
             surfphos(i,j)  = 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 133 DIC_SURFFORCING_INIT 
            pH(i,j,bi,bj) = 8. _d 0
./pkg/dic/dic_surfforcing_init.F 143 DIC_SURFFORCING_INIT 
          ak0(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 144 DIC_SURFFORCING_INIT 
          ak1(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 145 DIC_SURFFORCING_INIT 
          ak2(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 146 DIC_SURFFORCING_INIT 
          akw(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 147 DIC_SURFFORCING_INIT 
          akb(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 148 DIC_SURFFORCING_INIT 
          akf(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 149 DIC_SURFFORCING_INIT 
          ak1p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 150 DIC_SURFFORCING_INIT 
          ak2p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 151 DIC_SURFFORCING_INIT 
          ak3p(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 152 DIC_SURFFORCING_INIT 
          aksi(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 153 DIC_SURFFORCING_INIT 
          ff(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 154 DIC_SURFFORCING_INIT 
          ft(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 155 DIC_SURFFORCING_INIT 
          st(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 156 DIC_SURFFORCING_INIT 
          bt(i,j,bi,bj)=0. _d 0
./pkg/dic/dic_surfforcing_init.F 185 DIC_SURFFORCING_INIT 
             surfalk(i,j) = 2.366595 _d 0 *salt(i,j,kLev,bi,bj)/35. _d 0
./pkg/dic/dic_surfforcing_init.F 187 DIC_SURFFORCING_INIT 
             surfphos(i,j)= 5.1225 _d -4 * maskC(i,j,kLev,bi,bj)
./pkg/dic/dic_surfforcing_init.F 211 DIC_SURFFORCING_INIT 
            IF ( maskC(i,j,kLev,bi,bj) .NE. 0. _d 0) THEN
./pkg/dic/dic_surfforcing_init.F 67 DIC_SURFFORCING_INIT 
       rdt = 1. _d 0 / deltaTclock
./pkg/dic/dic_surfforcing_init.F 81 DIC_SURFFORCING_INIT 
       bWght = 1. _d 0 - aWght
./pkg/dic/fe_chem.F 67 FE_CHEM 
              tmpfe =MAX( 0. _d 0 , fe(i,j,k) )
./pkg/dic/fe_chem.F 74 FE_CHEM 
     &              ligand_stab*ligand_tot-1. _d 0
./pkg/dic/fe_chem.F 76 FE_CHEM 
     &                -ligand_stab*ligand_tot+1. _d 0)**2
./pkg/dic/fe_chem.F 77 FE_CHEM 
     &               +4. _d 0*ligand_stab*ligand_tot)**0.5 _d 0
./pkg/dic/fe_chem.F 78 FE_CHEM 
     &            )/(2. _d 0*ligand_stab)
./pkg/dic/fe_chem.F 81 FE_CHEM 
              IF (tmpfe.NE.0. _d 0) THEN
./pkg/dic/fe_chem.F 84 FE_CHEM 
                freefe(i,j,k) = 0. _d 0
./pkg/dic/fe_chem.F 90 FE_CHEM 
              theps=1. _d -8
./pkg/dic/fe_chem.F 92 FE_CHEM 
     &                 ( 1. _d 0 - tanh((thx-thy)/theps) ) * thx/2.+
./pkg/dic/fe_chem.F 93 FE_CHEM 
     &                 ( 1. _d 0 + tanh((thx-thy)/theps) ) * thy/2.
./pkg/dic/insol.F 47 INSOL 
      solar = 1360. _d 0   !solar constant
./pkg/dic/insol.F 48 INSOL 
      albedo= 0.6 _d 0     !planetary albedo
./pkg/dic/insol.F 56 INSOL 
        dayfrac=mod(Time,360. _d 0*86400. _d 0)
./pkg/dic/insol.F 57 INSOL 
     &                    /(360. _d 0*86400. _d 0)  !fraction of year
./pkg/dic/insol.F 58 INSOL 
        yday = 2. _d 0*PI*dayfrac                    !convert to radians
./pkg/dic/insol.F 59 INSOL 
        delta = (0.006918 _d 0
./pkg/dic/insol.F 60 INSOL 
     &         -(0.399912 _d 0*cos(yday))            !cosine zenith angle
./pkg/dic/insol.F 61 INSOL 
     &         +(0.070257 _d 0*sin(yday))            !(paltridge+platt)
./pkg/dic/insol.F 62 INSOL 
     &         -(0.006758 _d 0*cos(2. _d 0*yday))
./pkg/dic/insol.F 63 INSOL 
     &         +(0.000907 _d 0*sin(2. _d 0*yday))
./pkg/dic/insol.F 64 INSOL 
     &         -(0.002697 _d 0*cos(3. _d 0*yday))
./pkg/dic/insol.F 65 INSOL 
     &         +(0.001480 _d 0*sin(3. _d 0*yday)) )
./pkg/dic/insol.F 72 INSOL 
     &         lat = asin( fCori(1,j,1,bj)/(2. _d 0*omega) )
./pkg/dic/insol.F 74 INSOL 
          IF (sun1.LE.-0.999 _d 0) sun1=-0.999 _d 0
./pkg/dic/insol.F 75 INSOL 
          IF (sun1.GE. 0.999 _d 0) sun1= 0.999 _d 0
./pkg/dic/insol.F 79 INSOL 
          IF (cosz.LE.5. _d -3) cosz= 5. _d -3
./pkg/dic/insol.F 82 INSOL 
          fluxi = solar*(1. _d 0-albedo)*cosz*frac*parfrac
./pkg/dic/insol.F 85 INSOL 
          sfac(j) = MAX(1. _d -5,fluxi)
./pkg/dic/o2_surfforcing.F 107 O2_SURFFORCING 
              O2sat(i,j) = o2s/22391.6 _d 0 * 1. _d 3
./pkg/dic/o2_surfforcing.F 114 O2_SURFFORCING 
              FluxO2(i,j) = 0. _d 0
./pkg/dic/o2_surfforcing.F 87 O2_SURFFORCING 
     &                    / sqrt(SchmidtNoO2(i,j)/660.0 _d 0)
./pkg/dic/o2_surfforcing.F 91 O2_SURFFORCING 
              aTT  = 298.15 _d 0 -ttemp
./pkg/dic/o2_surfforcing.F 92 O2_SURFFORCING 
              aTK  = 273.15 _d 0 +ttemp
./pkg/dic/phos_flux.F 108 PHOS_FLUX 
          IF ( bexport(i,j) .NE. 0. _d 0 ) THEN
./pkg/dic/phos_flux.F 133 PHOS_FLUX 
       flux_l = 0. _d 0
./pkg/dic/phos_flux.F 66 PHOS_FLUX 
         bexport(i,j) = 0. _d 0
./pkg/dic/phos_flux.F 67 PHOS_FLUX 
         IF ( _hFacC(i,j,k,bi,bj).gt.0. _d 0 ) THEN
./pkg/dic/phos_flux.F 71 PHOS_FLUX 
           pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F 72 PHOS_FLUX 
          ELSEIF (hFacC(i,j,k+1,bi,bj).EQ.0. _d 0) THEN
./pkg/dic/phos_flux.F 73 PHOS_FLUX 
           pflux(i,j,k)=pflux(i,j,k)+BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/phos_flux.F 76 PHOS_FLUX 
           bexport(i,j)=BIOac(i,j,k)*(1. _d 0-DOPfraction)
./pkg/dic/tracer_meanarea.F 38 TRACER_MEANAREA 
       sumTracer= 0. _d 0
./pkg/down_slope/dwnslp_apply.F 119 DWNSLP_APPLY 
           gTracer(ij,k) = 0. _d 0
./pkg/down_slope/dwnslp_calc_flow.F 107 DWNSLP_CALC_FLOW 
     &    .AND. dRhoH.GT.0. _d 0 ) THEN
./pkg/down_slope/dwnslp_calc_flow.F 84 DWNSLP_CALC_FLOW 
           uFlow(ij) = 0. _d 0
./pkg/down_slope/dwnslp_calc_flow.F 85 DWNSLP_CALC_FLOW 
           vFlow(ij) = 0. _d 0
./pkg/down_slope/dwnslp_init_varia.F 51 DWNSLP_INIT_VARIA 
          DWNSLP_Transp(n,bi,bj) = 0. _d 0
./pkg/ebm/EBM.h 39 NO PROCEDURE 
      PARAMETER ( t_mlt = 273.15 _d 0 )
./pkg/ebm/EBM.h 40 NO PROCEDURE 
      PARAMETER ( lv = 2.5 _d 6 )
./pkg/ebm/EBM.h 41 NO PROCEDURE 
      PARAMETER ( cp = 1004. _d 0 )
./pkg/ebm/EBM.h 42 NO PROCEDURE 
      PARAMETER ( rho_air = 1.27 _d 0 )
./pkg/ebm/EBM.h 52 NO PROCEDURE 
      PARAMETER ( Q0 = 1365. _d 0 , Q2 = -0.482 _d 0 )
./pkg/ebm/EBM.h 53 NO PROCEDURE 
      PARAMETER ( A0 = 0.322 _d 0 , A2 = 0.231 _d 0 , A4 = 0.086 _d 0  )
./pkg/ebm/EBM.h 57 NO PROCEDURE 
      PARAMETER ( LW0 = 195. _d 0 , LW1 = 2.78 _d 0 )
./pkg/ebm/EBM.h 61 NO PROCEDURE 
      PARAMETER ( H1 = 3.866 _d 0 , H3 = -2.851 _d 0 , H5 = -1.016 _d 0 )
./pkg/ebm/EBM.h 65 NO PROCEDURE 
      PARAMETER ( F1 = 2.092 _d 0 , F2 = 5.796 _d 0 , F3 = 8.472 _d 0 )
./pkg/ebm/EBM.h 66 NO PROCEDURE 
      PARAMETER ( F4 = 7.728 _d 0 , F5 = 2.362 _d 0  )
./pkg/ebm/EBM.h 74 NO PROCEDURE 
      PARAMETER ( trans_eff = 2. _d 0 , Hw = 8. _d 3, Nw = 0.013 _d 0 )
./pkg/ebm/EBM.h 75 NO PROCEDURE 
      PARAMETER ( Tw = 300. _d 0 , At = 3. _d 0 , dz = 450. _d 0 )
./pkg/ebm/EBM.h 76 NO PROCEDURE 
      PARAMETER ( htil = 0.8 _d 0 , tau = 5. _d -3)
./pkg/ebm/EBM.h 79 NO PROCEDURE 
      PARAMETER (DLW = 0.06 _d 0 )
./pkg/ebm/EBM.h 82 NO PROCEDURE 
      DATA lat / 0. _d 0 ,  35. _d 0 ,  85. _d 0  /
./pkg/ebm/ebm_atmosphere.F 167 EBM_ATMOSPHERE 
          kappa = Hw/(1. _d 0 + gamma)
./pkg/ebm/ebm_atmosphere.F 168 EBM_ATMOSPHERE 
          De = Hw/(0.48 _d 0 + 1.48 _d 0 *gamma)
./pkg/ebm/ebm_atmosphere.F 169 EBM_ATMOSPHERE 
          C = 0.6 _d 0 *gravity*kappa*kappa*Nw/
./pkg/ebm/ebm_atmosphere.F 172 EBM_ATMOSPHERE 
     &        ( 1. _d 0 /(1. _d 0 /Hw + 1. _d 0 /De)
./pkg/ebm/ebm_atmosphere.F 173 EBM_ATMOSPHERE 
     &         -1. _d 0 /(1. _d 0 /Hw+1. _d 0 /De+1. _d 0 /dz) )
./pkg/ebm/ebm_atmosphere.F 174 EBM_ATMOSPHERE 
          Cf = htil*2.97 _d 12*C/(T35(no_so)**3)*(
./pkg/ebm/ebm_atmosphere.F 175 EBM_ATMOSPHERE 
     &        1. _d 0/(1. _d 0/De + (5420. _d 0*tau /(T35(no_so)**2)))
./pkg/ebm/ebm_atmosphere.F 176 EBM_ATMOSPHERE 
     &        -1. _d 0/(1. _d 0/De+5420. _d 0*tau/(T35(no_so)**2)
./pkg/ebm/ebm_atmosphere.F 177 EBM_ATMOSPHERE 
     &        +1. _d 0/dz))
./pkg/ebm/ebm_atmosphere.F 197 EBM_ATMOSPHERE 
        Hd35(2) = 1.6 _d 0*Hd35(2)
./pkg/ebm/ebm_atmosphere.F 209 EBM_ATMOSPHERE 
          P4(i,j,bj) = 0.12 _d 0 *
./pkg/ebm/ebm_atmosphere.F 228 EBM_ATMOSPHERE 
          SW(j,bj) = 0.25 _d 0 *Q0*(1. _d 0 + Q2*P2(i,j,bj))*
./pkg/ebm/ebm_atmosphere.F 229 EBM_ATMOSPHERE 
     &         (1. _d 0 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) )
./pkg/ebm/ebm_atmosphere.F 237 EBM_ATMOSPHERE 
     &            (myTime-startTime)*3.215 _d -8*DLW
./pkg/ebm/ebm_atmosphere.F 248 EBM_ATMOSPHERE 
         Qnet(i,j,bi,bj) = -1.0 _d 0 *( SW(j,bj) - LW(j,bj) -
./pkg/ebm/ebm_atmosphere.F 250 EBM_ATMOSPHERE 
     &        0.000728 _d 4      - 0.00678 _d 4*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F 251 EBM_ATMOSPHERE 
     &        0.0955 _d 4*S(i,j,bj)**2 + 0.0769 _d 4*S(i,j,bj)**3 -
./pkg/ebm/ebm_atmosphere.F 252 EBM_ATMOSPHERE 
     &        0.8508 _d 4*S(i,j,bj)**4 - 0.3581 _d 4*S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F 253 EBM_ATMOSPHERE 
     &        2.9240 _d 4*S(i,j,bj)**6 + 0.8311 _d 4*S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F 254 EBM_ATMOSPHERE 
     &        4.9548 _d 4*S(i,j,bj)**8 - 0.8808 _d 4*S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F 255 EBM_ATMOSPHERE 
     &        4.0644 _d 4*S(i,j,bj)**10 +0.3409 _d 4*S(i,j,bj)**11 -
./pkg/ebm/ebm_atmosphere.F 256 EBM_ATMOSPHERE 
     &        1.2893 _d 4*S(i,j,bj)**12 )
./pkg/ebm/ebm_atmosphere.F 268 EBM_ATMOSPHERE 
             Qnet(i,j,bi,bj) = (-90. _d 0 /ReCountX(j,bj))*
./pkg/ebm/ebm_atmosphere.F 270 EBM_ATMOSPHERE 
     &            Hd35(no_so)*(3.054 _d 1 - 3.763 _d 1*S(i,j,bj) +
./pkg/ebm/ebm_atmosphere.F 271 EBM_ATMOSPHERE 
     &        1.892 _d 2*S(i,j,bj)**2 + 3.041 _d 2*S(i,j,bj)**3 -
./pkg/ebm/ebm_atmosphere.F 272 EBM_ATMOSPHERE 
     &        1.540 _d 3*S(i,j,bj)**4 - 9.586 _d 2*S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F 273 EBM_ATMOSPHERE 
     &        2.939 _d 3*S(i,j,bj)**6 + 1.219 _d 3*S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F 274 EBM_ATMOSPHERE 
     &        2.550 _d 3*S(i,j,bj)**8 - 5.396 _d 2*S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F 275 EBM_ATMOSPHERE 
     &        8.119 _d 2*S(i,j,bj)**10)
./pkg/ebm/ebm_atmosphere.F 276 EBM_ATMOSPHERE 
     &            /(2.*PI*rSphere*rSphere*22.3 _d 0) )
./pkg/ebm/ebm_atmosphere.F 284 EBM_ATMOSPHERE 
          EmPmR(i,j,bi,bj) = -1. _d -3*Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 285 EBM_ATMOSPHERE 
     &    *(-0.8454 _d 5*S(i,j,bj)**14 + 0.5367 _d 5*S(i,j,bj)**13
./pkg/ebm/ebm_atmosphere.F 286 EBM_ATMOSPHERE 
     &    +3.3173 _d 5*S(i,j,bj)**12 - 1.8965 _d 5*S(i,j,bj)**11
./pkg/ebm/ebm_atmosphere.F 287 EBM_ATMOSPHERE 
     &    -5.1701 _d 5*S(i,j,bj)**10
./pkg/ebm/ebm_atmosphere.F 288 EBM_ATMOSPHERE 
     &    +2.6240 _d 5*S(i,j,bj)**9 + 4.077 _d 5*S(i,j,bj)**8
./pkg/ebm/ebm_atmosphere.F 289 EBM_ATMOSPHERE 
     &    -1.791 _d 5*S(i,j,bj)**7
./pkg/ebm/ebm_atmosphere.F 290 EBM_ATMOSPHERE 
     &    -1.7231 _d 5*S(i,j,bj)**6 + 0.6229 _d 5*S(i,j,bj)**5
./pkg/ebm/ebm_atmosphere.F 291 EBM_ATMOSPHERE 
     &    +0.3824 _d 5*S(i,j,bj)**4
./pkg/ebm/ebm_atmosphere.F 292 EBM_ATMOSPHERE 
     &    -0.1017 _d 5*S(i,j,bj)**3 - 0.0387 _d 5*S(i,j,bj)**2
./pkg/ebm/ebm_atmosphere.F 293 EBM_ATMOSPHERE 
     &    +0.00562 _d 5*S(i,j,bj)  + 0.0007743 _d 5)
./pkg/ebm/ebm_atmosphere.F 305 EBM_ATMOSPHERE 
           EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)*
./pkg/ebm/ebm_atmosphere.F 306 EBM_ATMOSPHERE 
     &            (-6.5 _d 0 + 35.3 _d 0 + 71.7 _d 0*S(i,j,bj)
./pkg/ebm/ebm_atmosphere.F 307 EBM_ATMOSPHERE 
     &           - 1336.3 _d 0*S(i,j,bj)**2 - 425.8 _d 0*S(i,j,bj)**3
./pkg/ebm/ebm_atmosphere.F 308 EBM_ATMOSPHERE 
     &           + 5434.8 _d 0*S(i,j,bj)**4 + 707.9 _d 0*S(i,j,bj)**5
./pkg/ebm/ebm_atmosphere.F 309 EBM_ATMOSPHERE 
     &           - 6987.7 _d 0*S(i,j,bj)**6 - 360.4 _d 0*S(i,j,bj)**7
./pkg/ebm/ebm_atmosphere.F 310 EBM_ATMOSPHERE 
     &           + 2855.0 _d 0*S(i,j,bj)**8)
./pkg/ebm/ebm_atmosphere.F 316 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)*
./pkg/ebm/ebm_atmosphere.F 317 EBM_ATMOSPHERE 
     &             (-6.5 _d 0 -2.878 _d 0 + 3.157 _d 2*S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F 318 EBM_ATMOSPHERE 
     &             2.388 _d 3*S(i,j,bj)**2 - 4.101 _d 3*S(i,j,bj)**3 +
./pkg/ebm/ebm_atmosphere.F 319 EBM_ATMOSPHERE 
     &             1.963 _d 4*S(i,j,bj)**4 + 1.534 _d 4*S(i,j,bj)**5 -
./pkg/ebm/ebm_atmosphere.F 320 EBM_ATMOSPHERE 
     &             6.556 _d 4*S(i,j,bj)**6 - 2.478 _d 4*S(i,j,bj)**7 +
./pkg/ebm/ebm_atmosphere.F 321 EBM_ATMOSPHERE 
     &             1.083 _d 5*S(i,j,bj)**8 + 1.85 _d 4*S(i,j,bj)**9 -
./pkg/ebm/ebm_atmosphere.F 322 EBM_ATMOSPHERE 
     &             8.703 _d 4*S(i,j,bj)**10 - 5.276 _d 3*S(i,j,bj)**11 +
./pkg/ebm/ebm_atmosphere.F 323 EBM_ATMOSPHERE 
     &             2.703 _d 4*S(i,j,bj)**12)
./pkg/ebm/ebm_atmosphere.F 327 EBM_ATMOSPHERE 
              EmPmR(i,j,bi,bj) = -1. _d -3*(Fw35(no_so)
./pkg/ebm/ebm_atmosphere.F 328 EBM_ATMOSPHERE 
     &             *(-6.5 _d 0 +51.89 _d 0 + 4.916 _d 2*S(i,j,bj) -
./pkg/ebm/ebm_atmosphere.F 329 EBM_ATMOSPHERE 
     &             1.041 _d 3*S(i,j,bj)**2 - 7.546 _d 3*S(i,j,bj)**3 +
./pkg/ebm/ebm_atmosphere.F 330 EBM_ATMOSPHERE 
     &             2.335 _d 3*S(i,j,bj)**4 + 3.449 _d 4*S(i,j,bj)**5 +
./pkg/ebm/ebm_atmosphere.F 331 EBM_ATMOSPHERE 
     &             6.702 _d 3*S(i,j,bj)**6 - 6.601 _d 4*S(i,j,bj)**7 -
./pkg/ebm/ebm_atmosphere.F 332 EBM_ATMOSPHERE 
     &             2.594 _d 4*S(i,j,bj)**8 + 5.652 _d 4*S(i,j,bj)**9 +
./pkg/ebm/ebm_atmosphere.F 333 EBM_ATMOSPHERE 
     &             2.738 _d 4*S(i,j,bj)**10 - 1.795 _d 4*S(i,j,bj)**11 -
./pkg/ebm/ebm_atmosphere.F 334 EBM_ATMOSPHERE 
     &             9.486 _d 3*S(i,j,bj)**12)
./pkg/ebm/ebm_load_climatology.F 49 EBM_LOAD_CLIMATOLOGY 
       tauMax = 0.1 _d 0
./pkg/ebm/ebm_load_climatology.F 51 EBM_LOAD_CLIMATOLOGY 
       lY = 0. _d 0
./pkg/ebm/ebm_readparms.F 84 EBM_READPARMS 
      IF ( tauThetaZonRelax .NE. 0. _d 0 ) THEN
./pkg/ecco/cost_argo_salt.F 114 COST_ARGO_SALT 
      fcthread_argos = 0. _d 0
./pkg/ecco/cost_argo_salt.F 151 COST_ARGO_SALT 
            fctile_argos = 0. _d 0
./pkg/ecco/cost_argo_salt.F 173 COST_ARGO_SALT 
     &             num_argos(bi,bj) = num_argos(bi,bj) + 1. _d 0
./pkg/ecco/cost_argo_salt.F 230 COST_ARGO_SALT 
      fctile_argos   = 0. _d 0
./pkg/ecco/cost_argo_salt.F 231 COST_ARGO_SALT 
      fcthread_argos = 0. _d 0
./pkg/ecco/cost_argo_theta.F 117 COST_ARGO_THETA 
      fcthread_argot = 0. _d 0
./pkg/ecco/cost_argo_theta.F 154 COST_ARGO_THETA 
            fctile_argot = 0. _d 0
./pkg/ecco/cost_argo_theta.F 179 COST_ARGO_THETA 
     &             num_argot(bi,bj) = num_argot(bi,bj) + 1. _d 0
./pkg/ecco/cost_argo_theta.F 236 COST_ARGO_THETA 
      fctile_argot   = 0. _d 0
./pkg/ecco/cost_argo_theta.F 237 COST_ARGO_THETA 
      fcthread_argot = 0. _d 0
./pkg/ecco/cost_averagesfields.F 524 COST_AVERAGESFIELDS 
     &          transpbar(locdayrec,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 100 COST_AVERAGESINIT 
          xx_bpbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 112 COST_AVERAGESINIT 
                tbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 116 COST_AVERAGESINIT 
          xx_tbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 124 COST_AVERAGESINIT 
              tbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 127 COST_AVERAGESINIT 
          xx_tbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 137 COST_AVERAGESINIT 
              sstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 140 COST_AVERAGESINIT 
          xx_sstbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 151 COST_AVERAGESINIT 
                sbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 155 COST_AVERAGESINIT 
          xx_sbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 163 COST_AVERAGESINIT 
              sbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 166 COST_AVERAGESINIT 
          xx_sbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 177 COST_AVERAGESINIT 
                ubar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 178 COST_AVERAGESINIT 
                vbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 182 COST_AVERAGESINIT 
          xx_ubar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 183 COST_AVERAGESINIT 
          xx_vbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 191 COST_AVERAGESINIT 
                wbar(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 195 COST_AVERAGESINIT 
          xx_wbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 202 COST_AVERAGESINIT 
              tauxbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 203 COST_AVERAGESINIT 
              tauybar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 206 COST_AVERAGESINIT 
          xx_taux_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 207 COST_AVERAGESINIT 
          xx_tauy_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 214 COST_AVERAGESINIT 
              hfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 217 COST_AVERAGESINIT 
          xx_hflux_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 224 COST_AVERAGESINIT 
              sfluxmeanbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 227 COST_AVERAGESINIT 
          xx_sflux_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 236 COST_AVERAGESINIT 
              smrareabar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 237 COST_AVERAGESINIT 
              smrsstbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 238 COST_AVERAGESINIT 
              smrsssbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 241 COST_AVERAGESINIT 
          xx_smrareabar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 242 COST_AVERAGESINIT 
          xx_smrsstbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 243 COST_AVERAGESINIT 
          xx_smrsssbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 250 COST_AVERAGESINIT 
             transpbar(irec,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 73 COST_AVERAGESINIT 
                gencost_barfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 74 COST_AVERAGESINIT 
                gencost_modfld(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 77 COST_AVERAGESINIT 
            xx_genbar_dummy(k) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 85 COST_AVERAGESINIT 
              psbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_averagesinit.F 89 COST_AVERAGESINIT 
          xx_psbar_mean_dummy = 0. _d 0
./pkg/ecco/cost_averagesinit.F 96 COST_AVERAGESINIT 
              bpbar(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 102 COST_BOTTOMDRAG 
            fctile = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 161 COST_BOTTOMDRAG 
      fctile   = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 162 COST_BOTTOMDRAG 
      fcthread = 0. _d 0
./pkg/ecco/cost_bottomdrag.F 90 COST_BOTTOMDRAG 
      fcthread = 0. _d 0
./pkg/ecco/cost_bp.F 100 COST_BP 
              bpdifmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 101 COST_BP 
              bpdifanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 102 COST_BP 
              bpdatmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 103 COST_BP 
              bpdatanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 104 COST_BP 
              bpcount(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 135 COST_BP 
                if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 136 COST_BP 
     &               (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 141 COST_BP 
                  bpcount(i,j,bi,bj) = bpcount(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_bp.F 154 COST_BP 
                if (bpcount(i,j,bi,bj).GT. 0. _d 0) then
./pkg/ecco/cost_bp.F 183 COST_BP 
                if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 184 COST_BP 
     &               (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 191 COST_BP 
                  bpdifanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 192 COST_BP 
                  bpdatanom(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp.F 200 COST_BP 
      offset     = 0. _d 0
./pkg/ecco/cost_bp.F 201 COST_BP 
      offset_sum = 0. _d 0
./pkg/ecco/cost_bp.F 207 COST_BP 
              if ( (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 208 COST_BP 
     &             (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 224 COST_BP 
                if ((offset_sum.GT. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 225 COST_BP 
     &              (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 226 COST_BP 
     &              (maskc(i,j,1,bi,bj).NE. 0. _d 0)) then
./pkg/ecco/cost_bp.F 245 COST_BP 
      call SMOOTH_BASIC2D(bpdifanom,maskc,750000. _d 0,5000,mythid)
./pkg/ecco/cost_bp.F 248 COST_BP 
      call SMOOTH_BASIC2D(bpdatanom,maskc,750000. _d 0,5000,mythid)
./pkg/ecco/cost_bp.F 263 COST_BP 
                if ( (wbp(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 264 COST_BP 
     &               (bpmask(i,j,bi,bj).NE. 0. _d 0).AND.
./pkg/ecco/cost_bp.F 265 COST_BP 
     &               (maskc(i,j,1,bi,bj).NE. 0. _d 0) ) then
./pkg/ecco/cost_bp.F 269 COST_BP 
                  num_bp(bi,bj) = num_bp(bi,bj) + 1. _d 0
./pkg/ecco/cost_bp.F 94 COST_BP 
      fac = 1. _d 2 / 9.81 _d 0
./pkg/ecco/cost_bp_read.F 116 COST_BP_READ 
                bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_bp_read.F 118 COST_BP_READ 
                bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ctds.F 114 COST_CTDS 
      fcthread_ctds = 0. _d 0
./pkg/ecco/cost_ctds.F 150 COST_CTDS 
            fctile_ctds = 0. _d 0
./pkg/ecco/cost_ctds.F 157 COST_CTDS 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctds.F 161 COST_CTDS 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctds.F 176 COST_CTDS 
     &                    num_ctds(bi,bj) = num_ctds(bi,bj) + 1. _d 0
./pkg/ecco/cost_ctds.F 233 COST_CTDS 
      fctile_ctds   = 0. _d 0
./pkg/ecco/cost_ctds.F 234 COST_CTDS 
      fcthread_ctds = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 117 COST_CTDSCLIM 
      fcthread = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 173 COST_CTDSCLIM 
            fctile = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 179 COST_CTDSCLIM 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdsclim.F 181 COST_CTDSCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdsclim.F 184 COST_CTDSCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdt.F 115 COST_CTDT 
      fcthread_ctdt = 0. _d 0
./pkg/ecco/cost_ctdt.F 151 COST_CTDT 
            fctile_ctdt = 0. _d 0
./pkg/ecco/cost_ctdt.F 158 COST_CTDT 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdt.F 162 COST_CTDT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdt.F 180 COST_CTDT 
     &                    num_ctdt(bi,bj) = num_ctdt(bi,bj) + 1. _d 0
./pkg/ecco/cost_ctdt.F 237 COST_CTDT 
      fctile_ctdt   = 0. _d 0
./pkg/ecco/cost_ctdt.F 238 COST_CTDT 
      fcthread_ctdt = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 116 COST_CTDTCLIM 
      fcthread = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 172 COST_CTDTCLIM 
            fctile = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 178 COST_CTDTCLIM 
                  cmask(i,j) = 1. _d 0
./pkg/ecco/cost_ctdtclim.F 180 COST_CTDTCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_ctdtclim.F 184 COST_CTDTCLIM 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 130 COST_CURMTR 
      fcthread_curmtr = 0. _d 0
./pkg/ecco/cost_curmtr.F 160 COST_CURMTR 
            fctile_curmtr = 0. _d 0
./pkg/ecco/cost_curmtr.F 167 COST_CURMTR 
                  umask(i,j) = 1. _d 0
./pkg/ecco/cost_curmtr.F 168 COST_CURMTR 
                  vmask(i,j) = 1. _d 0
./pkg/ecco/cost_curmtr.F 170 COST_CURMTR 
                    umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 174 COST_CURMTR 
                    vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 178 COST_CURMTR 
                    umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 182 COST_CURMTR 
                    vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 198 COST_CURMTR 
                    umask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 202 COST_CURMTR 
                    vmask(i,j) = 0. _d 0
./pkg/ecco/cost_curmtr.F 271 COST_CURMTR 
     &                  num_curmtr(bi,bj) = num_curmtr(bi,bj) + 1. _d 0
./pkg/ecco/cost_curmtr.F 281 COST_CURMTR 
     &                  num_curmtr(bi,bj) = num_curmtr(bi,bj) + 1. _d 0
./pkg/ecco/cost_curmtr.F 338 COST_CURMTR 
      fctile_curmtr   = 0. _d 0
./pkg/ecco/cost_curmtr.F 339 COST_CURMTR 
      fcthread_curmtr = 0. _d 0
./pkg/ecco/cost_diffkr.F 102 COST_DIFFKR 
            fctile = 0. _d 0
./pkg/ecco/cost_diffkr.F 164 COST_DIFFKR 
      fctile   = 0. _d 0
./pkg/ecco/cost_diffkr.F 165 COST_DIFFKR 
      fcthread = 0. _d 0
./pkg/ecco/cost_diffkr.F 90 COST_DIFFKR 
      fcthread = 0. _d 0
./pkg/ecco/cost_drift.F 116 COST_DRIFT 
      fcthread_tdrift = 0. _d 0
./pkg/ecco/cost_drift.F 117 COST_DRIFT 
      fcthread_tdrifs = 0. _d 0
./pkg/ecco/cost_drift.F 210 COST_DRIFT 
          fctiles = 0. _d 0
./pkg/ecco/cost_drift.F 211 COST_DRIFT 
          fctilet = 0. _d 0
./pkg/ecco/cost_drift.F 231 COST_DRIFT 
     &                 num_sdrift(bi,bj) = num_sdrift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drift.F 261 COST_DRIFT 
     &                 num_tdrift(bi,bj) = num_tdrift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drifter.F 128 COST_DRIFTER 
      fcthread_drift = 0. _d 0
./pkg/ecco/cost_drifter.F 187 COST_DRIFTER 
         fctile_drift = 0. _d 0
./pkg/ecco/cost_drifter.F 192 COST_DRIFTER 
               mask13c(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_drifter.F 194 COST_DRIFTER 
     &              mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 205 COST_DRIFTER 
                  mask13c(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_drifter.F 315 COST_DRIFTER 
     &                 num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0
./pkg/ecco/cost_drifter.F 317 COST_DRIFTER 
     &                 num_drift(bi,bj) = num_drift(bi,bj) + 1. _d 0
./pkg/ecco/cost_driftw.F 103 COST_DRIFTW 
      fcthread_wdrift = 0. _d 0
./pkg/ecco/cost_driftw.F 180 COST_DRIFTW 
          fctilew = 0. _d 0
./pkg/ecco/cost_driftw.F 194 COST_DRIFTW 
     &                 num_wdrift(bi,bj) = num_wdrift(bi,bj) + 1. _d 0
./pkg/ecco/cost_forcing_gen.F 118 COST_FORCING_GEN 
      lengthscale = 1. _d 0
./pkg/ecco/cost_forcing_gen.F 138 COST_FORCING_GEN 
              xx_mean(i,j,bi,bj)   = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 141 COST_FORCING_GEN 
          num_gen_anom(bi,bj)  = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 142 COST_FORCING_GEN 
          num_gen_mean(bi,bj)  = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 143 COST_FORCING_GEN 
          num_gen_smoo(bi,bj)  = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 144 COST_FORCING_GEN 
          objf_gen_anom(bi,bj) = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 145 COST_FORCING_GEN 
          objf_gen_mean(bi,bj) = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 146 COST_FORCING_GEN 
          objf_gen_smoo(bi,bj) = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 178 COST_FORCING_GEN 
        fctilem = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 189 COST_FORCING_GEN 
     &             num_gen_mean(bi,bj) = num_gen_mean(bi,bj) + 1. _d 0
./pkg/ecco/cost_forcing_gen.F 212 COST_FORCING_GEN 
            fctile = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 231 COST_FORCING_GEN 
     &                 + 1. _d 0
./pkg/ecco/cost_forcing_gen.F 262 COST_FORCING_GEN 
            fctile = 0. _d 0
./pkg/ecco/cost_forcing_gen.F 283 COST_FORCING_GEN 
     &                 + 1. _d 0
./pkg/ecco/cost_gen_transport.F 74 COST_GEN_TRANSPORT 
        ftmp = 0. _d 0
./pkg/ecco/cost_gen_transport.F 91 COST_GEN_TRANSPORT 
           num_transp = num_transp + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 210 COST_GENCOST_SSHV4 
              mean_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 211 COST_GENCOST_SSHV4 
              mean_slaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 243 COST_GENCOST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 251 COST_GENCOST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 259 COST_GENCOST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 281 COST_GENCOST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 332 COST_GENCOST_SSHV4 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 333 COST_GENCOST_SSHV4 
              mean_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 334 COST_GENCOST_SSHV4 
              mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 335 COST_GENCOST_SSHV4 
              mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 336 COST_GENCOST_SSHV4 
              mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 337 COST_GENCOST_SSHV4 
              mean_slaobs2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 339 COST_GENCOST_SSHV4 
              mean_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 340 COST_GENCOST_SSHV4 
              mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 341 COST_GENCOST_SSHV4 
              mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 342 COST_GENCOST_SSHV4 
              mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 344 COST_GENCOST_SSHV4 
              mean_psMtpobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 345 COST_GENCOST_SSHV4 
              mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 346 COST_GENCOST_SSHV4 
              mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 352 COST_GENCOST_SSHV4 
      offset     = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 353 COST_GENCOST_SSHV4 
      offset_sum = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 396 COST_GENCOST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 408 COST_GENCOST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 420 COST_GENCOST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 446 COST_GENCOST_SSHV4 
                  mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 460 COST_GENCOST_SSHV4 
                  mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 474 COST_GENCOST_SSHV4 
                  mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 487 COST_GENCOST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 493 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 494 COST_GENCOST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 543 COST_GENCOST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 613 COST_GENCOST_SSHV4 
     &      num_gencost(igen_mdt,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 641 COST_GENCOST_SSHV4 
              anom_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 642 COST_GENCOST_SSHV4 
              anom_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 643 COST_GENCOST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 644 COST_GENCOST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 645 COST_GENCOST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 646 COST_GENCOST_SSHV4 
              anom_psMslaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 647 COST_GENCOST_SSHV4 
              anom_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 648 COST_GENCOST_SSHV4 
              anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 649 COST_GENCOST_SSHV4 
              anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 701 COST_GENCOST_SSHV4 
     &        anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 703 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 713 COST_GENCOST_SSHV4 
     &        anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 720 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 730 COST_GENCOST_SSHV4 
     &        anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 737 COST_GENCOST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 781 COST_GENCOST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 782 COST_GENCOST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 836 COST_GENCOST_SSHV4 
     &         num_gencost(igen_lsc,bi,bj) + 1. _d 0 /ndaysaveRL
./pkg/ecco/cost_gencost_sshv4.F 871 COST_GENCOST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 872 COST_GENCOST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 873 COST_GENCOST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 874 COST_GENCOST_SSHV4 
              anom_tpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 875 COST_GENCOST_SSHV4 
              anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 876 COST_GENCOST_SSHV4 
              anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sshv4.F 955 COST_GENCOST_SSHV4 
     &              num_gencost(igen_tp,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 968 COST_GENCOST_SSHV4 
     &              num_gencost(igen_ers,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sshv4.F 981 COST_GENCOST_SSHV4 
     &              num_gencost(igen_gfo,bi,bj) + 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 147 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 148 COST_GENCOST_SSTV4 
              obs_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 149 COST_GENCOST_SSTV4 
              nb_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 150 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 216 COST_GENCOST_SSTV4 
                  nb_sst(i,j,bi,bj)=nb_sst(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 235 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 287 COST_GENCOST_SSTV4 
     &          num_gencost(igen_amsre_lsc,bi,bj) + 1. _d 0 /ndaysaveRL
./pkg/ecco/cost_gencost_sstv4.F 352 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_gencost_sstv4.F 354 COST_GENCOST_SSTV4 
              anom_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 355 COST_GENCOST_SSTV4 
              msk_sst(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_gencost_sstv4.F 381 COST_GENCOST_SSTV4 
     &          num_gencost(igen_amsre,bi,bj) + 1. _d 0
./pkg/ecco/cost_generic.F 133 COST_GENERIC 
      localwww = 0. _d 0
./pkg/ecco/cost_generic.F 137 COST_GENERIC 
          objf_local(bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 138 COST_GENERIC 
          num_local(bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 142 COST_GENERIC 
                localobs(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_generic.F 260 COST_GENERIC 
            localcost    = 0. _d 0
./pkg/ecco/cost_generic.F 270 COST_GENERIC 
                   cmask(i,j,k) = 0. _d 0
./pkg/ecco/cost_generic.F 284 COST_GENERIC 
     &               num_local(bi,bj) = num_local(bi,bj) + 1. _d 0
./pkg/ecco/cost_geoid.F 81 COST_GEOID 
      sphcost = 0. _d 0
./pkg/ecco/cost_geoid.F 83 COST_GEOID 
         pinv(i) = 0. _d 0
./pkg/ecco/cost_kapgm.F 105 COST_KAPGM 
            fctile = 0. _d 0
./pkg/ecco/cost_kapgm.F 167 COST_KAPGM 
      fctile   = 0. _d 0
./pkg/ecco/cost_kapgm.F 168 COST_KAPGM 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapgm.F 93 COST_KAPGM 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapredi.F 105 COST_KAPREDI 
            fctile = 0. _d 0
./pkg/ecco/cost_kapredi.F 167 COST_KAPREDI 
      fctile   = 0. _d 0
./pkg/ecco/cost_kapredi.F 168 COST_KAPREDI 
      fcthread = 0. _d 0
./pkg/ecco/cost_kapredi.F 93 COST_KAPREDI 
      fcthread = 0. _d 0
./pkg/ecco/cost_mean_heatflux.F 137 COST_MEAN_HEATFLUX 
          objf_hfluxmm = 0. _d 0
./pkg/ecco/cost_mean_saltflux.F 137 COST_MEAN_SALTFLUX 
          objf_sfluxmm = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 147 COST_OBCS_AGEOS 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 148 COST_OBCS_AGEOS 
      fctile   = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 155 COST_OBCS_AGEOS 
              maskxzageos(i,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 156 COST_OBCS_AGEOS 
              xzdvel1(i,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 157 COST_OBCS_AGEOS 
              xzdvel2(i,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 158 COST_OBCS_AGEOS 
              xzgrdrho(i,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 161 COST_OBCS_AGEOS 
              maskyzageos(j,k,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 162 COST_OBCS_AGEOS 
              yzdvel1(j,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 163 COST_OBCS_AGEOS 
              yzdvel2(j,k,bi,bj)     = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 164 COST_OBCS_AGEOS 
              yzgrdrho(j,k,bi,bj)    = 0. _d 0
./pkg/ecco/cost_obcs_ageos.F 174 COST_OBCS_AGEOS 
              rholoc(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_obcse.F 102 COST_OBCSE 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcse.F 124 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 161 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 197 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcse.F 234 COST_OBCSE 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 102 COST_OBCSN 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcsn.F 124 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 161 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 197 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsn.F 234 COST_OBCSN 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 102 COST_OBCSS 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcss.F 124 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 161 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 197 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcss.F 234 COST_OBCSS 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 118 COST_OBCSVOL 
      sumvol = 0. _d 0
./pkg/ecco/cost_obcsvol.F 202 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 244 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 287 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsvol.F 330 COST_OBCSVOL 
              fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 102 COST_OBCSW 
      fcthread = 0. _d 0
./pkg/ecco/cost_obcsw.F 124 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 161 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 197 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_obcsw.F 234 COST_OBCSW 
            fctile = 0. _d 0
./pkg/ecco/cost_readers.F 132 COST_READERS 
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 134 COST_READERS 
                 ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readers.F 137 COST_READERS 
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 140 COST_READERS 
                 ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 145 COST_READERS 
                ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readers.F 87 COST_READERS 
      factor = 0.01 _d 0
./pkg/ecco/cost_readers.F 88 COST_READERS 
      spval = -9990. _d 0
./pkg/ecco/cost_readgfo.F 132 COST_READGFO 
                 gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 134 COST_READGFO 
                 gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readgfo.F 137 COST_READGFO 
                gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 140 COST_READGFO 
                 gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readgfo.F 144 COST_READGFO 
                gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 128 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 130 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatxfields.F 133 COST_READSCATXFIELDS 
                scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 135 COST_READSCATXFIELDS 
              if (scatxdat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatxfields.F 136 COST_READSCATXFIELDS 
                 scatxmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatxfields.F 149 COST_READSCATXFIELDS 
      vartile = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 126 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 128 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readscatyfields.F 131 COST_READSCATYFIELDS 
                scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 133 COST_READSCATYFIELDS 
              if (scatydat(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readscatyfields.F 134 COST_READSCATYFIELDS 
                 scatymask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readscatyfields.F 147 COST_READSCATYFIELDS 
      vartile = 0. _d 0
./pkg/ecco/cost_readtopex.F 130 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 132 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopex.F 135 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 138 COST_READTOPEX 
                 tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 142 COST_READTOPEX 
                tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopex.F 87 COST_READTOPEX 
      factor = 0.01 _d 0
./pkg/ecco/cost_readtopex.F 88 COST_READTOPEX 
      spval = -9990. _d 0
./pkg/ecco/cost_readtopexmean.F 67 COST_READTOPEXMEAN 
      factor =  0.01 _d 0
./pkg/ecco/cost_readtopexmean.F 68 COST_READTOPEXMEAN 
      spval  = -9990. _d 0
./pkg/ecco/cost_readtopexmean.F 79 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 81 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_readtopexmean.F 84 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 86 COST_READTOPEXMEAN 
              if (tpmean(i,j,bi,bj) .eq. 0. _d 0 ) then
./pkg/ecco/cost_readtopexmean.F 87 COST_READTOPEXMEAN 
                 tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_readtopexmean.F 91 COST_READTOPEXMEAN 
                tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_salt.F 116 COST_SALT 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt.F 173 COST_SALT 
            fctile = 0. _d 0
./pkg/ecco/cost_salt.F 181 COST_SALT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F 183 COST_SALT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F 185 COST_SALT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_salt.F 200 COST_SALT 
     &                    num_salt(bi,bj) = num_salt(bi,bj) + 1. _d 0
./pkg/ecco/cost_salt0.F 114 COST_SALT0 
            fctile = 0. _d 0
./pkg/ecco/cost_salt0.F 130 COST_SALT0 
     &                 num_salt0(bi,bj) = num_salt0(bi,bj) + 1. _d 0
./pkg/ecco/cost_salt0.F 154 COST_SALT0 
            fctile = 0. _d 0
./pkg/ecco/cost_salt0.F 88 COST_SALT0 
      lengthscale = 1. _d 0
./pkg/ecco/cost_salt_ini_fin.F 104 COST_SALT_INI_FIN 
            fctile = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 164 COST_SALT_INI_FIN 
      fctile   = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 165 COST_SALT_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_salt_ini_fin.F 92 COST_SALT_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_scat.F 110 COST_SCAT 
      fcthread_scatx = 0. _d 0
./pkg/ecco/cost_scat.F 111 COST_SCAT 
      fcthread_scaty = 0. _d 0
./pkg/ecco/cost_scat.F 135 COST_SCAT 
                uBarC = 0.5 _d 0
./pkg/ecco/cost_scat.F 137 COST_SCAT 
                vBarC = 0.5 _d 0
./pkg/ecco/cost_scat.F 152 COST_SCAT 
            fctile_scatx = 0. _d 0
./pkg/ecco/cost_scat.F 153 COST_SCAT 
            fctile_scaty = 0. _d 0
./pkg/ecco/cost_scat.F 172 COST_SCAT 
     &                  num_scatx(bi,bj)  = num_scatx(bi,bj) + 1. _d 0
./pkg/ecco/cost_scat.F 192 COST_SCAT 
     &                  num_scaty(bi,bj)  = num_scaty(bi,bj) + 1. _d 0
./pkg/ecco/cost_scat.F 249 COST_SCAT 
      fctile_scatx     = 0. _d 0
./pkg/ecco/cost_scat.F 250 COST_SCAT 
      fcthread_scatx   = 0. _d 0
./pkg/ecco/cost_scat.F 251 COST_SCAT 
      fctile_scaty     = 0. _d 0
./pkg/ecco/cost_scat.F 252 COST_SCAT 
      fcthread_scaty   = 0. _d 0
./pkg/ecco/cost_sla_read.F 137 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 139 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sla_read.F 142 COST_SLA_READ 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 145 COST_SLA_READ 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read.F 150 COST_SLA_READ 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 122 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 124 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sla_read_yd.F 127 COST_SLA_READ_YD 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 130 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 135 COST_SLA_READ_YD 
                sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 154 COST_SLA_READ_YD 
                 sla_obs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sla_read_yd.F 155 COST_SLA_READ_YD 
                 sla_mask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh.F 102 COST_SSH 
      costmean   = 0. _d 0
./pkg/ecco/cost_ssh.F 106 COST_SSH 
          wwwtp(i,j)  = 0. _d 0
./pkg/ecco/cost_ssh.F 107 COST_SSH 
          wwwers(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F 108 COST_SSH 
          wwwgfo(i,j) = 0. _d 0
./pkg/ecco/cost_ssh.F 129 COST_SSH 
              psmean(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh.F 162 COST_SSH 
      offset     = 0. _d 0
./pkg/ecco/cost_ssh.F 163 COST_SSH 
      offset_sum = 0. _d 0
./pkg/ecco/cost_ssh.F 270 COST_SSH 
     &               num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 278 COST_SSH 
                num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 297 COST_SSH 
     &               num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 305 COST_SSH 
                num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 324 COST_SSH 
     &               num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh.F 332 COST_SSH 
                num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_mean.F 242 COST_SSH_MEAN 
     &             num_hmean = num_hmean + 1. _d 0
./pkg/ecco/cost_ssh_mean.F 273 COST_SSH_MEAN 
     &            num_hmean = num_hmean + 1. _d 0
./pkg/ecco/cost_ssh_mean.F 275 COST_SSH_MEAN 
     &          ( diff*diff + 2. _d 0*offset*diff + offset*offset )
./pkg/ecco/cost_ssh_mean.F 288 COST_SSH_MEAN 
      costmean = sumC2 + 2. _d 0*offset*sumC1 + offset*offset*sumC0
./pkg/ecco/cost_ssh_new.F 113 COST_SSH_NEW 
      costmean   = 0. _d 0
./pkg/ecco/cost_ssh_new.F 132 COST_SSH_NEW 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_ssh_new.F 133 COST_SSH_NEW 
              psmeantp(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 134 COST_SSH_NEW 
              psmeaners(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 135 COST_SSH_NEW 
              psmeangfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 136 COST_SSH_NEW 
              sumtp(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 137 COST_SSH_NEW 
              sumers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 138 COST_SSH_NEW 
              sumgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 139 COST_SSH_NEW 
              wwwtp1(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 140 COST_SSH_NEW 
              wwwers1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 141 COST_SSH_NEW 
              wwwgfo1(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 142 COST_SSH_NEW 
              wwwtp2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_ssh_new.F 143 COST_SSH_NEW 
              wwwers2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 144 COST_SSH_NEW 
              wwwgfo2(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_ssh_new.F 188 COST_SSH_NEW 
                   sumtp(i,j,bi,bj) = sumtp(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 196 COST_SSH_NEW 
                   sumers(i,j,bi,bj) = sumers(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 204 COST_SSH_NEW 
                   sumgfo(i,j,bi,bj) = sumgfo(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 223 COST_SSH_NEW 
                  wwwtp1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 230 COST_SSH_NEW 
                  wwwers1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 237 COST_SSH_NEW 
                  wwwgfo1(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_ssh_new.F 247 COST_SSH_NEW 
      offset     = 0. _d 0
./pkg/ecco/cost_ssh_new.F 248 COST_SSH_NEW 
      offset_sum = 0. _d 0
./pkg/ecco/cost_ssh_new.F 355 COST_SSH_NEW 
     &               num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 363 COST_SSH_NEW 
                num_tp(bi,bj) = num_tp(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 384 COST_SSH_NEW 
     &               num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 392 COST_SSH_NEW 
                num_ers(bi,bj) = num_ers(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 413 COST_SSH_NEW 
     &               num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_ssh_new.F 421 COST_SSH_NEW 
                num_gfo(bi,bj) = num_gfo(bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 190 COST_SSHV4 
              mean_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 191 COST_SSHV4 
              mean_slaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 223 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 231 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 239 COST_SSHV4 
          mean_slaobs_NUM(i,j,bi,bj)= mean_slaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 261 COST_SSHV4 
                  mean_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 312 COST_SSHV4 
              psmean(i,j,bi,bj)    = 0. _d 0
./pkg/ecco/cost_sshv4.F 313 COST_SSHV4 
              mean_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 314 COST_SSHV4 
              mean_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 315 COST_SSHV4 
              mean_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 316 COST_SSHV4 
              mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 317 COST_SSHV4 
              mean_slaobs2(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 319 COST_SSHV4 
              mean_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 320 COST_SSHV4 
              mean_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 321 COST_SSHV4 
              mean_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 322 COST_SSHV4 
              mean_psMssh_all_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 324 COST_SSHV4 
              mean_psMtpobs_MSK(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 325 COST_SSHV4 
              mean_psMersobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 326 COST_SSHV4 
              mean_psMgfoobs_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 332 COST_SSHV4 
      offset     = 0. _d 0
./pkg/ecco/cost_sshv4.F 333 COST_SSHV4 
      offset_sum = 0. _d 0
./pkg/ecco/cost_sshv4.F 376 COST_SSHV4 
     &                 mean_psMtpobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 388 COST_SSHV4 
     &                 mean_psMersobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 400 COST_SSHV4 
     &                 mean_psMgfoobs_NUM(i,j,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 426 COST_SSHV4 
                  mean_psMtpobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 440 COST_SSHV4 
                  mean_psMersobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 454 COST_SSHV4 
                  mean_psMgfoobs_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 467 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 1. _d 0
./pkg/ecco/cost_sshv4.F 473 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 474 COST_SSHV4 
                  mean_psMssh_all_MSK(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 523 COST_SSHV4 
                  mean_psMssh_all(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 591 COST_SSHV4 
     &      num_sshv4cost(1,bi,bj) = num_sshv4cost(1,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 620 COST_SSHV4 
              anom_psMslaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 621 COST_SSHV4 
              anom_slaobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 622 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 623 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 624 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 625 COST_SSHV4 
              anom_psMslaobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 626 COST_SSHV4 
              anom_psMtpobs_NUM(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 627 COST_SSHV4 
              anom_psMersobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 628 COST_SSHV4 
              anom_psMgfoobs_NUM(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 680 COST_SSHV4 
     &        anom_psMtpobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 682 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 692 COST_SSHV4 
     &        anom_psMersobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 699 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 709 COST_SSHV4 
     &        anom_psMgfoobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 716 COST_SSHV4 
     &        anom_psMslaobs_NUM(i,j,bi,bj)+1. _d 0
./pkg/ecco/cost_sshv4.F 760 COST_SSHV4 
                  anom_psMslaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 761 COST_SSHV4 
                  anom_slaobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 815 COST_SSHV4 
     &        + 1. _d 0 /ndaysaveRL
./pkg/ecco/cost_sshv4.F 850 COST_SSHV4 
              anom_psMtpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 851 COST_SSHV4 
              anom_psMersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 852 COST_SSHV4 
              anom_psMgfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 853 COST_SSHV4 
              anom_tpobs(i,j,bi,bj)  = 0. _d 0
./pkg/ecco/cost_sshv4.F 854 COST_SSHV4 
              anom_ersobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 855 COST_SSHV4 
              anom_gfoobs(i,j,bi,bj) = 0. _d 0
./pkg/ecco/cost_sshv4.F 935 COST_SSHV4 
     &                num_sshv4cost(2,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 949 COST_SSHV4 
     &                num_sshv4cost(3,bi,bj) + 1. _d 0
./pkg/ecco/cost_sshv4.F 963 COST_SSHV4 
     &                num_sshv4cost(4,bi,bj) + 1. _d 0
./pkg/ecco/cost_tau_eddy.F 108 COST_TAU_EDDY 
            fctile = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 143 COST_TAU_EDDY 
            fctile = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 258 COST_TAU_EDDY 
      fctile   = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 259 COST_TAU_EDDY 
      fcthread = 0. _d 0
./pkg/ecco/cost_tau_eddy.F 94 COST_TAU_EDDY 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta.F 115 COST_THETA 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta.F 172 COST_THETA 
            fctile = 0. _d 0
./pkg/ecco/cost_theta.F 180 COST_THETA 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F 182 COST_THETA 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F 184 COST_THETA 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_theta.F 199 COST_THETA 
     &                    num_temp(bi,bj) = num_temp(bi,bj) + 1. _d 0
./pkg/ecco/cost_theta0.F 114 COST_THETA0 
            fctile = 0. _d 0
./pkg/ecco/cost_theta0.F 130 COST_THETA0 
     &                 num_temp0(bi,bj) = num_temp0(bi,bj) + 1. _d 0
./pkg/ecco/cost_theta0.F 154 COST_THETA0 
            fctile = 0. _d 0
./pkg/ecco/cost_theta0.F 88 COST_THETA0 
      lengthscale = 1. _d 0
./pkg/ecco/cost_theta_ini_fin.F 104 COST_THETA_INI_FIN 
            fctile = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 164 COST_THETA_INI_FIN 
      fctile   = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 165 COST_THETA_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_theta_ini_fin.F 92 COST_THETA_INI_FIN 
      fcthread = 0. _d 0
./pkg/ecco/cost_xbt.F 119 COST_XBT 
      fcthread_xbt = 0. _d 0
./pkg/ecco/cost_xbt.F 156 COST_XBT 
            fctile_xbt = 0. _d 0
./pkg/ecco/cost_xbt.F 167 COST_XBT 
                    cmask(i,j) = 0. _d 0
./pkg/ecco/cost_xbt.F 193 COST_XBT 
     &                   num_xbt(bi,bj) = num_xbt(bi,bj) + 1. _d 0
./pkg/ecco/cost_xbt.F 250 COST_XBT 
      fctile_xbt   = 0. _d 0
./pkg/ecco/cost_xbt.F 251 COST_XBT 
      fcthread_xbt = 0. _d 0
./pkg/ecco/ecco_cost_final.F 131 ECCO_COST_FINAL 
      f_temp = 0. _d 0
./pkg/ecco/ecco_cost_final.F 132 ECCO_COST_FINAL 
      f_salt = 0. _d 0
./pkg/ecco/ecco_cost_final.F 133 ECCO_COST_FINAL 
      f_temp0 = 0. _d 0
./pkg/ecco/ecco_cost_final.F 134 ECCO_COST_FINAL 
      f_salt0 = 0. _d 0
./pkg/ecco/ecco_cost_final.F 135 ECCO_COST_FINAL 
      f_temp0smoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 136 ECCO_COST_FINAL 
      f_salt0smoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 137 ECCO_COST_FINAL 
      f_tauu = 0. _d 0
./pkg/ecco/ecco_cost_final.F 138 ECCO_COST_FINAL 
      f_tauum = 0. _d 0
./pkg/ecco/ecco_cost_final.F 139 ECCO_COST_FINAL 
      f_tauusmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 140 ECCO_COST_FINAL 
      f_tauv = 0. _d 0
./pkg/ecco/ecco_cost_final.F 141 ECCO_COST_FINAL 
      f_tauvm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 142 ECCO_COST_FINAL 
      f_tauvsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 143 ECCO_COST_FINAL 
      f_hflux = 0. _d 0
./pkg/ecco/ecco_cost_final.F 144 ECCO_COST_FINAL 
      f_hfluxm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 145 ECCO_COST_FINAL 
      f_hfluxsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 146 ECCO_COST_FINAL 
      f_hfluxmm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 147 ECCO_COST_FINAL 
      f_hfluxmm2 = 0. _d 0
./pkg/ecco/ecco_cost_final.F 148 ECCO_COST_FINAL 
      f_sflux  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 149 ECCO_COST_FINAL 
      f_sfluxsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 150 ECCO_COST_FINAL 
      f_sfluxm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 151 ECCO_COST_FINAL 
      f_sfluxmm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 152 ECCO_COST_FINAL 
      f_sfluxmm2  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 153 ECCO_COST_FINAL 
      f_uwind  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 154 ECCO_COST_FINAL 
      f_vwind  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 155 ECCO_COST_FINAL 
      f_atemp  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 156 ECCO_COST_FINAL 
      f_aqh  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 157 ECCO_COST_FINAL 
      f_precip = 0. _d 0
./pkg/ecco/ecco_cost_final.F 158 ECCO_COST_FINAL 
      f_swflux = 0. _d 0
./pkg/ecco/ecco_cost_final.F 159 ECCO_COST_FINAL 
      f_swdown = 0. _d 0
./pkg/ecco/ecco_cost_final.F 160 ECCO_COST_FINAL 
      f_uwindm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 161 ECCO_COST_FINAL 
      f_vwindm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 162 ECCO_COST_FINAL 
      f_atempm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 163 ECCO_COST_FINAL 
      f_aqhm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 164 ECCO_COST_FINAL 
      f_precipm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 165 ECCO_COST_FINAL 
      f_swfluxm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 166 ECCO_COST_FINAL 
      f_swdownm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 167 ECCO_COST_FINAL 
      f_uwindsmoo  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 168 ECCO_COST_FINAL 
      f_vwindsmoo  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 169 ECCO_COST_FINAL 
      f_atempsmoo  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 170 ECCO_COST_FINAL 
      f_aqhsmoo  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 171 ECCO_COST_FINAL 
      f_precipsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 172 ECCO_COST_FINAL 
      f_swfluxsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 173 ECCO_COST_FINAL 
      f_swdownsmoo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 174 ECCO_COST_FINAL 
      f_ssh = 0. _d 0
./pkg/ecco/ecco_cost_final.F 175 ECCO_COST_FINAL 
      f_tp = 0. _d 0
./pkg/ecco/ecco_cost_final.F 176 ECCO_COST_FINAL 
      f_ers = 0. _d 0
./pkg/ecco/ecco_cost_final.F 177 ECCO_COST_FINAL 
      f_gfo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 178 ECCO_COST_FINAL 
      f_sst = 0. _d 0
./pkg/ecco/ecco_cost_final.F 179 ECCO_COST_FINAL 
      f_tmi = 0. _d 0
./pkg/ecco/ecco_cost_final.F 180 ECCO_COST_FINAL 
      f_sss = 0. _d 0
./pkg/ecco/ecco_cost_final.F 181 ECCO_COST_FINAL 
      f_bp = 0. _d 0
./pkg/ecco/ecco_cost_final.F 182 ECCO_COST_FINAL 
      f_atl = 0. _d 0
./pkg/ecco/ecco_cost_final.F 183 ECCO_COST_FINAL 
      f_ctdt = 0. _d 0
./pkg/ecco/ecco_cost_final.F 184 ECCO_COST_FINAL 
      f_ctds = 0. _d 0
./pkg/ecco/ecco_cost_final.F 185 ECCO_COST_FINAL 
      f_ctdtclim = 0. _d 0
./pkg/ecco/ecco_cost_final.F 186 ECCO_COST_FINAL 
      f_ctdsclim = 0. _d 0
./pkg/ecco/ecco_cost_final.F 187 ECCO_COST_FINAL 
      f_xbt = 0. _d 0
./pkg/ecco/ecco_cost_final.F 188 ECCO_COST_FINAL 
      f_argot = 0. _d 0
./pkg/ecco/ecco_cost_final.F 189 ECCO_COST_FINAL 
      f_argos = 0. _d 0
./pkg/ecco/ecco_cost_final.F 190 ECCO_COST_FINAL 
      f_drifter = 0. _d 0
./pkg/ecco/ecco_cost_final.F 191 ECCO_COST_FINAL 
      f_sdrift = 0. _d 0
./pkg/ecco/ecco_cost_final.F 192 ECCO_COST_FINAL 
      f_tdrift = 0. _d 0
./pkg/ecco/ecco_cost_final.F 193 ECCO_COST_FINAL 
      f_wdrift = 0. _d 0
./pkg/ecco/ecco_cost_final.F 194 ECCO_COST_FINAL 
      f_scatx = 0. _d 0
./pkg/ecco/ecco_cost_final.F 195 ECCO_COST_FINAL 
      f_scaty = 0. _d 0
./pkg/ecco/ecco_cost_final.F 196 ECCO_COST_FINAL 
      f_scatxm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 197 ECCO_COST_FINAL 
      f_scatym = 0. _d 0
./pkg/ecco/ecco_cost_final.F 198 ECCO_COST_FINAL 
      f_obcsn   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 199 ECCO_COST_FINAL 
      f_obcss   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 200 ECCO_COST_FINAL 
      f_obcsw   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 201 ECCO_COST_FINAL 
      f_obcse   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 202 ECCO_COST_FINAL 
      f_curmtr  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 203 ECCO_COST_FINAL 
      f_ageos   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 204 ECCO_COST_FINAL 
      f_ini_fin = 0. _d 0
./pkg/ecco/ecco_cost_final.F 205 ECCO_COST_FINAL 
      f_kapgm   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 206 ECCO_COST_FINAL 
      f_kapredi   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 207 ECCO_COST_FINAL 
      f_diffkr  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 208 ECCO_COST_FINAL 
      f_eddytau = 0. _d 0
./pkg/ecco/ecco_cost_final.F 209 ECCO_COST_FINAL 
      f_bottomdrag = 0. _d 0
./pkg/ecco/ecco_cost_final.F 210 ECCO_COST_FINAL 
      f_transp  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 214 ECCO_COST_FINAL 
        f_profiles(num_file,num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 220 ECCO_COST_FINAL 
        f_gencost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 225 ECCO_COST_FINAL 
        f_usercost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 230 ECCO_COST_FINAL 
        f_sshv4cost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 234 ECCO_COST_FINAL 
      no_temp = 0. _d 0
./pkg/ecco/ecco_cost_final.F 235 ECCO_COST_FINAL 
      no_salt = 0. _d 0
./pkg/ecco/ecco_cost_final.F 236 ECCO_COST_FINAL 
      no_temp0 = 0. _d 0
./pkg/ecco/ecco_cost_final.F 237 ECCO_COST_FINAL 
      no_salt0 = 0. _d 0
./pkg/ecco/ecco_cost_final.F 238 ECCO_COST_FINAL 
      no_tauu = 0. _d 0
./pkg/ecco/ecco_cost_final.F 239 ECCO_COST_FINAL 
      no_tauum = 0. _d 0
./pkg/ecco/ecco_cost_final.F 240 ECCO_COST_FINAL 
      no_tauv = 0. _d 0
./pkg/ecco/ecco_cost_final.F 241 ECCO_COST_FINAL 
      no_tauvm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 242 ECCO_COST_FINAL 
      no_hflux = 0. _d 0
./pkg/ecco/ecco_cost_final.F 243 ECCO_COST_FINAL 
      no_hfluxm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 244 ECCO_COST_FINAL 
      no_hfluxmm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 245 ECCO_COST_FINAL 
      no_sflux  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 246 ECCO_COST_FINAL 
      no_sfluxm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 247 ECCO_COST_FINAL 
      no_sfluxmm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 248 ECCO_COST_FINAL 
      no_uwind  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 249 ECCO_COST_FINAL 
      no_vwind  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 250 ECCO_COST_FINAL 
      no_atemp  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 251 ECCO_COST_FINAL 
      no_aqh  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 252 ECCO_COST_FINAL 
      no_precip = 0. _d 0
./pkg/ecco/ecco_cost_final.F 253 ECCO_COST_FINAL 
      no_swflux = 0. _d 0
./pkg/ecco/ecco_cost_final.F 254 ECCO_COST_FINAL 
      no_swdown = 0. _d 0
./pkg/ecco/ecco_cost_final.F 255 ECCO_COST_FINAL 
      no_uwindm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 256 ECCO_COST_FINAL 
      no_vwindm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 257 ECCO_COST_FINAL 
      no_atempm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 258 ECCO_COST_FINAL 
      no_aqhm  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 259 ECCO_COST_FINAL 
      no_precipm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 260 ECCO_COST_FINAL 
      no_swfluxm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 261 ECCO_COST_FINAL 
      no_swdownm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 262 ECCO_COST_FINAL 
      no_ssh = 0. _d 0
./pkg/ecco/ecco_cost_final.F 263 ECCO_COST_FINAL 
      no_tp = 0. _d 0
./pkg/ecco/ecco_cost_final.F 264 ECCO_COST_FINAL 
      no_ers = 0. _d 0
./pkg/ecco/ecco_cost_final.F 265 ECCO_COST_FINAL 
      no_gfo = 0. _d 0
./pkg/ecco/ecco_cost_final.F 266 ECCO_COST_FINAL 
      no_sst = 0. _d 0
./pkg/ecco/ecco_cost_final.F 267 ECCO_COST_FINAL 
      no_tmi = 0. _d 0
./pkg/ecco/ecco_cost_final.F 268 ECCO_COST_FINAL 
      no_sss = 0. _d 0
./pkg/ecco/ecco_cost_final.F 269 ECCO_COST_FINAL 
      no_bp = 0. _d 0
./pkg/ecco/ecco_cost_final.F 270 ECCO_COST_FINAL 
      no_atl = 0. _d 0
./pkg/ecco/ecco_cost_final.F 271 ECCO_COST_FINAL 
      no_ctdt = 0. _d 0
./pkg/ecco/ecco_cost_final.F 272 ECCO_COST_FINAL 
      no_ctds = 0. _d 0
./pkg/ecco/ecco_cost_final.F 273 ECCO_COST_FINAL 
      no_ctdtclim = 0. _d 0
./pkg/ecco/ecco_cost_final.F 274 ECCO_COST_FINAL 
      no_ctdsclim = 0. _d 0
./pkg/ecco/ecco_cost_final.F 275 ECCO_COST_FINAL 
      no_xbt = 0. _d 0
./pkg/ecco/ecco_cost_final.F 276 ECCO_COST_FINAL 
      no_argot = 0. _d 0
./pkg/ecco/ecco_cost_final.F 277 ECCO_COST_FINAL 
      no_argos = 0. _d 0
./pkg/ecco/ecco_cost_final.F 278 ECCO_COST_FINAL 
      no_drifter = 0. _d 0
./pkg/ecco/ecco_cost_final.F 279 ECCO_COST_FINAL 
      no_sdrift = 0. _d 0
./pkg/ecco/ecco_cost_final.F 280 ECCO_COST_FINAL 
      no_tdrift = 0. _d 0
./pkg/ecco/ecco_cost_final.F 281 ECCO_COST_FINAL 
      no_wdrift = 0. _d 0
./pkg/ecco/ecco_cost_final.F 282 ECCO_COST_FINAL 
      no_scatx = 0. _d 0
./pkg/ecco/ecco_cost_final.F 283 ECCO_COST_FINAL 
      no_scaty = 0. _d 0
./pkg/ecco/ecco_cost_final.F 284 ECCO_COST_FINAL 
      no_scatxm = 0. _d 0
./pkg/ecco/ecco_cost_final.F 285 ECCO_COST_FINAL 
      no_scatym = 0. _d 0
./pkg/ecco/ecco_cost_final.F 286 ECCO_COST_FINAL 
      no_obcsn   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 287 ECCO_COST_FINAL 
      no_obcss   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 288 ECCO_COST_FINAL 
      no_obcsw   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 289 ECCO_COST_FINAL 
      no_obcse   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 290 ECCO_COST_FINAL 
      no_curmtr  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 291 ECCO_COST_FINAL 
      no_ageos   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 292 ECCO_COST_FINAL 
      no_ini_fin = 0. _d 0
./pkg/ecco/ecco_cost_final.F 293 ECCO_COST_FINAL 
      no_kapgm   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 294 ECCO_COST_FINAL 
      no_kapredi   = 0. _d 0
./pkg/ecco/ecco_cost_final.F 295 ECCO_COST_FINAL 
      no_diffkr  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 296 ECCO_COST_FINAL 
      no_eddytau = 0. _d 0
./pkg/ecco/ecco_cost_final.F 297 ECCO_COST_FINAL 
      no_bottomdrag = 0. _d 0
./pkg/ecco/ecco_cost_final.F 298 ECCO_COST_FINAL 
      no_transp  = 0. _d 0
./pkg/ecco/ecco_cost_final.F 302 ECCO_COST_FINAL 
        no_profiles(num_file,num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 308 ECCO_COST_FINAL 
        no_gencost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 313 ECCO_COST_FINAL 
        no_usercost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_final.F 318 ECCO_COST_FINAL 
        no_sshv4cost(num_var)= 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 114 ECCO_COST_INIT_BARFILES 
              tmpfld2d(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 124 ECCO_COST_INIT_BARFILES 
                tmpfld3d(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 137 ECCO_COST_INIT_BARFILES 
              tmpfldyz (j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 138 ECCO_COST_INIT_BARFILES 
              tmpfldyz2(j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 147 ECCO_COST_INIT_BARFILES 
              tmpfldxz (i,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_barfiles.F 148 ECCO_COST_INIT_BARFILES 
              tmpfldxz2(i,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 184 ECCO_COST_INIT_FIXED 
       wtransp(irec)   = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 185 ECCO_COST_INIT_FIXED 
       transpobs(irec) = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 208 ECCO_COST_INIT_FIXED 
     &        wtransp(irec) = 0. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 219 ECCO_COST_INIT_FIXED 
       tpTimeMask(irec)  = 1. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 220 ECCO_COST_INIT_FIXED 
       ersTimeMask(irec) = 1. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 221 ECCO_COST_INIT_FIXED 
       gfoTimeMask(irec) = 1. _d 0
./pkg/ecco/ecco_cost_init_fixed.F 61 ECCO_COST_INIT_FIXED 
      PARAMETER ( missingObsFlag = 1. _d 23 )
./pkg/ecco/ecco_cost_init_varia.F 100 ECCO_COST_INIT_VARIA 
          objf_h(bi,bj)        = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 101 ECCO_COST_INIT_VARIA 
          objf_tp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 102 ECCO_COST_INIT_VARIA 
          objf_ers(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 103 ECCO_COST_INIT_VARIA 
          objf_gfo(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 104 ECCO_COST_INIT_VARIA 
          objf_ctdt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 105 ECCO_COST_INIT_VARIA 
          objf_ctds(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 106 ECCO_COST_INIT_VARIA 
          objf_ctdtclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 107 ECCO_COST_INIT_VARIA 
          objf_ctdsclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 108 ECCO_COST_INIT_VARIA 
          objf_xbt(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 109 ECCO_COST_INIT_VARIA 
          objf_argot(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 110 ECCO_COST_INIT_VARIA 
          objf_argos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 111 ECCO_COST_INIT_VARIA 
          objf_drift(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 112 ECCO_COST_INIT_VARIA 
          objf_wdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 113 ECCO_COST_INIT_VARIA 
          objf_sdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 114 ECCO_COST_INIT_VARIA 
          objf_tdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 115 ECCO_COST_INIT_VARIA 
          objf_scatx(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 116 ECCO_COST_INIT_VARIA 
          objf_scaty(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 117 ECCO_COST_INIT_VARIA 
          objf_scatxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 118 ECCO_COST_INIT_VARIA 
          objf_scatym(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 119 ECCO_COST_INIT_VARIA 
          objf_atemp(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 120 ECCO_COST_INIT_VARIA 
          objf_aqh(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 121 ECCO_COST_INIT_VARIA 
          objf_precip(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 122 ECCO_COST_INIT_VARIA 
          objf_swflux(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 123 ECCO_COST_INIT_VARIA 
          objf_swdown(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 124 ECCO_COST_INIT_VARIA 
          objf_uwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 125 ECCO_COST_INIT_VARIA 
          objf_vwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 126 ECCO_COST_INIT_VARIA 
          objf_obcsn(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 127 ECCO_COST_INIT_VARIA 
          objf_obcss(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 128 ECCO_COST_INIT_VARIA 
          objf_obcsw(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 129 ECCO_COST_INIT_VARIA 
          objf_obcse(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 130 ECCO_COST_INIT_VARIA 
          objf_curmtr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 131 ECCO_COST_INIT_VARIA 
          objf_ageos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 132 ECCO_COST_INIT_VARIA 
          objf_diffkr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 133 ECCO_COST_INIT_VARIA 
          objf_kapgm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 134 ECCO_COST_INIT_VARIA 
          objf_kapredi(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 135 ECCO_COST_INIT_VARIA 
          objf_theta_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 136 ECCO_COST_INIT_VARIA 
          objf_salt_ini_fin(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 137 ECCO_COST_INIT_VARIA 
          objf_eddytau(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 138 ECCO_COST_INIT_VARIA 
          objf_bottomdrag(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 141 ECCO_COST_INIT_VARIA 
            objf_gencost(bi,bj,k)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 145 ECCO_COST_INIT_VARIA 
            objf_usercost(k,bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 148 ECCO_COST_INIT_VARIA 
            objf_sshv4cost(k,bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 151 ECCO_COST_INIT_VARIA 
          num_hflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 152 ECCO_COST_INIT_VARIA 
          num_hfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 153 ECCO_COST_INIT_VARIA 
          num_hfluxmm(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 154 ECCO_COST_INIT_VARIA 
          num_sflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 155 ECCO_COST_INIT_VARIA 
          num_sfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 156 ECCO_COST_INIT_VARIA 
          num_sfluxmm(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 157 ECCO_COST_INIT_VARIA 
          num_tauu(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 158 ECCO_COST_INIT_VARIA 
          num_tauum(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 159 ECCO_COST_INIT_VARIA 
          num_tauv(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 160 ECCO_COST_INIT_VARIA 
          num_tauvm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 161 ECCO_COST_INIT_VARIA 
          num_temp(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 162 ECCO_COST_INIT_VARIA 
          num_salt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 163 ECCO_COST_INIT_VARIA 
          num_temp0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 164 ECCO_COST_INIT_VARIA 
          num_salt0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 165 ECCO_COST_INIT_VARIA 
          num_tmi(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 166 ECCO_COST_INIT_VARIA 
          num_sst(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 167 ECCO_COST_INIT_VARIA 
          num_sss(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 168 ECCO_COST_INIT_VARIA 
          num_bp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 169 ECCO_COST_INIT_VARIA 
          num_h(bi,bj)        = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 170 ECCO_COST_INIT_VARIA 
          num_tp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 171 ECCO_COST_INIT_VARIA 
          num_ers(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 172 ECCO_COST_INIT_VARIA 
          num_gfo(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 173 ECCO_COST_INIT_VARIA 
          num_ctdt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 174 ECCO_COST_INIT_VARIA 
          num_ctds(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 175 ECCO_COST_INIT_VARIA 
          num_ctdtclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 176 ECCO_COST_INIT_VARIA 
          num_ctdsclim(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 177 ECCO_COST_INIT_VARIA 
          num_xbt(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 178 ECCO_COST_INIT_VARIA 
          num_argot(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 179 ECCO_COST_INIT_VARIA 
          num_argos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 180 ECCO_COST_INIT_VARIA 
          num_drift(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 181 ECCO_COST_INIT_VARIA 
          num_wdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 182 ECCO_COST_INIT_VARIA 
          num_sdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 183 ECCO_COST_INIT_VARIA 
          num_tdrift(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 184 ECCO_COST_INIT_VARIA 
          num_scatx(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 185 ECCO_COST_INIT_VARIA 
          num_scaty(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 186 ECCO_COST_INIT_VARIA 
          num_scatxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 187 ECCO_COST_INIT_VARIA 
          num_scatym(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 188 ECCO_COST_INIT_VARIA 
          num_atemp(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 189 ECCO_COST_INIT_VARIA 
          num_aqh(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 190 ECCO_COST_INIT_VARIA 
          num_precip(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 191 ECCO_COST_INIT_VARIA 
          num_swflux(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 192 ECCO_COST_INIT_VARIA 
          num_swdown(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 193 ECCO_COST_INIT_VARIA 
          num_uwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 194 ECCO_COST_INIT_VARIA 
          num_vwind(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 195 ECCO_COST_INIT_VARIA 
          num_obcsn(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 196 ECCO_COST_INIT_VARIA 
          num_obcss(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 197 ECCO_COST_INIT_VARIA 
          num_obcsw(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 198 ECCO_COST_INIT_VARIA 
          num_obcse(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 199 ECCO_COST_INIT_VARIA 
          num_curmtr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 200 ECCO_COST_INIT_VARIA 
          num_ageos(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 201 ECCO_COST_INIT_VARIA 
          num_diffkr(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 202 ECCO_COST_INIT_VARIA 
          num_kapgm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 203 ECCO_COST_INIT_VARIA 
          num_kapredi(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 204 ECCO_COST_INIT_VARIA 
          num_eddytau(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 205 ECCO_COST_INIT_VARIA 
          num_bottomdrag(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 208 ECCO_COST_INIT_VARIA 
            num_gencost(bi,bj,k)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 212 ECCO_COST_INIT_VARIA 
          num_usercost(k,bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 215 ECCO_COST_INIT_VARIA 
          num_sshv4cost(k,bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 217 ECCO_COST_INIT_VARIA 
          num_theta_ini_fin(bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 218 ECCO_COST_INIT_VARIA 
          num_salt_ini_fin(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 229 ECCO_COST_INIT_VARIA 
                  tpmeanmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 231 ECCO_COST_INIT_VARIA 
                  tpmeanmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 233 ECCO_COST_INIT_VARIA 
               tpmean(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 237 ECCO_COST_INIT_VARIA 
                  tpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 239 ECCO_COST_INIT_VARIA 
                  tpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 241 ECCO_COST_INIT_VARIA 
               tpobs(i,j,bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 245 ECCO_COST_INIT_VARIA 
                  ersmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 247 ECCO_COST_INIT_VARIA 
                  ersmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 249 ECCO_COST_INIT_VARIA 
               ersobs(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 253 ECCO_COST_INIT_VARIA 
                  gfomask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 255 ECCO_COST_INIT_VARIA 
                  gfomask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 257 ECCO_COST_INIT_VARIA 
               gfoobs(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 261 ECCO_COST_INIT_VARIA 
                  tmimask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 263 ECCO_COST_INIT_VARIA 
                  tmimask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 268 ECCO_COST_INIT_VARIA 
                  sstmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 270 ECCO_COST_INIT_VARIA 
                  sstmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 275 ECCO_COST_INIT_VARIA 
                  sssmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 277 ECCO_COST_INIT_VARIA 
                  sssmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 282 ECCO_COST_INIT_VARIA 
                  bpmask(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 284 ECCO_COST_INIT_VARIA 
                  bpmask(i,j,bi,bj) = 1. _d 0
./pkg/ecco/ecco_cost_init_varia.F 286 ECCO_COST_INIT_VARIA 
               bpdat(i,j,bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 295 ECCO_COST_INIT_VARIA 
        objf_obcsvol = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 296 ECCO_COST_INIT_VARIA 
        objf_hmean   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 297 ECCO_COST_INIT_VARIA 
        objf_hfluxmm = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 298 ECCO_COST_INIT_VARIA 
        objf_sfluxmm = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 299 ECCO_COST_INIT_VARIA 
        objf_transp  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 300 ECCO_COST_INIT_VARIA 
        num_obcsvol = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 301 ECCO_COST_INIT_VARIA 
        num_hmean   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 302 ECCO_COST_INIT_VARIA 
        num_transp  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 82 ECCO_COST_INIT_VARIA 
          objf_hflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 83 ECCO_COST_INIT_VARIA 
          objf_hfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 84 ECCO_COST_INIT_VARIA 
          objf_sflux(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 85 ECCO_COST_INIT_VARIA 
          objf_sfluxm(bi,bj)   = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 86 ECCO_COST_INIT_VARIA 
          objf_tauu(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 87 ECCO_COST_INIT_VARIA 
          objf_tauum(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 88 ECCO_COST_INIT_VARIA 
          objf_tauv(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 89 ECCO_COST_INIT_VARIA 
          objf_tauvm(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 90 ECCO_COST_INIT_VARIA 
          objf_temp(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 91 ECCO_COST_INIT_VARIA 
          objf_salt(bi,bj)     = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 92 ECCO_COST_INIT_VARIA 
          objf_temp0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 93 ECCO_COST_INIT_VARIA 
          objf_salt0(bi,bj)    = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 94 ECCO_COST_INIT_VARIA 
          objf_temp0smoo(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 95 ECCO_COST_INIT_VARIA 
          objf_salt0smoo(bi,bj)  = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 96 ECCO_COST_INIT_VARIA 
          objf_tmi(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 97 ECCO_COST_INIT_VARIA 
          objf_sst(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 98 ECCO_COST_INIT_VARIA 
          objf_sss(bi,bj)      = 0. _d 0
./pkg/ecco/ecco_cost_init_varia.F 99 ECCO_COST_INIT_VARIA 
          objf_bp(bi,bj)       = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1028 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1063 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 108 ECCO_COST_WEIGHTS 
         wti(k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1097 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 109 ECCO_COST_WEIGHTS 
         wsi(k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 110 ECCO_COST_WEIGHTS 
         wui(k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 111 ECCO_COST_WEIGHTS 
         wvi(k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1132 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1164 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 117 ECCO_COST_WEIGHTS 
              whflux  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 118 ECCO_COST_WEIGHTS 
              whfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1196 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 119 ECCO_COST_WEIGHTS 
              wsflux  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 120 ECCO_COST_WEIGHTS 
              wsfluxm (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 121 ECCO_COST_WEIGHTS 
              wtauu   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1228 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 122 ECCO_COST_WEIGHTS 
              wtauum  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 123 ECCO_COST_WEIGHTS 
              wtauv   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 124 ECCO_COST_WEIGHTS 
              wtauvm  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 125 ECCO_COST_WEIGHTS 
              watemp  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1260 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 126 ECCO_COST_WEIGHTS 
              waqh    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 127 ECCO_COST_WEIGHTS 
              wprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 128 ECCO_COST_WEIGHTS 
              wswflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1292 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 129 ECCO_COST_WEIGHTS 
              wswdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 130 ECCO_COST_WEIGHTS 
              wsnowprecip (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 131 ECCO_COST_WEIGHTS 
              wlwflux (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1324 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 132 ECCO_COST_WEIGHTS 
              wlwdown (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 133 ECCO_COST_WEIGHTS 
              wevap   (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 134 ECCO_COST_WEIGHTS 
              wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1357 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 135 ECCO_COST_WEIGHTS 
              wrunoff (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 136 ECCO_COST_WEIGHTS 
              wuwind  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 137 ECCO_COST_WEIGHTS 
              wvwind  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1389 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 138 ECCO_COST_WEIGHTS 
              wsst    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 139 ECCO_COST_WEIGHTS 
              wsss    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 140 ECCO_COST_WEIGHTS 
              wtp     (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 141 ECCO_COST_WEIGHTS 
              wers    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1422 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 142 ECCO_COST_WEIGHTS 
              wgfo    (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1446 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 144 ECCO_COST_WEIGHTS 
                wsshv4  (i,j,num_var,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1469 ECCO_COST_WEIGHTS 
                wdiffkr2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 146 ECCO_COST_WEIGHTS 
              wp      (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 147 ECCO_COST_WEIGHTS 
              wudrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 148 ECCO_COST_WEIGHTS 
              wvdrift (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1493 ECCO_COST_WEIGHTS 
                wkapgm2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 150 ECCO_COST_WEIGHTS 
              whflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1517 ECCO_COST_WEIGHTS 
                wkapredi2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 151 ECCO_COST_WEIGHTS 
              wsflux2 (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 152 ECCO_COST_WEIGHTS 
              wtauu2  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 153 ECCO_COST_WEIGHTS 
              wtauv2  (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1541 ECCO_COST_WEIGHTS 
                wedtaux2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1566 ECCO_COST_WEIGHTS 
                gencost_weight(i,j,bi,bj,k) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1598 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1604 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1610 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1615 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1621 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1627 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1633 ECCO_COST_WEIGHTS 
                whflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1639 ECCO_COST_WEIGHTS 
                whfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 163 ECCO_COST_WEIGHTS 
            wtheta (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1645 ECCO_COST_WEIGHTS 
                wsflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 164 ECCO_COST_WEIGHTS 
            wsalt  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1651 ECCO_COST_WEIGHTS 
                wsfluxm(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1657 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 165 ECCO_COST_WEIGHTS 
            wctdt  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1663 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1669 ECCO_COST_WEIGHTS 
                watemp(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 166 ECCO_COST_WEIGHTS 
            wctds  (k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1675 ECCO_COST_WEIGHTS 
                waqh(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1681 ECCO_COST_WEIGHTS 
                wprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1687 ECCO_COST_WEIGHTS 
                wswflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1693 ECCO_COST_WEIGHTS 
                wswdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1699 ECCO_COST_WEIGHTS 
                wlwflux(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1705 ECCO_COST_WEIGHTS 
                wlwdown(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1711 ECCO_COST_WEIGHTS 
                wevap(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1717 ECCO_COST_WEIGHTS 
                wsnowprecip(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1723 ECCO_COST_WEIGHTS 
                wapressure(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1729 ECCO_COST_WEIGHTS 
                wrunoff(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1735 ECCO_COST_WEIGHTS 
                wbottomdrag(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1747 ECCO_COST_WEIGHTS 
                 whflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 174 ECCO_COST_WEIGHTS 
                wtheta2 (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1753 ECCO_COST_WEIGHTS 
                 wsflux2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1759 ECCO_COST_WEIGHTS 
                 wtauu2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 175 ECCO_COST_WEIGHTS 
                wsalt2  (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1765 ECCO_COST_WEIGHTS 
                 wtauv2(i,j,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1775 ECCO_COST_WEIGHTS 
                 gencost_weight(i,j,bi,bj,k) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1790 ECCO_COST_WEIGHTS 
                 wobcsn(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1798 ECCO_COST_WEIGHTS 
                 wobcss(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1806 ECCO_COST_WEIGHTS 
                 wobcsw(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1814 ECCO_COST_WEIGHTS 
                 wobcse(k,iobcs) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 181 ECCO_COST_WEIGHTS 
                wthetaLev (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 182 ECCO_COST_WEIGHTS 
                wsaltLev  (i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 1830 ECCO_COST_WEIGHTS 
              wdiffkr(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1835 ECCO_COST_WEIGHTS 
              wkapgm(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1840 ECCO_COST_WEIGHTS 
              wkapredi(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1845 ECCO_COST_WEIGHTS 
              wedtaux(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1850 ECCO_COST_WEIGHTS 
              wedtauy(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1858 ECCO_COST_WEIGHTS 
                   wdiffkr2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1866 ECCO_COST_WEIGHTS 
                   wkapgm2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1874 ECCO_COST_WEIGHTS 
                   wkapredi2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1882 ECCO_COST_WEIGHTS 
                   wedtaux2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 1890 ECCO_COST_WEIGHTS 
                   wedtauy2(i,j,k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 200 ECCO_COST_WEIGHTS 
          wobcsn(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 204 ECCO_COST_WEIGHTS 
          wobcss(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 208 ECCO_COST_WEIGHTS 
          wobcsw(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 212 ECCO_COST_WEIGHTS 
          wobcse(k,iobcs) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 229 ECCO_COST_WEIGHTS 
            frame(i,j) = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 236 ECCO_COST_WEIGHTS 
        factor = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 238 ECCO_COST_WEIGHTS 
        factor = 1. _d 0
./pkg/ecco/ecco_cost_weights.F 301 ECCO_COST_WEIGHTS 
              wtheta(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 306 ECCO_COST_WEIGHTS 
              wsalt(k,bi,bj) = 0.0 _d 0
./pkg/ecco/ecco_cost_weights.F 351 ECCO_COST_WEIGHTS 
                 wsaltLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 392 ECCO_COST_WEIGHTS 
                 wthetaLev(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 439 ECCO_COST_WEIGHTS 
                 wsalt2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 486 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 503 ECCO_COST_WEIGHTS 
                 wtheta2(i,j,k,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 639 ECCO_COST_WEIGHTS 
                  wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 640 ECCO_COST_WEIGHTS 
                  wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 641 ECCO_COST_WEIGHTS 
                  wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 677 ECCO_COST_WEIGHTS 
     &               wtp (i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 679 ECCO_COST_WEIGHTS 
     &             wers(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 681 ECCO_COST_WEIGHTS 
     &             wgfo(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 752 ECCO_COST_WEIGHTS 
              wsshv4tmp(i,j,bi,bj)=0. _d 0
./pkg/ecco/ecco_cost_weights.F 817 ECCO_COST_WEIGHTS 
                wscatx(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 824 ECCO_COST_WEIGHTS 
                wscaty(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 853 ECCO_COST_WEIGHTS 
                wtauum(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 859 ECCO_COST_WEIGHTS 
                wtauvm(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 887 ECCO_COST_WEIGHTS 
                wtauu(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 926 ECCO_COST_WEIGHTS 
                wuwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 957 ECCO_COST_WEIGHTS 
                wtauv(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_cost_weights.F 996 ECCO_COST_WEIGHTS 
                wvwind(i,j,bi,bj) = 0. _d 0
./pkg/ecco/ecco_readparms.F 165 ECCO_READPARMS 
        topexperiod           =      0. _d 0
./pkg/ecco/ecco_readparms.F 166 ECCO_READPARMS 
        topexintercept        =      0. _d 0
./pkg/ecco/ecco_readparms.F 167 ECCO_READPARMS 
        topexslope            =      0. _d 0
./pkg/ecco/ecco_readparms.F 173 ECCO_READPARMS 
        ersperiod             =      0. _d 0
./pkg/ecco/ecco_readparms.F 174 ECCO_READPARMS 
        ersintercept          =      0. _d 0
./pkg/ecco/ecco_readparms.F 175 ECCO_READPARMS 
        ersslope              =      0. _d 0
./pkg/ecco/ecco_readparms.F 180 ECCO_READPARMS 
        gfoperiod             =      0. _d 0
./pkg/ecco/ecco_readparms.F 181 ECCO_READPARMS 
        gfointercept          =      0. _d 0
./pkg/ecco/ecco_readparms.F 182 ECCO_READPARMS 
        gfoslope              =      0. _d 0
./pkg/ecco/ecco_readparms.F 186 ECCO_READPARMS 
        scatperiod            =      0. _d 0
./pkg/ecco/ecco_readparms.F 265 ECCO_READPARMS 
         sshv4cost_errfactor(k) =     1. _d 0
./pkg/ecco/ecco_readparms.F 271 ECCO_READPARMS 
        mult_hflux            =      0. _d 0
./pkg/ecco/ecco_readparms.F 272 ECCO_READPARMS 
        mult_sflux            =      0. _d 0
./pkg/ecco/ecco_readparms.F 273 ECCO_READPARMS 
        mult_hfluxmm          =      0. _d 0
./pkg/ecco/ecco_readparms.F 274 ECCO_READPARMS 
        mult_sfluxmm          =      0. _d 0
./pkg/ecco/ecco_readparms.F 275 ECCO_READPARMS 
        mult_tauu             =      0. _d 0
./pkg/ecco/ecco_readparms.F 276 ECCO_READPARMS 
        mult_tauv             =      0. _d 0
./pkg/ecco/ecco_readparms.F 277 ECCO_READPARMS 
        mult_atemp            =      0. _d 0
./pkg/ecco/ecco_readparms.F 278 ECCO_READPARMS 
        mult_aqh              =      0. _d 0
./pkg/ecco/ecco_readparms.F 279 ECCO_READPARMS 
        mult_precip           =      0. _d 0
./pkg/ecco/ecco_readparms.F 280 ECCO_READPARMS 
        mult_swflux           =      0. _d 0
./pkg/ecco/ecco_readparms.F 281 ECCO_READPARMS 
        mult_swdown           =      0. _d 0
./pkg/ecco/ecco_readparms.F 282 ECCO_READPARMS 
        mult_lwflux           =      0. _d 0
./pkg/ecco/ecco_readparms.F 283 ECCO_READPARMS 
        mult_lwdown           =      0. _d 0
./pkg/ecco/ecco_readparms.F 284 ECCO_READPARMS 
        mult_evap             =      0. _d 0
./pkg/ecco/ecco_readparms.F 285 ECCO_READPARMS 
        mult_snowprecip       =      0. _d 0
./pkg/ecco/ecco_readparms.F 286 ECCO_READPARMS 
        mult_apressure        =      0. _d 0
./pkg/ecco/ecco_readparms.F 287 ECCO_READPARMS 
        mult_uwind            =      0. _d 0
./pkg/ecco/ecco_readparms.F 288 ECCO_READPARMS 
        mult_vwind            =      0. _d 0
./pkg/ecco/ecco_readparms.F 289 ECCO_READPARMS 
        mult_hmean            =      0. _d 0
./pkg/ecco/ecco_readparms.F 290 ECCO_READPARMS 
        mult_h                =      1. _d 0
./pkg/ecco/ecco_readparms.F 291 ECCO_READPARMS 
        mult_tp               =      0. _d 0
./pkg/ecco/ecco_readparms.F 292 ECCO_READPARMS 
        mult_ers              =      0. _d 0
./pkg/ecco/ecco_readparms.F 293 ECCO_READPARMS 
        mult_gfo              =      0. _d 0
./pkg/ecco/ecco_readparms.F 294 ECCO_READPARMS 
        mult_temp             =      0. _d 0
./pkg/ecco/ecco_readparms.F 295 ECCO_READPARMS 
        mult_salt             =      0. _d 0
./pkg/ecco/ecco_readparms.F 296 ECCO_READPARMS 
        mult_temp0            =      0. _d 0
./pkg/ecco/ecco_readparms.F 297 ECCO_READPARMS 
        mult_salt0            =      0. _d 0
./pkg/ecco/ecco_readparms.F 298 ECCO_READPARMS 
        mult_tmi              =      0. _d 0
./pkg/ecco/ecco_readparms.F 299 ECCO_READPARMS 
        mult_sst              =      0. _d 0
./pkg/ecco/ecco_readparms.F 300 ECCO_READPARMS 
        mult_sss              =      0. _d 0
./pkg/ecco/ecco_readparms.F 301 ECCO_READPARMS 
        mult_bp               =      0. _d 0
./pkg/ecco/ecco_readparms.F 302 ECCO_READPARMS 
        mult_ctdt             =      0. _d 0
./pkg/ecco/ecco_readparms.F 303 ECCO_READPARMS 
        mult_ctds             =      0. _d 0
./pkg/ecco/ecco_readparms.F 304 ECCO_READPARMS 
        mult_ctdtclim         =      0. _d 0
./pkg/ecco/ecco_readparms.F 305 ECCO_READPARMS 
        mult_ctdsclim         =      0. _d 0
./pkg/ecco/ecco_readparms.F 306 ECCO_READPARMS 
        mult_xbt              =      0. _d 0
./pkg/ecco/ecco_readparms.F 307 ECCO_READPARMS 
        mult_argot            =      0. _d 0
./pkg/ecco/ecco_readparms.F 308 ECCO_READPARMS 
        mult_argos            =      0. _d 0
./pkg/ecco/ecco_readparms.F 309 ECCO_READPARMS 
        mult_drift            =      0. _d 0
./pkg/ecco/ecco_readparms.F 310 ECCO_READPARMS 
        mult_tdrift           =      0. _d 0
./pkg/ecco/ecco_readparms.F 311 ECCO_READPARMS 
        mult_sdrift           =      0. _d 0
./pkg/ecco/ecco_readparms.F 312 ECCO_READPARMS 
        mult_wdrift           =      0. _d 0
./pkg/ecco/ecco_readparms.F 313 ECCO_READPARMS 
        mult_scatx            =      0. _d 0
./pkg/ecco/ecco_readparms.F 314 ECCO_READPARMS 
        mult_scaty            =      0. _d 0
./pkg/ecco/ecco_readparms.F 315 ECCO_READPARMS 
        mult_obcsn            =      0. _d 0
./pkg/ecco/ecco_readparms.F 316 ECCO_READPARMS 
        mult_obcss            =      0. _d 0
./pkg/ecco/ecco_readparms.F 317 ECCO_READPARMS 
        mult_obcsw            =      0. _d 0
./pkg/ecco/ecco_readparms.F 318 ECCO_READPARMS 
        mult_obcse            =      0. _d 0
./pkg/ecco/ecco_readparms.F 319 ECCO_READPARMS 
        mult_obcsvol          =      0. _d 0
./pkg/ecco/ecco_readparms.F 320 ECCO_READPARMS 
        mult_ageos            =      0. _d 0
./pkg/ecco/ecco_readparms.F 321 ECCO_READPARMS 
        mult_curmtr           =      0. _d 0
./pkg/ecco/ecco_readparms.F 322 ECCO_READPARMS 
        mult_kapgm            =      0. _d 0
./pkg/ecco/ecco_readparms.F 323 ECCO_READPARMS 
        mult_kapredi            =      0. _d 0
./pkg/ecco/ecco_readparms.F 324 ECCO_READPARMS 
        mult_diffkr           =      0. _d 0
./pkg/ecco/ecco_readparms.F 325 ECCO_READPARMS 
        mult_edtau            =      0. _d 0
./pkg/ecco/ecco_readparms.F 326 ECCO_READPARMS 
        mult_bottomdrag       =      0. _d 0
./pkg/ecco/ecco_readparms.F 328 ECCO_READPARMS 
        mult_usercost(k)       =      0. _d 0
./pkg/ecco/ecco_readparms.F 331 ECCO_READPARMS 
        mult_sshv4cost(k)       =      0. _d 0
./pkg/ecco/ecco_readparms.F 333 ECCO_READPARMS 
        mult_smooth_ic        =      0. _d 0
./pkg/ecco/ecco_readparms.F 334 ECCO_READPARMS 
        mult_smooth_bc        =      0. _d 0
./pkg/ecco/ecco_readparms.F 335 ECCO_READPARMS 
        mult_transp           =      0. _d 0
./pkg/ecco/ecco_readparms.F 336 ECCO_READPARMS 
        watemp0               =      0. _d 0
./pkg/ecco/ecco_readparms.F 337 ECCO_READPARMS 
        waqh0                 =      0. _d 0
./pkg/ecco/ecco_readparms.F 338 ECCO_READPARMS 
        wprecip0              =      0. _d 0
./pkg/ecco/ecco_readparms.F 339 ECCO_READPARMS 
        wswflux0              =      0. _d 0
./pkg/ecco/ecco_readparms.F 340 ECCO_READPARMS 
        wswdown0              =      0. _d 0
./pkg/ecco/ecco_readparms.F 341 ECCO_READPARMS 
        wlwflux0              =      0. _d 0
./pkg/ecco/ecco_readparms.F 342 ECCO_READPARMS 
        wlwdown0              =      0. _d 0
./pkg/ecco/ecco_readparms.F 343 ECCO_READPARMS 
        wevap0                =      0. _d 0
./pkg/ecco/ecco_readparms.F 344 ECCO_READPARMS 
        wsnowprecip0          =      0. _d 0
./pkg/ecco/ecco_readparms.F 345 ECCO_READPARMS 
        wapressure0           =      0. _d 0
./pkg/ecco/ecco_readparms.F 346 ECCO_READPARMS 
        wwind0                =      0. _d 0
./pkg/ecco/ecco_readparms.F 347 ECCO_READPARMS 
        wdiffkr0              =      1. _d 0
./pkg/ecco/ecco_readparms.F 348 ECCO_READPARMS 
        wkapgm0               =      1. _d 0
./pkg/ecco/ecco_readparms.F 349 ECCO_READPARMS 
        wkapredi0               =      1. _d 0
./pkg/ecco/ecco_readparms.F 350 ECCO_READPARMS 
        wedtau0               =      1. _d 0
./pkg/ecco/ecco_readparms.F 351 ECCO_READPARMS 
        whflux0               =      0. _d 0
./pkg/ecco/ecco_readparms.F 352 ECCO_READPARMS 
        wsflux0               =      0. _d 0
./pkg/ecco/ecco_readparms.F 353 ECCO_READPARMS 
        wtau0                 =      0. _d 0
./pkg/ecco/ecco_readparms.F 354 ECCO_READPARMS 
        wbottomdrag0          =      1. _d 0
./pkg/ecco/ecco_readparms.F 355 ECCO_READPARMS 
        wmean_atemp           =      0. _d 0
./pkg/ecco/ecco_readparms.F 356 ECCO_READPARMS 
        wmean_aqh             =      0. _d 0
./pkg/ecco/ecco_readparms.F 357 ECCO_READPARMS 
        wmean_precip          =      0. _d 0
./pkg/ecco/ecco_readparms.F 358 ECCO_READPARMS 
        wmean_swflux          =      0. _d 0
./pkg/ecco/ecco_readparms.F 359 ECCO_READPARMS 
        wmean_swdown          =      0. _d 0
./pkg/ecco/ecco_readparms.F 360 ECCO_READPARMS 
        wmean_lwflux          =      0. _d 0
./pkg/ecco/ecco_readparms.F 361 ECCO_READPARMS 
        wmean_lwdown          =      0. _d 0
./pkg/ecco/ecco_readparms.F 362 ECCO_READPARMS 
        wmean_evap            =      0. _d 0
./pkg/ecco/ecco_readparms.F 363 ECCO_READPARMS 
        wmean_snowprecip      =      0. _d 0
./pkg/ecco/ecco_readparms.F 364 ECCO_READPARMS 
        wmean_apressure       =      0. _d 0
./pkg/ecco/ecco_readparms.F 365 ECCO_READPARMS 
        wmean_wind            =      0. _d 0
./pkg/ecco/ecco_readparms.F 366 ECCO_READPARMS 
        wmean_hflux           =      0. _d 0
./pkg/ecco/ecco_readparms.F 367 ECCO_READPARMS 
        wmean_sflux           =      0. _d 0
./pkg/ecco/ecco_readparms.F 368 ECCO_READPARMS 
        wmean_tau             =      0. _d 0
./pkg/ecco/ecco_readparms.F 458 ECCO_READPARMS 
         gencost_spmin         = 0. _d 0
./pkg/ecco/ecco_readparms.F 459 ECCO_READPARMS 
         gencost_spmax         = 0. _d 0
./pkg/ecco/ecco_readparms.F 460 ECCO_READPARMS 
         gencost_spzero        = 9876. _d 0
./pkg/ecco/ecco_readparms.F 461 ECCO_READPARMS 
         mult_gencost(k)      = 0. _d 0
./pkg/ecco/ecco_readparms.F 487 ECCO_READPARMS 
           if ( gencost_spmin(k) .EQ. 0. _d 0 .AND.
./pkg/ecco/ecco_readparms.F 488 ECCO_READPARMS 
     &        gencost_spmax(k) .EQ. 0. _d 0 ) then
./pkg/ecco/ecco_readparms.F 493 ECCO_READPARMS 
           if ( gencost_spzero(k) .EQ. 9876. _d 0 ) then
./pkg/exch2/w2_eeboot.F 215 W2_EEBOOT 
      e2FillValue_RL = 0. _d 0
./pkg/exch2/w2_eeboot.F 216 W2_EEBOOT 
      e2FillValue_RS = 0. _d 0
./pkg/exf/EXF_CONSTANTS.h 33 NO PROCEDURE 
     &              exf_half =  0.5 _d 0 ,
./pkg/exf/EXF_CONSTANTS.h 34 NO PROCEDURE 
     &              exf_one  =  1.0 _d 0 ,
./pkg/exf/EXF_CONSTANTS.h 35 NO PROCEDURE 
     &              exf_two  =  2.0 _d 0
./pkg/exf/EXF_CONSTANTS.h 48 NO PROCEDURE 
      PARAMETER ( stefanBoltzmann = 5.670 _d -8 )
./pkg/exf/EXF_CONSTANTS.h 49 NO PROCEDURE 
      PARAMETER ( karman = 0.4 _d 0 )
./pkg/exf/EXF_CONSTANTS.h 75 NO PROCEDURE 
     &            ustofu11    =         0.381800 _d 0 ,
./pkg/exf/EXF_CONSTANTS.h 76 NO PROCEDURE 
     &            u11         =        11.       _d 0 ,
./pkg/exf/EXF_CONSTANTS.h 77 NO PROCEDURE 
     &            clindrag_1  =         0.000065 _d 0 ,
./pkg/exf/EXF_CONSTANTS.h 78 NO PROCEDURE 
     &            clindrag_2  =         0.000490 _d 0 ,
./pkg/exf/exf_bulkformulae.F 237 EXF_BULKFORMULAE 
      recip_rhoConstFresh = 1. _d 0/rhoConstFresh
./pkg/exf/exf_bulkformulae.F 275 EXF_BULKFORMULAE 
          deltap(i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 276 EXF_BULKFORMULAE 
          delq(i,j)   = 0. _d 0
./pkg/exf/exf_bulkformulae.F 280 EXF_BULKFORMULAE 
          IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 283 EXF_BULKFORMULAE 
           IF ( sstExtrapol.GT.0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 287 EXF_BULKFORMULAE 
            Tsf = Tsf + MAX( SSTtmp, 0. _d 0 )
./pkg/exf/exf_bulkformulae.F 295 EXF_BULKFORMULAE 
           IF ( noNegativeEvap ) delq(i,j) = MIN( 0. _d 0, delq(i,j) )
./pkg/exf/exf_bulkformulae.F 315 EXF_BULKFORMULAE 
            rdn(i,j)   = 0. _d 0
./pkg/exf/exf_bulkformulae.F 332 EXF_BULKFORMULAE 
           tstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 333 EXF_BULKFORMULAE 
           qstar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 334 EXF_BULKFORMULAE 
           ustar (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 335 EXF_BULKFORMULAE 
           tau   (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 336 EXF_BULKFORMULAE 
           rdn   (i,j) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 343 EXF_BULKFORMULAE 
           IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 368 EXF_BULKFORMULAE 
            tmpbulk = MIN(abs(huol),10. _d 0)
./pkg/exf/exf_bulkformulae.F 384 EXF_BULKFORMULAE 
             xsq    = SQRT( ABS(exf_one - huol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 393 EXF_BULKFORMULAE 
     &                       (exf_one+xsq)*.125 _d 0 )
./pkg/exf/exf_bulkformulae.F 397 EXF_BULKFORMULAE 
             psimh  = 0. _d 0
./pkg/exf/exf_bulkformulae.F 402 EXF_BULKFORMULAE 
            xsq   = SQRT( ABS(exf_one - htol*16. _d 0) )
./pkg/exf/exf_bulkformulae.F 463 EXF_BULKFORMULAE 
          IF ( atemp(i,j,bi,bj) .NE. 0. _d 0 ) THEN
./pkg/exf/exf_bulkformulae.F 502 EXF_BULKFORMULAE 
           ustress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 503 EXF_BULKFORMULAE 
           vstress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 505 EXF_BULKFORMULAE 
           hflux  (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 506 EXF_BULKFORMULAE 
           evap   (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 507 EXF_BULKFORMULAE 
           hs     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_bulkformulae.F 508 EXF_BULKFORMULAE 
           hl     (i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 100 EXF_FILTER_RL 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 80 EXF_FILTER_RL 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rl.F 90 EXF_FILTER_RL 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 100 EXF_FILTER_RS 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 80 EXF_FILTER_RS 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_filter_rs.F 90 EXF_FILTER_RS 
                  arr(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffieldrec.F 108 EXF_GETFFIELDREC 
       if ( repeatPeriod .eq. 0. _d 0 ) then
./pkg/exf/exf_getffieldrec.F 110 EXF_GETFFIELDREC 
        if ( fldsectot .lt. 0. _d 0 ) then
./pkg/exf/exf_getffieldrec.F 122 EXF_GETFFIELDREC 
        if(fldsectot.lt.0. _d 0) fldsectot = fldsectot + repeatPeriod
./pkg/exf/exf_getffieldrec.F 179 EXF_GETFFIELDREC 
      if ( fldsecs - modelstep .lt. 0. _d 0 ) changed = .true.
./pkg/exf/exf_getffieldrec.F 86 EXF_GETFFIELDREC 
      if ( fldperiod .eq. 0. _d 0 ) then
./pkg/exf/exf_getffieldrec.F 92 EXF_GETFFIELDREC 
       fac     = 1. _d 0
./pkg/exf/exf_getffields.F 141 EXF_GETFFIELDS 
           uwind(i,j,bi,bj) = uwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F 143 EXF_GETFFIELDS 
           vwind(i,j,bi,bj) = vwind(i,j,bi,bj) - 0.5 _d 0 *
./pkg/exf/exf_getffields.F 473 EXF_GETFFIELDS 
             tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 474 EXF_GETFFIELDS 
             tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 475 EXF_GETFFIELDS 
             tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getffields.F 476 EXF_GETFFIELDS 
             tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 110 EXF_GETSURFACEFLUXES 
             tmpUE(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 111 EXF_GETSURFACEFLUXES 
             tmpVN(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 112 EXF_GETSURFACEFLUXES 
             tmpUX(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_getsurfacefluxes.F 113 EXF_GETSURFACEFLUXES 
             tmpVY(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_interp.F 27 NO PROCEDURE 
        numer = 1. _d 0
./pkg/exf/exf_interp.F 28 NO PROCEDURE 
        denom = 1. _d 0
./pkg/exf/exf_radiation.F 65 EXF_RADIATION 
         IF ( sstExtrapol.GT.0. _d 0 ) THEN
./pkg/exf/exf_radiation.F 72 EXF_RADIATION 
            Tsf = Tsf + MAX( SSTtmp, 0. _d 0 )
./pkg/exf/exf_readparms.F 247 EXF_READPARMS 
      cen2kel        =      273.150  _d 0
./pkg/exf/exf_readparms.F 248 EXF_READPARMS 
      gravity_mks    =        9.81   _d 0
./pkg/exf/exf_readparms.F 249 EXF_READPARMS 
      atmrho         =        1.200  _d 0
./pkg/exf/exf_readparms.F 250 EXF_READPARMS 
      atmcp          =     1005.000  _d 0
./pkg/exf/exf_readparms.F 251 EXF_READPARMS 
      flamb          =  2500000.000  _d 0
./pkg/exf/exf_readparms.F 252 EXF_READPARMS 
      flami          =   334000.000  _d 0
./pkg/exf/exf_readparms.F 253 EXF_READPARMS 
      cvapor_fac     =   640380.000  _d 0
./pkg/exf/exf_readparms.F 254 EXF_READPARMS 
      cvapor_exp     =     5107.400  _d 0
./pkg/exf/exf_readparms.F 255 EXF_READPARMS 
      cvapor_fac_ice = 11637800.000  _d 0
./pkg/exf/exf_readparms.F 256 EXF_READPARMS 
      cvapor_exp_ice =     5897.800  _d 0
./pkg/exf/exf_readparms.F 257 EXF_READPARMS 
      humid_fac      =        0.606  _d 0
./pkg/exf/exf_readparms.F 258 EXF_READPARMS 
      gamma_blk      =        0.010  _d 0
./pkg/exf/exf_readparms.F 259 EXF_READPARMS 
      saltsat        =        0.980  _d 0
./pkg/exf/exf_readparms.F 260 EXF_READPARMS 
      sstExtrapol    =        0.0    _d 0
./pkg/exf/exf_readparms.F 261 EXF_READPARMS 
      cdrag_1        =        0.0027000 _d 0
./pkg/exf/exf_readparms.F 262 EXF_READPARMS 
      cdrag_2        =        0.0001420 _d 0
./pkg/exf/exf_readparms.F 263 EXF_READPARMS 
      cdrag_3        =        0.0000764 _d 0
./pkg/exf/exf_readparms.F 264 EXF_READPARMS 
      cstanton_1     =        0.0327 _d 0
./pkg/exf/exf_readparms.F 265 EXF_READPARMS 
      cstanton_2     =        0.0180 _d 0
./pkg/exf/exf_readparms.F 266 EXF_READPARMS 
      cdalton        =        0.0346 _d 0
./pkg/exf/exf_readparms.F 267 EXF_READPARMS 
      zolmin         =     -100.000  _d 0
./pkg/exf/exf_readparms.F 268 EXF_READPARMS 
      psim_fac       =        5.000  _d 0
./pkg/exf/exf_readparms.F 269 EXF_READPARMS 
      zref           =       10.000  _d 0
./pkg/exf/exf_readparms.F 270 EXF_READPARMS 
      hu             =       10.000  _d 0
./pkg/exf/exf_readparms.F 271 EXF_READPARMS 
      ht             =        2.000  _d 0
./pkg/exf/exf_readparms.F 272 EXF_READPARMS 
      umin           =        0.5    _d 0
./pkg/exf/exf_readparms.F 274 EXF_READPARMS 
      exf_iceCd        = 1.63 _d -3
./pkg/exf/exf_readparms.F 275 EXF_READPARMS 
      exf_iceCe        = 1.63 _d -3
./pkg/exf/exf_readparms.F 276 EXF_READPARMS 
      exf_iceCh        = 1.63 _d -3
./pkg/exf/exf_readparms.F 277 EXF_READPARMS 
      exf_albedo       = 0.1 _d 0
./pkg/exf/exf_readparms.F 280 EXF_READPARMS 
      ocean_emissivity = 5.50 _d-8 / 5.670 _d-8
./pkg/exf/exf_readparms.F 281 EXF_READPARMS 
      ice_emissivity   = 0.95 _d 0
./pkg/exf/exf_readparms.F 282 EXF_READPARMS 
      snow_emissivity  = 0.95 _d 0
./pkg/exf/exf_readparms.F 287 EXF_READPARMS 
      hfluxperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 288 EXF_READPARMS 
      hfluxconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 289 EXF_READPARMS 
      hflux_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 290 EXF_READPARMS 
      hflux_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 294 EXF_READPARMS 
      atempperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 296 EXF_READPARMS 
      atemp_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 297 EXF_READPARMS 
      atemp_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 301 EXF_READPARMS 
      aqhperiod          = 0.0 _d 0
./pkg/exf/exf_readparms.F 302 EXF_READPARMS 
      aqhconst           = 0.0 _d 0
./pkg/exf/exf_readparms.F 303 EXF_READPARMS 
      aqh_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 304 EXF_READPARMS 
      aqh_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 308 EXF_READPARMS 
      sfluxperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 309 EXF_READPARMS 
      sfluxconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 310 EXF_READPARMS 
      sflux_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 311 EXF_READPARMS 
      sflux_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 315 EXF_READPARMS 
      evapperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 316 EXF_READPARMS 
      evapconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 317 EXF_READPARMS 
      evap_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 318 EXF_READPARMS 
      evap_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 322 EXF_READPARMS 
      precipperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 323 EXF_READPARMS 
      precipconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 324 EXF_READPARMS 
      precip_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 325 EXF_READPARMS 
      precip_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 329 EXF_READPARMS 
      snowprecipperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 330 EXF_READPARMS 
      snowprecipconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 331 EXF_READPARMS 
      snowprecip_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 332 EXF_READPARMS 
      snowprecip_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 336 EXF_READPARMS 
      runoffperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 337 EXF_READPARMS 
      runoffconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 338 EXF_READPARMS 
      runoff_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 339 EXF_READPARMS 
      runoff_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 343 EXF_READPARMS 
      ustressperiod      = 0.0 _d 0
./pkg/exf/exf_readparms.F 344 EXF_READPARMS 
      ustressconst       = 0.0 _d 0
./pkg/exf/exf_readparms.F 345 EXF_READPARMS 
      ustress_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 346 EXF_READPARMS 
      ustress_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 350 EXF_READPARMS 
      vstressperiod      = 0.0 _d 0
./pkg/exf/exf_readparms.F 351 EXF_READPARMS 
      vstressconst       = 0.0 _d 0
./pkg/exf/exf_readparms.F 352 EXF_READPARMS 
      vstress_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 353 EXF_READPARMS 
      vstress_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 357 EXF_READPARMS 
      uwindperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 358 EXF_READPARMS 
      uwindconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 359 EXF_READPARMS 
      uwind_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 360 EXF_READPARMS 
      uwind_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 364 EXF_READPARMS 
      vwindperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 365 EXF_READPARMS 
      vwindconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 366 EXF_READPARMS 
      vwind_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 367 EXF_READPARMS 
      vwind_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 371 EXF_READPARMS 
      wspeedperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 372 EXF_READPARMS 
      wspeedconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 373 EXF_READPARMS 
      wspeed_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 374 EXF_READPARMS 
      wspeed_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 378 EXF_READPARMS 
      swfluxperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 379 EXF_READPARMS 
      swfluxconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 380 EXF_READPARMS 
      swflux_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 381 EXF_READPARMS 
      swflux_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 385 EXF_READPARMS 
      lwfluxperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 386 EXF_READPARMS 
      lwfluxconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 387 EXF_READPARMS 
      lwflux_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 388 EXF_READPARMS 
      lwflux_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 392 EXF_READPARMS 
      swdownperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 393 EXF_READPARMS 
      swdownconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 394 EXF_READPARMS 
      swdown_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 395 EXF_READPARMS 
      swdown_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 399 EXF_READPARMS 
      lwdownperiod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 400 EXF_READPARMS 
      lwdownconst        = 0.0 _d 0
./pkg/exf/exf_readparms.F 401 EXF_READPARMS 
      lwdown_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 402 EXF_READPARMS 
      lwdown_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 406 EXF_READPARMS 
      apressureperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 407 EXF_READPARMS 
      apressureconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 408 EXF_READPARMS 
      apressure_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 409 EXF_READPARMS 
      apressure_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 413 EXF_READPARMS 
      areamaskperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 414 EXF_READPARMS 
      areamaskTauRelax      = 0.0 _d 0
./pkg/exf/exf_readparms.F 415 EXF_READPARMS 
      areamaskconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 416 EXF_READPARMS 
      areamask_exfremo_intercept = 0. _d 0
./pkg/exf/exf_readparms.F 417 EXF_READPARMS 
      areamask_exfremo_slope = 0. _d 0
./pkg/exf/exf_readparms.F 422 EXF_READPARMS 
      climsstTauRelax    = 0.0 _d 0
./pkg/exf/exf_readparms.F 423 EXF_READPARMS 
      climsstconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 424 EXF_READPARMS 
      climsst_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 425 EXF_READPARMS 
      climsst_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 430 EXF_READPARMS 
      climsssTauRelax    = 0.0 _d 0
./pkg/exf/exf_readparms.F 431 EXF_READPARMS 
      climsssconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 432 EXF_READPARMS 
      climsss_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 433 EXF_READPARMS 
      climsss_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 438 EXF_READPARMS 
      climustrTauRelax    = 0.0 _d 0
./pkg/exf/exf_readparms.F 439 EXF_READPARMS 
      climustrconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 440 EXF_READPARMS 
      climustr_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 441 EXF_READPARMS 
      climustr_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 446 EXF_READPARMS 
      climvstrTauRelax    = 0.0 _d 0
./pkg/exf/exf_readparms.F 447 EXF_READPARMS 
      climvstrconst         = 0.0 _d 0
./pkg/exf/exf_readparms.F 448 EXF_READPARMS 
      climvstr_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 449 EXF_READPARMS 
      climvstr_exfremo_slope = 0.0 _d 0
./pkg/exf/exf_readparms.F 454 EXF_READPARMS 
      sgrunoffperiod             = 0.0 _d 0
./pkg/exf/exf_readparms.F 455 EXF_READPARMS 
      sgrunoffconst              = 0.0 _d 0
./pkg/exf/exf_readparms.F 456 EXF_READPARMS 
      sgrunoff_exfremo_intercept = 0.0 _d 0
./pkg/exf/exf_readparms.F 457 EXF_READPARMS 
      sgrunoff_exfremo_slope     = 0.0 _d 0
./pkg/exf/exf_readparms.F 458 EXF_READPARMS 
      exf_inscal_sgrunoff        = 1. _d 0
./pkg/exf/exf_readparms.F 462 EXF_READPARMS 
      obcsNperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 465 EXF_READPARMS 
      obcsSperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 468 EXF_READPARMS 
      obcsEperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 471 EXF_READPARMS 
      obcsWperiod        = 0.0 _d 0
./pkg/exf/exf_readparms.F 486 EXF_READPARMS 
      repeatPeriod       = 0.0 _d 0
./pkg/exf/exf_readparms.F 487 EXF_READPARMS 
      windstressmax      = 2.0 _d 0
./pkg/exf/exf_readparms.F 489 EXF_READPARMS 
      exf_scal_BulkCdn   = 1.0  _d 0
./pkg/exf/exf_readparms.F 492 EXF_READPARMS 
      climtempfreeze     = -1.9 _d 0
./pkg/exf/exf_readparms.F 560 EXF_READPARMS 
      exf_inscal_hflux     =  1. _d 0
./pkg/exf/exf_readparms.F 561 EXF_READPARMS 
      exf_inscal_sflux     =  1. _d 0
./pkg/exf/exf_readparms.F 562 EXF_READPARMS 
      exf_inscal_ustress   =  1. _d 0
./pkg/exf/exf_readparms.F 563 EXF_READPARMS 
      exf_inscal_vstress   =  1. _d 0
./pkg/exf/exf_readparms.F 564 EXF_READPARMS 
      exf_inscal_uwind     =  1. _d 0
./pkg/exf/exf_readparms.F 565 EXF_READPARMS 
      exf_inscal_vwind     =  1. _d 0
./pkg/exf/exf_readparms.F 566 EXF_READPARMS 
      exf_inscal_wspeed    =  1. _d 0
./pkg/exf/exf_readparms.F 567 EXF_READPARMS 
      exf_inscal_swflux    =  1. _d 0
./pkg/exf/exf_readparms.F 568 EXF_READPARMS 
      exf_inscal_lwflux    =  1. _d 0
./pkg/exf/exf_readparms.F 569 EXF_READPARMS 
      exf_inscal_precip    =  1. _d 0
./pkg/exf/exf_readparms.F 570 EXF_READPARMS 
      exf_inscal_snowprecip=  1. _d 0
./pkg/exf/exf_readparms.F 571 EXF_READPARMS 
      exf_inscal_sst       =  1. _d 0
./pkg/exf/exf_readparms.F 572 EXF_READPARMS 
      exf_inscal_sss       =  1. _d 0
./pkg/exf/exf_readparms.F 573 EXF_READPARMS 
      exf_inscal_atemp     =  1. _d 0
./pkg/exf/exf_readparms.F 574 EXF_READPARMS 
      exf_offset_atemp     =  0. _d 0
./pkg/exf/exf_readparms.F 575 EXF_READPARMS 
      exf_inscal_aqh       =  1. _d 0
./pkg/exf/exf_readparms.F 576 EXF_READPARMS 
      exf_inscal_evap      =  1. _d 0
./pkg/exf/exf_readparms.F 577 EXF_READPARMS 
      exf_inscal_apressure =  1. _d 0
./pkg/exf/exf_readparms.F 578 EXF_READPARMS 
      exf_inscal_runoff    =  1. _d 0
./pkg/exf/exf_readparms.F 579 EXF_READPARMS 
      exf_inscal_swdown    =  1. _d 0
./pkg/exf/exf_readparms.F 580 EXF_READPARMS 
      exf_inscal_lwdown    =  1. _d 0
./pkg/exf/exf_readparms.F 581 EXF_READPARMS 
      exf_inscal_climsst   =  1. _d 0
./pkg/exf/exf_readparms.F 582 EXF_READPARMS 
      exf_inscal_climsss   =  1. _d 0
./pkg/exf/exf_readparms.F 583 EXF_READPARMS 
      exf_inscal_climustr  =  1. _d 0
./pkg/exf/exf_readparms.F 584 EXF_READPARMS 
      exf_inscal_climvstr  =  1. _d 0
./pkg/exf/exf_readparms.F 587 EXF_READPARMS 
      exf_outscal_hflux    =  1. _d 0
./pkg/exf/exf_readparms.F 588 EXF_READPARMS 
      exf_outscal_sflux    =  1. _d 0
./pkg/exf/exf_readparms.F 589 EXF_READPARMS 
      exf_outscal_ustress  =  1. _d 0
./pkg/exf/exf_readparms.F 590 EXF_READPARMS 
      exf_outscal_vstress  =  1. _d 0
./pkg/exf/exf_readparms.F 591 EXF_READPARMS 
      exf_outscal_swflux   =  1. _d 0
./pkg/exf/exf_readparms.F 592 EXF_READPARMS 
      exf_outscal_sst      =  1. _d 0
./pkg/exf/exf_readparms.F 593 EXF_READPARMS 
      exf_outscal_sss      =  1. _d 0
./pkg/exf/exf_readparms.F 594 EXF_READPARMS 
      exf_outscal_apressure=  1. _d 0
./pkg/exf/exf_swapffields.F 128 EXF_SWAPFFIELDS_3D 
                ffld1(i,j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 187 EXF_SWAPFFIELDS_XZ 
              ffld1(i,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 245 EXF_SWAPFFIELDS_YZ 
              ffld1(j,k,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 298 EXF_SWAPFFIELDS_X 
              ffld1(i,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 350 EXF_SWAPFFIELDS_Y 
              ffld1(j,bi,bj) = 0. _d 0
./pkg/exf/exf_swapffields.F 68 EXF_SWAPFFIELDS 
              ffld1(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 101 EXF_WIND 
             wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 102 EXF_WIND 
             cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 103 EXF_WIND 
             sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 126 EXF_WIND 
     &              )*0.5 _d 0
./pkg/exf/exf_wind.F 131 EXF_WIND 
           IF ( usSq .NE. 0. _d 0 ) THEN
./pkg/exf/exf_wind.F 137 EXF_WIND 
             wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 138 EXF_WIND 
             cw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 139 EXF_WIND 
             sw(i,j,bi,bj)      = 0. _d 0
./pkg/exf/exf_wind.F 152 EXF_WIND 
         recip_sqrtRhoA = 1. _d 0 / SQRT(atmrho)
./pkg/exf/exf_wind.F 156 EXF_WIND 
            IF ( ustar .EQ. 0. _d 0 ) THEN
./pkg/exf/exf_wind.F 157 EXF_WIND 
             wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 167 EXF_WIND 
     &            (ustar*ustar/clindrag_1*0.25 _d 0 - tmp1*tmp1*tmp1 )
./pkg/exf/exf_wind.F 81 EXF_WIND 
          wsLoc(i,j) = 0. _d 0
./pkg/exf/exf_wind.F 82 EXF_WIND 
          cw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 83 EXF_WIND 
          sw(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 84 EXF_WIND 
          sh(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 85 EXF_WIND 
          wStress(i,j,bi,bj) = 0. _d 0
./pkg/exf/exf_wind.F 96 EXF_WIND 
           IF ( wsSq .NE. 0. _d 0 ) THEN
./pkg/exf/exf_zenithangle.F 119 EXF_ZENITHANGLE 
          wTyear2= 1.0 _d 0 - wTyear1
./pkg/exf/exf_zenithangle.F 121 EXF_ZENITHANGLE 
          if ( zen_albedo_pointer(i,j,bi,bj).EQ. 181. _d 0 ) then
./pkg/exf/exf_zenithangle.F 123 EXF_ZENITHANGLE 
            wLat1=0.5  _d 0
./pkg/exf/exf_zenithangle.F 125 EXF_ZENITHANGLE 
            wLat2=0.5  _d 0
./pkg/exf/exf_zenithangle.F 128 EXF_ZENITHANGLE 
            wLat1= 1. _d 0 + iLat1 - zen_albedo_pointer(i,j,bi,bj)
./pkg/exf/exf_zenithangle.F 130 EXF_ZENITHANGLE 
            wLat2= 1. _d 0 - wLat1
./pkg/exf/exf_zenithangle.F 144 EXF_ZENITHANGLE 
        ALPHA= 2. _d 0*PI*TYEAR
./pkg/exf/exf_zenithangle.F 145 EXF_ZENITHANGLE 
        DECLI = 0.006918 _d 0
./pkg/exf/exf_zenithangle.F 146 EXF_ZENITHANGLE 
     &       - 0.399912 _d 0 * cos ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 147 EXF_ZENITHANGLE 
     &       + 0.070257 _d 0 * sin ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 148 EXF_ZENITHANGLE 
     &       - 0.006758 _d 0 * cos ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 149 EXF_ZENITHANGLE 
     &       + 0.000907 _d 0 * sin ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 150 EXF_ZENITHANGLE 
     &       - 0.002697 _d 0 * cos ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 151 EXF_ZENITHANGLE 
     &       + 0.001480 _d 0 * sin ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 172 EXF_ZENITHANGLE 
     &         cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F 174 EXF_ZENITHANGLE 
        if ( CZENdiurnal .LE.0 ) CZENdiurnal = 0. _d 0
./pkg/exf/exf_zenithangle.F 180 EXF_ZENITHANGLE 
        IF (TMPL .GE. 1.0 _d 0) THEN
./pkg/exf/exf_zenithangle.F 181 EXF_ZENITHANGLE 
         CZEN = 0.0 _d 0
./pkg/exf/exf_zenithangle.F 182 EXF_ZENITHANGLE 
        ELSEIF (TMPL .LE. -1.0 _d 0) THEN
./pkg/exf/exf_zenithangle.F 183 EXF_ZENITHANGLE 
         CZEN = (2.0 _d 0)*TMPA*PI
./pkg/exf/exf_zenithangle.F 184 EXF_ZENITHANGLE 
         CZEN2= PI*((2.0 _d 0)*TMPA*TMPA + TMPB*TMPB)
./pkg/exf/exf_zenithangle.F 188 EXF_ZENITHANGLE 
         CZEN = 2.0 _d 0*(TMPA*hlim + TMPB*SIN(hlim))
./pkg/exf/exf_zenithangle.F 189 EXF_ZENITHANGLE 
         CZEN2= 2.0 _d 0*TMPA*TMPA*hlim
./pkg/exf/exf_zenithangle.F 190 EXF_ZENITHANGLE 
     &          + 4.0 _d 0*TMPA*TMPB*SIN(hlim)
./pkg/exf/exf_zenithangle.F 191 EXF_ZENITHANGLE 
     &          + TMPB*TMPB*( hlim + 0.5 _d 0*SIN(2.0 _d 0*hlim) )
./pkg/exf/exf_zenithangle.F 221 EXF_ZENITHANGLE 
        ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) )
./pkg/exf/exf_zenithangle.F 222 EXF_ZENITHANGLE 
     &          + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0)
./pkg/exf/exf_zenithangle.F 223 EXF_ZENITHANGLE 
     &          * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0
./pkg/exf/exf_zenithangle.F 232 EXF_ZENITHANGLE 
     &          0.5 _d 0 * exf_albedo + 0.5 _d 0 * ALBSEA1
./pkg/exf/exf_zenithangle.F 252 EXF_ZENITHANGLE 
        ALPHA= 2. _d 0*PI*TYEAR
./pkg/exf/exf_zenithangle.F 253 EXF_ZENITHANGLE 
        ALPHA= 2. _d 0*PI*TYEAR
./pkg/exf/exf_zenithangle.F 254 EXF_ZENITHANGLE 
        DECLI = 0.006918 _d 0
./pkg/exf/exf_zenithangle.F 255 EXF_ZENITHANGLE 
     &       - 0.399912 _d 0 * cos ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 256 EXF_ZENITHANGLE 
     &       + 0.070257 _d 0 * sin ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 257 EXF_ZENITHANGLE 
     &       - 0.006758 _d 0 * cos ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 258 EXF_ZENITHANGLE 
     &       + 0.000907 _d 0 * sin ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 259 EXF_ZENITHANGLE 
     &       - 0.002697 _d 0 * cos ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 260 EXF_ZENITHANGLE 
     &       + 0.001480 _d 0 * sin ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 261 EXF_ZENITHANGLE 
       dD0dDsq = 1.000110 _d 0
./pkg/exf/exf_zenithangle.F 262 EXF_ZENITHANGLE 
     &         + 0.034221 _d 0 * cos ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 263 EXF_ZENITHANGLE 
     &         + 0.001280 _d 0 * sin ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 264 EXF_ZENITHANGLE 
     &         + 0.000719 _d 0 * cos ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 265 EXF_ZENITHANGLE 
     &         + 0.000077 _d 0 * sin ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle.F 274 EXF_ZENITHANGLE 
     &         cos( 2. _d 0 *PI* TDAY + xC(i,j,bi,bj) * deg2rad )
./pkg/exf/exf_zenithangle.F 275 EXF_ZENITHANGLE 
        if ( CZEN .LE.0 ) CZEN = 0. _d 0
./pkg/exf/exf_zenithangle.F 276 EXF_ZENITHANGLE 
       FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN )
./pkg/exf/exf_zenithangle.F 280 EXF_ZENITHANGLE 
       if ( H0.LT.-1. _d 0 ) H0 = -1. _d 0
./pkg/exf/exf_zenithangle.F 281 EXF_ZENITHANGLE 
       if ( H0.GT.1. _d 0 ) H0 = 1. _d 0
./pkg/exf/exf_zenithangle.F 65 EXF_ZENITHANGLE 
      SOLC   = 1368. _d 0
./pkg/exf/exf_zenithangle.F 93 EXF_ZENITHANGLE 
       TDAY= myDateSeconds / ( 86400 . _d 0 )
./pkg/exf/exf_zenithangle_table.F 101 EXF_ZENITHANGLE_TABLE 
            FSOL = SOLC * dD0dDsq * MAX( 0. _d 0, CZEN )
./pkg/exf/exf_zenithangle_table.F 105 EXF_ZENITHANGLE_TABLE 
            ALBSEA1 = ( ( 2.6 _d 0 / (CZEN**(1.7 _d 0) + 0.065 _d 0) )
./pkg/exf/exf_zenithangle_table.F 106 EXF_ZENITHANGLE_TABLE 
     &          + ( 15. _d 0 * (CZEN-0.1 _d 0) * (CZEN-0.5 _d 0)
./pkg/exf/exf_zenithangle_table.F 107 EXF_ZENITHANGLE_TABLE 
     &          * (CZEN-1.0 _d 0) ) ) / 100.0 _d 0
./pkg/exf/exf_zenithangle_table.F 110 EXF_ZENITHANGLE_TABLE 
            tmpINT1=tmpINT1+FSOL*ALBSEA1/100. _d 0
./pkg/exf/exf_zenithangle_table.F 111 EXF_ZENITHANGLE_TABLE 
            tmpINT2=tmpINT2+FSOL/100. _d 0
./pkg/exf/exf_zenithangle_table.F 115 EXF_ZENITHANGLE_TABLE 
         if ( 0.5 _d 0 * tmpINT2 .GT. tmpINT1) then
./pkg/exf/exf_zenithangle_table.F 118 EXF_ZENITHANGLE_TABLE 
            zen_albedo_table(iTyear,iLat)=0.5 _d 0
./pkg/exf/exf_zenithangle_table.F 133 EXF_ZENITHANGLE_TABLE 
           LLLAT=yC(i,j,bi,bj)+91. _d 0
./pkg/exf/exf_zenithangle_table.F 135 EXF_ZENITHANGLE_TABLE 
           LLLAT=max(LLLAT, 1. _d 0)
./pkg/exf/exf_zenithangle_table.F 136 EXF_ZENITHANGLE_TABLE 
           LLLAT=min(LLLAT, 181. _d 0)
./pkg/exf/exf_zenithangle_table.F 54 EXF_ZENITHANGLE_TABLE 
      SOLC   = 1368. _d 0
./pkg/exf/exf_zenithangle_table.F 59 EXF_ZENITHANGLE_TABLE 
        LLLAT=(iLat-91. _d 0)
./pkg/exf/exf_zenithangle_table.F 60 EXF_ZENITHANGLE_TABLE 
        TYEAR=(iTyear-1. _d 0)/365. _d 0
./pkg/exf/exf_zenithangle_table.F 65 EXF_ZENITHANGLE_TABLE 
        ALPHA= 2. _d 0*PI*TYEAR
./pkg/exf/exf_zenithangle_table.F 66 EXF_ZENITHANGLE_TABLE 
        DECLI = 0.006918 _d 0
./pkg/exf/exf_zenithangle_table.F 67 EXF_ZENITHANGLE_TABLE 
     &       - 0.399912 _d 0 * cos ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 68 EXF_ZENITHANGLE_TABLE 
     &       + 0.070257 _d 0 * sin ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 69 EXF_ZENITHANGLE_TABLE 
     &       - 0.006758 _d 0 * cos ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 70 EXF_ZENITHANGLE_TABLE 
     &       + 0.000907 _d 0 * sin ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 71 EXF_ZENITHANGLE_TABLE 
     &       - 0.002697 _d 0 * cos ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 72 EXF_ZENITHANGLE_TABLE 
     &       + 0.001480 _d 0 * sin ( 3. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 84 EXF_ZENITHANGLE_TABLE 
        dD0dDsq = 1.000110 _d 0
./pkg/exf/exf_zenithangle_table.F 85 EXF_ZENITHANGLE_TABLE 
     &         + 0.034221 _d 0 * cos ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 86 EXF_ZENITHANGLE_TABLE 
     &         + 0.001280 _d 0 * sin ( 1. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 87 EXF_ZENITHANGLE_TABLE 
     &         + 0.000719 _d 0 * cos ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 88 EXF_ZENITHANGLE_TABLE 
     &         + 0.000077 _d 0 * sin ( 2. _d 0 * ALPHA )
./pkg/exf/exf_zenithangle_table.F 90 EXF_ZENITHANGLE_TABLE 
        tmpINT1=0. _d 0
./pkg/exf/exf_zenithangle_table.F 91 EXF_ZENITHANGLE_TABLE 
        tmpINT2=0. _d 0
./pkg/exf/exf_zenithangle_table.F 93 EXF_ZENITHANGLE_TABLE 
            TDAY=iTday/100. _d 0
./pkg/exf/exf_zenithangle_table.F 97 EXF_ZENITHANGLE_TABLE 
     &         cos( 2. _d 0 *PI* TDAY + 0. _d 0 * deg2rad )
./pkg/exf/exf_zenithangle_table.F 98 EXF_ZENITHANGLE_TABLE 
            if ( CZEN .LE.0 ) CZEN = 0. _d 0