| 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 |
218 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
248 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
560 |
SEAICE_ADVDIFF |
HEFF(i,j,bi,bj)=HEFFITD(i,j,it,bi,bj) |
|
./pkg/seaice/seaice_advdiff.F |
585 |
SEAICE_ADVDIFF |
HEFFITD(i,j,it,bi,bj)=HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
133 |
SEAICE_BOTTOMDRAG_COEFFS |
hActual = HEFFITD(I,J,k,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
18 |
SEAICE_BOTTOMDRAG_COEFFS |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
63 |
SEAICE_BOTTOMDRAG_COEFFS |
_RL HEFFITD(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nITD,nSx,nSy) |
|
./pkg/seaice/seaice_calc_residual.F |
90 |
SEAICE_CALC_RESIDUAL |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_diagnostics_state.F |
105 |
SEAICE_DIAGNOSTICS_STATE |
CALL DIAGNOSTICS_FILL(HEFFITD ,'SIheffN ',0,nITD ,0,1,1,myThid) |
|
./pkg/seaice/seaice_do_ridging.F |
211 |
SEAICE_DO_RIDGING |
heffPR(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_do_ridging.F |
303 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) - ridgingHeff(i,j) |
|
./pkg/seaice/seaice_do_ridging.F |
384 |
SEAICE_DO_RIDGING |
HEFFITD(i,j,l,bi,bj) = HEFFITD(i,j,l,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
753 |
SEAICE_EVP |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_growth.F |
1258 |
SEAICE_GROWTH |
& MAX(MIN(r_FWbySublimMult(I,J,IT),HEFFITD(I,J,IT,bi,bj)),ZERO) |
|
./pkg/seaice/seaice_growth.F |
1310 |
SEAICE_GROWTH |
& -HEFFITD(I,J,IT,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1734 |
SEAICE_GROWTH |
HEFFITD(I,J,IT,bi,bj) = HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1782 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj)=HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1875 |
SEAICE_GROWTH |
HEFFITD(I,J,1,bi,bj)=HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1886 |
SEAICE_GROWTH |
IF (HEFFITD(I,J,IT,bi,bj).LE.ZERO) THEN |
|
./pkg/seaice/seaice_growth.F |
1898 |
SEAICE_GROWTH |
& HEFFITD(I,J,IT,bi,bj)/HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1928 |
SEAICE_GROWTH |
& ( HEFFITD(I,J,IT,bi,bj) - HEFFITDpreTH(I,J,IT) ) |
|
./pkg/seaice/seaice_growth.F |
531 |
SEAICE_GROWTH |
HEFFITDpreTH(I,J,IT)=HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_init_varia.F |
263 |
SEAICE_INIT_VARIA |
HEFFITD(i,j,k,bi,bj) =0. _d 0 |
|
./pkg/seaice/seaice_init_varia.F |
577 |
SEAICE_INIT_VARIA |
HEFFITD(I,J,1,bi,bj) = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
111 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_itd_pickup.F |
126 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,1,bi,bj) = HEFF(i,j,bi,bj) |
|
./pkg/seaice/seaice_itd_pickup.F |
165 |
SEAICE_ITD_PICKUP |
HEFFITD(i,j,k,bi,bj) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
133 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
134 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
135 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
156 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .gt. |
|
./pkg/seaice/seaice_itd_redist.F |
163 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k+1,bi,bj) = HEFFITD (i,j,k+1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
164 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
165 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_redist.F |
183 |
SEAICE_ITD_REDIST |
IF (HEFFITD(i,j,k,bi,bj) .lt. |
|
./pkg/seaice/seaice_itd_redist.F |
190 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k-1,bi,bj) = HEFFITD (i,j,k-1,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
191 |
SEAICE_ITD_REDIST |
& + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_redist.F |
192 |
SEAICE_ITD_REDIST |
HEFFITD (i,j,k ,bi,bj) = ZERO |
|
./pkg/seaice/seaice_itd_remap.F |
133 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
143 |
SEAICE_ITD_REMAP |
hActual(i,j,k) = HEFFITD(i,j,k,bi,bj)/AREAITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
326 |
SEAICE_ITD_REMAP |
& (dheff .GT.HEFFITD(i,j,kDonor,bi,bj)-SEAICE_eps) ) THEN |
|
./pkg/seaice/seaice_itd_remap.F |
328 |
SEAICE_ITD_REMAP |
dheff = HEFFITD(i,j,kDonor,bi,bj) |
|
./pkg/seaice/seaice_itd_remap.F |
350 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kRecvr,bi,bj) = HEFFITD(i,j,kRecvr,bi,bj) + dheff |
|
./pkg/seaice/seaice_itd_remap.F |
351 |
SEAICE_ITD_REMAP |
HEFFITD(i,j,kDonor,bi,bj) = HEFFITD(i,j,kDonor,bi,bj) - dheff |
|
./pkg/seaice/seaice_itd_sum.F |
84 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj)=HEFFITD (i,j,1,bi,bj) |
|
./pkg/seaice/seaice_itd_sum.F |
93 |
SEAICE_ITD_SUM |
HEFF (i,j,bi,bj) = HEFF (i,j,bi,bj) + HEFFITD (i,j,k,bi,bj) |
|
./pkg/seaice/seaice_krylov.F |
212 |
SEAICE_KRYLOV |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_lsr.F |
342 |
SEAICE_LSR |
I HEFFITD, AREAITD, AREA, |
|
./pkg/seaice/seaice_model.F |
228 |
SEAICE_MODEL |
CALL EXCH_3D_RL( HEFFITD, nITD, myThid ) |
|
./pkg/seaice/seaice_output.F |
147 |
SEAICE_OUTPUT |
CALL WRITE_FLD_3D_RL( 'HEFFITD.', suff, nITD, HEFFITD, |
|
./pkg/seaice/seaice_output.F |
221 |
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 |
IF ( HEFFITD(i,j,k,bi,bj) .GT. 0. _d 0 ) THEN |
|
./pkg/seaice/seaice_prepare_ridging.F |
105 |
SEAICE_PREPARE_RIDGING |
tmp = HEFFITD(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_read_pickup.F |
230 |
SEAICE_READ_PICKUP |
CALL READ_MFLDS_3D_RL( 'siHEFFn ', HEFFITD, |
|
./pkg/seaice/seaice_read_pickup.F |
337 |
SEAICE_READ_PICKUP |
CALL EXCH_3D_RL( HEFFITD, nITD, myThid ) |
|
./pkg/seaice/seaice_reg_ridge.F |
145 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,1,bi,bj) = HEFFITD(I,J,1,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
163 |
SEAICE_REG_RIDGE |
tmpscal1=MAX(-HEFFITD(I,J,IT,bi,bj),0. _d 0) |
|
./pkg/seaice/seaice_reg_ridge.F |
164 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj)=HEFFITD(I,J,IT,bi,bj)+tmpscal1 |
|
./pkg/seaice/seaice_reg_ridge.F |
207 |
SEAICE_REG_RIDGE |
HEFFITD(I,J,IT,bi,bj) = 0. _d 0 |
|
./pkg/seaice/seaice_reg_ridge.F |
241 |
SEAICE_REG_RIDGE |
IF ( (HEFFITD(I,J,IT,bi,bj) .EQ.0. _d 0).AND. |
|
./pkg/seaice/seaice_reg_ridge.F |
268 |
SEAICE_REG_RIDGE |
IF ((HEFFITD(I,J,IT,bi,bj).GT.0).OR. |
|
./pkg/seaice/seaice_reg_ridge.F |
333 |
SEAICE_REG_RIDGE |
& + TICES(I,J,IT,bi,bj) * HEFFITD(I,J,IT,bi,bj) |
|
./pkg/seaice/seaice_reg_ridge.F |
334 |
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 ) |