Symbol Description Uses
HSALT effective sea ice salinity in g/m^2 61


File Line number Procedure Code
./pkg/obcs/obcs_apply_seaice.F 101 OBCS_APPLY_SEAICE 
            HSALT(Iobc,j,bi,bj) = OBEsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 118 OBCS_APPLY_SEAICE 
            HSALT(Iobc,j,bi,bj) = OBWsl(j,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 158 OBCS_APPLY_SEAICE 
     &           (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 159 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc-1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 160 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc-2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 197 OBCS_APPLY_SEAICE 
     &           (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 198 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc+1,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 199 OBCS_APPLY_SEAICE 
             HSALT(i,Jobc+2,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 236 OBCS_APPLY_SEAICE 
     &           (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 237 OBCS_APPLY_SEAICE 
             HSALT(Iobc-1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 238 OBCS_APPLY_SEAICE 
             HSALT(Iobc-2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 275 OBCS_APPLY_SEAICE 
     &           (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj))
./pkg/obcs/obcs_apply_seaice.F 276 OBCS_APPLY_SEAICE 
             HSALT(Iobc+1,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 277 OBCS_APPLY_SEAICE 
             HSALT(Iobc+2,j,bi,bj) = edge_val
./pkg/obcs/obcs_apply_seaice.F 67 OBCS_APPLY_SEAICE 
            HSALT(i,Jobc,bi,bj) = OBNsl(i,bi,bj)
./pkg/obcs/obcs_apply_seaice.F 84 OBCS_APPLY_SEAICE 
            HSALT(i,Jobc,bi,bj) = OBSsl(i,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 384 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 386 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBNsl(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 411 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 413 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBSsl(i,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 438 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 440 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBEsl(j,bi,bj) )
./pkg/obcs/obcs_seaice_sponge.F 465 OBCS_SEAICE_SPONGE_SL 
              HSALT(i,j,bi,bj) = HSALT(i,j,bi,bj)
./pkg/obcs/obcs_seaice_sponge.F 467 OBCS_SEAICE_SPONGE_SL 
     &           * ( HSALT(i,j,bi,bj) - OBWsl(j,bi,bj) )
./pkg/seaice/SEAICE.h 159 NO PROCEDURE 
      COMMON/SEAICE_SALINITY_R/HSALT, saltFluxAdjust
./pkg/seaice/SEAICE.h 160 NO PROCEDURE 
      _RL HSALT         (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
./pkg/seaice/seaice_advdiff.F 378 SEAICE_ADVDIFF 
     I         uTrans, vTrans, HSALT(1-OLx,1-OLy,bi,bj), recip_heff,
./pkg/seaice/seaice_advdiff.F 385 SEAICE_ADVDIFF 
     I         HSALT(1-OLx,1-OLy,bi,bj), HEFFM,
./pkg/seaice/seaice_advdiff.F 393 SEAICE_ADVDIFF 
           HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * (
./pkg/seaice/seaice_advdiff.F 394 SEAICE_ADVDIFF 
     &          HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j)
./pkg/seaice/seaice_advdiff.F 711 SEAICE_ADVDIFF 
        CALL ADVECT( uc, vc, HSALT, fldNm1, HEFFM, myThid )
./pkg/seaice/seaice_advdiff.F 720 SEAICE_ADVDIFF 
     U           HSALT(1-OLx,1-OLy,bi,bj),
./pkg/seaice/seaice_diagnostics_state.F 125 SEAICE_DIAGNOSTICS_STATE 
       CALL DIAGNOSTICS_FILL(HSALT  ,'SIhsalt ',0,1 ,0,1,1,myThid)
./pkg/seaice/seaice_growth.F 2091 SEAICE_GROWTH 
     &         *HSALT(I,J,bi,bj)
./pkg/seaice/seaice_growth.F 2133 SEAICE_GROWTH 
          HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) +
./pkg/seaice/seaice_init_varia.F 321 SEAICE_INIT_VARIA 
          HSALT(i,j,bi,bj)  = 0. _d 0
./pkg/seaice/seaice_init_varia.F 593 SEAICE_INIT_VARIA 
           HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)*
./pkg/seaice/seaice_init_varia.F 604 SEAICE_INIT_VARIA 
        CALL READ_FLD_XY_RL( HsaltFile, ' ', HSALT, 0, myThid )
./pkg/seaice/seaice_init_varia.F 605 SEAICE_INIT_VARIA 
        _EXCH_XY_RL(HSALT,myThid)
./pkg/seaice/seaice_model.F 233 SEAICE_MODEL 
       _EXCH_XY_RL( HSALT, myThid )
./pkg/seaice/seaice_monitor.F 125 SEAICE_MONITOR 
         CALL MON_WRITESTATS_RL( 1, HSALT,'_hsalt',
./pkg/seaice/seaice_output.F 155 SEAICE_OUTPUT 
             CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid)
./pkg/seaice/seaice_read_pickup.F 181 SEAICE_READ_PICKUP 
        CALL READ_REC_3D_RL( fn, fp, 1, HSALT    , nj, nIter0, myThid )
./pkg/seaice/seaice_read_pickup.F 243 SEAICE_READ_PICKUP 
         CALL READ_MFLDS_3D_RL( 'siHSALT ', HSALT,
./pkg/seaice/seaice_read_pickup.F 334 SEAICE_READ_PICKUP 
       _EXCH_XY_RL(HSALT, myThid )
./pkg/seaice/seaice_reg_ridge.F 301 SEAICE_REG_RIDGE 
          IF ( (HSALT(I,J,bi,bj) .LT. 0.0).OR.
./pkg/seaice/seaice_reg_ridge.F 304 SEAICE_REG_RIDGE 
     &            HSALT(I,J,bi,bj) * recip_deltaTtherm
./pkg/seaice/seaice_reg_ridge.F 305 SEAICE_REG_RIDGE 
             HSALT(I,J,bi,bj) = 0.0 _d 0
./pkg/seaice/seaice_tracer_phys.F 245 SEAICE_TRACER_PHYS 
          DIAGarray(I,J,3+(iTr-1)*5) = HSALT(i,j,bi,bj)/SEAICE_rhoIce
./pkg/seaice/seaice_write_pickup.F 135 SEAICE_WRITE_PICKUP 
        CALL WRITE_REC_3D_RL( fn, fp,  1, HSALT , nj, myIter, myThid )
./pkg/autodiff/autodiff_restore.F 491 AUTODIFF_RESTORE 
          HSALT(I,J,bi,bj)          = StoreSEAICE(I,J,bi,bj,19)
./pkg/autodiff/autodiff_store.F 608 AUTODIFF_STORE 
          StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj)