| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
118 |
SEAICE_FREEDRIFT |
tmpscal3= -tmpscal1*tmpscal1*rhs_n*rhs_n |
|
./pkg/seaice/seaice_freedrift.F |
120 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2-4*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
136 |
SEAICE_FREEDRIFT |
tmpscal3= mIceCor*sol_n |
|
./pkg/seaice/seaice_freedrift.F |
138 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
140 |
SEAICE_FREEDRIFT |
sol_a=rhs_a-atan2(tmpscal3,tmpscal2) |
|
./pkg/seaice/seaice_freedrift.F |
42 |
SEAICE_FREEDRIFT |
_RL tmpscal1,tmpscal2,tmpscal3,tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1022 |
SEAICE_GROWTH |
tmpscal3 = MIN(ZERO,tmpscal2) |
|
./pkg/seaice/seaice_growth.F |
1033 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , |
|
./pkg/seaice/seaice_growth.F |
1037 |
SEAICE_GROWTH |
tmpscal3 = MIN( 0. _d 0 , d_HEFFbyATMonOCN(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
1058 |
SEAICE_GROWTH |
& +HALF*tmpscal3*AREApreTH(I,J) |
|
./pkg/seaice/seaice_growth.F |
1061 |
SEAICE_GROWTH |
& +HALF*tmpscal3/heffActual(I,J) |
|
./pkg/seaice/seaice_growth.F |
1124 |
SEAICE_GROWTH |
tmpscal3 = tmpscal1*salt(I,j,kSurface,bi,bj)*HEFFM(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
1126 |
SEAICE_GROWTH |
saltPlumeFlux(I,J,bi,bj) = MAX( tmpscal3-tmpscal2 , 0. _d 0) |
|
./pkg/seaice/seaice_growth.F |
169 |
SEAICE_GROWTH |
_RL tmpscal1, tmpscal2, tmpscal3, tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
359 |
SEAICE_GROWTH |
tmpscal3=-HSNOW(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
363 |
SEAICE_GROWTH |
tmpscal3=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
367 |
SEAICE_GROWTH |
HSNOW(I,J,bi,bj)=HSNOW(I,J,bi,bj)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
368 |
SEAICE_GROWTH |
d_HSNWbyNEG(I,J)=d_HSNWbyNEG(I,J)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
951 |
SEAICE_GROWTH |
tmpscal3=MAX(0. _d 0, tmpscal1-tmpscal2) |
|
./pkg/seaice/seaice_growth.F |
953 |
SEAICE_GROWTH |
tmpscal3=0. _d 0 |
|
./pkg/seaice/seaice_growth.F |
955 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN_open(I,J)=tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
958 |
SEAICE_GROWTH |
d_HEFFbyATMonOCN(I,J)=d_HEFFbyATMonOCN(I,J)+tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
959 |
SEAICE_GROWTH |
r_QbyATM_open(I,J)=r_QbyATM_open(I,J)-tmpscal3 |
|
./pkg/seaice/seaice_growth.F |
960 |
SEAICE_GROWTH |
HEFF(I,J,bi,bj) = HEFF(I,J,bi,bj) + tmpscal3 |