| 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 |
328 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
358 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
661 |
SEAICE_ADVDIFF |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
686 |
SEAICE_ADVDIFF |
HSNOWITD(i,j,it,bi,bj)=HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
107 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HSNOWITD,'SIhsnowN',0,nITD ,0,1,1,myThid) |
|
./pkg/seaice/seaice_do_ridging.F |
212 |
SEAICE_DO_RIDGING |
hsnwPR(i,j,k) = HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
304 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,k,bi,bj)=HSNOWITD(i,j,k,bi,bj) - ridgingHsnw(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
386 |
SEAICE_DO_RIDGING |
HSNOWITD(i,j,l,bi,bj) = HSNOWITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1234 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1360 |
SEAICE_GROWTH |
& -HSNOWITD(I,J,IT,bi,bj)*SNOW2ICE) |
|
./pkg/seaice/seaice_growth.F |
1739 |
SEAICE_GROWTH |
HSNOWITD(I,J,IT,bi,bj) = HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1784 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOWITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1877 |
SEAICE_GROWTH |
HSNOWITD(I,J,1,bi,bj)=HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
532 |
SEAICE_GROWTH |
HSNWITDpreTH(I,J,IT)=HSNOWITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
316 |
SEAICE_INIT_VARIA |
HSNOWITD(i,j,k,bi,bj)=0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
578 |
SEAICE_INIT_VARIA |
HSNOWITD(I,J,1,bi,bj) = HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
112 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
127 |
SEAICE_ITD_PICKUP |
HSNOWITD(i,j,1,bi,bj) = HSNOW(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
136 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
137 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
138 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
166 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k+1,bi,bj) = HSNOWITD(i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
167 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
168 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
193 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k-1,bi,bj) = HSNOWITD(i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
194 |
SEAICE_ITD_REDIST |
& + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
195 |
SEAICE_ITD_REDIST |
HSNOWITD(i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_remap.F |
342 |
SEAICE_ITD_REMAP |
& * HSNOWITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
347 |
SEAICE_ITD_REMAP |
dhsnw = HSNOWITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
354 |
SEAICE_ITD_REMAP |
HSNOWITD(i,j,kRecvr,bi,bj)=HSNOWITD(i,j,kRecvr,bi,bj) + dhsnw |
|
./pkg/seaice/seaice_itd_remap.F |
355 |
SEAICE_ITD_REMAP |
HSNOWITD(i,j,kDonor,bi,bj)=HSNOWITD(i,j,kDonor,bi,bj) - dhsnw |
|
./pkg/seaice/seaice_itd_sum.F |
85 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj)=HSNOWITD(i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
94 |
SEAICE_ITD_SUM |
HSNOW(i,j,bi,bj) = HSNOW(i,j,bi,bj) + HSNOWITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_model.F |
230 |
SEAICE_MODEL |
CALL EXCH_3D_RL( HSNOWITD, nITD, myThid ) |
|
./pkg/seaice/seaice_output.F |
151 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL('HSNOWITD.', suff, nITD, HSNOWITD, |
|
./pkg/seaice/seaice_read_pickup.F |
232 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHSNOWn ', HSNOWITD, |
|
./pkg/seaice/seaice_read_pickup.F |
339 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL( HSNOWITD, nITD, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
166 |
SEAICE_REG_RIDGE |
tmpscal2=MAX(-HSNOWITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
167 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj)=HSNOWITD(I,J,IT,bi,bj)+tmpscal2 |
|
./pkg/seaice/seaice_reg_ridge.F |
208 |
SEAICE_REG_RIDGE |
HSNOWITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
242 |
SEAICE_REG_RIDGE |
& (HSNOWITD(I,J,IT,bi,bj).EQ.0. _d 0)) |
|
./pkg/seaice/seaice_reg_ridge.F |
269 |
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 ) |