-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCSCAS.for
9736 lines (9116 loc) · 418 KB
/
CSCAS.for
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
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
!-----------------------------------------------------------------------
! CROPSIM CASSAVA GROWTH AND DEVELOPMENT MODULE 010115
! Last edit 040414 LAH
! (After problems implementing fixes of GH 180214,260314;PM,MF 260214)
!-----------------------------------------------------------------------
SUBROUTINE CSCAS (FILEIOIN, RUN, TN, RN, RNMODE, !Command line
& ISWWAT, ISWNIT, ISWDIS, MESOM, !Contols
& IDETS, IDETO, IDETG, IDETL, FROP, !Controls
& SN, ON, RUNI, REP, YEAR, DOY, STEP, CN, !Run+loop
& SRAD, TMAX, TMIN, TAIRHR, RAIN, CO2, TDEW, !Weather
& DRAIN, RUNOFF, IRRAMT, !Water
& DAYL, WINDSP, DEWDUR, CLOUDS, ST, EO, ES, !Weather
& NLAYR, DLAYR, DEPMAX, LL, DUL, SAT, BD, SHF, SLPF, !Soil states
& SW, NO3LEFT, NH4LEFT, FERNIT, !H2o,N states
& TLCHD, TNIMBSOM, TNOXD, !N components
& TOMINFOM, TOMINSOM, TOMINSOM1, TOMINSOM2, TOMINSOM3,!N components
& YEARPLTCSM, HARVFRAC, !Pl.date
& PARIP, PARIPA, EOP, EP, ET, TRWUP, ALBEDOS, !Resources
& CAID, KCAN, KEP, !States
& RLV, NFP, RWUPM, RWUMX, CANHT, LAIL, LAILA, !States
& UNO3, UNH4, UH2O, !Uptake
& SENCALG, SENNALG, SENLALG, !Senescence
& RESCALG, RESNALG, RESLGALG, !Residues
& STGYEARDOY, BRSTAGE, !Stage dates
& DYNAMIC) !Control
! For incorporation in CSM should:
! Ensure that Alt-plant routine:
! Sending control ISWDIS
! Sending DEWDUR(=-99.0?), CLOUDS(=0.0?), ES, ALBEDO(=0.2)
! Setting dummies for PARIP, PARIPA, LAIL, LAILA
! Eliminate '!' from SUMVALS call.
! And to run well in CSM should:
! Read ICIN (with -99 in profile) and ICSW variables
! Changes 8->151213:
! 1. Individual leaf area expansion routine. More individual
! leaf sizes output to LEAVES.OUT (No stress, H2o,N,Temp.
! stress, H2o,N,Temp+assimilate limitation, H2o,N,Temp+
! assimilate+N concentration maintenance)
! 2. Leaf accelerated senescence function (for when loser
! canopy in deep shade). Now accelerates ageing in
! active leaf phase, does not 'chop-off' leaf area.
! Amount of acceleration specified in SPE file.
! Changes 140812 to make cassava work ok:
! 1. Definition of DUTOMSTG changed. Before included PD(mstg),
! now stops at MSTG so that DSTAGE = LSTAGE for cassava
! 2. Stem N growth from leaves algorithm not woerking well.
! Changed to make sure that only works when stem N below
! minimum and leaf N above minimum
! Temporary changes .. need firming-up:
! Height increase on emergence day has initialisation value
! Changes for cassava
! 1 Product read-in from species file;product->harvest outputs
! 2 Stages read-in from species file
! 3. Temperature and water stress effects on specific leaf area
! 4. Leaf appearance rate reduction with leaf number
! 5. PTF parameters derived from root/shoot function
! 6. Memory water stress factor calculated from WFG->leaf area
! 7. Storage root initiation period introduced
! 8. Storage root number initiation parameter introduced
! 9. Storage root basic fraction parameter introduced
! 10. Photoperiod sensitivity type read-in from species file
! 11. Storage root N added
! 12. Protection of N supply for leaf growth added. (Problem
! with N on growth because lack of N->reduced growth->
! reduced uptake!
USE CRSIMDEF
IMPLICIT NONE
INTEGER,PARAMETER::DINX = 3 ! Disease number,maximum
INTEGER,PARAMETER::PSX = 20 ! Principal stages,maximum
INTEGER,PARAMETER::SSX = 20 ! Secondary stages,maximum
INTEGER,PARAMETER::KEYSTX = 9 ! Maximum number of key stages
INTEGER,PARAMETER::DCNX = 10 ! Disease control #,maximum
INTEGER,PARAMETER::LCNUMX=500 ! Maximum number of leaf cohorts
INTEGER,PARAMETER::LNUMX= 500 ! Maximum number of leaves/axis
INTEGER,PARAMETER::HANUMX= 40 ! Maximum # harvest instructions
INTEGER,PARAMETER::NL = 20 ! Maximum number of soil layers
INTEGER,PARAMETER::RUNINIT=1 ! Program initiation indicator
INTEGER,PARAMETER::SEASINIT=2 ! Reinitialisation indicator
INTEGER,PARAMETER::RATE = 3 ! Program rate calc.indicator
INTEGER,PARAMETER::INTEGR=4 ! Program update indicator
INTEGER,PARAMETER::OUTPUT=5 ! Program output indicator
INTEGER,PARAMETER::SEASEND= 6 ! Program ending indicator
CHARACTER(LEN=1),PARAMETER::BLANK = ' '
CHARACTER(LEN=3),PARAMETER::DASH = ' - '
!REAL,PARAMETER::PATM=101300.0! Pressure of air,Pa
!REAL,PARAMETER::SHAIR=1005.0 ! Specific heat of air,MJ/kg
!REAL,PARAMETER::SBZCON=4.903E-9 !Stefan Boltzmann,MJ/K4/m2/d
REAL AFLF(0:LNUMX) ! CH2O factor for leaf,average #
REAL AH2OROOTZONE ! Available h2o in root zone mm
REAL AH2OPROFILE ! Available H2o,profile mm
REAL ALBEDO ! Canopy+soil albedo fr
REAL ALBEDOS ! soil albedo fr
REAL AMTNIT ! Cumulative amount of N applied kg/ha
REAL AMTNITPREV ! Cumulative N,previous treatmnt kg/ha
REAL ANDEM ! Crop N demand kg/ha
REAL ANFER(200) ! N amount in fertilizer appln kg/ha
REAL AREAPOSSIBLE ! Leaf area growth at SLA limit cm2
REAL AREAPOSSIBLEN ! Leaf area growth at N limit cm2
INTEGER ARGLEN ! Argument component length #
REAL AVGSW ! Average soil water in SWPLTD %
REAL BASELAYER ! Depth at base of layer cm
REAL BD(20) ! Bulk density (moist) g/cm3
REAL BRFX(PSX) ! Branch # per fork at each fork #
REAL BRNUMSH ! Branch number/shoot at harvest #
REAL BRNUMSHM ! Branch #/shoot,harvest,measurd #
REAL BRNUMST ! Branch number/shoot (>forking) #
REAL BRNUMSTPREV ! Branch number/shoot,previous #
REAL BRSTAGE ! Branching stage #
REAL BRSTAGEPREV ! Branching stage,previous #
REAL BRSTAGETMP ! Branching stage,temporary #
REAL CAID ! Canopy area index #
REAL CANHT ! Canopy height cm
REAL CANHTG ! Canopy height growth cm
REAL CANHTS ! Canopy height standard cm
REAL CARBOADJ ! Ch2o adjustment for LAI change g/p
REAL CARBOBEG ! Ch2o available,beginning day g/p
REAL CARBOBEGI ! Ch2o avail,internal co2 calc g/p
REAL CARBOBEGIA ! Ch2o avail,internal co2,adj #
REAL CARBOBEGR ! Ch2o avail,PARUE calculation g/p
REAL CARBOBEGM ! Ch2o avail,Monteith ccalc. g/p
REAL CARBOC ! Ch2o assimilated,cumulative g/p
REAL CARBOEND ! Ch2o available,end of day g/p
REAL CARBOR ! Ch2o available,roots g/p
REAL CARBOT ! Ch2o available,tops g/p
REAL CARBOTMP ! Ch2o available,temporary value g/p
REAL CARBOTMPI ! Ch2o avail,internal co2 calc g/p
REAL CARBOTMPR ! Ch2o avail,PARUE calculation g/p
REAL CARBOTMPM ! Ch2o avail,Monteith calc g/p
INTEGER CDAYS ! Crop cycle duration PVoCd
REAL CHTPC(10) ! Canopy ht % associated w LA% %
REAL CRFR ! Crown growth rate,fr stem gr #
REAL CRRSWAD ! Crown reserves kg/ha
REAL CRRSWT ! Crown reserves g/p
REAL CRWAD ! Crown weight kg/ha
REAL CRWADOUT ! Crown weight for output kg/ha
REAL CRWT ! Crown weight g/p
REAL CRWTM ! Crown weight at maturity g/p
REAL CLAPC(10) ! Canopy lf area % down to ht %
REAL CLOUDS ! Cloudiness factor,relative,0-1 #
INTEGER CN ! Crop component (multicrop) #
REAL CNAD ! Canopy nitrogen kg/ha
REAL CNADPREV ! Canopy nitrogen,previous day kg/ha
REAL CNADSTG(20) ! Canopy nitrogen,specific stage kg/ha
REAL CNAM ! Canopy N at harvest kg/ha
REAL CNAMERR ! Canopy N,harvest,error %
REAL CNAMM ! Canopy N,harvest,measured kg/ha
REAL CNCTMP ! Canopy N concentration,tempry %
INTEGER CNI ! Crop component,initial value #
REAL CNPCHM ! Canopy N,harvest,measured %
REAL CO2 ! CO2 concentration in air vpm
REAL CO2AIR ! CO2 concentration in air g/m3
REAL CO2COMPC ! CO2 compensation conc (vpm) #
REAL CO2CAV ! Average co2 for crop cycle vpm
REAL CO2CC ! CO2 sum for cycle vpm
REAL CO2EX ! Exponent for CO2-phs function #
REAL CO2FP ! CO2 factor,photosynthesis #
REAL CO2FPI ! CO2 factor,phs,internal Co2 #
REAL CO2F(10) ! CO2 factor rel values 0-2 #
REAL CO2INT ! CO2 concentration,internal g/m3
REAL CO2INTPPM ! CO2 concentration,internal ppm
REAL CO2INTPPMP ! CO2 concentration,internal,prv ppm
REAL CO2MAX ! CO2 conc,maximum during cycle vpm
REAL CO2PAV(0:12) ! CO2 concentration in air g/m3
REAL CO2PC ! CO2 concentration,tier,cumul ppm
REAL CO2RF(10) ! CO2 reference concentration vpm
INTEGER COLNUM ! Column number #
INTEGER CSIDLAYR ! Layer # output from function #
INTEGER CSTIMDIF ! Time difference function #
REAL CSVPSAT ! Vapour pressure function op mb
INTEGER CSYDOY ! Yr+Doy output from function #
INTEGER CSYEARDOY ! Year+Doy from function #
REAL CSYVAL ! Y value from function #
INTEGER CTRNUMPD ! Control # missing tiers #
REAL CUMDEP ! Cumulative depth cm
REAL CUMDU ! Cumulative development units #
REAL CUMSW ! Soil water in depth SWPLTD cm
REAL CWAD ! Canopy weight kg/ha
INTEGER CWADCOL ! Column number for canopy wt #
REAL CWADPREV ! Canopy weight,previous day kg/ha
REAL CWADSTG(20) ! Canopy weight,particular stage kg/ha
REAL CWADT ! Canopy weight from t file kg/ha
REAL CWAHC ! Canopy weight harvested,forage kg/ha
REAL CWAHCM ! Canopy wt harvested,forage,mes kg/ha
REAL CWAM ! Canopy weight,maturity kg/ha
REAL CWAMERR ! Canopy weight,maturity,error %
REAL CWAMM ! Canopy wt,maturity,measured kg/ha
REAL CWAN(HANUMX) ! Canopy wt minimum after harvst kg/ha
INTEGER DAE ! Days after emergence d
INTEGER DAP ! Days after planting d
INTEGER DAPCALC ! DAP output from funcion #
INTEGER DAS ! Days after start of simulation d
INTEGER DATE ! Date (Yr+Doy) #
INTEGER DATECOL ! Date column number #
REAL DAYL ! Daylength,6deg below horizon h
REAL DAYLCAV ! Daylength (6deg) av for cycle h
REAL DAYLCC ! Daylength,cycle sum h.d
REAL DAYLPAV(0:12) ! Daylength (6deg) av for tier h
REAL DAYLPC ! Daylength (6deg),cumulative h
REAL DAYLPREV ! Daylength previous day h
REAL DAYLS(0:10) ! Daylength sensitivity,tier %/10h
REAL DAYLST(0:12) ! Daylength (6deg) at stage h
REAL DAYSUM ! Days accumulated in month #
INTEGER DCDAT(DCNX) ! Disease control application YrDoy
REAL DCDUR(DCNX) ! Disease control duration d
REAL DCFAC(DCNX) ! Disease control gr factor 0-1 #
INTEGER DCTAR(DCNX) ! Disease control target #
REAL SENTOPLITTER ! Dead wt.to litter g/p
REAL SENTOPLITTERA ! Dead wt.to litter kg/ha
REAL DEPMAX ! Maximum depth of soil profile cm
REAL DEWDUR ! Dew duration h
REAL DF ! Daylength factor 0-1 #
REAL DFNEXT ! Daylength factor,next tier #
REAL DFOUT ! Daylength factor for output #
REAL DFPE ! Development factor,pre-emerge #
REAL DALF(0:LNUMX) ! Days during which leaf active d
REAL DGLF(0:LNUMX) ! Days during which leaf growing #
REAL DSLF(0:LNUMX) ! Days during which leaf senesng #
INTEGER DIDAT(DINX) ! Disease initiation date YrDoy d
INTEGER DIDOY(DINX) ! Disease infestation doy d
REAL DIFFACR(DINX) ! Dis favourability requirement #
REAL DIGFAC(DINX) ! Disease growth factor 0-1 #
REAL DLAYR(20) ! Depth of soil layers cm
REAL DLAYRTMP(20) ! Depth of soil layers with root cm
REAL DMP_EP ! Dry matter per unit EP g/mm
REAL DMP_ET ! Dry matter per unit ET g/mm
REAL DMP_Irr ! Dry matter per unit irrigation g/mm
REAL DMP_NApp ! Dry matter per unit N applied kg/kg
REAL DMP_NUpt ! Dry matter per unit N taken uo kg/kg
REAL DMP_Rain ! Dry matter per unit water g/mm
INTEGER DOM ! Day of month #
INTEGER DOY ! Day of year d
INTEGER DOYCOL ! Day of year column number #
REAL DRAIN ! Drainage from soil profile mm/d
REAL DRAINC ! Drainage from profile,cumulat mm
REAL DSTAGE ! Development stage,linear #
REAL DTRY ! Effective depth of soil layer cm
REAL DU ! Developmental units PVC.d
REAL DUL(20) ! Drained upper limit for soil #
REAL DUNEED ! Developmental units needed tir PVC.d
REAL DUPHASE ! Development units,current tier PVoCd
REAL DUPNEXT ! Development units,next tier PVoCd
REAL DUTOMSTG ! Developmental units,germ->mat Du
INTEGER DYNAMIC ! Program control variable #
INTEGER DYNAMICPREV ! Program control varbl,previous #
REAL EARLYN ! Leaf # for early N switch #
REAL EARLYW ! Leaf # for early h20 switch #
INTEGER EDAP ! Emergence DAP d
REAL EDAPFR ! Emergence DAP+fraction #
INTEGER EDAPM ! Emergence DAP measured #
INTEGER EDATM ! Emergence date,measured (Afle) #
INTEGER EDATMX ! Emergence date,measured (YrDy) #
REAL EDAYFR ! Emergence day fraction #
INTEGER EMDATERR ! Emergence date error d #
REAL EMRGFR ! Fraction of day > emergence #
REAL EMRGFRPREV ! Fraction of day > em,previous #
REAL EO ! Potential evaporation mm/d
REAL EOC ! Potential evap,cumulative mm
REAL EOEBUD ! Potential evap,Ebudget mm/d
REAL EOEBUDC ! Potential evap,Ebudget,cum mm
REAL EOEBUDCRP ! Potential evaporation,with res mm/d
REAL EOEBUDCRPCO2 ! Potential evaporation,res+co2 mm/d
REAL EOEBUDCRPCO2H2O ! Potential evap,res+co2+h2o mm/d
REAL EOEBUDCRPC ! Potential evaporation,res,cum mm/d
REAL EOEBUDCRPCO2C ! Potential ev,res+co2,cum mm/d
REAL EOEBUDCRPCO2H2OC ! Pot.ev,res+co2+h2o,cum mm/d
REAL EOMPEN ! Potential ev,M-Penman mm/d
REAL EOMPENC ! Potential ev,M-Penman,cum mm
REAL EOMPCRP ! Potential ev,M-P with crop res mm/d
REAL EOMPCRPCO2 ! Potential ev,M-P,res+co2 mm/d
REAL EOMPCRPCO2H2O ! Potential ev,M-P,res+co2+h2o mm/d
REAL EOMPCRPC ! Potential ev,M-P with res,cum mm/d
REAL EOMPCRPCO2C ! Potential ev,M-P,res+co2,cum mm/d
REAL EOMPCRPCO2H2OC ! Pot.ev,M-P,res+co2+h2o,cum mm/d
REAL EOP ! Potential evaporation,plants mm/d
REAL EOPEN ! Potential evaporation,Penman mm/d
REAL EOPENC ! Potential evaporation,Pen,cum mm
REAL EOPT ! Potential evaporation,PT mm/d
REAL EOPTC ! Potential evaporation,PT,cum mm
REAL EP ! Transpiration daily mm/d
REAL EPCC ! Transpiration cycle sum mm
REAL EPPC(0:12) ! Transpiration cycle sum mm
REAL EPSRATIO ! Function,plant/soil evap rate #
INTEGER ERRNUM ! Error number from compiler #
REAL ERRORVAL ! Plgro-tfile values/Plgro #
REAL ES ! Actual soil evaporation rate mm/d
REAL ET ! Evapotranspiration daily mm/d
REAL ETCC ! Evapotranspiration cumulative mm
REAL ETPC(0:12) ! Evapotranspiration tier sum mm
INTEGER EVALOUT ! Evaluate output lines for exp #
INTEGER EVHEADNM ! Number of headings in ev file #
INTEGER EVHEADNMMAX ! Maximum no headings in ev file #
INTEGER EYEARDOY ! Emergence Year+DOY #
REAL FAC(20) ! Factor ((g/Mg)/(kg/ha)) #
INTEGER FAPPNUM ! Fertilization application number
INTEGER FDAY(200) ! Dates of fertilizer appn YrDoy
REAL FERNIT ! Fertilizer N applied kg/ha
REAL FERNITPREV ! Fertilizer N applied to ystday kg/ha
INTEGER FILELEN ! Length of file name #
INTEGER FLDAP ! Final leaf date Yrdoy
REAL FLN ! Final leaf # #
REAL FNH4 ! Unitless ammonium supply index #
REAL FNO3 ! Unitless nitrate supply index #
INTEGER FNUMERA ! File number,A-data errors #
INTEGER FNUMERR ! File number,error file #
INTEGER FNUMERT ! File number,T-data errors #
INTEGER FNUMEVAL ! Number used for evaluate op #
INTEGER FNUMLVS ! File number,leaves #
INTEGER FNUMMEAS ! Number used for measured data #
INTEGER FNUMOV ! Number used for overview op #
INTEGER FNUMPHA ! File number,tiers #
INTEGER FNUMPHEM ! File number,phenology,measured #
INTEGER FNUMPHES ! File number,phenology,simulate #
INTEGER FNUMPREM ! File number,measured responses #
INTEGER FNUMPRES ! File number,simulated response #
INTEGER FNUMPSUM ! Number used for plant summary #
INTEGER FNUMREA ! File number,reads.out file #
INTEGER FNUMT ! Number used for T-file #
INTEGER FNUMTMP ! File number,temporary file #
INTEGER FNUMWRK ! File number,work file #
INTEGER FROP ! Frquency of outputs,as sent d
INTEGER FROPADJ ! Frquency of outputs,adjusted d
REAL FSOILH2O ! Final soil water cm
REAL FSOILN ! Final soil inorganic N kg/ha
INTEGER GDAP ! Germination DAP d
REAL GDAPFR ! Germination DAP+fr #
INTEGER GDAPM ! Germination DAP,measured #
INTEGER GDATM ! Germination date,measured #
REAL GDAYFR ! Fraction of day to germination #
REAL GEDAYSE ! Period germination->emergence d
REAL GEDAYSG ! Period planting->germination d
REAL GERMFR ! Fraction of day > germination #
REAL GESTAGE ! Germination,emergence stage #
REAL GESTAGEPREV ! Germ,emerg stage,previous day #
REAL GEUCUM ! Cumulative germ+emergence unit #
REAL GROCR ! Crown growth rate g/p
REAL GROCRADJ ! Crown growth rate N adjusted g/p
REAL GROCRFR ! Crown growth rate,fraction st #
REAL GROLF ! Leaf growth rate g/p
REAL GROLFADJ ! Leaf growth rate N adjusted g/p
REAL GROLFNEEDED ! Leaf growth rate for max SLA g/p
REAL GROLFP ! Leaf growth,potential g/p
REAL GROLS ! Leaf+stem growth g/p
REAL GROLSA ! Leaf+stem gr from assimilates g/p
REAL GROLSP ! Leaf+stem growth potential g/p
REAL GROLSRS ! Leaf+stem growth from reserves g/p
REAL GROLSRT ! Leaf+stem gr from root dmatter g/p
REAL GROLSRTN ! Leaf+stem N growth from root N g/p
REAL GROLSSEN ! Leaf+stem growth from senesnce g/p
REAL GROLSSD ! Leaf+stem gr from seed g/p
REAL GRORS ! Reserves growth g/p
REAL GRORSADJ ! Reserves gr,adj to conc g/p
REAL GROSR ! Storage root growth g/p
REAL GROST ! Stem growth rate g/p
REAL GROSTADJ ! Stem growth rate N adjusted g/p
REAL GROSTCR ! Stem+crown growth rate g/p
REAL GROSTCRP ! Stem+crown growth potential g/p
REAL GROSTCRPSTORE ! Stem+crown gr potentl,previous g/p
REAL GRP_ET ! Harvest product per unit water g/mm
REAL GRP_Rain ! Harvest product per unit water g/mm
INTEGER GSTDCOL ! Growth stage column number #
INTEGER GYEARDOY ! Germination Year+DOY #
REAL GrP_EP ! Harvest product per unit EP g/mm
REAL GrP_Irr ! Harvest dm per unit irrigation g/mm
REAL GrP_NApp ! Harvest dm per unit N appllied kg/kg
REAL GrP_NUpt ! Harvest dm per unit N taken up kg/kg
REAL H2OA ! Water available in root zone mm
REAL H2OCF ! Water 'potential' factor N upt mm
REAL H2OPROFILE ! Total h2o in soil profile mm
REAL H2OROOTZONE ! Total h2o in root zone mm
INTEGER HADOY ! Harvest day of year d
REAL HAFR ! Harvested fraction kg/ha
REAL HAMT(HANUMX) ! Harvest amount #
INTEGER HANUM ! Harvest instruction number #
REAL HARVFRAC(2) ! Harvest fraction as brought in #
REAL HAWAD ! Harvested weight (grazing,etc) kg/ha
INTEGER HAYEAR ! Harvest year #
REAL HBPC(HANUMX) ! Harvest by-product percentage #
REAL HBPCF ! Harvest by-product %,final #
INTEGER HDAY ! Harvest day as read #
INTEGER HDOYF ! Earliest doy for harvest #
INTEGER HDOYL ! Last doy for harvest #
REAL HDUR ! Hardening duration,days d
INTEGER HFIRST ! Earliest date for harvest #
REAL HIAD ! Harvest index,above ground #
INTEGER HIADCOL ! Harvest index column number #
REAL HIADT ! Harvest index from t file #
REAL HIAM ! Harvest index,above ground,mat #
REAL HIAMERR ! Harvest index,maturity,error %
REAL HIAMM ! Harvest index,mature,measure #
REAL HIAMMTMP ! Harvest index,mature,temporary #
REAL HIND ! Harvest index,N,above ground #
REAL HINM ! Harvest index,N,abground,mat #
REAL HINMM ! Harvest N index,mature,meas %
INTEGER HLAST ! Last date for harvest #
REAL HMPC ! Harvest moisture percent,std.. #
REAL HNAD ! Product N kg/ha
REAL HNAM ! Harvest N at maturity kg/ha
REAL HNAMERR ! Harvest N,error %
REAL HNAMM ! Harvest N,harvest,measured kg/ha
REAL HNC ! Product N concentration,fr #
REAL HNPCM ! Harvest N%,maturity %
REAL HNPCMERR ! Harvest N%,error %
REAL HNPCMM ! Harvest N,mature,measured %
INTEGER HNUMACOL ! Harvest number per area column #
REAL HNUMAD ! Harvest product#/unit area #/m2
REAL HNUMAERR ! Harvest #,maturity,error %
REAL HNUMAM ! Harvest no/area,maturity #/m2
REAL HNUMAMM ! Harvest no/area,mature,measure #/m2
REAL HNUMAT ! Harvest number/area,t file #/m2
INTEGER HNUMBER ! Number of harvest instructions #
INTEGER HNUMECOL ! Harvest number per ear column #
REAL HNUMET ! Harvest number/ear,t file #/s
REAL HNUMGERR ! Harvest #/group,error %
REAL HNUMGM ! Harvest #,mature #/g
REAL HNUMGMM ! Harvest #,mature,measured #/g
REAL HNUMPM ! Product# per plant,maturity #/p
REAL HNUMPMM ! Product #,mature,measured #/p
REAL HPC(HANUMX) ! Harvest percentage %
REAL HPCF ! Harvest percentage,final %
REAL HPRODN ! Harvest product N g/p
REAL HSTAGE ! Hardening stage 0-1 #
INTEGER HSTG ! Harvest maturity stage #
REAL HWAD ! Product weight kg/ha
INTEGER HWADCOL ! Product wt column number #
REAL HWADT ! Harvest weight from t file kg/ha
REAL HWAHERR ! Harvest wt,harvest,error %
REAL HWAHM ! Harvest wt,harvest,measured kg/ha
REAL HWAM ! Harvest product wt.,maturity kg/ha
REAL HWAMM ! Harvest product wt.,measured kg/ha
INTEGER HWTUCOL ! Harvest weight per unit column #
REAL HWUD ! Harvest wt/unit g
REAL HWUM ! Harvest product size,maturity g
REAL HWUMERR ! Harvest wt per unit error %
REAL HWUMM ! Hprod wt/unit,mat,measured g
REAL HWUMYLD ! Harvest wt,mature,calculated g/#
REAL HWUT ! Product weight/unit,t file mg
REAL HYAMM ! Harvest product,msured,std.h2o kg/ha
INTEGER HYEAR ! Harvest year as read #
INTEGER HYEARDOY(HANUMX)! Dates of harvest operations #
INTEGER HYEARF ! Earliest year for harvest #
INTEGER HYEARL ! Last year for harvest #
INTEGER HYRDOY(HANUMX)! Dates of harvest operations #
INTEGER I ! Loop counter #
REAL ICWD ! Initial water table depth cm
INTEGER IDETGNUM ! Number of times into IDETG #
REAL IRRAMT ! Irrigation amount for today mm
REAL IRRAMTC ! Irrigation amount,cumulative mm
REAL ISOILH2O ! Initial soil water cm
REAL ISOILN ! Initial soil inorganic N kg/ha
REAL KCAN ! Extinction coeff for PAR #
REAL KCANI ! Extinction coeff,PAR,init.val. #
REAL KEP ! Extinction coeff for SRAD #
REAL KEPI ! Extinction coeff,SRAD,init val #
INTEGER KEYPS(KEYSTX) ! Principal key stage number #
INTEGER KEYPSNUM ! Principal key stage total # #
INTEGER L ! Loop counter #
INTEGER L1 ! Loop counter #
INTEGER L2 ! Loop counter #
REAL LA1S ! Area of leaf 1,standard cm2
REAL LAFND ! Node # (one axis)->final area #
REAL LAFS ! Leaf area/all nodes,final cm2
REAL LAGL(1,LNUMX) ! Leaf area growth,shoot,lf pos cm2/l
REAL LAGETT(0:LNUMX) ! Leaf age at leaf position C.d
REAL LAGEG(0:LNUMX)! Leaf age increment C.d
REAL LAGEP(0:LNUMX)! Leaf age (phyllochrons),lf pos #
REAL LAI ! Leaf area index #
REAL LAIA ! Leaf area index,active #
INTEGER LAIDCOL ! Leaf area index column #
REAL LAIL(30) ! Leaf area index by layer m2/m2
REAL LAILA(30) ! Leaf area index,active,by layr m2/m2
REAL LAIPREV ! Leaf area index,previous day #
REAL LAIPROD ! Leaf area index produced #
REAL LAISTG(20) ! Leaf area index,specific stage #
REAL LAIX ! Leaf area index,maximum #
REAL LAIXERR ! Leaf area index,max,error %
REAL LAIXM ! Lf lamina area index,mx,meas m2/m2
REAL LAIXT ! Leaf area index,max,t-file m2/m2
REAL LAIXX ! Leaf area index,max posible #
REAL LANC ! Leaf actual N concentration #
REAL LANCRS ! Leaf N+rsN concentration #
REAL LAP(0:LNUMX) ! Leaf area at leaf position cm2/p
REAL LAPD ! Leaf area (green) per plant cm2
REAL LAPH ! Leaf area (green) harvested cm2/d
REAL LAPHC ! Leaf area (green) harvested,cu cm2/p
REAL LAPOTX(LNUMX) ! Leaf area potentials,maxima cm2/l
REAL LAPP(LNUMX) ! Leaf area diseased,leaf posn cm2/p
REAL LAPS(LNUMX) ! Leaf area senesced,leaf posn cm2/p
REAL LAPSTMP ! Leaf area senesced,temporary cm2/p
REAL LATL(1,LNUMX) ! Leaf area,shoot,lf#,potential cm2/l
REAL LATL2(1,LNUMX)! Leaf area,shoot,lf#,+h2o,n,tem cm2/l
REAL LATL3(1,LNUMX)! Leaf area,shoot,lf#,+assim. cm2/l
REAL LATL4(1,LNUMX)! Leaf area,shoot,lf#,+assim.+N cm2/l
REAL LATLPREV(1,LNUMX)! Leaf area,shoot,leaf,prev. cm2/l
REAL LATLPOT(1,LNUMX)! Leaf area,shoot,leaf,pot cm2/l
REAL LAWCF ! Leaf area/wt change,fr.st fr/lf
REAL LAWFF ! Leaf area/wt flexibility,fr.st fr
REAL LAWL(2) ! Area to wt ratio,n=youngest lf cm2/g
REAL LAWMNFR ! Leaf area/wt ratio,min.fr.std. #
REAL LAWS ! Leaf area/wt ratio,standard cm2/g
REAL LAWTR ! Leaf area/weight,temp response fr/C
REAL LAWTS ! Leaf area/weight,temp standard C
REAL LAWWR ! Leaf area/weight,water respons fr
REAL LAXNO ! Leaf # (one axis),maximum area #
REAL LAXN2 ! Leaf # (one axis),end max.area #
REAL LAXS ! Area of biggest leaf,main stem cm2
INTEGER LBIRTHDAP(LCNUMX)! DAP on which leaf initiated #
INTEGER LCNUM ! Leaf cohort number (inc.grow) #
REAL LCOA(LCNUMX) ! Leaf cohort area cm2
REAL LCOAS(LCNUMX) ! Leaf cohort area senesced cm2
INTEGER LDEATHDAP(LCNUMX)! DAP on which leaf 100% dead #
REAL LEAFN ! Leaf N g/p
REAL LEAFNEXCESS ! Leaf N > critical g/p
INTEGER LENDIS ! Length,ISWDIS flag #
INTEGER LENENAME ! Length,experiment description #
INTEGER LENGROUP ! Length of group name #
INTEGER LENLINE ! Length of character string #
INTEGER LENLINESTAR ! Length of character string #
INTEGER LENRNAME ! Length of run description #
INTEGER LENTNAME ! Length,treatment description #
REAL LFGSDU ! Leaf growth start,d.units #
REAL LFWT ! Leaf weight g/p
REAL LFWTM ! Leaf weight,maturity g/p
REAL LGPHASE(2) ! Leaf growth tier,start,end #
REAL LGPHASEDU(2) ! Leaf growth tier,start,end Du
INTEGER LINENUM ! Line number in RMSE values #
REAL LL(20) ! Lower limit,soil h2o #
REAL LLIFA ! Leaf life duration,active,read #
REAL LLIFATT ! Leaf life duration,active C.d
REAL LLIFG ! Leaf growth duration,as read #
REAL LLIFGTT ! Leaf growth durtion C.d
REAL LLIFS ! Leaf senescence dur,as read d
REAL LLIFX ! Leaf ageing acceleration,max Tu
REAL LLIFXUNUSED ! Leaf ageing accel.unused Tu
REAL LLIFSTT ! Leaf senescence duration,Ttime C.d
REAL LLIGP ! Leaf lignin percentage #
REAL LLNAD ! Leaf lamina nitrogen kg/ha
REAL LLOSA ! Leaf area loss,accelerated sen fr
REAL LLRSWAD ! Leaf lamina reserves weight kg/ha
REAL LLRSWT ! Leaf lamina reserves g/p
REAL LLWAD ! Leaf lamina weight kg/ha
REAL LLWADOUT ! Leaf lamina weight for output kg/ha
REAL LNCGL ! N concentration,growth,lower fr
REAL LNCGU ! N concentration,growth,upper fr
REAL LNCM ! Leaf N conc,minimum fr
REAL LNCMN(0:1) ! Leaf N conc,minimum fr
REAL LNCPL ! Leaf N concentration,phs,lower fr
REAL LNCPU ! Leaf N concentration,phs,upper fr
REAL LNCR ! Leaf N relative to maximum #
REAL LNCSEN ! N conc.for senescence fr
REAL LNCSENF ! Leaf N con,senescence,final fr
REAL LNCX ! Leaf N conc,maximum fr
REAL LNCXS(0:1) ! Leaf N conc,maximum,stage fr
REAL LNDEM ! Leaf demand for N g/p
REAL LNDEM2 ! Leaf demand for N for growth g/p
REAL LNDEMG ! Leaf demand for N,for growth g/p
REAL LNDEMTU ! Leaf demand for N,for topup g/p
REAL LNPCMN(0:1) ! Leaf N conc,minimum %
REAL LNPCS(0:1) ! Leaf N conc,standard,stage %
REAL LNPH ! Leaf N harvested g/p
REAL LNPHC ! Leaf N harvested,cumulative g/p
REAL LNUM ! Leaf number,Haun stage #
INTEGER LNUMCOL ! Leaf number column #
REAL LNUMEND ! Leaf number,Haun stage,end day #
REAL LNUMG ! Leaf number increase per day #
REAL LNUMNEED ! Leaf # stage to start new leaf #
REAL LNUMPREV ! Leaf number,Haun stage #
REAL LNUMSERR ! Leaf #,error %
INTEGER LNUMSG ! Leaf number produced on axis #
INTEGER LNUMSOLDESTA ! Leaf number,oldest acive,axis #
REAL LNUMSM ! Leaf #/shoot,Haun,maturity #
REAL LNUMSMM ! Leaf #,mature,measured #/s
REAL LNUMSTG(20) ! Leaf number,specific stage #
REAL LNUMT ! Leaf number from t file #
REAL LNUMTMP ! Leaf #,temporary val for calc #
REAL LNUMTOSTG(0:PSX) ! Leaf numbers at fork stages #
REAL LNUMSIMTOSTG(0:PSX) ! Leaf numbers,fork,simul #
REAL LNUSE(0:3) ! Leaf N use,overall and parts g
REAL LPEAI ! Leaf petiole area index m2/m2
REAL LPEAW ! Leaf petiole area/wt,veg.ph cm2/g
REAL LPEFR ! Leaf petiole fraction of total #
REAL LPERSWAD ! Leaf petiole reserves weight kg/ha
REAL LPERSWT ! Leaf petiole reserves g/p
REAL LPEWAD ! Leaf petiole weight kg/ha
INTEGER LRTIP ! Layer with root tip #
INTEGER LSEED ! Layer with seed #
REAL LSENI ! Leaf senescence,injury %/d
REAL LWLOS ! Leaf wt loss,normal senesce fr
REAL LSNUM(HANUMX) ! Livestock number #/ha
REAL LSTAGE ! Leaf stage 0-1 over leaf tier #
REAL LSWT(HANUMX) ! Livestock weight (individual) kg
REAL LWPH ! Leaf weight harvested g/p
REAL LWPHC ! Leaf wt harvested,cumulative g/p
INTEGER MDAP ! Maturity date.Days>planting #
REAL MDAPFR ! Maturity DAP+fraction #
INTEGER MDAPM ! Maturity DAP,measured #
REAL MDAT ! Maturity date.Year+DOY #
INTEGER MDATERR ! Maturity date error d
INTEGER MDATM ! Maturity date,measured #
REAL MDATT ! Maturity date from t file YrDoy
REAL MDAYFR ! Maturity,fraction of day #
INTEGER MDOY ! Maturity day of year d
REAL MJPERE ! Energy per Einstein (300-170) MJ/E
INTEGER MSTG ! Maturity stage(eg.black layer) #
REAL NCRG ! N factor,root growth ppm
REAL NDEMG ! N demand for growth min->max g/p
REAL NDEMMN ! N demand for growth at minimum g/p
REAL NDEM2 ! N demand for growth>minimum g/p
REAL NFG ! N factor,growth 0-1 #
REAL NFGCAV ! N factor,growth,average,cycle #
REAL NFGCC ! N factor,growh,cycle sum #
REAL NFGL ! N factor,gr,lower limit #
REAL NFGPAV(0:12) ! N factor,growth,average,tier #
REAL NFGPC ! N factor,growth,cumulative #
REAL NFGU ! N factor,gr,upper limit #
REAL NFLF(LNUMX) ! N factor for leaf,average #
REAL NFLF2(0:LNUMX)! N factor for leaf area adj #
REAL NFLFP(LNUMX) ! N factor phs leaf,average #
REAL NFP ! N factor,photosynthesis 0-1 #
REAL NFPCAV ! N factor,phs,average,cycle #
REAL NFPCC ! N factor,phs,cumulative,cycle #
REAL NFPL ! N factor,phs,lower limit #
REAL NFPPAV(0:12) ! N factor,phs,average,tier #
REAL NFPPC ! N factor,phs,cumulative,tier #
REAL NFPU ! N factor,phs,upper limit #
REAL NFRG ! N factor,root growth 0-1 #
REAL NFSU ! N factor,senescence,upper lim #
REAL NH4CF ! NH4 uptake concentration fac #
REAL NH4FN ! NH4 conc factor,NH4 uptake 0-1 #
REAL NH4LEFT(20) ! NH4 concentration in soil g/Mg
REAL NH4MN ! NH4 conc minimum for uptake g/Mg
REAL NLABPC ! N labile fraction,standard %
INTEGER NLAYR ! Number of layers in soil #
INTEGER NLAYRROOT ! Number of layers with roots #
REAL NLLG ! N limit,leaf growth #
REAL NO3CF ! NO3 uptake concentration fac #
REAL NO3FN ! NO3 conc factor,NO3 uptake 0-1 #
REAL NO3LEFT(20) ! NO3 concentration in soil g/Mg
REAL NO3MN ! NO3 conc minimum for uptake g/Mg
INTEGER NOUTPG ! Number for growth output file #
INTEGER NOUTPG2 ! Number for growth output file2 #
INTEGER NOUTPGF ! Number for growth factors file #
INTEGER NOUTPN ! Number for growthN output file #
REAL NPOOLL ! Leaf N pool (ie.above minimum) g/p
REAL NPOOLR ! Root N pool (ie.above minimum) g/p
REAL NPOOLS ! Stem N pool (ie.above minimum) g/p
INTEGER NSDAYS ! N stress days #
REAL NTUPF ! N top-up fraction /d
REAL NUF ! Plant N supply/demand,max=1.0 #
REAL NULEFT ! N uptake remaining for use g
REAL NUPAC ! N uptake,cumulative kg/ha
REAL NUPACM ! N uptake,cumulative,measured kg/ha
REAL NUPAD ! N uptake rate (/d) kg/ha
REAL NUPAP ! Total root N uptake rate,potnl kg/ha
REAL NUPAPCSM ! Total N uptake rate,potnl,CSM kg/ha
REAL NUPAPCSM1 ! Total N uptake rate,pot,CSMmod kg/ha
REAL NUPAPCRP ! Total N uptake rate,potnl,CSCR kg/ha
REAL NUPC ! N uptake,cumulative g/p
REAL NUPD ! N uptake g/p
REAL NUPRATIO ! N uptake potential/demand #
REAL NUSEFAC ! N use factor #
INTEGER ON ! Option number (sequence runs) #
INTEGER ONI ! Option number,initial value #
INTEGER OUTCOUNT ! Output counter #
INTEGER OUTCHOICE ! Output choice (+reserves,etc) #
REAL PARFC ! Max photosynthesis/phs at 330 #
REAL PARI ! PAR interception fraction #
REAL PARI1 ! PAR interception fr,1-crop mdl #
REAL PARIOUT ! PAR interception fr for output #
REAL PARIPREV ! PAR interception fr,previous #
REAL PARIP ! PAR interception percentage %
REAL PARIPA ! PAR interception %, active %
REAL PARIUE ! PAR intercepted use efficiency g/MJ
REAL PARIUED ! PAR intercepted use efficiency g/MJ
REAL PARIX ! PAR interception,maximum,fr #
REAL PARMJC ! PAR,cumulative MJ/m2
REAL PARMJFAC ! PAR conversion factor MJ/MJ
REAL PARMJIADJ ! PAR intercepted adjustment MJ/m2
REAL PARMJIC ! PAR intercepted,cumulative MJ/m2
REAL PARU ! PAR utilization effic g/MJ
REAL PARU2 ! PAR use efficiency,afterchange g/MJ
REAL PARUE ! PAR use efficiency,standard g/MJ
REAL PARUEC ! PAR use efficiency to today g/MJ
REAL PARURFR ! PAR utilize factor,reprod fr #
INTEGER PATHL ! Path length #
REAL PD(0:PSX) ! Tier durations deg.d
REAL PD2ADJ ! Tier 2+3 adjusted deg.d
REAL PDADJ ! Tier duration adjustment deg.d
INTEGER PDATE ! Planting Yrdoy from X-file #
INTEGER PDAYS(0:12) ! Tier durations PVoCd
REAL PDFS ! Final senescenc duration deg.d
REAL PDL(0:PSX) ! Tier durations,phint units #
REAL DUSRI ! Degree days to st.root init. oC.d
REAL PECM ! Emergence duration Cd/cm
REAL PEGD ! Duration,germ+dormancy deg.d
REAL PFGCAV ! P factor,growh,cycle,av 0-1 #
REAL PFGPAV(0:12) ! P factor,growh,tier,av 0-1 #
REAL PFPCAV ! P factor,phs,cycle,average 0-1 #
REAL PFPPAV(0:12) ! P factor,phs,tier,average 0-1 #
INTEGER PGDAP ! Plantgro file days after plt #
REAL PGERM ! Germination duration deg.d
INTEGER PGROCOL(20) ! Plantgro column = t-file data #
REAL PGVAL ! Plantgro file value #
REAL PHINT ! Phylochron interval deg.d
REAL PHINTFAC ! Phylochron interval factor #
REAL PHINTS ! Phylochron interval,standard deg.d
INTEGER PHINTSTG ! Phylochron stage #
REAL PHOTQR ! Photon requirement,calculated E/mol
REAL PHSV ! Phs,fr reduction with VPD /KPa
REAL PHTV ! Phs,threshold VPD for reductin KPa
REAL PLA ! Plant leaf area cm2/p
REAL PLAGS2 ! Plant lf area g,all shts,H2oNT cm2/p
REAL PLAGSB2 ! Plant lf area g,sh+br,H2oNT cm2/p
REAL PLAGSB3 ! Plant lf area g,sh+br,H2oNTA cm2/p
REAL PLAGSB4 ! Plant lf area g,sh+br,H2oNTAN2 cm2/p
REAL PLAS ! Leaf area senesced,normal cm2/p
REAL PLASI ! Leaf area senesced,injury cm2/p
REAL PLASL ! Leaf area senesced,low light cm2/p
REAL PLASN ! Leaf area senesced,N shortage cm2/p
REAL PLASP ! Leaf area senesced,phyllochron cm2/p
REAL PLASS ! Leaf area senesced,stress cm2/p
REAL PLASTMP ! Leaf area senesced,temporary cm2/p
REAL PLASTMP2 ! Leaf area senesced,temporary cm2/p
REAL PLASW ! Leaf area senesced,h2o stress cm2/p
REAL PLAX ! Plant leaf area,maximum cm2
INTEGER PLDAY ! Planting day of year d
INTEGER PLDAYTMP ! Planting day of year #
REAL PLMAGE ! Planting material age d
INTEGER PLTOHARYR ! Planting to final harvestyears #
REAL PLPH ! Plants/hill or shoots/cutting #
REAL PLTPOP ! Plant Population #/m2
REAL PLTPOPE ! Plant Population established #/m2
REAL PLTPOPP ! Plant Population planned #/m2
INTEGER PLYEAR ! Planting year #
INTEGER PLYEARDOY ! Planting year*1000+DOY #
INTEGER PLYEARDOYPREV ! Year+Doy for planting,previous #
INTEGER PLYEARDOYT ! Planting year*1000+DOY target #
INTEGER PLYEARREAD ! Planting year as read #
INTEGER PLYEARTMP ! Year(Yr)+Doy,planting tem val #
REAL PPEXP ! Photoperiod response exponent #
REAL PPTHR ! Photoperiod threshold h
INTEGER PSDAP (PSX) ! Stage DAP #
REAL PSDAPFR(PSX) ! Stage DAP+fr #
INTEGER PSDAPM (PSX) ! Stage DAP,measured #
INTEGER PSDAT (PSX) ! Stage YrDoydate #
INTEGER PSDATM (PSX) ! Stage date,measured #
REAL PSDAYFR(PSX) ! Stage fraction of day #
INTEGER PSIDAP ! Principal stage,inter,date dap
INTEGER PSIDAPM ! Principal stg,inter,measured dap
INTEGER PSIDATERR ! Principal stage,inter,error dap
INTEGER PSNUM ! Principal stage number #
REAL PSTART(0:PSX) ! Principal thresholds du
REAL PTF ! Partition fraction to tops #
REAL PTFA ! Partition fr adjustment coeff. #
REAL PTFMN ! Partition fraction,minimum #
REAL PTFMX ! Partition fraction,maximum #
REAL PTTN ! Minimum soil temperature,plt C
REAL PTX ! Maximum soil temperature,plt C
INTEGER PWDINF ! First YrDoy of planting window #
INTEGER PWDINL ! Last YrDoy of planting window #
INTEGER PWDOYF ! First doy of planting window #
INTEGER PWDOYL ! Last doy of planting window #
INTEGER PWYEARF ! First year of planting window #
INTEGER PWYEARL ! Last year of planting window #
REAL RAIN ! Rainfall mm
REAL RAINC ! Rainfall,cumulative mm
REAL RAINCC ! Precipitation cycle sum mm
REAL RAINPAV(0:12) ! Rainfall,average for tier mm
REAL RAINPC(0:12) ! Precipitation tier sum mm
REAL RANC ! Roots actual N concentration #
REAL RATM ! Boundary layer,air,resistance s/m
REAL RB ! Leaf resistance addition fac s/m
REAL RCROP ! Stomatal res,crop basis s/m
REAL RDGAF ! Root depth gr,acceleration fac #
REAL RDGS ! Root depth growth rate,standrd cm/d
INTEGER REP ! Number of run repetitions #
REAL RESCAL(0:20) ! Residue C at maturity,by layer kg/ha
REAL RESCALG(0:20) ! Residue C added,by layer kg/ha
REAL RESLGAL(0:20) ! Residue lignin,maturity,layer kg/ha
REAL RESLGALG(0:20)! Residue lignin added,layer kg/ha
REAL RESNAL(0:20) ! Residue N at harvest by layer kg/ha
REAL RESNALG(0:20) ! Residue N added,by layer kg/ha
REAL RESPC ! Respiration,total,cumulative g/p
REAL RESPRC ! Respiration,roots,cumulative g/p
REAL RESPTC ! Respiration,tops,cumulative g/p
REAL RESWAL(0:20) ! Residue om added by layer kg/ha
REAL RESWALG(0:20) ! Residue om,maturity,by layer kg/ha
REAL RFAC ! Root length & H2O fac,N uptake #
REAL RLDF(20) ! Root length density fac,new gr #
REAL RLF ! Leaf stomatal res,330.0 ppmCO2 s/m
REAL RLFC ! Leaf stomatal resistance s/m
REAL RLFN ! Root length factor,N #
REAL RLFWU ! Root length factor,water uptk /cm2
REAL RLIGP ! Root lignin concentration %
REAL RLV(20) ! Root length volume by layer cm-2
REAL RLWR ! Root length/weight ratio m/10mg
REAL RM ! Mesophyll resistance d/m
REAL RMSE(30) ! Root mean square error values #
INTEGER RN ! Treatment replicate #
REAL RNAD ! Root N kg/ha
REAL RNAM ! Root N at maturity kg/ha
REAL RNAMM ! Root N at maturity,measured kg/ha
REAL RNCM ! Root N conc,minimum fr
REAL RNCMN(0:1) ! Root N conc,minimum fr
REAL RNCR ! Roots N relative to maximum #
REAL RNCX ! Root N concentration,maximum fr
REAL RNCXS(0:1) ! Roots N conc,maximum,by stage fr
REAL RNDEM ! Root demand for N g/p
REAL RNDEMG ! Root demand for N,for growth g/p
REAL RNDEMTU ! Root demand for N,for topup g/p
REAL RNH4U(20) ! Potential ammonium uptake kg/ha
INTEGER RNI ! Replicate number,initial value #
REAL RNO3U(20) ! Potential nitrate uptake kg/ha
REAL RNPCMN(0:1) ! Root N conc,minimum %
REAL RNPCS(0:1) ! Roots N conc,standard,by stage %
REAL RNUMX ! Root N uptake,maximum mg/cm
REAL RNUSE(0:2) ! Root N use,overall and parts g
REAL ROOTN ! Root N g/p
REAL ROOTNEXCESS ! Root N > critical g/p
REAL ROOTNS ! Root N senesced g/p
REAL ROWSPC ! Row spacing cm
INTEGER RPCOL ! Replicate column number #
REAL RRESP ! Root respiration fraction #
REAL RSCD ! Reserves concentration,end day fr
REAL RSFRS ! Reserves fr.assim.for stem,std fr
REAL RSCLX ! Reserves conc,leaves,max. #
REAL RSCM ! Reserves concentration,mature fr
REAL RSCMM ! Reserves conc,maturity,msured #
REAL RSPCO ! Res conc.above which overflow %
REAL RSCX ! Max.reserves conc.reached fr
REAL RSEN ! Root senescence fraction #
REAL RSFP ! Reserves factor,photosynthesis fr
REAL RSFPL ! Reserves conc.,phs.lower bound fr
REAL RSFPU ! Reserves conc.,phs upper bound fr
REAL RSN ! Reserve N g/p
REAL RSNAD ! Reserve N kg/ha
REAL RSNEED ! Reserves need to bring to min g/p
REAL RSNPH ! Reserves N harvested g/p
REAL RSNPHC ! Reserves N harvested,cum g/p
REAL RSNUSED ! Reserve N used g/p
REAL RSGLFADJ ! Reserves from leaf adj to N g/p
REAL RSSRWTGLFADJ ! Reserves+storage from lf N adj g/p
REAL RSSRWTGSTADJ ! Reserves+storage from st N adj g/p
REAL RSUSE ! Reserves utilisation fraction #
REAL RSWAD ! Reserves weight kg/ha
REAL RSWAM ! Reserves at maturity kg/ha
REAL RSWAMM ! Reserves at maturity,measured kg/ha
REAL RSWPH ! Reserves weight harvested g/p
REAL RSWPHC ! Reserves wt harvested,cum g/p
REAL RSWT ! Reserves weight g/p
REAL RSWTGLFADJ ! Reserves from lf N adjustment g/p
REAL RSWTPREV ! Reserves weight,previous g/p
REAL RSWTM ! Reserves weight,maturity g/p
REAL RSWTTMP ! Reserves weight,temporary val g/p
REAL RSWTX ! Reserves weight,maximum g/p
REAL RTDEP ! Root depth cm
REAL RTDEPG ! Root depth growth cm/d
REAL RTDEPTMP ! Root depth,temporary value cm/d
REAL RTNO3 ! N uptake/root length mg/cm
REAL RTNH4 ! N uptake/root length mg/cm
REAL RTNSL(20) ! Root N senesced by layer g/p
REAL RTRESP ! Root respiration g/p
REAL RTRESPADJ ! Root respiration rate N adj g/p
INTEGER RTSLXDATE ! Roots into last layer date YYDDD
REAL RTUFR ! Max fraction root wt useable fr
REAL RTWT ! Root weight g/p
REAL RTWTAL(20) ! Root weight by layer kg/ha
REAL RTWTG ! Root weight growth g/p
REAL RTWTGADJ ! Root growth rate N adjusted g/p
REAL RTWTGL(20) ! Root weight growth by layer g/p
REAL RTWTL(20) ! Root weight by layer g/p
REAL RTWTM ! Root weight,maturity g/p
REAL RTWTSL(20) ! Root weight senesced by layer g/p
REAL RTWTUL(20) ! Root weight used for tops,lyr g/p
INTEGER RUN ! Run (from command line) number #
INTEGER RUNCRP ! Run (internal within module) #
INTEGER RUNI ! Run (internal for sequences) #
REAL RUNOFF ! Calculated runoff mm/d
REAL RUNOFFC ! Calculated runoff,cumulative mm
REAL RWAD ! Root weight kg/ha
REAL RWAM ! Root weight,maturity kg/ha
REAL RWAMM ! Root wt at maturity,measured kg/ha
REAL RWUMX ! Root water uptake,max cm3/cm.d cm2.d
REAL RWUMXI ! Root water uptake,max,init.val cm2/d
REAL RWUPM ! Pore size for maximum uptake fr
REAL SAID ! Stem area index m2/m2
REAL SANC ! Stem N concentration #
REAL SANCOUT ! Stem+LeafPetiole N conc #
REAL SAT(20) ! Saturated limit,soil #
REAL SAWS ! Stem area to wt ratio,standard cm2/g
REAL SDCOAT ! Non useable material in seed g
REAL SDDUR ! Seed reserves use duration d
REAL SDEPTH ! Sowing depth cm
REAL SDEPTHU ! Sowing depth,uppermost level cm
REAL SDNAD ! Seed N kg/ha
REAL SDNAP ! Seed N at planting kg/ha
REAL SDNC ! Seed N concentration #
REAL SDNPCI ! Seed N concentration,initial %
REAL SDRATE ! Seeding 'rate' kg/ha
REAL SDRSF ! Seed reserves fraction of seed #
REAL SDSZ ! Seed size g
REAL SDWAD ! Seed weight kg/ha
REAL SDWAM ! Seed at maturity kg/ha
REAL SEEDN ! Seed N g/p
REAL SEEDNI ! Seed N,initial g/p
REAL SEEDNUSE ! N use from seed g
REAL SEEDNUSE2 ! N use from seed,supplementary g
REAL SEEDRS ! Seed reserves g/p
REAL SEEDRSAV ! Seed reserves available g/p
REAL SEEDRSAVR ! Seed reserves available,roots g/p
REAL SEEDRSI ! Seed reserves,initial g/p
REAL SEEDUSE ! Seed reserves use g/p
REAL SEEDUSER ! Seed reserves use,roots g/p
REAL SEEDUSET ! Seed reserves use,tops g/p
REAL SENCAGS ! Senesced C added to soil kg/ha
REAL SENCALG(0:20) ! Senesced C added,by layer kg/ha
REAL SENCAS ! Senesced C added to soil kg/ha
REAL SENCL(0:20) ! Senesced C,by layer g/p
REAL SENCS ! Senesced C added to soil g/p
REAL SENFR ! Senesced fraction lost from pl #
REAL SENLA ! Senesced leaf area,total cm2/p
REAL SENLALITTER ! Senesced leaf area,litter cm2/p
REAL SENLAGS ! Senesced lignin added to soil kg/ha
REAL SENLALG(0:20) ! Senesced lignin added,layer kg/ha
REAL SENLAS ! Senesced lignin added to soil kg/ha
REAL SENLFG ! Senesced leaf g/p
REAL SENLFGRS ! Senesced leaf to reserves g/p
REAL SENLL(0:20) ! Senesced lignin added,by layer g/p
REAL SENLS ! Senesced lignin added to soil g/p
REAL SENNAGS ! Senesced N added to soil kg/ha
REAL SENNAL(0:20) ! Senesced N,by layer kg/ha
REAL SENNALG(0:20) ! Senesced N added,by layer kg/ha
REAL SENNAS ! Senesced N added to soil kg/ha
REAL SENNATC ! Senesced N,litter+soil,cum kg/ha
REAL SENNATCM ! Senesced N,litter+soil,cum,mes kg/ha
REAL SENNGS ! Senesced N added to soil g/p
REAL SENNL(0:20) ! Senesced N,by layer g/p
REAL SENNLFG ! Senesced N from leaves g/p
REAL SENNLFGRS ! Senesced N from leaves,to rs g/p
REAL SENNS ! Senesced N added to soil g/p
REAL SENRTG ! Senescent root material growth g/p
REAL SENSTFR ! Senesced stem fraction fr/d
REAL SENTOPLITTERG ! Senescent top->litter growth g/p
REAL SENWACM ! Senesced weight,total,cum to m kg/ha
REAL SENWACMM ! Senesced om,litter+soil,cum,ms kg/ha
REAL SENWAGS ! Senesced weight added to soil kg/ha
REAL SENWAL(0:20) ! Senesced om by layer kg/ha
REAL SENWALG(0:20) ! Senesced om added by layer kg/ha
REAL SENWL(0:20) ! Senesced om (cumulative),layer g/p
REAL SENROOT ! Senesced weight,soil,cum g/p
REAL SENROOTA ! Senesced weight,soil,cumulativ kg/ha
REAL SERX ! Shoot elongation rate,max cm/Du
REAL SHF(20) ! Soil hospitality factor 0-1 #
INTEGER SHDAP ! Shoot prodn.start DAP #
INTEGER SHDAT ! Shoot prodn.startdate YEARDOY #
REAL SHGR(22) ! Shoot size relative to 1 #
REAL SHLA(25) ! Shoot leaf area produced cm2
REAL SHLAG2(25) ! Shoot lf area gr,1 axis,H2oNt cm2
REAL SHLAGB2(25) ! Shoot lf area gr,+br,H2oNt cm2
REAL SHLAGB3(25) ! Shoot lf area gr,+br,H2oNtA cm2
REAL SHLAGB4(25) ! Shoot lf area gr,+br,H2oNtAN2 cm2
REAL SHLAS(25) ! Shoot leaf area senesced cm2
REAL SHNUM ! Shoot (incl.main stem) number #/p
REAL SHNUMAD ! Shoot (incl.main stem) number #/m2
REAL SHNUML(LNUMX) ! Shoot # at leaf position #/p
REAL SHRTD ! Shoot/root ratio #
REAL SHRTM ! Shoot/root ratio,maturity #
REAL SHRTMM ! Shoot/root ratio,maturity,meas #
REAL SLA ! Specific leaf area cm2/g
REAL SLAOUT ! Specific leaf area for output cm2/g
REAL SLIGP ! Stem lignin concentration %
REAL SLPF ! Soil factor for photosynthesis %
REAL SMDFR ! Soil moisture factor,N uptake #
INTEGER SN ! Sequence number,crop rotation #
REAL SNAD ! Stem N (stem+petiole+rs) kg/ha
REAL SNCM ! Stem N conc,minimum fr
REAL SNCMN(0:1) ! Stem N conc,minimum fr
REAL SNCR ! Stem N relative to maximum #
REAL SNCX ! Stem N conc,maximum fr
REAL SNCXS(0:1) ! Stem N conc,maximum,stage fr
REAL SNDEM ! Stem demand for N g/p
REAL SNDEMG ! Stem demand for N,for growth g/p
REAL SNDEMTU ! Stem demand for N,for topup g/p
REAL SNH4(20) ! Soil NH4 N kg/ha
REAL SNH4PROFILE ! Soil NH4 N in profile kg/ha
REAL SNH4ROOTZONE ! Soil NH4 N in root zone kg/ha