| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1435 |
TRBFLX |
1 IWATER,Z0,tracers,ntrace,ntracedim,DTAU,ITRTRB,KMBG,KHBG,QBEG, |
|
./pkg/fizhi/fizhi_turb.F |
1489 |
TRBFLX |
integer IWATER(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1873 |
TRBFLX |
IF (IWATER(I).EQ.0 ) FLXFPK(I,NLEVP1) = 1. / PLKE(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
2016 |
TRBFLX |
5 IWATER,HS,AHS, |
|
./pkg/fizhi/fizhi_turb.F |
2891 |
SFCFLX |
IWATER = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2893 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2896 |
SFCFLX |
IF(IWATER.GE.1)LWATER = .TRUE. |
|
./pkg/fizhi/fizhi_turb.F |
4648 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4699 |
LINADJ |
integer IWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4739 |
LINADJ |
IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4757 |
LINADJ |
CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2) |
|
./pkg/fizhi/fizhi_turb.F |
4760 |
LINADJ |
IF ( IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4773 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = VDZ0(I) * VAZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4798 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4819 |
LINADJ |
IF(IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4847 |
LINADJ |
IF(LWATER.AND.(IWATER(I).EQ.1)) VXNUM(I) = VXNUM(I) + VXNUM2(I) |
|
./pkg/fizhi/fizhi_turb.F |
4884 |
LINADJ |
IF( IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4893 |
LINADJ |
IF(IWATER(I).EQ.1) VZCOEF1(I) = VG(I) * VAWS1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4899 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
4908 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4920 |
LINADJ |
IF (IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4956 |
LINADJ |
IF ( IWATER(I).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
4964 |
ZCSUB |
SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA) |
|
./pkg/fizhi/fizhi_turb.F |
4990 |
ZCSUB |
integer IWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
5032 |
ZCSUB |
IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN |