| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_budget_ice_if.F |
100 |
SEAICE_BUDGET_ICE_IF |
Ppascals = 1000.*100. |
|
./pkg/seaice/seaice_budget_ice_if.F |
102 |
SEAICE_BUDGET_ICE_IF |
cc1 = cc0*aa1*bb1*Ppascals*log(10.0) |
|
./pkg/seaice/seaice_budget_ice_if.F |
237 |
SEAICE_BUDGET_ICE_IF |
qhice_mm(I,J) = bb1*mm_pi / (Ppascals - (1.0 - bb1) * mm_pi) |
|
./pkg/seaice/seaice_budget_ice_if.F |
242 |
SEAICE_BUDGET_ICE_IF |
dqhice_dTice = cc1 * cc3t /( (cc2-cc3t*Ppascals)**2 * t2) |
|
./pkg/seaice/seaice_budget_ice_if.F |
292 |
SEAICE_BUDGET_ICE_IF |
qhice_mm(I,J) = bb1*mm_pi / (Ppascals - (1.0 - bb1) * mm_pi) |
|
./pkg/seaice/seaice_budget_ice_if.F |
94 |
SEAICE_BUDGET_ICE_IF |
_RL aa1,aa2,bb1,bb2,Ppascals,cc0,cc1,cc2,cc3t,dFiDTs1 |
|
./pkg/seaice/seaice_solve4temp.F |
132 |
SEAICE_SOLVE4TEMP |
_RL aa1,aa2,bb1,bb2,Ppascals,cc0,cc1,cc2,cc3t |
|
./pkg/seaice/seaice_solve4temp.F |
162 |
SEAICE_SOLVE4TEMP |
Ppascals = 100000. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
165 |
SEAICE_SOLVE4TEMP |
cc1 = cc0*aa1*bb1*Ppascals*lnTEN |
|
./pkg/seaice/seaice_solve4temp.F |
436 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi / (Ppascals - (1.0 _d 0 - bb1) * |
|
./pkg/seaice/seaice_solve4temp.F |
453 |
SEAICE_SOLVE4TEMP |
dqhice_dTice = cc1*cc3t/((cc2-cc3t*Ppascals)**2 *t2) |
|
./pkg/seaice/seaice_solve4temp.F |
570 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/(Ppascals- (1.0 _d 0 - bb1) * mm_pi) |