| 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 |
29 |
SEAICE_EXCH_UV |
_RL tempV(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_exch_uv.F |
38 |
SEAICE_EXCH_UV |
tempV(i,j,bi,bj)=vfld(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 |
49 |
SEAICE_EXCH_UV |
vfld(i,j,k,bi,bj)=tempV(i,j,bi,bj) |