File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
458 |
INTERP_TIME |
LOGICAL FIRST |
./pkg/fizhi/fizhi_clockstuff.F |
459 |
INTERP_TIME |
DATA FIRST/.TRUE./ |
./pkg/fizhi/fizhi_clockstuff.F |
489 |
INTERP_TIME |
IF(FIRST) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
493 |
INTERP_TIME |
FIRST=.FALSE. |
./pkg/fizhi/fizhi_clockstuff.F |
915 |
ASTRO |
LOGICAL FIRST |
./pkg/fizhi/fizhi_clockstuff.F |
916 |
ASTRO |
DATA FIRST/.TRUE./ |
./pkg/fizhi/fizhi_clockstuff.F |
950 |
ASTRO |
IF(FIRST) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
974 |
ASTRO |
FIRST=.FALSE. |
./pkg/fizhi/fizhi_moist.F |
136 |
MOISTIO |
DATA FIRST /.TRUE./ |
./pkg/fizhi/fizhi_turb.F |
1392 |
TRBFLX |
LOGICAL FIRST,LAST |
./pkg/fizhi/fizhi_turb.F |
1695 |
TRBFLX |
FIRST = .TRUE. |
./pkg/fizhi/fizhi_turb.F |
1765 |
TRBFLX |
6 FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV), |
./pkg/fizhi/fizhi_turb.F |
2045 |
TRBFLX |
IF ( TPROF .AND. FIRST ) THEN |
./pkg/fizhi/fizhi_turb.F |
2279 |
TRBFLX |
FIRST = .FALSE. |
./pkg/fizhi/fizhi_turb.F |
2321 |
SFCFLX |
2 VAHS,FIRST,LAST,N,IRUN,aitr,VRHO,VRHOZPK,VKH,VKM, |
./pkg/fizhi/fizhi_turb.F |
2378 |
SFCFLX |
LOGICAL FIRST,LAST |
./pkg/fizhi/fizhi_turb.F |
2437 |
SFCFLX |
IF (.NOT. FIRST) GO TO 100 |
./pkg/fizhi/fizhi_turb.F |
2674 |
SFCFLX |
IF (FIRST) THEN |
./pkg/chronos/chronos.F |
412 |
INTERP_TIME |
LOGICAL FIRST |
./pkg/chronos/chronos.F |
413 |
INTERP_TIME |
DATA FIRST/.TRUE./ |
./pkg/chronos/chronos.F |
443 |
INTERP_TIME |
IF(FIRST) THEN |
./pkg/chronos/chronos.F |
447 |
INTERP_TIME |
FIRST=.FALSE. |
./pkg/chronos/chronos.F |
760 |
ASTRO |
LOGICAL FIRST |
./pkg/chronos/chronos.F |
761 |
ASTRO |
DATA FIRST/.TRUE./ |
./pkg/chronos/chronos.F |
783 |
ASTRO |
IF(FIRST) THEN |
./pkg/chronos/chronos.F |
807 |
ASTRO |
FIRST=.FALSE. |