-
Notifications
You must be signed in to change notification settings - Fork 1
/
COMIBS.BLK
73 lines (65 loc) · 3.49 KB
/
COMIBS.BLK
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
!INTEGER, PARAMETER :: NAPPL = 200
! USE MODULEDEFS
CHARACTER*1 ISIMI
CHARACTER*1 DAYFAC(NAPPL),RADFAC(NAPPL),TXFAC(NAPPL),TMFAC(NAPPL)
CHARACTER*1 PRCFAC(NAPPL),CO2FAC(NAPPL),DPTFAC(NAPPL)
CHARACTER*1 WNDFAC(NAPPL)
CHARACTER*1 PLME,PLDS
CHARACTER*4 WSTA
CHARACTER*5 DFDRN,FLST,IAME,IOFF,SLTX
CHARACTER*5 NCODE,NEND,IOFFX,IAMEX, FldHist
CHARACTER*5 HSTG(NHARD),HCOM(NHARD),HSIZ(NHARD),IRRCOD(NAPPL)
CHARACTER*5 RESCOD(NAPPL),RMET(NAPPL)
CHARACTER*5 FERCOD(NAPPL),FOCOD(NAPPL),IFTYPE(NAPPL)
CHARACTER*5 CHCOD(NAPPL),CHMET(NAPPL),CHT(NAPPL),TIMPL(NAPPL)
CHARACTER*8 FLDNAM,EXPER
CHARACTER*16 CROPD
CHARACTER*25 TITSIM
CHARACTER*30 IRRSCHED(NAPPL)
INTEGER YRSIM,YRPLT,IEMRG,TRTNO,ROTNO,ROTOPT,CRPNO,RSEED1
INTEGER PWDINF,PWDINL,NRESDL,HDLAY,HLATE,NHAR,HDATE(NHARD)
INTEGER NEV,WMDATE(NAPPL),NIRR,IDLAPL(NAPPL),RESDAY(NAPPL)
INTEGER FDAY(NAPPL),NFERT,YEAR,NARES,NAPW,NREPSQ
INTEGER NCHEM,NTIL,CDATE(NAPPL),TDATE(NAPPL)
INTEGER FHDur, IIRV(NAPPL)
REAL PLANTS,PLTPOP,ROWSPC,AZIR,SDEPTH,SDWTPL
REAL SDAGE,ATEMP,PLPH,FLOB,FLDD,SFDRN,SWPLTL,SWPLTH
REAL SWPLTD,PTX,PTTN,DSOIL,THETAC,IEPT,AIRAMT,EFFIRR
REAL DSOILN,SOILNC,SOILNX,RIP,DRESMG,HPP,HRP
REAL DAYADJ(NAPPL),RADADJ(NAPPL),TXADJ(NAPPL),TMADJ(NAPPL)
REAL PRCADJ(NAPPL),RESK(NAPPL),ANFER(NAPPL)
REAL CO2ADJ(NAPPL),DPTADJ(NAPPL),WNDADJ(NAPPL),DSOILX,THETCX
REAL IEPTX,AIRAMX,EFFIRX,AMT(NAPPL),RESN(NAPPL),RESP(NAPPL)
REAL RESIDUE(NAPPL),RINP(NAPPL),DEPRES(NAPPL),DFERT(NAPPL)
REAL APFER(NAPPL),AKFER(NAPPL),ACFER(NAPPL),AOFER(NAPPL),TOTNAP
REAL RESAMT,TOTAPW,WTHADJ(2,8),SLDP,SPRLAP
REAL SLOPE,XCRD,YCRD,ELEV,AREA,SLEN,FLWR,SLAS
REAL ICWD,ICRES,ICREN,ICREP,ICRIP,ICRID
REAL HPC(NHARD),HBPC(NHARD)
REAL CHAMT(NAPPL),CHDEP(NAPPL),TDEP(NAPPL)
REAL PMALB !Albedo of plastic bed cover
COMMON /IBS01/ PLME,PLDS,DFDRN,FLST,
& FLDNAM,ISIMI,TITSIM,IOFF,IAME,
& NCODE,NEND,DAYFAC,RADFAC,TXFAC,TMFAC,
& PRCFAC,CO2FAC,DPTFAC,WNDFAC,HSTG,HCOM,HSIZ,
& IOFFX,IAMEX,IRRCOD,RESCOD,FERCOD,FOCOD,IFTYPE,
& EXPER,WSTA,CROPD,RMET,SLTX,
& CHCOD,CHMET,CHT,TIMPL,FldHist
COMMON /IBS02/ YRSIM,YRPLT,IEMRG,TRTNO,ROTNO,ROTOPT,CRPNO,RSEED1,
& PWDINF,PWDINL,NRESDL,HDLAY,HLATE,
& NEV,WMDATE,NHAR,HDATE,NIRR,IDLAPL,RESDAY,
& FDAY,NFERT,YEAR,NARES,NAPW,NREPSQ,
& NCHEM,CDATE,NTIL,TDATE, FHDur, IIRV
COMMON /IBS03/ PLANTS,PLTPOP,ROWSPC,AZIR,SDEPTH,SDWTPL,
& SDAGE,ATEMP,PLPH,FLOB,FLDD,SFDRN,SWPLTL,SWPLTH,
& SWPLTD,PTX,PTTN,DSOIL,THETAC,IEPT,AIRAMT,EFFIRR,
& DSOILN,SOILNC,SOILNX,RIP,DRESMG,HPP,HRP,HBPC,
& DAYADJ,RADADJ,TXADJ,TMADJ,PRCADJ,
& CO2ADJ,DPTADJ,WNDADJ,HPC,DSOILX,THETCX,IEPTX,
& AIRAMX,EFFIRX,AMT,RESN,RESP,RESK,RESIDUE,
& RINP,DEPRES,DFERT,ANFER,APFER,AKFER,ACFER,AOFER,
& SLOPE,XCRD,YCRD,ELEV,AREA,SLEN,FLWR,SLAS,
& CHAMT,CHDEP,TDEP,SPRLAP
COMMON /IBS04/ TOTNAP,RESAMT,TOTAPW,WTHADJ,SLDP,
& ICWD,ICRES,ICREN,ICREP,ICRIP,ICRID, PMALB
COMMON / IBS05/ IRRSCHED