| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_turb.F |
1268 |
TRBFLX |
1 IWATER,Z0,tracers,ntrace,ntracedim,DTAU,ITRTRB,KMBG,KHBG,QBEG, |
|
./pkg/fizhi/fizhi_turb.F |
1319 |
TRBFLX |
integer IWATER(irun) |
|
./pkg/fizhi/fizhi_turb.F |
1643 |
TRBFLX |
IF (IWATER(I).EQ.0 ) FLXFPK(I,NLEVP1) = 1. / PLKE(I,NLEVP1) |
|
./pkg/fizhi/fizhi_turb.F |
1764 |
TRBFLX |
5 IWATER,HS,AHS, |
|
./pkg/fizhi/fizhi_turb.F |
2439 |
SFCFLX |
IWATER = 0 |
|
./pkg/fizhi/fizhi_turb.F |
2441 |
SFCFLX |
IF (IVWATER(I).EQ.1) IWATER = IWATER + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2444 |
SFCFLX |
IF(IWATER.GE.1)LWATER = .TRUE. |
|
./pkg/fizhi/fizhi_turb.F |
4083 |
LINADJ |
SUBROUTINE LINADJ ( NN,VRIB1,VRIB2,VWS1,VWS2,VZ1,VUSTAR,IWATER, |
|
./pkg/fizhi/fizhi_turb.F |
4130 |
LINADJ |
integer IWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4170 |
LINADJ |
IF (IWATER(I).EQ.1) VX0PSIM(I) = VAPSIM(I) |
|
./pkg/fizhi/fizhi_turb.F |
4188 |
LINADJ |
CALL ZCSUB ( VUSTAR,VDZSEA,IWATER,.TRUE.,IRUN,VZ2) |
|
./pkg/fizhi/fizhi_turb.F |
4191 |
LINADJ |
IF ( IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4204 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = VDZ0(I) * VAZ0(I) |
|
./pkg/fizhi/fizhi_turb.F |
4229 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4250 |
LINADJ |
IF(IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4278 |
LINADJ |
IF(LWATER.AND.(IWATER(I).EQ.1)) VXNUM(I) = VXNUM(I) + VXNUM2(I) |
|
./pkg/fizhi/fizhi_turb.F |
4314 |
LINADJ |
IF( IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4323 |
LINADJ |
IF(IWATER(I).EQ.1) VZCOEF1(I) = VG(I) * VAWS1(I) |
|
./pkg/fizhi/fizhi_turb.F |
4329 |
LINADJ |
IF (IWATER(I).EQ.1) VDZ0(I) = |
|
./pkg/fizhi/fizhi_turb.F |
4338 |
LINADJ |
IF (IWATER(I).EQ.1) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4350 |
LINADJ |
IF (IWATER(I).EQ.1 ) THEN |
|
./pkg/fizhi/fizhi_turb.F |
4386 |
LINADJ |
IF ( IWATER(I).EQ.1 ) |
|
./pkg/fizhi/fizhi_turb.F |
4397 |
ZCSUB |
SUBROUTINE ZCSUB (VUSTAR,VDZSEA,IWATER,LDZSEA,IRUN,VZSEA) |
|
./pkg/fizhi/fizhi_turb.F |
4423 |
ZCSUB |
integer IWATER(IRUN) |
|
./pkg/fizhi/fizhi_turb.F |
4465 |
ZCSUB |
IF( (VUSTAR(I) .GT. USTMX1) .AND. (IWATER(I).EQ.1) ) THEN |