| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1701 |
TRBFLX |
DO 2000 ITER = 1, ITRTRB |
|
./pkg/fizhi/fizhi_turb.F |
1703 |
TRBFLX |
IF ( ITER .GE. ITRTRB ) LAST = .TRUE. |
|
./pkg/fizhi/fizhi_turb.F |
1707 |
TRBFLX |
IF(ITER.EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
1803 |
TRBFLX |
IF(ITER.EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
2283 |
TRBFLX |
IF(ITER.EQ.ITRTRB)THEN |
|
./pkg/fizhi/fizhi_turb.F |
2582 |
SFCFLX |
DO 200 ITER = 1,N |
|
./pkg/fizhi/fizhi_turb.F |
2607 |
SFCFLX |
IF(ITER.EQ.N) ITYPE = 4 |
|
./pkg/fizhi/fizhi_turb.F |
2646 |
SFCFLX |
IF ( ITER .EQ. N ) THEN |
|
./pkg/seaice/seaice_solve4temp.F |
354 |
SEAICE_SOLVE4TEMP |
DO ITER=1,IMAX_TICE |
|
./pkg/seaice/seaice_solve4temp.F |
358 |
SEAICE_SOLVE4TEMP |
iicekey = I + sNx*(J-1) + (ITER-1)*sNx*sNy |
|
./pkg/seaice/seaice_solve4temp.F |
423 |
SEAICE_SOLVE4TEMP |
& 'ice-iter qhICE, ', ITER,qhIce(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
425 |
SEAICE_SOLVE4TEMP |
& 'ice-iter dFiDTs1 F_ia ', ITER, |
|
./pkg/seaice/seaice_solve4temp.F |
453 |
SEAICE_SOLVE4TEMP |
& 'ice-iter tsurfLc,|dif|', ITER, |
|
./pkg/seaice/seaice_solve4temp.F |
94 |
SEAICE_SOLVE4TEMP |
INTEGER ITER |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
25 |
ADSTRMICE_H_INV |
INTEGER ITER, i, j, bi, bj |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
32 |
STREAMICE_INVERT_SURF_FORTHICK |
INTEGER i, j, bi, bj, ITER |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
56 |
STREAMICE_INVERT_SURF_FORTHICK |
DO ITER=1,20 |