| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/seaice_fgmres.F |
469 |
SEAICE_FGMRES |
_RL hh(4*imax+1,4*imax),c(4*imax),s(4*imax) |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
& hh, c, s, rs, t, ro, r0, gam, epsmac, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
604 |
SEAICE_FGMRES |
hh(j,i) = t |
|
./pkg/seaice/seaice_fgmres.F |
620 |
SEAICE_FGMRES |
hh(i1,i) = t |
|
./pkg/seaice/seaice_fgmres.F |
641 |
SEAICE_FGMRES |
t = hh(k1,i) |
|
./pkg/seaice/seaice_fgmres.F |
642 |
SEAICE_FGMRES |
hh(k1,i) = c(k1)*t + s(k1)*hh(k,i) |
|
./pkg/seaice/seaice_fgmres.F |
643 |
SEAICE_FGMRES |
hh(k,i) = -s(k1)*t + c(k1)*hh(k,i) |
|
./pkg/seaice/seaice_fgmres.F |
646 |
SEAICE_FGMRES |
gam = sqrt(hh(i,i)**2 + hh(i1,i)**2) |
|
./pkg/seaice/seaice_fgmres.F |
649 |
SEAICE_FGMRES |
c(i) = hh(i,i)/gam |
|
./pkg/seaice/seaice_fgmres.F |
650 |
SEAICE_FGMRES |
s(i) = hh(i1,i)/gam |
|
./pkg/seaice/seaice_fgmres.F |
671 |
SEAICE_FGMRES |
hh(i,i) = c(i)*hh(i,i) + s(i)*hh(i1,i) |
|
./pkg/seaice/seaice_fgmres.F |
684 |
SEAICE_FGMRES |
rs(i) = rs(i)/hh(i,i) |
|
./pkg/seaice/seaice_fgmres.F |
690 |
SEAICE_FGMRES |
t = t-hh(k,j)*rs(j) |
|
./pkg/seaice/seaice_fgmres.F |
692 |
SEAICE_FGMRES |
rs(k) = t/hh(k,k) |
|
./pkg/cal/cal_checkdate.F |
122 |
CAL_CHECKDATE |
hh = hhmmss/10000 |
|
./pkg/cal/cal_checkdate.F |
137 |
CAL_CHECKDATE |
IF ( hh.GE.hoursPerDay ) THEN |
|
./pkg/cal/cal_checkdate.F |
49 |
CAL_CHECKDATE |
INTEGER hh, mn, ss |