| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
118 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2+4. _d 0*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
120 |
SEAICE_FREEDRIFT |
sol_n=SQRT(HALF*(SQRT(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
136 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
137 |
SEAICE_FREEDRIFT |
IF ( tmpscal4.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
46 |
SEAICE_FREEDRIFT |
_RL tmpscal1,tmpscal2,tmpscal3,tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1171 |
SEAICE_GROWTH |
tmpscal4 = (tmpscal2*tmpscal2 + tmpscal3*tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1172 |
SEAICE_GROWTH |
IF ( tmpscal4 .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_growth.F |
1173 |
SEAICE_GROWTH |
tmpscal4=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
1175 |
SEAICE_GROWTH |
tmpscal4=SQRT(tmpscal4) |
|
./pkg/seaice/seaice_growth.F |
1177 |
SEAICE_GROWTH |
tmpscal4 = 1027.0 _d 0 * 6.0 _d -3 * tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1180 |
SEAICE_GROWTH |
& ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2 |
|
./pkg/seaice/seaice_growth.F |
1181 |
SEAICE_GROWTH |
& + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2 |
|
./pkg/seaice/seaice_growth.F |
1196 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1201 |
SEAICE_GROWTH |
& * ( tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
147 |
SEAICE_GROWTH |
_RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1535 |
SEAICE_GROWTH |
tmpscal4 = HSNWITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1540 |
SEAICE_GROWTH |
& -tmpscal4) |
|
./pkg/seaice/seaice_growth.F |
1589 |
SEAICE_GROWTH |
tmpscal4 = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1595 |
SEAICE_GROWTH |
tmpscal4 = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1607 |
SEAICE_GROWTH |
& -tmpscal4*facOpenMelt)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1700 |
SEAICE_GROWTH |
tmpscal4 = HSNWITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1704 |
SEAICE_GROWTH |
tmpscal0 = (tmpscal4*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1811 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyGREASE(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1816 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1818 |
SEAICE_GROWTH |
tmpscal4=MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1849 |
SEAICE_GROWTH |
& + recip_HO*tmpscal4+HALF*recip_HH*tmpscal3 |