| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
128 |
SEAICE_SOLVE4TEMP |
_RL F_lh (1:sNx,1:sNy) |
|
./pkg/seaice/seaice_solve4temp.F |
232 |
SEAICE_SOLVE4TEMP |
F_lh (I,J) = 0. _d 0 |
|
./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 |
405 |
SEAICE_SOLVE4TEMP |
IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
406 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh_max(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
414 |
SEAICE_SOLVE4TEMP |
& + F_sens(I,J) + F_lh(I,J) |
|
./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 |
506 |
SEAICE_SOLVE4TEMP |
IF (F_lh(I,J) .GT. F_lh_max(I,J)) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
507 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh_max(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
514 |
SEAICE_SOLVE4TEMP |
& + F_sens(I,J) + F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
521 |
SEAICE_SOLVE4TEMP |
F_lh(I,J) = F_lh(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
532 |
SEAICE_SOLVE4TEMP |
FWsublim(I,J) = F_lh(I,J)/lhSublim |
|
./pkg/seaice/seaice_solve4temp.F |
564 |
SEAICE_SOLVE4TEMP |
& F_c(I,J), F_lh(I,J), F_sens(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
569 |
SEAICE_SOLVE4TEMP |
& F_lh_max(I,J), F_lh(I,J)/ F_lh_max(I,J) |