| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_utils.F |
335 |
QSAT |
w = (40.0 + t)/40.0 |
|
./pkg/fizhi/fizhi_utils.F |
336 |
QSAT |
qx = w *(aw0+T*(aw1+T*(aw2+T*(aw3+T*(aw4+T*(aw5+T*aw6)))))) |
|
./pkg/fizhi/fizhi_utils.F |
337 |
QSAT |
. + (1.-w)*(ai0+T*(ai1+T*(ai2+T*(ai3+T*(ai4+T*(ai5+T*ai6)))))) |
|
./pkg/fizhi/fizhi_utils.F |
339 |
QSAT |
dqx = w *(bw0+T*(bw1+T*(bw2+T*(bw3+T*(bw4+T*(bw5+T*bw6)))))) |
|
./pkg/fizhi/fizhi_utils.F |
340 |
QSAT |
. + (1.-w)*(bi0+T*(bi1+T*(bi2+T*(bi3+T*(bi4+T*(bi5+T*bi6)))))) |
|
./pkg/seaice/seaice_fgmres.F |
129 |
SEAICE_FGMRES_DRIVER |
U vv,w,wk1,wk2, |
|
./pkg/seaice/seaice_fgmres.F |
335 |
SEAICE_FGMRES |
U sol,i,its,vv,w,wk1,wk2, |
|
./pkg/seaice/seaice_fgmres.F |
374 |
SEAICE_FGMRES |
_RL vv(n,im+1,nSx,nSy), w(n,im,nSx,nSy) |
|
./pkg/seaice/seaice_fgmres.F |
565 |
SEAICE_FGMRES |
w(k,i,bi,bj) = wk2(k,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
704 |
SEAICE_FGMRES |
sol(k,bi,bj) = sol(k,bi,bj) + t*w(k,j,bi,bj) |
|
./pkg/seaice/seaice_fgmres.F |
87 |
SEAICE_FGMRES_DRIVER |
_RL vv(nVec,im+1,nSx,nSy), w(nVec,im,nSx,nSy) |
|
./pkg/seaice/seaice_fgmres.F |
92 |
SEAICE_FGMRES_DRIVER |
COMMON /FGMRES_RL/ sol, rhs, vv, w |