| File |
Line number |
Procedure |
Code |
|
./pkg/ggl90/ggl90_calc.F |
172 |
GGL90_CALC |
verticalShear = tempU*tempU + tempV*tempV |
|
./pkg/ggl90/ggl90_calc.F |
86 |
GGL90_CALC |
_RL tempU, tempV, prTemp |
|
./pkg/seaice/seaice_exch_uv.F |
28 |
SEAICE_EXCH_UV |
_RL tempU(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_exch_uv.F |
37 |
SEAICE_EXCH_UV |
tempU(i,j,bi,bj)=ufld(i,j,k,bi,bj) |
|
./pkg/seaice/seaice_exch_uv.F |
43 |
SEAICE_EXCH_UV |
CALL EXCH_UV_XY_RL(tempU,tempV,.TRUE.,myThid) |
|
./pkg/seaice/seaice_exch_uv.F |
48 |
SEAICE_EXCH_UV |
ufld(i,j,k,bi,bj)=tempU(i,j,bi,bj) |