| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
115 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2+4. _d 0*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
117 |
SEAICE_FREEDRIFT |
sol_n=SQRT(HALF*(SQRT(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
133 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
134 |
SEAICE_FREEDRIFT |
IF ( tmpscal4.GT.ZERO ) THEN |
|
./pkg/seaice/seaice_freedrift.F |
43 |
SEAICE_FREEDRIFT |
_RL tmpscal1,tmpscal2,tmpscal3,tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1149 |
SEAICE_GROWTH |
tmpscal4 = (tmpscal2*tmpscal2 + tmpscal3*tmpscal3) |
|
./pkg/seaice/seaice_growth.F |
1150 |
SEAICE_GROWTH |
IF ( tmpscal4 .LE. SEAICE_EPS_SQ ) THEN |
|
./pkg/seaice/seaice_growth.F |
1151 |
SEAICE_GROWTH |
tmpscal4=SEAICE_EPS |
|
./pkg/seaice/seaice_growth.F |
1153 |
SEAICE_GROWTH |
tmpscal4=SQRT(tmpscal4) |
|
./pkg/seaice/seaice_growth.F |
1155 |
SEAICE_GROWTH |
tmpscal4 = 1027.0 _d 0 * 6.0 _d -3 * tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1158 |
SEAICE_GROWTH |
& ( tmpscal1 * uWind(I,J,bi,bj) + tmpscal4 * tmpscal2 )**2 |
|
./pkg/seaice/seaice_growth.F |
1159 |
SEAICE_GROWTH |
& + ( tmpscal1 * vWind(I,J,bi,bj) + tmpscal4 * tmpscal3 )**2 |
|
./pkg/seaice/seaice_growth.F |
1174 |
SEAICE_GROWTH |
tmpscal4 = 4. _d 0 * SItracer(I,J,bi,bj,iTrGrease) * tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
1179 |
SEAICE_GROWTH |
& * ( tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
142 |
SEAICE_GROWTH |
_RL tmpscal0, tmpscal1, tmpscal2, tmpscal3, tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1513 |
SEAICE_GROWTH |
tmpscal4 = HSNWITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1518 |
SEAICE_GROWTH |
& -tmpscal4) |
|
./pkg/seaice/seaice_growth.F |
1567 |
SEAICE_GROWTH |
tmpscal4 = HEFFpreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1573 |
SEAICE_GROWTH |
tmpscal4 = HEFF(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1585 |
SEAICE_GROWTH |
& -tmpscal4*facOpenMelt)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1678 |
SEAICE_GROWTH |
tmpscal4 = HSNWITDpreTH(I,J,IT) |
|
./pkg/seaice/seaice_growth.F |
1682 |
SEAICE_GROWTH |
tmpscal0 = (tmpscal4*SEAICE_rhoSnow |
|
./pkg/seaice/seaice_growth.F |
1789 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyGREASE(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1794 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,d_HEFFbyATMonOCN_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1796 |
SEAICE_GROWTH |
tmpscal4=MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1827 |
SEAICE_GROWTH |
& + recip_HO*tmpscal4+HALF*recip_HH*tmpscal3 )) |