| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
131 |
SEAICE_SOLVE4TEMP |
_RL F_lh (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
235 |
SEAICE_SOLVE4TEMP |
F_lh (I,J) = 0. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
404 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I*UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
408 |
SEAICE_SOLVE4TEMP |
IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
409 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh_max(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
417 |
SEAICE_SOLVE4TEMP |
& + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
507 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = D1I * UG(I,J)*(qhice(I,J)-AQH(I,J,bi,bj)) |
|
./pkg/seaice/seaice_solve4temp.F |
509 |
SEAICE_SOLVE4TEMP |
IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
510 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh_max(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
517 |
SEAICE_SOLVE4TEMP |
& + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
524 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
535 |
SEAICE_SOLVE4TEMP |
FWsublim(I,J) = F_lh(I,J)/lhSublim |
|
./pkg/seaice/seaice_solve4temp.F |
567 |
SEAICE_SOLVE4TEMP |
& F_c(I,J), F_lh(I,J), F_sens(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
572 |
SEAICE_SOLVE4TEMP |
& F_lh_max(I,J), F_lh(I,J)/ F_lh_max(I,J) |