| 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 |
357 |
SEAICE_SOLVE4TEMP |
DO ITER=1,IMAX_TICE |
|
./pkg/seaice/seaice_solve4temp.F |
361 |
SEAICE_SOLVE4TEMP |
iicekey = I + sNx*(J-1) + (ITER-1)*sNx*sNy |
|
./pkg/seaice/seaice_solve4temp.F |
426 |
SEAICE_SOLVE4TEMP |
& 'ice-iter qhICE, ', ITER,qhIce(I,J) |
|
./pkg/seaice/seaice_solve4temp.F |
428 |
SEAICE_SOLVE4TEMP |
& 'ice-iter dFiDTs1 F_ia ', ITER, |
|
./pkg/seaice/seaice_solve4temp.F |
456 |
SEAICE_SOLVE4TEMP |
& 'ice-iter tsurfLc,|dif|', ITER, |
|
./pkg/seaice/seaice_solve4temp.F |
97 |
SEAICE_SOLVE4TEMP |
INTEGER ITER |
|
./pkg/streamice/adstreamice_invert_surf_forthick.F |
36 |
ADSTRMICE_H_INV |
INTEGER ITER, i, j, bi, bj |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
45 |
STREAMICE_INVERT_SURF_FORTHICK |
INTEGER i, j, bi, bj, ITER |
|
./pkg/streamice/streamice_invert_surf_forthick.F |
71 |
STREAMICE_INVERT_SURF_FORTHICK |
DO ITER=1,20 |