| File |
Line number |
Procedure |
Code |
|
./pkg/obcs/obcs_apply_seaice.F |
101 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBEsl(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
120 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBWsl(j,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
161 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc-1,bi,bj)+HSALT(i,Jobc-2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
162 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
163 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc-2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
200 |
OBCS_APPLY_SEAICE |
& (HSALT(i,Jobc+1,bi,bj)+HSALT(i,Jobc+2,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
201 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+1,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
202 |
OBCS_APPLY_SEAICE |
HSALT(i,Jobc+2,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
239 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc-1,j,bi,bj)+HSALT(Iobc-2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
240 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
241 |
OBCS_APPLY_SEAICE |
HSALT(Iobc-2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
278 |
OBCS_APPLY_SEAICE |
& (HSALT(Iobc+1,j,bi,bj)+HSALT(Iobc+2,j,bi,bj)) |
|
./pkg/obcs/obcs_apply_seaice.F |
279 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+1,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
280 |
OBCS_APPLY_SEAICE |
HSALT(Iobc+2,j,bi,bj) = edge_val |
|
./pkg/obcs/obcs_apply_seaice.F |
63 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBNsl(i,bi,bj) |
|
./pkg/obcs/obcs_apply_seaice.F |
82 |
OBCS_APPLY_SEAICE |
HSALT(i,j,bi,bj) = OBSsl(i,bi,bj) |
|
./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 |
270 |
SEAICE_ADVDIFF |
I uTrans, vTrans, HSALT(1-OLx,1-OLy,bi,bj), recip_heff, |
|
./pkg/seaice/seaice_advdiff.F |
277 |
SEAICE_ADVDIFF |
I HSALT(1-OLx,1-OLy,bi,bj), HEFFM, xA, yA, |
|
./pkg/seaice/seaice_advdiff.F |
284 |
SEAICE_ADVDIFF |
HSALT(i,j,bi,bj) = HEFFM(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_advdiff.F |
285 |
SEAICE_ADVDIFF |
& HSALT(i,j,bi,bj) + SEAICE_deltaTtherm * gFld(i,j) |
|
./pkg/seaice/seaice_advdiff.F |
344 |
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 |
1142 |
SEAICE_GROWTH |
IF ( HSALT(I,J,bi,bj) .LT. 0.0 ) THEN |
|
./pkg/seaice/seaice_growth.F |
1144 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1145 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
1184 |
SEAICE_GROWTH |
& *HSALT(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1191 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = HSALT(I,J,bi,bj) + |
|
./pkg/seaice/seaice_growth.F |
1199 |
SEAICE_GROWTH |
& HEFFM(I,J,bi,bj) * HSALT(I,J,bi,bj) / |
|
./pkg/seaice/seaice_growth.F |
1201 |
SEAICE_GROWTH |
HSALT(I,J,bi,bj) = 0.0 _d 0 |
|
./pkg/seaice/seaice_growth.F |
431 |
SEAICE_GROWTH |
IF ( (HSALT(I,J,bi,bj) .LT. 0.0).OR. |
|
./pkg/seaice/seaice_growth.F |
434 |
SEAICE_GROWTH |
& HSALT(I,J,bi,bj) / SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
435 |
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_init_varia.F |
431 |
SEAICE_INIT_VARIA |
CALL OBCS_COPY_TRACER( HSALT(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_model.F |
101 |
SEAICE_MODEL |
HSALT(i,j,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_model.F |
236 |
SEAICE_MODEL |
_EXCH_XY_RL( HSALT, myThid ) |
|
./pkg/seaice/seaice_model.F |
268 |
SEAICE_MODEL |
CALL OBCS_COPY_TRACER( HSALT(1-Olx,1-Oly,bi,bj), |
|
./pkg/seaice/seaice_monitor.F |
122 |
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 |
476 |
AUTODIFF_RESTORE |
HSALT(I,J,bi,bj) = StoreSEAICE(I,J,bi,bj,19) |
|
./pkg/autodiff/autodiff_store.F |
600 |
AUTODIFF_STORE |
StoreSEAICE(I,J,bi,bj,19) = HSALT(I,J,bi,bj) |