| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
116 |
SEAICE_FREEDRIFT |
tmpscal3= tmpscal1*tmpscal1*rhs_n*rhs_n |
|
./pkg/seaice/seaice_freedrift.F |
118 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2+4. _d 0*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
119 |
SEAICE_FREEDRIFT |
IF ( tmpscal3.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
134 |
SEAICE_FREEDRIFT |
tmpscal3= mIceCor*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
136 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
138 |
SEAICE_FREEDRIFT |
sol_a=rhs_a-ATAN2(tmpscal3,tmpscal2) |
|
./pkg/seaice/seaice_freedrift.F |
46 |
SEAICE_FREEDRIFT |
_RL tmpscal1,tmpscal2,tmpscal3,tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1166 |
SEAICE_GROWTH |
tmpscal3 = |
|
./pkg/seaice/seaice_growth.F |
1171 |
SEAICE_GROWTH |
tmpscal4 = (tmpscal2*tmpscal2 + tmpscal3*tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1181 |
SEAICE_GROWTH |
& + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2 |
|
./pkg/seaice/seaice_growth.F |
1189 |
SEAICE_GROWTH |
tmpscal3 = 0.5 _d 0 * (dxC(I,J,bi,bj)+dyC(I,J,bi,bj)) |
|
./pkg/seaice/seaice_growth.F |
1196 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
147 |
SEAICE_GROWTH |
_RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1606 |
SEAICE_GROWTH |
tmpscal3=facOpenGrow*MAX(tmpscal1-tmpscal2, |
|
./pkg/seaice/seaice_growth.F |
1616 |
SEAICE_GROWTH |
greaseNewFrazil = max(0.0 _d 0, tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1621 |
SEAICE_GROWTH |
tmpscal3 = tmpscal3 + SItracer(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1626 |
SEAICE_GROWTH |
tmpscal3=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
1652 |
SEAICE_GROWTH |
tmpscal3=tmpscal3+SItrBucket(I,J,bi,bj,iTrGrease) |
|
./pkg/seaice/seaice_growth.F |
1658 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open_ITD(I,J,1)=tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1660 |
SEAICE_GROWTH |
& +tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1662 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open(I,J)=tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1663 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1664 |
SEAICE_GROWTH |
r_QbyATM_open(I,J)=r_QbyATM_open(I,J)-tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1665 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1696 |
SEAICE_GROWTH |
tmpscal3 = HEFFITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1705 |
SEAICE_GROWTH |
& + tmpscal3*SEAICE_rhoIce) |
|
./pkg/seaice/seaice_growth.F |
1707 |
SEAICE_GROWTH |
tmpscal1 = MAX( 0. _d 0, tmpscal0 - tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1827 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1831 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN_cover(I,J) |
|
./pkg/seaice/seaice_growth.F |
1841 |
SEAICE_GROWTH |
tmpscal3 = MIN(ZERO,tmpscal2) |
|
./pkg/seaice/seaice_growth.F |
1849 |
SEAICE_GROWTH |
& + recip_HO*tmpscal4+HALF*recip_HH*tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1996 |
SEAICE_GROWTH |
tmpscal3 = max( 0. _d 0, |
|
./pkg/seaice/seaice_growth.F |
1998 |
SEAICE_GROWTH |
tmpscal2 = tmpscal1 * tmpscal3 * HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2030 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,J,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2032 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
2262 |
SEAICE_GROWTH |
tmpscal3=rhoConstFresh*maskC(I,J,kSurface,bi,bj)*( |
|
./pkg/seaice/seaice_growth.F |
2272 |
SEAICE_GROWTH |
tmpscal1 = - tmpscal3* |
|
./pkg/seaice/seaice_growth.F |
2276 |
SEAICE_GROWTH |
tmpscal1 = - tmpscal3* |
|
./pkg/seaice/seaice_growth.F |
2279 |
SEAICE_GROWTH |
tmpscal1 = - tmpscal3*HeatCapacity_Cp* |
|
./pkg/seaice/seaice_growth.F |
2577 |
SEAICE_GROWTH |
tmpscal3= SEAICE_lhEvap+SEAICE_lhFusion |
|
./pkg/seaice/seaice_growth.F |
2579 |
SEAICE_GROWTH |
& * ( tmpscal1*SEAICE_lhEvap + tmpscal2*tmpscal3 ) |