| 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 |
338 |
SEAICE_FGMRES |
_RL rs(4*imax+1,MAX_NO_THREADS),t,ro |
|
./pkg/seaice/seaice_fgmres.F |
383 |
SEAICE_FGMRES |
call SEAICE_SCALPROD(n, im+1, 1, 1, vv, vv, ro, myThid) |
|
./pkg/seaice/seaice_fgmres.F |
384 |
SEAICE_FGMRES |
ro = sqrt(ro) |
|
./pkg/seaice/seaice_fgmres.F |
385 |
SEAICE_FGMRES |
if (ro .eq. 0.0 _d 0) goto 999 |
|
./pkg/seaice/seaice_fgmres.F |
386 |
SEAICE_FGMRES |
t = 1.0 _d 0/ ro |
|
./pkg/seaice/seaice_fgmres.F |
396 |
SEAICE_FGMRES |
if (its .eq. 0) r0 = ro |
|
./pkg/seaice/seaice_fgmres.F |
399 |
SEAICE_FGMRES |
write(msgBuf, 199) its, ro |
|
./pkg/seaice/seaice_fgmres.F |
408 |
SEAICE_FGMRES |
rs(1,myThid) = ro |
|
./pkg/seaice/seaice_fgmres.F |
531 |
SEAICE_FGMRES |
ro = abs(rs(i1,myThid)) |
|
./pkg/seaice/seaice_fgmres.F |
534 |
SEAICE_FGMRES |
write(msgBuf, 199) its, ro |
|
./pkg/seaice/seaice_fgmres.F |
543 |
SEAICE_FGMRES |
& .and. (ro .gt. eps1(myThid))) goto 4 |
|
./pkg/seaice/seaice_fgmres.F |
574 |
SEAICE_FGMRES |
if (ro .le. eps1(myThid) .or. its .ge. maxits) goto 999 |