| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/SEAICE.h |
68 |
NO PROCEDURE |
& ,AREAITD,HEFFITD,HSNOWITD, |
|
./pkg/seaice/SEAICE.h |
71 |
NO PROCEDURE |
_RL HEFFITD (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
|
./pkg/seaice/seaice_advdiff.F |
215 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
245 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
557 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
582 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_diagnostics_state.F |
102 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HEFFITD ,'SIheffN ',0,nITD ,0,1,1,myThid) |
|
./pkg/seaice/seaice_do_ridging.F |
208 |
SEAICE_DO_RIDGING |
heffPR(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
300 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) - ridgingHeff(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
381 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,l,bi,bj) = HEFFITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1236 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1288 |
SEAICE_GROWTH |
& -HEFFITD(I,J,IT,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1712 |
SEAICE_GROWTH |
HEFFITD(I,J,IT,bi,bj) = HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1760 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1849 |
SEAICE_GROWTH |
HEFFITD(I,J,1,bi,bj)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1860 |
SEAICE_GROWTH |
IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1873 |
SEAICE_GROWTH |
& HEFFITD(I,J,IT,bi,bj)/tmpscal1) |
|
./pkg/seaice/seaice_growth.F |
1893 |
SEAICE_GROWTH |
& ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) ) |
|
./pkg/seaice/seaice_growth.F |
513 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
262 |
SEAICE_INIT_VARIA |
HEFFITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
572 |
SEAICE_INIT_VARIA |
HEFFITD(I,J,1,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
109 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,1,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
148 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
130 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
131 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
132 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
153 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .gt. |
|
./pkg/seaice/seaice_itd_redist.F |
160 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
161 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
162 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
180 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .lt. |
|
./pkg/seaice/seaice_itd_redist.F |
187 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k-1,bi,bj) = HEFFITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
188 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
189 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_sum.F |
81 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj)=HEFFITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
90 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_model.F |
221 |
SEAICE_MODEL |
CALL EXCH_3D_RL( HEFFITD, nITD, myThid ) |
|
./pkg/seaice/seaice_output.F |
140 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL( 'HEFFITD.', suff, nITD, HEFFITD, |
|
./pkg/seaice/seaice_output.F |
213 |
SEAICE_OUTPUT |
& HEFFITDtave(i,j,k,bi,bj) +HEFFITD(i,j,k,bi,bj)*deltaTclock |
|
./pkg/seaice/seaice_prepare_ridging.F |
102 |
SEAICE_PREPARE_RIDGING |
tmp = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_prepare_ridging.F |
99 |
SEAICE_PREPARE_RIDGING |
IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_read_pickup.F |
225 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHEFFn ', HEFFITD, |
|
./pkg/seaice/seaice_read_pickup.F |
332 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL( HEFFITD, nITD, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
142 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,1,bi,bj) = HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
160 |
SEAICE_REG_RIDGE |
tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
161 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
204 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
238 |
SEAICE_REG_RIDGE |
IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
265 |
SEAICE_REG_RIDGE |
IF ((HEFFITD(I,J,IT,bi,bj).GT.0).OR. |
|
./pkg/seaice/seaice_reg_ridge.F |
330 |
SEAICE_REG_RIDGE |
& + TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
331 |
SEAICE_REG_RIDGE |
tmpscal2itd(i,j)=tmpscal2itd(i,j) + HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_write_pickup.F |
92 |
SEAICE_WRITE_PICKUP |
CALL WRITE_REC_3D_RL( fn,fp, nITD, HEFFITD, -j, myIter,myThid ) |