| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_freedrift.F |
120 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2-4*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
121 |
SEAICE_FREEDRIFT |
if (tmpscal4.GT.0) then |
|
./pkg/seaice/seaice_freedrift.F |
122 |
SEAICE_FREEDRIFT |
sol_n=sqrt(HALF*(sqrt(tmpscal4)-tmpscal2)) |
|
./pkg/seaice/seaice_freedrift.F |
138 |
SEAICE_FREEDRIFT |
tmpscal4=tmpscal2*tmpscal2 + tmpscal3*tmpscal3 |
|
./pkg/seaice/seaice_freedrift.F |
139 |
SEAICE_FREEDRIFT |
if (tmpscal4.GT.0) then |
|
./pkg/seaice/seaice_freedrift.F |
42 |
SEAICE_FREEDRIFT |
_RL tmpscal1,tmpscal2,tmpscal3,tmpscal4 |
|
./pkg/seaice/seaice_growth.F |
1027 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1043 |
SEAICE_GROWTH |
tmpscal4 = d_HEFFbyATMonOCN_open(I,J) |
|
./pkg/seaice/seaice_growth.F |
1046 |
SEAICE_GROWTH |
tmpscal4 = MAX(ZERO,a_QbyATM_open(I,J)) |
|
./pkg/seaice/seaice_growth.F |
1052 |
SEAICE_GROWTH |
d_AREAbyATM(I,J)=tmpscal4/HO_south |
|
./pkg/seaice/seaice_growth.F |
1054 |
SEAICE_GROWTH |
d_AREAbyATM(I,J)=tmpscal4/HO |
|
./pkg/seaice/seaice_growth.F |
169 |
SEAICE_GROWTH |
_RL tmpscal1, tmpscal2, tmpscal3, tmpscal4 |