| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/cost_ice_test.F |
149 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
165 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
180 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
74 |
COST_ICE_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/seaice/cost_ice_test.F |
89 |
COST_ICE_TEST |
kSrf = 1 |
|
./pkg/seaice/cost_ice_test.F |
91 |
COST_ICE_TEST |
print *, 'ph-ice B ', myiter, theta(4,4,kSrf,1,1), |
|
./pkg/seaice/seaice_evp.F |
431 |
SEAICE_EVP |
& ( uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
432 |
SEAICE_EVP |
& + uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_evp.F |
433 |
SEAICE_EVP |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
434 |
SEAICE_EVP |
& + vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_evp.F |
460 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
463 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
464 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
466 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
467 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
471 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
474 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
475 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
477 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
478 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
537 |
SEAICE_EVP |
uIce(I,J,bi,bj)=uIceC(I,J,bi,bj)* _maskW(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
538 |
SEAICE_EVP |
vIce(I,J,bi,bj)=vIceC(I,J,bi,bj)* _maskS(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
63 |
SEAICE_EVP |
INTEGER kSrf |
|
./pkg/seaice/seaice_evp.F |
99 |
SEAICE_EVP |
kSrf = 1 |
|
./pkg/seaice/seaice_freedrift.F |
181 |
SEAICE_FREEDRIFT |
uIce_fd(i,j,bi,bj)=uIce_fd(i,j,bi,bj)* _maskW(i,j,kSrf,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
182 |
SEAICE_FREEDRIFT |
vIce_fd(i,j,bi,bj)=vIce_fd(i,j,bi,bj)* _maskS(i,j,kSrf,bi,bj) |
|
./pkg/seaice/seaice_freedrift.F |
40 |
SEAICE_FREEDRIFT |
INTEGER i, j, kSrf, bi, bj |
|
./pkg/seaice/seaice_freedrift.F |
51 |
SEAICE_FREEDRIFT |
kSrf=1 |
|
./pkg/seaice/seaice_freedrift.F |
93 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
94 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
125 |
SEAICE_LSR |
kSrf = 1 |
|
./pkg/seaice/seaice_lsr.F |
221 |
SEAICE_LSR |
& (uIceC(I ,J,bi,bj)-uVel(I ,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
222 |
SEAICE_LSR |
& +uIceC(I+1,J,bi,bj)-uVel(I+1,J,kSrf,bi,bj))**2 |
|
./pkg/seaice/seaice_lsr.F |
223 |
SEAICE_LSR |
& +(vIceC(I,J ,bi,bj)-vVel(I,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
224 |
SEAICE_LSR |
& +vIceC(I,J+1,bi,bj)-vVel(I,J+1,kSrf,bi,bj))**2) |
|
./pkg/seaice/seaice_lsr.F |
250 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
253 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
254 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
256 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
257 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
261 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
264 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
265 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
267 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
268 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
59 |
SEAICE_LSR |
INTEGER kSrf |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
102 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I-1,J ,bi,bj)-vVel(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
107 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
110 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
113 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J-1,bi,bj)-uVel(I ,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
41 |
SEAICE_OCEAN_STRESS |
INTEGER kSrf |
|
./pkg/seaice/seaice_ocean_stress.F |
48 |
SEAICE_OCEAN_STRESS |
kSrf = 1 |
|
./pkg/seaice/seaice_ocean_stress.F |
96 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
99 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_solve4temp.F |
107 |
SEAICE_SOLVE4TEMP |
INTEGER kSrf |
|
./pkg/seaice/seaice_solve4temp.F |
170 |
SEAICE_SOLVE4TEMP |
kSrf = 1 |
|
./pkg/seaice/seaice_solve4temp.F |
247 |
SEAICE_SOLVE4TEMP |
TB(I,J) = -0.0575 _d 0*salt(I,J,kSrf,bi,bj) + 0.0901 _d 0 |