| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
102 |
OBCS_APPLY_SEAICE |
& HSALT(I,J,bi,bj) = OBSsl(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
128 |
OBCS_APPLY_SEAICE |
& (HSALT(I,J_obc+1,bi,bj)+HSALT(I,J_obc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
129 |
OBCS_APPLY_SEAICE |
HSALT(I,J_obc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
130 |
OBCS_APPLY_SEAICE |
HSALT(I,J_obc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
153 |
OBCS_APPLY_SEAICE |
& HSALT(I,J,bi,bj) = OBEsl(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
179 |
OBCS_APPLY_SEAICE |
& (HSALT(I_obc-1,J,bi,bj)+HSALT(I_obc-2,J,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
180 |
OBCS_APPLY_SEAICE |
HSALT(I_obc-1,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
181 |
OBCS_APPLY_SEAICE |
HSALT(I_obc-2,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
204 |
OBCS_APPLY_SEAICE |
& HSALT(I,J,bi,bj) = OBWsl(J,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
230 |
OBCS_APPLY_SEAICE |
& (HSALT(I_obc+1,J,bi,bj)+HSALT(I_obc+2,J,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
231 |
OBCS_APPLY_SEAICE |
HSALT(I_obc+1,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
232 |
OBCS_APPLY_SEAICE |
HSALT(I_obc+2,J,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
51 |
OBCS_APPLY_SEAICE |
& HSALT(I,J,bi,bj) = OBNsl(I,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
77 |
OBCS_APPLY_SEAICE |
& (HSALT(I,J_obc-1,bi,bj)+HSALT(I,J_obc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
78 |
OBCS_APPLY_SEAICE |
HSALT(I,J_obc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
79 |
OBCS_APPLY_SEAICE |
HSALT(I,J_obc-2,bi,bj) = edge_val |
|
./pkg/seaice/SEAICE.h |
118 |
NO PROCEDURE |
COMMON/SEAICE_SALINITY_R/HSALT |
|
./pkg/seaice/SEAICE.h |
119 |
NO PROCEDURE |
_RL HSALT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_advdiff.F |
271 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSALT(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
278 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
285 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
286 |
SEAICE_ADVDIFF |
& HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
348 |
SEAICE_ADVDIFF |
CALL ADVECT( uc, vc, HSALT, fldNm1, HEFFM, myThid ) |
|
./pkg/seaice/seaice_diagnostics_state.F |
97 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HSALT ,'SIhsalt ',0,1 ,0,1,1,myThid) |
|
./pkg/seaice/seaice_growth.F |
702 |
SEAICE_GROWTH |
IF ( HSALT(I,J,bi,bj) .LT. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
704 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
705 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
740 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj)/ |
|
./pkg/seaice/seaice_growth.F |
748 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
755 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj) * HSALT(I,J,bi,bj) / |
|
./pkg/seaice/seaice_growth.F |
757 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.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 |
395 |
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 |
404 |
SEAICE_INIT_VARIA |
CALL READ_FLD_XY_RL( HsaltFile, ' ', HSALT, 0, myThid ) |
|
./pkg/seaice/seaice_init_varia.F |
405 |
SEAICE_INIT_VARIA |
_EXCH_XY_RL(HSALT,myThid) |
|
./pkg/seaice/seaice_model.F |
100 |
SEAICE_MODEL |
HSALT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
239 |
SEAICE_MODEL |
_EXCH_XY_RL( HSALT, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
120 |
SEAICE_MONITOR |
CALL MON_WRITESTATS_RL( 1, HSALT,'_hsalt', |
|
./pkg/seaice/seaice_output.F |
124 |
SEAICE_OUTPUT |
CALL WRITE_FLD_XY_RL( 'HSALT.',suff,HSALT,myIter,myThid) |
|
./pkg/seaice/seaice_read_pickup.F |
161 |
SEAICE_READ_PICKUP |
CALL READ_REC_3D_RL( fn, fp, 1, HSALT , nj, nIter0, myThid ) |
|
./pkg/seaice/seaice_read_pickup.F |
197 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHSALT ', HSALT, |
|
./pkg/seaice/seaice_read_pickup.F |
266 |
SEAICE_READ_PICKUP |
_EXCH_XY_RL(HSALT, myThid ) |
|
./pkg/seaice/seaice_write_pickup.F |
107 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn, fp, 1, HSALT , nj, myIter, myThid ) |
|
./pkg/autodiff/autodiff_restore.F |
463 |
AUTODIFF_RESTORE |
HSALT(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_store.F |
583 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj) |