| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
2465 |
SFCFLX |
IWATER = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2467 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2470 |
SFCFLX |
IF(IWATER.GE.1)LWATER = .TRUE. |
|
./pkg/fizhi/fizhi_turb.F |
4068 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4119 |
LINADJ |
integer IWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4159 |
LINADJ |
IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4177 |
LINADJ |
CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2) |
|
./pkg/fizhi/fizhi_turb.F |
4180 |
LINADJ |
IF ( IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4193 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = VDZ0(I) * VAZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4218 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4239 |
LINADJ |
IF(IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4267 |
LINADJ |
IF(LWATER.AND.(IWATER(I).EQ.1)) VXNUM(I) = VXNUM(I) + VXNUM2(I) |
|
./pkg/fizhi/fizhi_turb.F |
4304 |
LINADJ |
IF( IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4313 |
LINADJ |
IF(IWATER(I).EQ.1) VZCOEF1(I) = VG(I) * VAWS1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4319 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
4328 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4340 |
LINADJ |
IF (IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4376 |
LINADJ |
IF ( IWATER(I).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
4384 |
ZCSUB |
SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA) |
|
./pkg/fizhi/fizhi_turb.F |
4410 |
ZCSUB |
integer IWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4452 |
ZCSUB |
IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN |