| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1953 |
TRBFLX |
DO 2000 ITER = 1, ITRTRB |
|
./pkg/fizhi/fizhi_turb.F |
1955 |
TRBFLX |
IF ( ITER .GE. ITRTRB ) LAST = .TRUE. |
|
./pkg/fizhi/fizhi_turb.F |
1959 |
TRBFLX |
IF(ITER.EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2059 |
TRBFLX |
IF(ITER.EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2722 |
TRBFLX |
IF(ITER.EQ.ITRTRB)THEN |
|
./pkg/fizhi/fizhi_turb.F |
3034 |
SFCFLX |
DO 200 ITER = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
3059 |
SFCFLX |
IF(ITER.EQ.N) ITYPE = 4 |
|
./pkg/fizhi/fizhi_turb.F |
3098 |
SFCFLX |
IF ( ITER .EQ. N ) THEN |
|
./pkg/seaice/seaice_budget_ice_if.F |
223 |
SEAICE_BUDGET_ICE_IF |
DO ITER=1,IMAX_TICE |
|
./pkg/seaice/seaice_budget_ice_if.F |
273 |
SEAICE_BUDGET_ICE_IF |
print *,'ice-iter tsurfLc,|dif|', I,J, ITER,tsurfLoc(I,J), |
|
./pkg/seaice/seaice_budget_ice_if.F |
75 |
SEAICE_BUDGET_ICE_IF |
INTEGER ITER |
|
./pkg/seaice/seaice_budget_ocean_if.F |
58 |
SEAICE_BUDGET_OCEAN_IF |
INTEGER ITER |
|
./pkg/seaice/seaice_solve4temp.F |
109 |
SEAICE_SOLVE4TEMP |
INTEGER ITER |
|
./pkg/seaice/seaice_solve4temp.F |
403 |
SEAICE_SOLVE4TEMP |
DO ITER=1,IMAX_TICE |
|
./pkg/seaice/seaice_solve4temp.F |
407 |
SEAICE_SOLVE4TEMP |
iicekey = I + sNx*(J-1) + (ITER-1)*sNx*sNy |
|
./pkg/seaice/seaice_solve4temp.F |
472 |
SEAICE_SOLVE4TEMP |
& 'ice-iter qhICE, ', ITER,qhIce(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
476 |
SEAICE_SOLVE4TEMP |
& 'ice-iter A1 A2 B ', ITER,A1(I,J), A2(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
480 |
SEAICE_SOLVE4TEMP |
& 'ice-iter A3 (-A1+A2) ', ITER, A3(I,J), |
|
./pkg/seaice/seaice_solve4temp.F |
485 |
SEAICE_SOLVE4TEMP |
& 'ice-iter dFiDTs1 F_ia ', ITER, dFiDTs1, |
|
./pkg/seaice/seaice_solve4temp.F |
520 |
SEAICE_SOLVE4TEMP |
& 'ice-iter tsurfLc,|dif|', ITER, |