| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_gwdrag.F |
385 |
GWDD |
ro(i,L) = pl(i,Lm+1-L)/(rgas*t(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
393 |
GWDD |
roiave = ( 1./ro(i,L-1) + 1./ro(i,L) )*0.5 |
|
./pkg/fizhi/fizhi_gwdrag.F |
413 |
GWDD |
robar(i) = robar(i) + ro(i,L) * (ple(i,Lm+2-L)-ple(i,Lm+1-L)) |
|
./pkg/fizhi/fizhi_gwdrag.F |
496 |
GWDD |
roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0 |
|
./pkg/fizhi/fizhi_gwdrag.F |
569 |
GWDD |
roave = 0.5*(ro(i,L-1)+ro(i,L)) * 100.0 |
|
./pkg/seaice/seaice_fgmres.F |
470 |
SEAICE_FGMRES |
_RL rs(4*imax+1),t,ro |
|
./pkg/seaice/seaice_fgmres.F |
484 |
SEAICE_FGMRES |
& hh, c, s, rs, t, ro, r0, gam, epsmac, eps1 |
|
./pkg/seaice/seaice_fgmres.F |
518 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, 1, 1, vv, vv, ro, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
519 |
SEAICE_FGMRES |
ro = sqrt(ro) |
|
./pkg/seaice/seaice_fgmres.F |
520 |
SEAICE_FGMRES |
if (ro .eq. 0.0 _d 0) goto 999 |
|
./pkg/seaice/seaice_fgmres.F |
521 |
SEAICE_FGMRES |
t = 1.0 _d 0/ ro |
|
./pkg/seaice/seaice_fgmres.F |
531 |
SEAICE_FGMRES |
if (its .eq. 0) r0 = ro |
|
./pkg/seaice/seaice_fgmres.F |
534 |
SEAICE_FGMRES |
write(msgBuf, 199) its, ro |
|
./pkg/seaice/seaice_fgmres.F |
543 |
SEAICE_FGMRES |
rs(1) = ro |
|
./pkg/seaice/seaice_fgmres.F |
672 |
SEAICE_FGMRES |
ro = abs(rs(i1)) |
|
./pkg/seaice/seaice_fgmres.F |
675 |
SEAICE_FGMRES |
write(msgBuf, 199) its, ro |
|
./pkg/seaice/seaice_fgmres.F |
680 |
SEAICE_FGMRES |
if (i .lt. im .and. (ro .gt. eps1)) goto 4 |
|
./pkg/seaice/seaice_fgmres.F |
712 |
SEAICE_FGMRES |
if (ro .le. eps1 .or. its .ge. maxits) goto 999 |