| File |
Line number |
Procedure |
Code |
|
./model/src/ini_spherical_polar_grid.F |
316 |
INI_SPHERICAL_POLAR_GRID |
tanPhiAtU(I,J,bi,bj)=tan(lat*deg2rad) |
|
./model/src/ini_cylinder_grid.F |
224 |
INI_CYLINDER_GRID |
tanPhiAtU(I,J,bi,bj) = 0. |
|
./model/src/ini_curvilinear_grid.F |
97 |
INI_CURVILINEAR_GRID |
tanPhiAtU(i,j,bi,bj)=0. |
|
./model/src/ini_cartesian_grid.F |
199 |
INI_CARTESIAN_GRID |
tanPhiAtU(I,J,bi,bj) = 0. |
|
./model/inc/GRID.h |
395 |
NO PROCEDURE |
& tanPhiAtU, tanPhiAtV, angleCosC, angleSinC, |
|
./model/inc/GRID.h |
450 |
NO PROCEDURE |
_RS tanPhiAtU (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/seaice/seaice_lsr.F |
448 |
SEAICE_LSR |
AA5= zetaMinusEta(I,J ,bi,bj) * tanPhiAtU(I,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
450 |
SEAICE_LSR |
AA6= zetaMinusEta(I,J-1,bi,bj) * tanPhiAtU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
567 |
SEAICE_LSR |
& + zetaMinusEta(I,J-1,bi,bj) * tanPhiAtU(I,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
577 |
SEAICE_LSR |
& - zetaMinusEta(I,J ,bi,bj) * tanPhiAtU(I,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
187 |
SEAICE_OCEAN_STRESS |
& zetaMinusEta(I,J ) * tanPhiAtU(I,J ,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
189 |
SEAICE_OCEAN_STRESS |
& - zetaMinusEta(I,J-1) * tanPhiAtU(I,J-1,bi,bj) |