| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_solve4temp.F |
117 |
SEAICE_SOLVE4TEMP |
_RL aa1,aa2,bb1,bb2,Ppascals,cc0,cc1,cc2,cc3t |
|
./pkg/seaice/seaice_solve4temp.F |
176 |
SEAICE_SOLVE4TEMP |
Ppascals = 100000. _d 0 |
|
./pkg/seaice/seaice_solve4temp.F |
179 |
SEAICE_SOLVE4TEMP |
cc1 = cc0*aa1*bb1*Ppascals*lnTEN |
|
./pkg/seaice/seaice_solve4temp.F |
389 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |
|
./pkg/seaice/seaice_solve4temp.F |
395 |
SEAICE_SOLVE4TEMP |
dqh_dTs(I,J) = cc1*cc3t/((cc2-cc3t*Ppascals)**2 *t2) |
|
./pkg/seaice/seaice_solve4temp.F |
504 |
SEAICE_SOLVE4TEMP |
qhice(I,J) = bb1*mm_pi/( Ppascals -(1.0 _d 0 - bb1)*mm_pi ) |