File |
Line number |
Procedure |
Code |
./pkg/fizhi/fizhi_clockstuff.F |
444 |
INTERP_TIME |
LOGICAL FIRST |
./pkg/fizhi/fizhi_clockstuff.F |
445 |
INTERP_TIME |
DATA FIRST/.TRUE./ |
./pkg/fizhi/fizhi_clockstuff.F |
475 |
INTERP_TIME |
IF(FIRST) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
479 |
INTERP_TIME |
FIRST=.FALSE. |
./pkg/fizhi/fizhi_clockstuff.F |
900 |
ASTRO |
LOGICAL FIRST |
./pkg/fizhi/fizhi_clockstuff.F |
901 |
ASTRO |
DATA FIRST/.TRUE./ |
./pkg/fizhi/fizhi_clockstuff.F |
935 |
ASTRO |
IF(FIRST) THEN |
./pkg/fizhi/fizhi_clockstuff.F |
959 |
ASTRO |
FIRST=.FALSE. |
./pkg/fizhi/fizhi_moist.F |
136 |
MOISTIO |
DATA FIRST /.TRUE./ |
./pkg/fizhi/fizhi_turb.F |
1562 |
TRBFLX |
LOGICAL FIRST,LAST |
./pkg/fizhi/fizhi_turb.F |
1947 |
TRBFLX |
FIRST = .TRUE. |
./pkg/fizhi/fizhi_turb.F |
2017 |
TRBFLX |
6 FIRST,LAST,N,irun,aitr,RHODZ2(1,NLEV),RHOZPK(1,NLEV), |
./pkg/fizhi/fizhi_turb.F |
2423 |
TRBFLX |
IF ( TPROF .AND. FIRST ) THEN |
./pkg/fizhi/fizhi_turb.F |
2718 |
TRBFLX |
FIRST = .FALSE. |
./pkg/fizhi/fizhi_turb.F |
2770 |
SFCFLX |
2 VAHS,FIRST,LAST,N,IRUN,aitr,VRHO,VRHOZPK,VKH,VKM, |
./pkg/fizhi/fizhi_turb.F |
2830 |
SFCFLX |
LOGICAL FIRST,LAST |
./pkg/fizhi/fizhi_turb.F |
2889 |
SFCFLX |
IF (.NOT. FIRST) GO TO 100 |
./pkg/fizhi/fizhi_turb.F |
3126 |
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. |