| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_lsm.F |
1004 |
FLUXES |
IF( EVAP(CHNO) .GT. EMAXRT(CHNO) ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1015 |
FLUXES |
EVAP(CHNO) = EMAXRT(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1038 |
FLUXES |
IF( EVAP(CHNO) .LT. 0. .AND. EM(CHNO).LT.ESATNW ) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1048 |
FLUXES |
EVAP(CHNO) = 0. |
|
./pkg/fizhi/fizhi_lsm.F |
1079 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
1083 |
FLUXES |
SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1092 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
13 |
TILE |
O EVAP, SHFLUX, RUNOFF, BOMB, |
|
./pkg/fizhi/fizhi_lsm.F |
1408 |
WUPDAT |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
1423 |
WUPDAT |
_RL EVAP(NCH), SATCAP(NCH), VGWMAX(NLAY,NTYPS), |
|
./pkg/fizhi/fizhi_lsm.F |
1443 |
WUPDAT |
ESNO(CHNO)=ESNFRC(CHNO)*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1444 |
WUPDAT |
EINT(CHNO)=EIRFRC(CHNO)*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1445 |
WUPDAT |
EGRO = EVAP(CHNO)*DTSTEP - ESNO(CHNO) - EINT(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
1501 |
WUPDAT |
IF(EVAP(CHNO) .LT. 0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
1502 |
WUPDAT |
EINT(CHNO)=(1.-ESNFRC(CHNO))*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
1507 |
WUPDAT |
ESNO(CHNO)=ESNFRC(CHNO)*EVAP(CHNO)*DTSTEP |
|
./pkg/fizhi/fizhi_lsm.F |
373 |
TILE |
O RUNOFF, EVAP, SHFLUX, SMELT, HLWUP, BOMB,STRDG1, |
|
./pkg/fizhi/fizhi_lsm.F |
390 |
TILE |
I EVAP, SATCAP, VGWMAX, TC, RA, RC, |
|
./pkg/fizhi/fizhi_lsm.F |
400 |
TILE |
IF(EVAP(CHNO) .GT. 0.) THEN |
|
./pkg/fizhi/fizhi_lsm.F |
401 |
TILE |
EADJST=(ESNO(CHNO)/DTSTEP) - ESNFRC(CHNO)*EVAP(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
44 |
TILE |
& SNOW(NCH), EVAP(NCH), SHFLUX(NCH), RUNOFF(NCH) |
|
./pkg/fizhi/fizhi_lsm.F |
459 |
TILE |
HLATN (CHNO) = EVAP (CHNO) * ALHX(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
476 |
TILE |
DEFCIT = EVAP(CHNO) * ( RC(CHNO) + RA(CHNO) ) |
|
./pkg/fizhi/fizhi_lsm.F |
828 |
FLUXES |
O RUNOFF, EVAP, SHFLUX, SMELT, HLWUP, BOMB, STRDG1, |
|
./pkg/fizhi/fizhi_lsm.F |
852 |
FLUXES |
& RUNOFF(NCH), EVAP(NCH), SHFLUX(NCH), SMELT(NCH), |
|
./pkg/fizhi/fizhi_lsm.F |
937 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
953 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + DEDTC(ChNo)*DTC |
|
./pkg/fizhi/fizhi_lsm.F |
964 |
FLUXES |
SNLEFT=SNOW(CHNO)-EVAP(CHNO)*DTSTEP*ESNFRC(CHNO) |
|
./pkg/fizhi/fizhi_lsm.F |
991 |
FLUXES |
EVAP(ChNo) = ETURB(ChNo) + DEDEA(ChNo)*DEA + |
|
./pkg/seaice/seaice_fake.F |
63 |
SEAICE_FAKE |
& fac * EVAP(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2326 |
SEAICE_GROWTH |
& ( ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2375 |
SEAICE_GROWTH |
& ( EVAP(I,J,bi,bj)-PRECIP(I,J,bi,bj) ) |
|
./pkg/seaice/seaice_growth.F |
2390 |
SEAICE_GROWTH |
& EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2407 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/seaice/seaice_growth.F |
2425 |
SEAICE_GROWTH |
& - EVAP(I,J,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2573 |
SEAICE_GROWTH |
tmpscal1= EVAP(I,J,bi,bj)*( ONE - AREApreTH(I,J) ) |
|
./pkg/aim_v23/aim_aim2land.F |
105 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHF |
|
./pkg/aim_v23/aim_aim2land.F |
107 |
AIM_AIM2LAND |
& EVAP(I2,1,myThid)*ALHF |
|
./pkg/aim_v23/aim_aim2land.F |
126 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
93 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
122 |
AIM_AIM2SIOCE |
& - EVAP(I2,2,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
125 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
145 |
AIM_AIM2SIOCE |
icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
199 |
AIM_AIM2SIOCE |
& - EVAP(I2,3,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
203 |
AIM_AIM2SIOCE |
& + ( EVAP(I2,3,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
192 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, EVAP, |
|
./pkg/aim_v23/aim_diagnostics.F |
264 |
AIM_DIAGNOSTICS |
& 'aim_EVAP0',EVAP(1,0,myThid),myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
333 |
AIM_DIAGNOSTICS |
& + EVAP(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
414 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( EVAP(1,0,myThid), |
|
./pkg/aim_v23/aim_land_impl.F |
106 |
AIM_LAND_IMPL |
sFlx(I2,1) = sFlx(I2,1) - ALHF*EVAP(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
125 |
AIM_LAND_IMPL |
EVAP(J) = Evp0(J) |
|
./pkg/aim_v23/aim_land_impl.F |
129 |
AIM_LAND_IMPL |
EVAP(J) = EVAP(J) + dTsurf(J)*dEvp(J) |
|
./pkg/aim_v23/aim_land_impl.F |
145 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = -land_EnWFlux(i,j,bi,bj)*EVAP(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
16 |
AIM_LAND_IMPL |
U Tsurf, SHF, EVAP, SLRU, |
|
./pkg/aim_v23/aim_land_impl.F |
71 |
AIM_LAND_IMPL |
_RL Tsurf(NGP), SHF(NGP), EVAP(NGP), SLRU(NGP) |
|
./pkg/aim_v23/aim_sice_impl.F |
103 |
AIM_SICE_IMPL |
EVAP(J) = Evp0(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
108 |
AIM_SICE_IMPL |
EVAP(J) = EVAP(J) + dTsurf(J)*dEvp(J) |
|
./pkg/aim_v23/aim_sice_impl.F |
15 |
AIM_SICE_IMPL |
U Tsurf, SHF, EVAP, SLRU, |
|
./pkg/aim_v23/aim_sice_impl.F |
69 |
AIM_SICE_IMPL |
_RL Tsurf(NGP), SHF(NGP), EVAP(NGP), SLRU(NGP) |
|
./pkg/aim_v23/com_physvar.h |
111 |
NO PROCEDURE |
_RL EVAP (NGP,0:3,MAX_NO_THREADS) |
|
./pkg/aim_v23/com_physvar.h |
99 |
NO PROCEDURE |
& SHF, EVAP, SPEED0, DRAG |
|
./pkg/aim_v23/phy_driver.F |
305 |
PHY_DRIVER |
O SHF(1,1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
314 |
PHY_DRIVER |
U SHF(1,1,myThid), EVAP(1,1,myThid), SLR(1,1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
324 |
PHY_DRIVER |
O SHF(1,2,myThid), EVAP(1,2,myThid), SLR(1,2,myThid), |
|
./pkg/aim_v23/phy_driver.F |
333 |
PHY_DRIVER |
O SHF(1,3,myThid), EVAP(1,3,myThid), SLR(1,3,myThid), |
|
./pkg/aim_v23/phy_driver.F |
342 |
PHY_DRIVER |
U SHF(1,3,myThid), EVAP(1,3,myThid), SLR(1,3,myThid), |
|
./pkg/aim_v23/phy_driver.F |
349 |
PHY_DRIVER |
EVAP(J,3,myThid) = 0. _d 0 |
|
./pkg/aim_v23/phy_driver.F |
360 |
PHY_DRIVER |
U EVAP(1,0,myThid), SLR(1,1,myThid), |
|
./pkg/aim_v23/phy_driver.F |
455 |
PHY_DRIVER |
& + EVAP(J,0,myThid)*RPS_1*GRDSIG(K) |
|
./pkg/aim_v23/phy_suflux_land.F |
13 |
SUFLUX_LAND |
O SHF, EVAP, SLRU, |
|
./pkg/aim_v23/phy_suflux_land.F |
148 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
155 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
165 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
175 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
220 |
SUFLUX_LAND |
& - ( SHF(J)+ ALHC*EVAP(J) ) |
|
./pkg/aim_v23/phy_suflux_land.F |
83 |
SUFLUX_LAND |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
104 |
SUFLUX_OCEAN |
EVAP(J) = CDENVV(J)*(QSAT0(J)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
13 |
SUFLUX_OCEAN |
O SHF, EVAP, SLRU, |
|
./pkg/aim_v23/phy_suflux_ocean.F |
63 |
SUFLUX_OCEAN |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
|
./pkg/aim_v23/phy_suflux_post.F |
120 |
SUFLUX_POST |
EVAP(J,0) = (FMASK(J,1)*EVAP(J,1)+FMASK(J,2)*EVAP(J,2) |
|
./pkg/aim_v23/phy_suflux_post.F |
121 |
SUFLUX_POST |
& +FMASK(J,3)*EVAP(J,3)) |
|
./pkg/aim_v23/phy_suflux_post.F |
13 |
SUFLUX_POST |
U DRAG, SHF, EVAP, SLRup, |
|
./pkg/aim_v23/phy_suflux_post.F |
82 |
SUFLUX_POST |
_RL DRAG(NGP,0:3), SHF(NGP,0:3), EVAP(NGP,0:3), SLRup(NGP,3) |
|
./pkg/aim_v23/phy_suflux_sice.F |
13 |
SUFLUX_SICE |
O SHF, EVAP, SLRU, |
|
./pkg/aim_v23/phy_suflux_sice.F |
156 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
163 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
207 |
SUFLUX_SICE |
& - ( SHF(J) + ALHevp*EVAP(J) ) |
|
./pkg/aim_v23/phy_suflux_sice.F |
83 |
SUFLUX_SICE |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
12 |
BULKF_FORMULA_AIM |
O SHF, EVAP, SLRU, |
|
./pkg/bulk_force/bulkf_formula_aim.F |
190 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
197 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
241 |
BULKF_FORMULA_AIM |
& - ( SHF(J) + ALHevp*EVAP(J) ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
72 |
BULKF_FORMULA_AIM |
_RL SHF(NGP), EVAP(NGP), SLRU(NGP) |