1 |
|
C $Header$ |
2 |
|
C $Name$ |
3 |
|
|
4 |
SUBROUTINE TILE ( |
SUBROUTINE TILE ( |
5 |
I NCH, DTSTEP, ITYP, TRAINL,TRAINC, TSNOW, UM, |
I NCH, DTSTEP, ITYP, TRAINL,TRAINC, TSNOW, UM, |
6 |
I ETURB, DEDQA, DEDTC, HSTURB, DHSDQA, DHSDTC, |
I ETURB, DEDQA, DEDTC, HSTURB, DHSDQA, DHSDTC, |
26 |
IMPLICIT NONE |
IMPLICIT NONE |
27 |
C |
C |
28 |
C**** |
C**** |
29 |
include 'sibber.h' |
#include "sibber.h" |
30 |
C**** |
C**** |
31 |
INTEGER NCH |
INTEGER NCH |
32 |
INTEGER ITYP(NCH) |
INTEGER ITYP(NCH) |
54 |
& DELEA, VGPH1(NTYPS), VGPH2(NTYPS), |
& DELEA, VGPH1(NTYPS), VGPH2(NTYPS), |
55 |
& VGRPLN(NTYPS), CSOIL0(NTYPS), WSOI12, |
& VGRPLN(NTYPS), CSOIL0(NTYPS), WSOI12, |
56 |
& VGBEE(NTYPS), DELZ12(NTYPS), |
& VGBEE(NTYPS), DELZ12(NTYPS), |
57 |
& DELZ23(NTYPS), SNWMID(NTYPS) |
& DELZ23(NTYPS) |
58 |
C**** |
C**** |
59 |
|
|
60 |
REAL PHLAY(nch,NLAY), AKLAY(nch,NLAY), SWET12(nch), |
REAL PHLAY(nch,NLAY), AKLAY(nch,NLAY), SWET12(nch), |
157 |
c ------------------------------------------------------------------------------------ |
c ------------------------------------------------------------------------------------ |
158 |
DATA CSOIL0 /175000.,175000.,175000.,175000.,175000., |
DATA CSOIL0 /175000.,175000.,175000.,175000.,175000., |
159 |
. 175000.,175000.,120000.,175000., 70000./ |
. 175000.,175000.,120000.,175000., 70000./ |
160 |
include 'snwmid.h' |
#include "snwmid.h" |
161 |
|
|
162 |
C**** |
C**** |
163 |
C**** --------------------------------------------------------------------- |
C**** --------------------------------------------------------------------- |
369 |
I ETURB, DEDEA, DEDTC, HSTURB, DHSDEA, DHSDTC, |
I ETURB, DEDEA, DEDTC, HSTURB, DHSDEA, DHSDTC, |
370 |
I RC, DRCDEA, DRCDTC, |
I RC, DRCDEA, DRCDTC, |
371 |
I SWNET, HLWDWN, ALWRAD, BLWRAD, ESNFRC, |
I SWNET, HLWDWN, ALWRAD, BLWRAD, ESNFRC, |
372 |
I TM, EM, CSOIL, PSUR, EMAXRT, VGWMAX, |
I TM, EM, CSOIL, PSUR, EMAXRT, VGWMAX, |
373 |
U TC, TD, EA, SWET, SNOW, |
U TC, TD, EA, SWET, SNOW, |
374 |
O RUNOFF, EVAP, SHFLUX, SMELT, HLWUP, BOMB,STRDG1, |
O RUNOFF, EVAP, SHFLUX, SMELT, HLWUP, BOMB,STRDG1, |
375 |
O STRDG2, STRDG3, STRDG4, STRDG5, STRDG6, STRDG7, |
O STRDG2, STRDG3, STRDG4, STRDG5, STRDG6, STRDG7, |
510 |
C**** |
C**** |
511 |
IMPLICIT NONE |
IMPLICIT NONE |
512 |
C**** |
C**** |
513 |
include 'sibber.h' |
#include "sibber.h" |
514 |
C**** |
C**** |
515 |
INTEGER NCH |
INTEGER NCH |
516 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |
555 |
C**** to reflect the effective loss of "position memory" when storm |
C**** to reflect the effective loss of "position memory" when storm |
556 |
C**** covers entire grid square.) |
C**** covers entire grid square.) |
557 |
|
|
558 |
XTCORR= (1.-TIMFRL) * MIN( 1.,(CAPAC(CHNO)/SATCAP(CHNO))/FWETL ) |
XTCORR= (1.-TIMFRL) * MIN( 1.,(CAPAC(CHNO)/SATCAP(CHNO))/FWETL ) |
559 |
|
|
560 |
C**** |
C**** |
561 |
C**** Fill interception reservoir with precipitation. |
C**** Fill interception reservoir with precipitation. |
589 |
C**** Determine XTCORR, the fraction of a storm that falls on a previously |
C**** Determine XTCORR, the fraction of a storm that falls on a previously |
590 |
C**** wet surface due to the time correlation of precipitation position. |
C**** wet surface due to the time correlation of precipitation position. |
591 |
|
|
592 |
XTCORR= (1.-TIMFRC) * MIN( 1.,(CAPAC(CHNO)/SATCAP(CHNO))/FWETC ) |
XTCORR= (1.-TIMFRC) * MIN( 1.,(CAPAC(CHNO)/SATCAP(CHNO))/FWETC ) |
593 |
|
|
594 |
C**** |
C**** |
595 |
C**** Fill interception reservoir with precipitation. |
C**** Fill interception reservoir with precipitation. |
686 |
C**** |
C**** |
687 |
IMPLICIT NONE |
IMPLICIT NONE |
688 |
C**** |
C**** |
689 |
include 'sibber.h' |
#include "sibber.h" |
690 |
C**** |
C**** |
691 |
INTEGER NCH |
INTEGER NCH |
692 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |
784 |
|
|
785 |
IMPLICIT NONE |
IMPLICIT NONE |
786 |
C**** |
C**** |
787 |
include 'sibber.h' |
#include "sibber.h" |
788 |
C**** |
C**** |
789 |
INTEGER NCH |
INTEGER NCH |
790 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |
834 |
C**** |
C**** |
835 |
IMPLICIT NONE |
IMPLICIT NONE |
836 |
C**** |
C**** |
837 |
include 'sibber.h' |
#include "sibber.h" |
838 |
C**** |
C**** |
839 |
INTEGER NCH |
INTEGER NCH |
840 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |
1004 |
CHOKE = .FALSE. |
CHOKE = .FALSE. |
1005 |
DEA = EM(CHNO) - EA(CHNO) |
DEA = EM(CHNO) - EA(CHNO) |
1006 |
DTC = |
DTC = |
1007 |
& (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA) |
& (Q0 + ALHX(CHNO)*(ETURB(ChNo)-EMAXRT(CHNO)) - DHSDEA(CHNO)*DEA) |
1008 |
& / ( A11 - ALHX(CHNO)*DEDTC(ChNo) ) |
& / ( A11 - ALHX(CHNO)*DEDTC(ChNo) ) |
1009 |
|
|
1010 |
STRDG1(ChNo)=DTC |
STRDG1(ChNo)=DTC |
1134 |
C**** |
C**** |
1135 |
IMPLICIT NONE |
IMPLICIT NONE |
1136 |
C**** |
C**** |
1137 |
include 'sibber.h' |
#include "sibber.h" |
1138 |
C**** |
C**** |
1139 |
INTEGER NCH |
INTEGER NCH |
1140 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |
1175 |
C**** |
C**** |
1176 |
IMPLICIT NONE |
IMPLICIT NONE |
1177 |
C**** |
C**** |
1178 |
include 'sibber.h' |
#include "sibber.h" |
1179 |
C**** |
C**** |
1180 |
INTEGER NCH |
INTEGER NCH |
1181 |
INTEGER ITYP(NCH), ChNo, TypPtr |
INTEGER ITYP(NCH), ChNo, TypPtr |
1245 |
C**** |
C**** |
1246 |
IMPLICIT NONE |
IMPLICIT NONE |
1247 |
C**** |
C**** |
1248 |
include 'sibber.h' |
#include "sibber.h" |
1249 |
C**** |
C**** |
1250 |
INTEGER NCH |
INTEGER NCH |
1251 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |
1415 |
C**** |
C**** |
1416 |
IMPLICIT NONE |
IMPLICIT NONE |
1417 |
C**** |
C**** |
1418 |
include 'sibber.h' |
#include "sibber.h" |
1419 |
C**** |
C**** |
1420 |
INTEGER NCH |
INTEGER NCH |
1421 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |
1565 |
C**** |
C**** |
1566 |
IMPLICIT NONE |
IMPLICIT NONE |
1567 |
C**** |
C**** |
1568 |
include 'sibber.h' |
#include "sibber.h" |
1569 |
C**** |
C**** |
1570 |
INTEGER NCH |
INTEGER NCH |
1571 |
INTEGER ITYP(NCH), ChNo |
INTEGER ITYP(NCH), ChNo |