| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
68 |
NO PROCEDURE |
& ,AREAITD,HEFFITD,HSNOWITD, |
|
./pkg/seaice/SEAICE.h |
72 |
NO PROCEDURE |
_RL HSNOWITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
|
./pkg/seaice/seaice_advdiff.F |
325 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
355 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
658 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
683 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
104 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HSNOWITD,'SIhsnowN',0,nITD ,0,1,1,myThid) |
|
./pkg/seaice/seaice_do_ridging.F |
209 |
SEAICE_DO_RIDGING |
hsnwPR(i,j,k) = HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
301 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
383 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,l,bi,bj) = HSNOWITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1212 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1338 |
SEAICE_GROWTH |
& -HSNOWITD(I,J,IT,bi,bj)*SNOW2ICE) |
|
./pkg/seaice/seaice_growth.F |
1717 |
SEAICE_GROWTH |
HSNOWITD(I,J,IT,bi,bj) = HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1762 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOWITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1851 |
SEAICE_GROWTH |
HSNOWITD(I,J,1,bi,bj)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
514 |
SEAICE_GROWTH |
HSNWITDpreTH(I,J,IT)=HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
311 |
SEAICE_INIT_VARIA |
HSNOWITD(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
573 |
SEAICE_INIT_VARIA |
HSNOWITD(I,J,1,bi,bj) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
110 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,1,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
133 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
134 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
135 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
163 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
164 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
165 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
190 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k-1,bi,bj) = HSNOWITD(i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
191 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
192 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_sum.F |
82 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
91 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_model.F |
223 |
SEAICE_MODEL |
CALL EXCH_3D_RL( HSNOWITD, nITD, myThid ) |
|
./pkg/seaice/seaice_output.F |
144 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL('HSNOWITD.', suff, nITD, HSNOWITD, |
|
./pkg/seaice/seaice_read_pickup.F |
227 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHSNOWn ', HSNOWITD, |
|
./pkg/seaice/seaice_read_pickup.F |
334 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL( HSNOWITD, nITD, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
163 |
SEAICE_REG_RIDGE |
tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
164 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
205 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
239 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0)) |
|
./pkg/seaice/seaice_reg_ridge.F |
266 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).GT.0)) THEN |
|
./pkg/seaice/seaice_write_pickup.F |
95 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, HSNOWITD,-j, myIter,myThid ) |