-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathCSCRP.for
13308 lines (12500 loc) · 571 KB
/
CSCRP.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 CEREAL GROWTH AND DEVELOPMENT MODULE Version 010115
!
! Version changed to accomodate new CUL,ECO files;minor other changes
!
! Last edit 050415 Few more writes to Work.out
!-----------------------------------------------------------------------
SUBROUTINE CSCRP (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
& DAYLT, WINDSP, DEWDUR, CLOUDS, ST, EO, ES, !Weather
& NLAYR, DLAYR, DEPMAX, LL, DUL, SAT, BD, SHF, SLPF, !Soil states
& SNOW, SW, NO3LEFT, NH4LEFT, FERNIT, !H2o,N states
& TLCHD, TNIMBSOM, TNOXD, !NEW !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, GSTAGE, !Stage dates
& DYNAMIC) !Control
! Staging in comparison with Ceres
! 1 Germinate 1 Germinate
! 2 Terminal spikelet 2 Terminal spikelet
! 3 Pseudo-stem
! 4 End leaf 3 End leaf
! 5 Head emerge 4 End spike growth
! 6 Anthesis
! 7 End anthesis
! 8 Milk end/start dough 5 Begin rapid grain geroowth
! 9 Hard dough 6 Physiological maturity
! 10 Harvest 6.9 Harvest
! Changes made after sending model to Jeff for Agmip work.
! 1. Variables passed to main module for outputting in Summary.out
! 2. Version check for genotype files re-introduced
! 3. Phenology temperature responses made to work for differrent
! phases (was not working so responses for phase 1 for all)
! 4. Initialized tfdnext. Not initialized so sequence of runs
! used previous tfdnext for 1st phase, hence ADAT differed
! for sequence of runs.
! 5. Capability to start at time of 1st irrig or at emergence
! introduced
! 6. Aitken formula introduced to calculate leaf number
! to emerge after terminal spikelet.
! 7. Radiation effect on grain number set at anthesis
! 8. Potential grain size reduced if canopy size over
! threshold.
! 9. Temperature responses changed.
! 10. Minor 'bugs' corrected.
! NB. Some additional controls that are not handled by the CSM
! inputs routine are read directly from the x-file in the
! section of code dealing with 'additional controls'. The
! same approach could be used to input grazing information
! if CSM is not modified to handle the additional grazing
! inputs necessary.
! NB. TN, et.are not provided when running under CSM (DS4 files).
! They are read in XREADC in the CSREA module.
! Changes for AZMC 01/02/2014
! 1. Account for 'haying off' (Using TKGF from SPE file)
! 2. SRAD in phase 5 (head emergence to anthesis) effect on grain #
! (using G#RF,G#RT from ECO file)
! 3. Potential grain size reduced as temperature in phase 5 increases
! (Using GWTAF,GWTAT from ECO file)
! Changes for RORO 28/11/2013
! 1. HINM and VNPCM calculated without retained dead leaf
! 2. Root N taken out of remobilization pool
! (N movement to grain from stem first,leaves 2nd.)
! 3. Stem N limits changed. End minimum from 0.4 to 0.15
! 4. Labile N set at 10%
! 5. NUSEFAC left as NLABPC/100.0. No increase in late grain fill
! 6. NUPWF left at 1.0 after trying 0.0 (1.0->0.0 with changes 07/10/2014).
! 7. Calibration to increase tiller death (TDFAC 6->9); increase
! leaf area (LAFV 0.1->0.3). NB. Do not have a response to N
! if potential leaf area too small (LAIS or increase factors)
! 8. Kernel wt.(GWTS) set too high at 50 to enable better
! simulation of yield. Often cannot simulate both K.Wt.and
! yield ... maybe k.wt measurement after too good winnowing,
! or moisture % problems.
! 9. Vegetative N% too low for higher N treatments ... need to
! translocate less when have high soilN.
! Changes for KSAS 02/12/2013
! 1. Established flag set when LAI>0.0,not when shoot/root>2
! (But ? this as allows re-use in the fall)
! 2. May need to take reserve CH2O out of calculation of VNPCM
! Changes for SWSW 05/12/2013
! 1. Minimum grain N% from species to ecotype characteristic.
! 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.
! Need to do something with metadata name if INH file
! And to run well in CSM should:
! Read ICIN (with -99 in profile) and ICSW variables
! Temporary changes .. need firming-up:
! Height increase on emergence day has initialisation value
! Thoughts about possible changes:
! 1. Phyllochron senescence delayed if low light interception
! 2. Leaf and stem N top-up reduced in stages 4 and 5 (NTUPF)
! 3. Organise echo of input variables in Work.out into logical
! groups
! Questions
! 1. What x-file information is essential to run
! 2. Impact of N uptake variable (NUPCF,NUPNF,NUPWF)
! Checks needed
! 1. Algorthms for fraction of day at changeovers
! 2. Blips in response curves and reasons for these
! 3 All declarations,initialisations to 0 or -99
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::PHSX = 5 ! Phyllochron 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
INTEGER ADAP ! Anthesis,days after planting d
REAL ADAPFR ! Anthesis DAP+fraction #
INTEGER ADAPM ! Anthesis,DAP,measured d
INTEGER ADAT ! Anthesis date (Year+doy) #
INTEGER ADATEND ! Anthesis end date (Year+doy) #
INTEGER ADATERR ! Anthesis date error d
INTEGER ADATM ! Anthesis date,measured #
REAL ADATT ! Anthesis date from t file YrDoy
REAL ADAYEFR ! Anthesis end,fraction of day #
REAL ADAYFR ! Anthesis,fraction of day #
INTEGER ADOY ! Anthesis day of year d
REAL AEDAPFR ! Anthesis end date (DAP+fr) #
INTEGER AEDAPM ! Anthesis end date,measured #
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 ANDEM ! Crop N demand kg/ha
REAL ANFER(200) ! N amount in fertilizer appln kg/ha
INTEGER ARGLEN ! Argument component length #
INTEGER ASTG ! Anthesis stage #
REAL AVGSW ! Average soil water in SWPLTD %
REAL AWNAI ! Awn area index m2/m2
REAL AWNS ! Awn score,1-10 #
REAL BASELAYER ! Depth at base of layer cm
REAL BD(20) ! Bulk density (moist) g/cm3
REAL BLAYR(20) ! Base of soil layers cm
REAL CAID ! Canopy area index #
REAL CANHT ! Canopy height cm
REAL CANHTG ! Canopy height growth cm
REAL HTSTD ! 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 res calc g/p
REAL CARBOC ! Ch2o assimilated,cumulative g/p
REAL CARBOEND ! Ch2o available,end of day g/p
REAL CARBOGF ! Ch2o grain fill g/p
INTEGER CARBOLIM ! Ch2o limited grain growth Days d
REAL CARBOLSD ! Ch2o used for leaves from seed g/p
REAL CARBOPM ! Ch2o available,>mature 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 res calc g/p
INTEGER CCOUNTV ! Counter for days after max lf# #
INTEGER CDAYS ! Crop cycle duration PVoCd
REAL CHFR ! Chaff growth rate,fr stem gr #
REAL CHPHASE(2) ! Chaff gr. start,etc.,stages #
REAL CHPHASEDU(2) ! Chaff gr. start,etc.,stages PVTt
REAL CHRSWAD ! Chaff reserves kg/ha
REAL CHRSWT ! Chaff reserves g/p
REAL CHTPC(10) ! Canopy ht % associated w LA% %
REAL CHWAD ! Chaff weight kg/ha
REAL CHWADOUT ! Chaff weight for output kg/ha
REAL CHWT ! Chaff weight g/p
REAL CLAPC(10) ! Canopy lf area % down to ht %
REAL CLOUDS ! Cloudiness factor,relative,0-1 #
INTEGER CN ! Crop component (multicrop) #
REAL CNAA ! Canopy N at anthesis kg/ha
REAL CNAAM ! Canopy N,anthesis,measured kg/ha
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 maturity kg/ha
REAL CNAMERR ! Canopy N,maturity,error %
REAL CNAMM ! Canopy N,mature,measured kg/ha
REAL CNCTMP ! Canopy N concentration,temp %
INTEGER CNI ! Crop component,initial value #
REAL CNPCA ! Canopy N % at anthesis #
REAL CNPCMM ! Canopy N,maturity,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,phase 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 phases #
REAL CUMDEP ! Cumulative depth cm
REAL CUMDU ! Cumulative development units #
REAL CUMDULAG ! Cumulative DU lag phase #
REAL CUMDULIN ! Cumulative DU linear phase #
REAL CUMDUS ! Cumulative DU during stem ph #
REAL CUMSW ! Soil water in depth SWPLTD cm
REAL CUMTT ! Cumulative thermal times #
REAL CUMVD ! Cumulative vernalization days d
REAL CWAA ! Canopy weight at anthesis kg/ha
REAL CWAAM ! Canopy wt,anthesis,measured kg/ha
REAL CWAD ! Canopy weight kg/ha
REAL CWADGS ! Canopy weight at grain set 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,mature,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 (Year+Doy) #
INTEGER DATECOL ! Date column number #
REAL DAYLT ! 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 phase h
REAL DAYLPC ! Daylength (6deg),cumulative h
REAL DAYLPREV ! Daylength previous day h
REAL PPS(0:10) ! Photoperiod sensitivity,phase %/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 DEADN ! Dead leaf N retained on plant g/p
REAL DEADNAD ! Dead N retained on plant kg/ha
REAL DEADWAM ! Dead weight retained,maturity kg/ha
REAL DEADWAMM ! Dead weight retained,measured kg/ha
REAL DEADWT ! Dead leaf wt.retained or shed g/p
REAL DEADWTM ! Dead leaf wt.on plant,maturity g/p
REAL SENTOPRETAINED ! Dead leaf wt.retained on plantg/p
REAL SENTOPRETAINEDA ! Dead weight retained on plantkg/ha
REAL SENTOPLITTER ! Dead wt.to litter g/p
REAL SENTOPLITTERA ! Dead wt.to litter kg/ha
REAL DEADWTSGE ! Dead weight rtained,stem g end g/p
REAL DEPMAX ! Maximum depth of soil profile cm
REAL DEWDUR ! Dew duration h
REAL DF ! Daylength factor 0-1 #
REAL DFNEXT ! Daylength factor,next phase #
REAL DFOUT ! Daylength factor for output #
REAL PPFPE ! Photoperiod factor,pre-emerge #
REAL DGLF(LNUMX) ! Days during which leaf growing #
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
INTEGER DRDAP ! Double ridges date dap
INTEGER DRDAT ! Double ridges date #
INTEGER DRDATM ! Double ridges date,measured #
REAL DRF1 ! Double ridges factor 1 #
REAL DRF2 ! Double ridges factor 2 #
REAL DRF3 ! Double ridges factor 3 #
REAL DRSTAGE ! Double ridges stage #
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 DULAG ! Developmental units,lag phase PVC.d
REAL DULF ! Development time,leaves C.d
REAL DULFNEXT ! Development time,leaves,next oCd
REAL DULIN ! Developmental units,linear ph PVC.d
REAL DUNEED ! Developmental units needed ph PVC.d
REAL DUPHASE ! Development units,current ph PVoCd
REAL DUPNEXT ! Development units,next phase PVoCd
REAL DUTOMSTG ! Developmental units,germ->mat Du
REAL DWRPH ! Reained dead wt harvested g/p
REAL DWRPHC ! Reained dead wt harvested,cum g/p
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 ECSTG ! End crop stage #
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 EORATIO ! Pevap increase w LAI (<6) #
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 cycle sum mm
REAL ETPC(0:12) ! Evapotranspiration phase 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 #
REAL EWAD ! Ear weight kg/ha
INTEGER EYEARDOY ! Emergence Year+DOY #
INTEGER EYEARDOYM ! Emergence measured 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 FLNAITKEN ! Final leaf #,AIKEN formula #
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,phases #
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 FSDU ! Rstage when final sen started PVoCd
REAL FSOILH2O ! Final soil water cm
REAL G2A(0:3) ! Grain growth rate,adjusted mg/du
REAL G3 ! Cultivar coefficient,stem wt g
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 GFDAPFR ! Grain filling start DAP+fr #
INTEGER GFDAPM ! Grain filling date,measured #
REAL GFDAT ! Grain filling start DAP #
REAL GFDUR ! Linear grain fill duration d
REAL GGPHASE(4) ! Grain set start,etc.,stages #
REAL GGPHASEDU(4) ! Grain set start,etc.,stages PVTt
REAL GLIGPC ! Grain lignin content %
REAL GMPCH ! Grain moisture percent,harvest #
REAL GNAD ! Grain N kg/ha
REAL GNAM ! Grain N at maturity kg/ha
REAL GNAMM ! Harvest N,mature,measured kg/ha
REAL GNOAD ! Grains per unit area #/m2
REAL GNOAM ! Grains per unit area,maturity #/m2
REAL GNOAMM ! Grain #,mature,measured #/m2
REAL GNOGM ! Grains/tiller (group),maturity #/gr
REAL GNOGMM ! Grain#/group,mature,measured #/gr
REAL GNOPD ! Grains per plant #/p
REAL GNOPAS ! Grains per plant after st.adj #/p
REAL GNOPM ! Grains per plant,maturity #/p
REAL GNORF ! Grain # radiation factor fr/MJ
REAL GNORT ! Grain # radiation threshold MJ/m2
REAL GNOWTS ! Cultivar coefficient,grain # #/g
REAL GNOWTM ! Grains/non-grain wt,maturity #/g
REAL GNPCM ! Harvest N%,maturity %
REAL GNPCMM ! Harvest N,mature,measured %
REAL GNPH ! Grain N harvested g/p
REAL GNPHC ! Grain N harvested,cumulative g/p
REAL GPLASENF ! Green leaf area,final sen strt #
REAL GRAINANC ! Grain N concentration,fr #
REAL GRAINN ! Grain N g/p
REAL GRAINNDEM ! N demand for grain filling g/p
REAL GRAINNDEMLSR ! Grain N demand,leaves+stem+rt g/p
REAL GRAINNGL ! Grain N growth from leaves g/p
REAL GRAINNGR ! Grain N growth from roots g/p
REAL GRAINNGRS ! Reserves N use for grain g/p
REAL GRAINNGS ! Grain N growth from stems g/p
REAL GRAINNGU ! Grain N growth,uptake g/p
REAL GRAINNTMP ! Grain N,temporary value g/p
REAL GNPCMN ! Grain N minimum conc,% #
REAL GNPCMX ! Grain N,maximum conc,% #
REAL GNPCS ! Grain N standard conc,% #
REAL GROCH ! Chaff growth rate g/p
REAL GROCHFR ! Chaff growth rate,fraction st #
REAL GROGR ! Grain growth g/p
REAL GROGRA ! Grain growth,current assim g/p
REAL GROGRP ! Grain growth potential g/p
REAL GROGRPA ! Grain growth,possible,assim g/p
REAL GROGRRS ! Grain growth,from reserves g/p
REAL GROLF ! Leaf growth rate g/p
REAL GROLFP ! Leaf growth,potential g/p
REAL GROLFRS ! Leaf growth from reserves g/p
REAL GROLFRT ! Leaf growth from root d matter g/p
REAL GROLFRTN ! Leaf N growth from root N g/p
REAL GROLS ! Leaf+stem growth g/p
REAL GROLSP ! Leaf+stem growth potential g/p
REAL GRORS ! Reserves growth g/p
REAL GRORSGR ! Reserves gr,unused grain assim g/p
REAL GRORSPM ! Reserves growth,post-maturity g/p
REAL GRORSPRM ! Reserves growth,pre-maturity g/p
REAL GROST ! Stem growth rate g/p
REAL GROSTP ! Stem growth potential g/p
REAL GROSTPSTORE ! Stem growth potential,previous g/p
REAL GRP_ET ! Harvest product per unit water g/mm
REAL GRP_Rain ! Harvest product per unit water g/mm
REAL GRWT ! Grain weight g/p
REAL GRWTM ! Grain weight at maturity g/p
REAL GRWTSGE ! Grain weight,stem growth end g/p
REAL GRWTTMP ! Grain weight,temporary value g/p
REAL GSTAGE ! Growth stage #
INTEGER GSTDCOL ! Growth stage column number #
REAL GWAD ! Grain weight kg/ha
REAL GWAHM ! Grain weight,harvest,measured kg/ha
REAL GWAM ! Grain weight,maturity kg/ha
REAL GWAMM ! Grain weight,maturity,measured kg/ha
REAL GWLINFR ! Grain weight end linear,fr #
REAL GWLAGFR ! Grain weight end lag,fraction #
REAL GWPH ! Grain wt harvested g/p
REAL GWPHC ! Grain wt harvested,cumulative g/p
REAL GWTA ! Cultivar coeff,gr.wt.adjusted mg
REAL GWTAF ! Grain weight adjustment factor fr
REAL GWTAS ! Cultivar coeff,gr.wt.adj.strss mg
REAL GWTAT ! Grain weight adj threshold oC
REAL GWTS ! Cultivar coefficient,grain wt mg
REAL GWUD ! Grain size g
REAL GWUDELAG ! Grain size,end lag period g
REAL GWUM ! Grain size,maturity g
REAL GWUMM ! Grain wt/unit,mat,measured g
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 NUPWF ! Water factor for N uptake #
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 HARDAYS ! Accumulated hardening days #
REAL HARDILOS ! Hardening index loss #
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 HLOSF ! Fraction hardiness days lost fr
REAL HLOST ! Temp threshold,hardiness loss C
REAL HNAD ! Product N kg/ha
REAL HNAM ! Grain N at maturity kg/ha
REAL HNAMERR ! Harvest N,error %
REAL HNAMM ! Harvest N,mature,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 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 ! Grain wt per unit error %
REAL HWUMM ! Hprod wt/unit,mat,measured g
REAL HWUMYLD ! Harest 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 IDATE1 ! First irrigation Yrdoy #
INTEGER IDETGNUM ! Number of times into IDETG #
INTEGER IESTG ! Inflorescence emergence stage #
REAL IRRAMT ! Irrigation amount for today mm
REAL IRRAMTC ! Irrigation amount,cumulative mm
REAL ISOILH2O ! Initial soil water cm
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 KEYSS(KEYSTX) ! Secondary key stage number #
INTEGER KEYSSNUM ! Secondary key stage total # #
INTEGER L ! Loop counter #
INTEGER L1 ! Loop counter #
INTEGER L2 ! Loop counter #
REAL LA1S ! Area of leaf 1,standard cm2
REAL LAFR ! Leaf area increase factor,rep #
REAL LAFST ! Leaf area factor change stage #
REAL LAFSTDU ! Leaf area factor change st,DU #
REAL LAFSWITCH ! Leaf # changed increase factor #
REAL LAFV ! Leaf area increase factor,veg #
REAL LAGEDU(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 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
INTEGER LAPOTCHG ! Leaf area gr pot,increment chg cm2/p
REAL LAPOTX(LNUMX) ! Leaf area potentials,maxima cm2/l
REAL LAPOTXCHANGE ! Leaf area potential,changover 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,tiller1,leaf pos 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 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 response fr
REAL LAXS ! Area of biggest leaf,main stem cm2
INTEGER LCNUM ! Leaf cohort number (inc.grow) #
REAL LCOA(LCNUMX) ! Leaf cohort area cm2
REAL LCOAS(LCNUMX) ! Leaf cohort area senesced cm2
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 LFENDFR ! Fraction of day leaves growint #
REAL LFGSDU ! Leaf growth start,d.units #
REAL LFGSCUMDU ! Cumulative DU during leaf ph #
REAL LFWAA ! Leaf weight at anthesis g/m2
REAL LFWAAM ! Leaf weight,anthesis,measured g/m2
REAL LFWT ! Leaf weight g/p
REAL LFWTA ! Leaf weight,anthesis g/p
REAL LFWTAE ! Leaf weight,anthesis end g/p
REAL LFWTM ! Leaf weight,maturity g/p
REAL LFWTSGE ! Leaf weight,stem growth end g/p
REAL LGPHASE(2) ! Leaf growth phase start,end #
REAL LGPHASEDU(2) ! Leaf growth phase,start,end Du
INTEGER LINENUM ! Line number in RMSE values #
REAL LL(20) ! Lower limit,soil h2o #
REAL LLIFA ! Leaf life duration,active,phyl #
REAL LLIFATT ! Leaf life duration,active C.d
REAL LLIFEG(0:LNUMX) ! Leaf expansion growth,phyll #
REAL LLIFG ! Leaf growth phase,phyll #
REAL LLIFGTT ! Leaf growth phase C.d
REAL LLIFS ! Leaf senescence duration phyl
REAL LLIFSTT ! Leaf senescence duration,Ttime C.d
REAL LLIGPC ! 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
INTEGER LLSTG ! Last leaf fully expanded stage #
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 LNCTL ! Leaf N conc,tillering,lower fr
REAL LNCTU ! Leaf N conc,tillering,upper 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 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 #
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 LNUMTS ! Leaf number,terminal spikelet #
REAL LNUSE(0:2) ! Leaf N use,overall and parts g
REAL LRETS ! Stage --> dead leaves retained #
REAL LRETSDU ! Stage --> dead leaves retained PVoCd
INTEGER LRTIP ! Layer with root tip #
REAL LSHAW ! Leaf sheath area/wt cm2/g
REAL LSHAR ! Leaf sheath area/wt,end leaf cm2/g
REAL LSHAV ! Leaf sheath area/wt,veg.phases cm2/g
INTEGER LSEED ! Layer with seed #
REAL LSPHE ! Leaf senescence,end stage #
REAL LSPHEDU ! Leaf senescence,end stage #
REAL LSENI ! Leaf senescence,injury %/d
REAL LSPHS ! Leaf senescence,start stage #
REAL LSPHSDU ! Leaf senescence,start stage PVoCd
REAL LSHAI ! Leaf sheath area index m2/m2
REAL LSHFR ! Leaf sheath fraction of total #
REAL LSHRSWAD ! Leaf sheath reserves weight kg/ha
REAL LSHRSWT ! Leaf sheath reserves g/p
REAL LSHWAD ! Leaf sheath weight kg/ha
REAL LSNUM(HANUMX) ! Livestock number #/ha
REAL LSTAGE ! Leaf stage 0-1 over leaf phase #
REAL LSWT(HANUMX) ! Livestock weight (individual) kg
REAL LWLOS ! Leaf wt loss,normal senesce fr
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 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,phase #
REAL NFGPC ! N factor,growth,cumulative #
REAL NFGU ! N factor,gr,upper limit #
REAL NFLF(LNUMX) ! N factor for leaf,average #
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,phase #
REAL NFPPC ! N factor,phs,cumulative,phase #
REAL NFPU ! N factor,phs,upper limit #
REAL NFRG ! N factor,root growth 0-1 #
REAL NFSU ! N factor,senescence #
REAL NFSF ! N factor,final sen.trigger fr #
REAL NFT ! N factor,tillering 0-1 #
REAL NFTL ! N factor,tillering,lower limit #
REAL NFTU ! N factor,tillering,upper limit #
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 #
INTEGER NLIMIT ! N limited grain growth (Days) #
REAL NUPCF ! N uptake cultivar factor #
REAL NUPNF ! N uptake concentration factor #
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;mx nuselim #
REAL NUSELIM ! N limit on N for grain filling #
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 PD3AITKEN ! Phase 3 duration,Aitken formla deg.d
REAL PD3NEW ! Phase 3 duration,after check deg.d
REAL PD(0:PSX) ! Phase durations deg.d
REAL PDMOD(0:PSX) ! Phase durations modified deg.d
REAL PDADJ ! Phase duration > ts as adjsted deg.d
INTEGER PDATE ! Planting Yrdoy from X-file #
INTEGER PDAYS(0:12) ! Phase durations PVoCd
REAL PDFS ! Phase duration,final senescenc deg.d
REAL PDL(0:10) ! Phase durations,phint units #
REAL PDMTOHAR ! Phase duration,mature->harvest deg.d
REAL PEMRG ! Phase duration,emergence Cd/cm
REAL PEGD ! Phase duration,germ+dormancy deg.d
REAL PFGCAV ! P factor,growh,cycle,av 0-1 #
REAL PFGPAV(0:12) ! P factor,growh,phase,av 0-1 #
REAL PFPCAV ! P factor,phs,cycle,average 0-1 #
REAL PFPPAV(0:12) ! P factor,phs,phase,average 0-1 #
INTEGER PGDAP ! Plantgro file days after plt #
REAL PGERM ! Phase duration,germination deg.d
INTEGER PGROCOL(20) ! Plantgro column = t-file data #
REAL PGVAL ! Plantgro file value #
REAL PHINT ! Phylochron interval deg.d
REAL PHINTSTORE ! Phylochron interval,stored deg.d
REAL PHINTF(PHSX) ! Phylochron interval,factor lf# #
REAL PHINTL(PHSX) ! Phylochron interval,change lf# #
REAL PHINTOUT ! Phylochron interval,adjusted deg.d
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 reduction KPa
REAL PLA ! Plant leaf area cm2
REAL PLAG(2) ! Plant leaf area growth,tiller1 cm2/t
REAL PLAGLF(LNUMX) ! Plant leaf area growth,by leaf cm2/t
REAL PLAGT(2) ! Plant leaf area growth,total cm2/p
REAL PLAGTP(2) ! Plant lf area growth,potential cm2/p
REAL PLAGTTEMP ! Plant leaf area gr,total,temp. cm2/p
REAL PLAS ! Leaf area senesced,normal cm2/p
REAL PLASC ! Leaf area senesced,cold cm2/p
REAL PLASCSUM ! Leaf area senesced,cold,summed cm2/p
REAL PLASFS ! Leaf area senesced,final sen 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 PLASPM ! Leaf area senesced,post mature cm2/p
REAL PLASS ! Leaf area senesced,stress cm2/p
REAL PLAST ! Leaf area senesced,tiller loss cm2/p
REAL PLAST1 ! LA senesced,tiller,youngest co cm2/p
REAL PLAST2 ! LA senesced,tiller,2ndyonug co 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 harvest years #
REAL PLPH ! Plants/hill or shoots/cutting #
REAL PLTLOSS ! Plant popn lost through cold #/m2
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 (0:PSX)! Stage DAP #
REAL PSDAPFR(0:PSX)! Stage DAP+fr #
INTEGER PSDAPM (0:PSX)! Stage DAP,measured #
INTEGER PSDAT (0:PSX)! Stage YrDoydate #
INTEGER PSDATM (0:PSX)! Stage date,measured #
REAL PSDAYFR(0: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 phase 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 PTFXS ! Growth stage for PTFMX #
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 RAINCA ! Rainfall,cumulativ to anthesis mm
REAL RAINCC ! Precipitation cycle sum mm
REAL RAINPAV(0:12) ! Rainfall,average for phase mm
REAL RAINPC(0:12) ! Precipitation phase 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 harvest,by layer kg/ha
REAL RESCALG(0:20) ! Residue C added,by layer kg/ha
REAL RESLGAL(0:20) ! Residue lignin,harvest,bylayer 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 RESPGF ! Respiration,grain fill 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 at harvest,by layer kg/ha
REAL RFAC ! Root length & H2O fac,N uptake #