| File |
Line number |
Procedure |
Code |
|
./model/src/ini_p_ground.F |
471 |
ANALYLIC_THETA |
yAtmp = COS( deg2rad*MAX(yAtmp, 0. _d 0) ) |
|
./model/src/ini_p_ground.F |
474 |
ANALYLIC_THETA |
yBtmp = COS( deg2rad*MAX( 0. _d 0, MIN(yBtmp,90. _d 0) ) ) |
|
./pkg/exf/exf_set_uv.F |
185 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
190 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
276 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
281 |
EXF_SET_UV |
dx=dx*cos(deg2rad*yC(i,j,bi,bj)) |
|
./pkg/seaice/seaice_init.F |
110 |
SEAICE_INIT |
SINEICE(i,j,bi,bj)=sin(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_init.F |
112 |
SEAICE_INIT |
SINEICE(i,j,bi,bj)=sin(yG(I,J,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_init.F |
94 |
SEAICE_INIT |
CSTICE(i,j,bi,bj) =cos(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/seaice/seaice_init.F |
95 |
SEAICE_INIT |
CSUICE(i,j,bi,bj) =cos(yG(I,J,bi,bj)*deg2rad) |