| File |
Line number |
Procedure |
Code |
|
./pkg/seaice/cost_ice_test.F |
150 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
166 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
181 |
COST_ICE_TEST |
& (THETA(i,j,kSrf,bi,bj) + 1.96 _d 0 ) * |
|
./pkg/seaice/cost_ice_test.F |
75 |
COST_ICE_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/seaice/cost_ice_test.F |
90 |
COST_ICE_TEST |
kSrf = 1 |
|
./pkg/seaice/cost_ice_test.F |
93 |
COST_ICE_TEST |
& theta(4,4,kSrf,1,1), area(4,4,1,1), heff(4,4,1,1) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
153 |
SEAICE_BOTTOMDRAG_COEFFS |
& * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
76 |
SEAICE_BOTTOMDRAG_COEFFS |
INTEGER kSrf |
|
./pkg/seaice/seaice_bottomdrag_coeffs.F |
84 |
SEAICE_BOTTOMDRAG_COEFFS |
kSrf=1 |
|
./pkg/seaice/seaice_calc_rhs.F |
103 |
SEAICE_CALC_RHS |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
106 |
SEAICE_CALC_RHS |
& ( uVel(I,J ,kSrf,bi,bj)+uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
108 |
SEAICE_CALC_RHS |
& ( uVel(I,J-1,kSrf,bi,bj)+uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_calc_rhs.F |
56 |
SEAICE_CALC_RHS |
INTEGER kSrf |
|
./pkg/seaice/seaice_calc_rhs.F |
64 |
SEAICE_CALC_RHS |
kSrf=1 |
|
./pkg/seaice/seaice_calc_rhs.F |
94 |
SEAICE_CALC_RHS |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_calc_rhs.F |
97 |
SEAICE_CALC_RHS |
& ( vVel(I ,J,kSrf,bi,bj)+vVel(I ,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_calc_rhs.F |
99 |
SEAICE_CALC_RHS |
& ( vVel(I-1,J,kSrf,bi,bj)+vVel(I-1,J+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_evp.F |
102 |
SEAICE_EVP |
INTEGER kSrf |
|
./pkg/seaice/seaice_evp.F |
186 |
SEAICE_EVP |
kSrf = 1 |
|
./pkg/seaice/seaice_evp.F |
438 |
SEAICE_EVP |
& * recip_rA(I,J,bi,bj) ) * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
448 |
SEAICE_EVP |
sumNorm = maskC(I,J, kSrf,bi,bj)+maskC(I-1,J, kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
449 |
SEAICE_EVP |
& + maskC(I,J-1,kSrf,bi,bj)+maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
784 |
SEAICE_EVP |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
787 |
SEAICE_EVP |
& (vVel(I ,J ,kSrf,bi,bj)-vIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
788 |
SEAICE_EVP |
& +vVel(I ,J+1,kSrf,bi,bj)-vIce(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
790 |
SEAICE_EVP |
& (vVel(I-1,J ,kSrf,bi,bj)-vIce(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
791 |
SEAICE_EVP |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIce(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
795 |
SEAICE_EVP |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
798 |
SEAICE_EVP |
& (uVel(I ,J ,kSrf,bi,bj)-uIce(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
799 |
SEAICE_EVP |
& +uVel(I+1,J ,kSrf,bi,bj)-uIce(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_evp.F |
801 |
SEAICE_EVP |
& (uVel(I ,J-1,kSrf,bi,bj)-uIce(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_evp.F |
802 |
SEAICE_EVP |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIce(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
179 |
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 |
180 |
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 |
44 |
SEAICE_FREEDRIFT |
INTEGER i, j, kSrf, bi, bj |
|
./pkg/seaice/seaice_freedrift.F |
55 |
SEAICE_FREEDRIFT |
kSrf=1 |
|
./pkg/seaice/seaice_freedrift.F |
91 |
SEAICE_FREEDRIFT |
uvel_cntr=HALF*(uvel(i,j,kSrf,bi,bj)+uvel(i+1,j,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_freedrift.F |
92 |
SEAICE_FREEDRIFT |
vvel_cntr=HALF*(vvel(i,j,kSrf,bi,bj)+vvel(i,j+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
1502 |
SEAICE_LSR_RHSU |
INTEGER kSrf |
|
./pkg/seaice/seaice_lsr.F |
1508 |
SEAICE_LSR_RHSU |
kSrf = 1 |
|
./pkg/seaice/seaice_lsr.F |
1537 |
SEAICE_LSR_RHSU |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1538 |
SEAICE_LSR_RHSU |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1560 |
SEAICE_LSR_RHSU |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1561 |
SEAICE_LSR_RHSU |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1633 |
SEAICE_LSR_RHSV |
INTEGER kSrf |
|
./pkg/seaice/seaice_lsr.F |
1639 |
SEAICE_LSR_RHSV |
kSrf = 1 |
|
./pkg/seaice/seaice_lsr.F |
1669 |
SEAICE_LSR_RHSV |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1670 |
SEAICE_LSR_RHSV |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1692 |
SEAICE_LSR_RHSV |
& *maskC(I ,J ,kSrf,bi,bj)*maskC(I-1,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
1693 |
SEAICE_LSR_RHSV |
& *maskC(I ,J-1,kSrf,bi,bj)*maskC(I-1,J-1,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
256 |
SEAICE_LSR |
kSrf = 1 |
|
./pkg/seaice/seaice_lsr.F |
382 |
SEAICE_LSR |
& COSWAT * uVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
385 |
SEAICE_LSR |
& (vVel(I ,J ,kSrf,bi,bj)-vIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
386 |
SEAICE_LSR |
& +vVel(I ,J+1,kSrf,bi,bj)-vIceC(I ,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
388 |
SEAICE_LSR |
& (vVel(I-1,J ,kSrf,bi,bj)-vIceC(I-1,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
389 |
SEAICE_LSR |
& +vVel(I-1,J+1,kSrf,bi,bj)-vIceC(I-1,J+1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
393 |
SEAICE_LSR |
& COSWAT * vVel(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
396 |
SEAICE_LSR |
& (uVel(I ,J ,kSrf,bi,bj)-uIceC(I ,J ,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
397 |
SEAICE_LSR |
& +uVel(I+1,J ,kSrf,bi,bj)-uIceC(I+1,J ,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
399 |
SEAICE_LSR |
& (uVel(I ,J-1,kSrf,bi,bj)-uIceC(I ,J-1,bi,bj) |
|
./pkg/seaice/seaice_lsr.F |
400 |
SEAICE_LSR |
& +uVel(I+1,J-1,kSrf,bi,bj)-uIceC(I+1,J-1,bi,bj)) |
|
./pkg/seaice/seaice_lsr.F |
86 |
SEAICE_LSR |
INTEGER kSrf |
|
./pkg/seaice/seaice_ocean_stress.F |
100 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(vIce(I ,J ,bi,bj)-vVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
101 |
SEAICE_OCEAN_STRESS |
& +vIce(I ,J+1,bi,bj)-vVel(I ,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
103 |
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 |
104 |
SEAICE_OCEAN_STRESS |
& +vIce(I-1,J+1,bi,bj)-vVel(I-1,J+1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
108 |
SEAICE_OCEAN_STRESS |
& ( vIce(I,J,bi,bj)-vVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_ocean_stress.F |
111 |
SEAICE_OCEAN_STRESS |
& 0.5 _d 0*(uIce(I ,J ,bi,bj)-uVel(I ,J ,kSrf,bi,bj) |
|
./pkg/seaice/seaice_ocean_stress.F |
112 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J ,bi,bj)-uVel(I+1,J ,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
114 |
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 |
115 |
SEAICE_OCEAN_STRESS |
& +uIce(I+1,J-1,bi,bj)-uVel(I+1,J-1,kSrf,bi,bj)) |
|
./pkg/seaice/seaice_ocean_stress.F |
42 |
SEAICE_OCEAN_STRESS |
INTEGER kSrf |
|
./pkg/seaice/seaice_ocean_stress.F |
49 |
SEAICE_OCEAN_STRESS |
kSrf = 1 |
|
./pkg/seaice/seaice_ocean_stress.F |
97 |
SEAICE_OCEAN_STRESS |
& ( uIce(I,J,bi,bj)-uVel(I,J,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
114 |
SEAICE_OCEANDRAG_COEFFS |
CwatC(I,J,bi,bj) = CwatC(I,J,bi,bj) * maskC(I,J,kSrf,bi,bj) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
66 |
SEAICE_OCEANDRAG_COEFFS |
INTEGER kSrf |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
70 |
SEAICE_OCEANDRAG_COEFFS |
kSrf=1 |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
79 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
80 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,j,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
82 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i, j ,bi,bj)-vVel(i, j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
83 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
87 |
SEAICE_OCEANDRAG_COEFFS |
& ( ( uIceLoc(i ,j,bi,bj)-uVel(i ,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
89 |
SEAICE_OCEANDRAG_COEFFS |
& +( uIceLoc(i+1,J,bi,bj)-uVel(i+1,j,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
91 |
SEAICE_OCEANDRAG_COEFFS |
& + ( ( vIceLoc(i,j ,bi,bj)-vVel(i,j ,kSrf,bi,bj) ) |
|
./pkg/seaice/seaice_oceandrag_coeffs.F |
93 |
SEAICE_OCEANDRAG_COEFFS |
& +( vIceLoc(i,j+1,bi,bj)-vVel(i,j+1,kSrf,bi,bj) ) |
|
./pkg/thsice/thsice_cost_test.F |
71 |
THSICE_COST_TEST |
integer bi,bj,i,j,kSrf |
|
./pkg/thsice/thsice_cost_test.F |
86 |
THSICE_COST_TEST |
kSrf = 1 |