| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
129 |
SEAICE_SOLVE4TEMP |
_RL qhice (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
230 |
SEAICE_SOLVE4TEMP |
qhice (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
375 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
386 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |
|
./pkg/seaice/seaice_solve4temp.F |
401 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
492 |
SEAICE_SOLVE4TEMP |
qhice(I,J)=QS1*(C1*t4+C2*t3 +C3*t2+C4*t1+C5) |
|
./pkg/seaice/seaice_solve4temp.F |
501 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |
|
./pkg/seaice/seaice_solve4temp.F |
504 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
558 |
SEAICE_SOLVE4TEMP |
& AQH(I,J,bi,bj),qhice(I,J) |