-
Notifications
You must be signed in to change notification settings - Fork 1
/
Copy pathCSCER040.FOR
8619 lines (7986 loc) · 376 KB
/
CSCER040.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-CERES CEREAL GROWTH AND DEVELOPMENT MODULE V4.5
! Developed from V4.0 (which was based on Cropsim and Ceres3.5)
! Last edit 22/03/11 LAH
!=======================================================================
! SUBROUTINE CSCER040 (FILEIOIN, RUN, TN, RN, !Command line
! & ISWWAT, ISWNIT, IDETO, IDETG, IDETL, FROP, !Controls
! & SN, ON, RUNI, REP, YEAR, DOY, STEP, CN, !Run+loop
! & SRAD, TMAX, TMIN, CO2, RAIN, DEWDUR, !Weather
! & DAYLT, WINDSP, ST, EO, !Weather
! & NLAYR, DLAYR, DEPMAX, LL, DUL, SAT, BD, SHF, SLPF, !Soil states
! & SNOW, SW, NO3LEFT, NH4LEFT, !H2o,N states
! & YEARPLT, YRPLT, HARVFRAC, !Pl.date
! & PARIP, EOP, TRWUP, !Resources
! & LAI, KCAN, KEP, !States
! & RLV, NFP, RWUPM, RWUMX, CANHT, LAIL, !States
! & UNO3ALG, UNH4ALG, UH2O, !Uptake
! & SENCALG, SENNALG, SENLGALG, !Senescence
! & RESCALG, RESNALG, RESLGALG, !Residues
! & STGDOY, !Stage dates
! & DYNAMIC) !Control
! For CSM
SUBROUTINE CSCER040 (FILEIOIN, RUN, TN, RN, RNMODE, !Command line
& ISWWAT, ISWNIT, IDETS, IDETO, IDETG, IDETL, FROP, !Controls
& SN, ON, RUNI, REP, YEAR, DOY, STEP, CN, !Run+loop
& SRAD, TMAX, TMIN, CO2, RAIN, TOTIR, !Weather
& DAYLT, WINDSP, ST, EO, !Weather
& NLAYR, DLAYR, DEPMAX, LL, DUL, SAT, BD, SHF, SLPF, !Soil states
& SNOW, SW, NO3LEFT, NH4LEFT, !H2o,N states
& YEARPLT, YRPLT, HARVFRAC, !Pl.date
& EOP, EP, ET, TRWUP, !Resources
& LAI, KCAN, KEP, !States
& RLV, NFP, RWUPM, RWUMX, CANHT, !States
& UNO3ALG, UNH4ALG, UH2O, !Uptake
& SENCALG, SENNALG, SENLGALG, !Senescence
& RESCALG, RESNALG, RESLGALG, !Residues
& STGDOY, !Stage dates
& DYNAMIC) !Control
! For incorporation in CSM should:
! Change argument above.
! Eliminate '!' from SUMVALS call.
! Comment out call to Disease module.
! Changes for 4.50
!
! A. Changes that should not affect results.
!
! 1. Added subroutine code to the main program for those
! subroutines used when running in CSM. Deleted the
! subroutines.
! 2. Cleaned the list of variable declarations.
! 2. Added a few additional outputs, especially to WORK.OUT
! 4. Added outputs (-99's mostly) when run stops because
! of missing weather or equivalent problem.
!
! A. Changes that MAY affect results.
!
! 1. Took out the 0.6 adjustment for RLWR (SPE file) that stemmed
! from the original Ceres 'exudation' loss of dry matter sent
! to the roots. With the 0.6 factor the 'real' RLWR parameter
! would have been 1.633. It was left at 0.98 rather than being
! changed to 1.633 because there was very little water stress
! being predicted for experiments in which there should have
! been stress.
!
! 2. Set upper water threshold for photosynthesis (WFPU in ECO
! file) to 1.0 following discussion with KJB.
!
! 3. Set upper water threshold for growth (WFGU in ECO
! file) to 1.3 following discussion with KJB.
!
! 4. Brought the soil fertility factor SLPF into the
! module and now use it to modify photosynthesis in conformity
! with other CSM crop modules.
!
! 5. Brought the planting date when running a sequence in CSM
! (ie.under DSSAT) across from the planting section
! of CSM.
!
! 6. Brought the harvest fractions (both product and by-product)
! when running in CSM (IE.under DSSAT) across for
! all modes of operation.
!
! 7. Changed the planting coding to ensure that neither
! growth nor development occur on the day of planting. This
! contrasts with the previous version, in which growth and
! development ocurred on the day of planting. Phenology will
! be affected by this change.
!
! 8. Changed the meaning of the so called water factor for root
! growth (WFRG) in the species file. It previously was
! interpreted as a multiplier to be applied to the soil water
! 'potential' to determine the degree to which root
! growth would be reduced below potential. It is now
! interpreted as an upper threshold value that is applied
! to the soil water 'potential' to determine the factor
! (now called the water factor for root growth) used to
! reduce root growth below potential. The change
! alters the degree to which root growth is reduced in
! layers in which the water content is below the upper
! limit. The parameter can be VERY IMPORTANT. It is now
! used 'as is' (not the square root) in the algoorithm for
! root depth growth.
!
! 9. Eliminated the second root growth water factor (WFRDG),which
! was used as a multiplier to determine the impact of the
! photosynthesis water factor on root depth growth.
!
! 10. Took out the N factor from the algorithm determining root
! dry matter distribution with depth.
!
! 11. Corrected the algorithm used to calculate water 'potential'
! at the seed depth. Previously, if seding was in layer 1, the
! algorithm was always giving the potential of layer 2. It
! should produce an interpolated value, which hopefully it
! now does.
!
! 12. Introduced code to re-initialize the leaf loss through cold
! parameter so that leaf area did not continue to be lost
! after a cold spell ended.
! Needed!
! 1. Leaf # and time to terminal spikelet too great
! when leaf # > 15. Need limit. See LAMS
! 2. Yield and kernel # from early and late plantings
! high. Need stress factor that affects kernel set
! See MCCR
! 3. Reserves can go to zero during grain fill, then
! recover. Need accelerated senescence! See KSAS.
! 4. The saturation factor for water uptake (SATFACL)
! gave far too great stress for one Australian data
! set (CSGR9802). It is now controlled (for standalone
! Cropsim, not CSM) by a switch in the ecotype file
! that is currently set to 0 .. hence no saturation
! effect. Need to use switch in CSM somehow.
USE CRSIMDEF
IMPLICIT NONE
SAVE
INTEGER NL ! Maximum number of soil layers #
PARAMETER (NL = 20) ! Maximum number of soil layers #
INTEGER LNUMX ! Maximum number of leaves #
PARAMETER (LNUMX = 100) ! Maximum number of leaves #
INTEGER SUMNUM ! Number of variables passed #
PARAMETER (SUMNUM = 37) ! Number of variables passed #
INTEGER A1DATM ! Apex 1cm date,measured #
INTEGER ADAP ! Anthesis,days after planting d
INTEGER ADAPM ! Anthesis,DAP,measured d
INTEGER ADAT ! Anthesis date (Year+doy) #
INTEGER ADAT10 ! Anthesis date (Year+doy) + 10 #
INTEGER ADATEAA ! Anthesis date abs error avg #
INTEGER ADATEAV ! Anthesis date average error #
INTEGER ADATEND ! Anthesis end date (Year+doy) #
INTEGER ADATERR ! Anthesis date error d
INTEGER ADATM ! Anthesis date,measured #
INTEGER ADATNUM ! Anthesis date error # #
INTEGER ADATSUA ! Anthesis date abs error # #
INTEGER ADATSUM ! Anthesis date error sum #
REAL ADATT ! Anthesis date from t file YrDoy
INTEGER ADAY ! Anthesis day of year d
INTEGER ADAYH ! Anthesis harvest d>anthesis d
INTEGER ADAYM ! Anthesis day of year,measured d
REAL AFLF(LNUMX) ! CH2O factor for leaf,average #
REAL AFLFSUM(LNUMX)! CH2O factor for leaf,sum #
REAL AH2OPROFILE ! Available h2o in profile mm
REAL AH2OPROFILEI ! Available H2o,profile,initial mm
REAL AH2OROOTZONE ! Available h2o in root zone mm
REAL AH2OROOTZONEI ! Available H2o,rootzone,initial mm
REAL AMDAYM ! Anthesis-maturity period,meas d
REAL AMDAYS ! Anthesis-maturity period,sim d
REAL AMTNITP ! Cumulative N,previous treatmnt kg/ha
REAL ANDEM ! Crop N demand kg/ha
CHARACTER*128 ARG ! Argument component text
INTEGER ARGLEN ! Argument component length #
REAL ASTAGE ! Stage,start of anthesis/silk #
REAL ASTAGEND ! Stage at end of anthesis #
REAL AVGSW ! Average soil water in SWPLTD %
REAL AWNAI ! Awn area index m2/m2
REAL AWNS ! Awn score,1-10 #
INTEGER AYEAR ! Anthesis year #
INTEGER AYEARM ! Anthesis year,measured #
CHARACTER*10 BASTGNAM(20) ! Barley stage names text
REAL BD(20) ! Bulk density (moist) g/cm3
CHARACTER*1 BLANK ! Blank character text
REAL BLAYER ! Depth at base of layer cm
REAL CANANC ! Canopy N concentration %
REAL CANHT ! Canopy height cm
CHARACTER*6 CANHTC ! Canopy height cm
REAL CANHTG ! Canopy height growth cm
REAL CANHTS ! Canopy height standard cm
REAL CARBO ! Carbohydrate available,phs g/p
REAL CARBOACM ! Carbohydrate assimilated,cum,m kg/ha
REAL CARBOAPM ! Carbohydrate available,>mature g/p
REAL CARBOAR ! Carbohydrate available,roots g/p
REAL CARBOASD ! Carbohydrate available,seed g/p
REAL CARBOAT ! Carbohydrate available,tops g/p
REAL CARBOC ! Carbohydrate assimilated,cum g/p
REAL CARBOPHS ! Carbohydrate assimilated g/p
INTEGER CCOUNTV ! Counter for days after max lf# #
CHARACTER*120 CFGDFILE ! Configuration directory+file text
CHARACTER*1 CFLFAIL ! Control flag for failure text
CHARACTER*1 CFLHEAD ! Control flag to write headers code
CHARACTER*1 CFLINIT ! Control flag for initiation text
CHARACTER*1 CFLTFILE ! Control flag for T-file code
INTEGER CH2OLIM ! Number of days CH2O limited gr #
REAL CHFR ! Chaff fraction of assimilates #
REAL CHRS ! Chaff reserves weight g/p
REAL CHRSWT ! Chaff reserves g/p
REAL CHSTG ! Chaff growth X-stage #
REAL CHWT ! Chaff weight g/p
REAL CKCOLD ! Cold temp factor,leaf death #
REAL CLAPC(10) ! Canopy lf area fraction w ht %
INTEGER CN ! Crop component (multicrop) #
REAL CNAAM ! Canopy N,anthesis,measured kg/ha
REAL CNAM ! Canopy N at maturity kg/ha
REAL CNAMEAA ! Canopy N/area abs error avg #
REAL CNAMEAV ! Canopy N/area average error #
REAL CNAMERR ! Canopy N,maturity,error %
REAL CNAMM ! Canopy N,mature,measured kg/ha
INTEGER CNAMNUM ! Canopy N/area error # #
REAL CNAMSUA ! Canopy N/area abs error # #
REAL CNAMSUM ! Canopy N/area error sum #
CHARACTER*10 CNCHAR ! Crop component (multicrop) text
CHARACTER*2 CNCHAR2 ! Crop component (multicrop) text
REAL CNCTMP ! Canopy N concentration,temp %
INTEGER CNI ! Crop component,initial value #
REAL CO2 ! CO2 concentration in air vpm
REAL CO2ADJ ! CO2 adjustment vpm
REAL CO2AV(0:9) ! Average co2 in phase vpm
REAL CO2FP ! CO2 factor,photosynthesis 0-1 #
REAL CO2F(10) ! CO2 factor rel values 0-1 #
REAL CO2MAX ! CO2 conc,maximum during cycle vpm
REAL CO2RF(10) ! CO2 reference concentration vpm
REAL CO2SUM ! CO2 sum in phase vpm
REAL CO2SUM0 ! CO2 sum for cycle vpm
INTEGER COLNUM ! Column number #
CHARACTER*2 CR ! Crop identifier (ie. WH, BA) text
CHARACTER*2 CROP ! Crop identifier (ie. WH, BA) text
CHARACTER*2 CROPP ! Crop identifier,previous run text
INTEGER CSINCDAT ! Increment day function output #
INTEGER CSTIMDIF ! Time difference function #
CHARACTER*1 CSWDIS ! Control switch,disease code
INTEGER CSYDOY ! Yr+Doy output from function #
INTEGER CSYEARDOY ! Cropsim function ouptut #
CHARACTER*93 CUDIRFLE ! Cultivar directory+file text
CHARACTER*93 CUDIRFLP ! Cultivar directory+file,prev text
CHARACTER*12 CUFILE ! Cultivar file text
REAL CUMDEP ! Cumulative depth cm
REAL CUMDU ! Cumulative development units #
REAL CUMGEU ! Cumulative GE units (TDD*WFGE) #
REAL CUMSW ! Soil water in depth SWPLTD cm
REAL CUMTT ! Cumulative thermal time C.d
REAL CUMTU ! Cumulative thermal units #
REAL CUMVD ! Cumulative vernalization days d
REAL CWAAM ! Canopy wt,anthesis,measured kg/ha
REAL CWADT ! Canopy weight from t file kg/ha
REAL CWAM ! Canopy weight at maturity kg/ha
REAL CWAMEAA ! Canopy wt/area abs error avg #
REAL CWAMEAV ! Canopy wt/area average error #
REAL CWAMERR ! Canopy weight,maturity,error %
REAL CWAMM ! Canopy wt,mature,measured kg/ha
INTEGER CWAMNUM ! Canopy wt/area error # #
REAL CWAMSUA ! Canopy wt/area abs error # #
REAL CWAMSUM ! Canopy wt/area error sum #
INTEGER DAE ! Days after emergence #
INTEGER DAP ! Days after planting #
INTEGER DAPCALC ! DAP output from funcion #
CHARACTER*10 DAPCHAR ! DAP in character form text
INTEGER DAPM ! Days after phys.maturity #
CHARACTER*6 DAPWRITE ! DAP character string -> output text
INTEGER DAS ! Days after start of simulation #
CHARACTER*3 DASH ! Dash character for output text
INTEGER DATE ! Date (Yr+Doy) #
INTEGER DATECOL ! Date column number #
REAL DAYADJ ! Daylength adjustment h
REAL DAYLAV(0:9) ! Daylength average in phase h
REAL DAYLSUM ! Daylength sum in phase h
REAL DAYLSUM0 ! Daylength sum for cycle h
REAL DAYLT ! Daylength (6deg below horizon) h
REAL DAYLTP ! Daylength previous day h
INTEGER DAYSC(0:9) ! Days in growth phase #
REAL DAYSUM ! Days accumulated in month
REAL DEADN ! Dead leaf N retained on plant g/p
REAL DEADWT ! Dead leaf wt.retained on plant g/p
REAL DEPMAX ! Maximum depth of soil profile cm
REAL DEWDUR ! Dew duration h
REAL DF ! Daylength factor 0-1 #
REAL DLAYR(20) ! Depth of soil layers cm
REAL DLAYRTMP(20) ! Depth of soil layers with root cm
REAL DLEAFN ! Change in leaf N g/p
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 precip g/mm
INTEGER DOM ! Day of month #
INTEGER DOY ! Day of year #
INTEGER DOYCOL ! Day of year column number #
REAL DPTADJ ! Dew point adjustment C
INTEGER DRDAT ! Double ridges date #
INTEGER DRDATM ! Double ridges date,measured #
REAL DRF1 ! Double ridges factor 1 #
REAL DRF2 ! Double ridges factor 1 #
REAL DRF3 ! Double ridges factor 1 #
REAL DROOTN ! Change in plant root N g/p
REAL DROOTNA ! Daily adjustment in root N gr g/p
REAL DRSTAGE ! Double ridges stage #
REAL DSTEMN ! Change in stem N g/p
REAL DSTOVN ! Change in stover N g/p
REAL DTOPN ! Change in tops N g/p
REAL DTRY ! Effective depth of soil layer cm
REAL DU ! Developmental units PVC.d
REAL DUL(20) ! Drained upper limit for soil #
INTEGER DYNAMIC ! Program control variable text
INTEGER DYNAMICI ! Module control,internal code
CHARACTER*64 ECDIRFLE ! Ecotype directory+file text
CHARACTER*64 ECDIRFLP ! Ecotype directory+file,prev text
CHARACTER*12 ECFILE ! Ecotype filename text
CHARACTER*6 ECONO ! Ecotype code text
CHARACTER*6 ECONOP ! Ecotype code,previous text
INTEGER EDAP ! Emergence DAP #
INTEGER EDAPM ! Emergence DAP measured #
INTEGER EDATM ! Emergence date,measured (Afle) #
INTEGER EMDATEAA ! Emergence date abs error avg #
INTEGER EMDATEAV ! Emergence date average error #
INTEGER EMDATERR ! Emergence date error d
INTEGER EMDATM ! Emergence yr+d,measured (Xfle) #
INTEGER EMDATNUM ! Emergence date error # #
INTEGER EMDATSUA ! Emergence date abs error # #
INTEGER EMDATSUM ! Emergence date error sum #
CHARACTER*60 ENAME ! Experiment description text
REAL EO ! Potential evapotranspiration mm/d
REAL EOP ! Potential evaporation,plants mm/d
REAL EP ! Actual plant transpiration mm/d
REAL EPC(0:9) ! Plant evaporation in phase mm
REAL EPSUM ! Plant evaporation sum in phase mm
REAL EPSUM0 ! Plant evaporation for cycle mm
REAL ERRORVAL ! Plgro-tfile values/Plgro #
REAL ET ! Actual total evaporation mm/d
REAL ETC(0:9) ! Total evaporation in phase mm
REAL ETSUM ! Total evaporation sum in phase mm
REAL ETSUM0 ! Total evaporation for cycle mm
INTEGER EVALOUT ! Evaluate output lines for exp #
CHARACTER*14 EVHEADER ! Evaluater.out header text
INTEGER EVHEADNM ! Number of headings in ev file #
CHARACTER*10 EXCODE ! Experiment code/name text
CHARACTER*10 EXCODEP ! Previous experiment code/name text
REAL FAC(20) ! Factor ((mg/Mg)/(kg/ha)) #
INTEGER FDAY(200) ! Dates of fertilizer applns #
LOGICAL FEXIST ! File existence indicator code
LOGICAL FEXISTA ! File A existence indicator code
LOGICAL FEXISTT ! File T existence indicator code
LOGICAL FFLAG ! Temp file existance indicator code
CHARACTER*120 FILEA ! Name of A-file text
CHARACTER*107 FILEADIR ! Name of A-file directory text
CHARACTER*120 FILEIO ! Name of input file,after check text
CHARACTER*120 FILEIOIN ! Name of input file text
CHARACTER*3 FILEIOT ! Type of input file text
INTEGER FILELEN ! Length of file name #
CHARACTER*120 FILENEW ! Temporary name of file text
CHARACTER*120 FILET ! Name of T-file text
REAL FLN ! Final leaf number #
CHARACTER*1 FNAMESWITCH ! File name switch (N->standard) code
CHARACTER*12 FNAMETMP ! File name,temporary text
REAL FNH4 ! Unitless ammonium supply index #
REAL FNO3 ! Unitless nitrate supply index #
INTEGER FNUMLVS ! File number,leaves #
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 #
LOGICAL FOPEN ! File open indicator code
INTEGER FROP ! Frquency of outputs d
INTEGER FROPADJ ! Frquency of outputs,adjusted d
REAL G1CWT ! Cultivar coefficient,grain # #/g
REAL G2 ! Cultivar coefficient,grain gr mg/du
REAL G2KWT ! Cultivar coefficient,grain wt mg
REAL G3 ! Cultivar coefficient,stem wt g
INTEGER GEDSUM ! Germ+emergence duration d
CHARACTER*8 GENFLCHK ! Genotype file name for check text
REAL GESTAGE ! Germination,emergence stage #
REAL GETMEAN ! Germ+emergence temperature av C
REAL GETSUM ! Germ+emergence temperature sum C
REAL GEU ! Germination,emergence units #
INTEGER GFDSUM ! Grain filling duration d
REAL GFTMEAN ! Grain filling temperature mean C
REAL GFTSUM ! Grain filling temperature sum C
REAL GLIGP ! Grain lignin content %
INTEGER GMDSUM ! Grain maturity duration d
REAL GMTMEAN ! Grain maturity temperature av C
REAL GMTSUM ! Grain maturity temperature sum C
REAL GNAM ! Harvest N,mature kg/ha
REAL GNAMEAA ! Grain N/area abs error avg #
REAL GNAMEAV ! Grain N/area average error #
REAL GNAMERR ! Harvest N,error %
REAL GNAMM ! Harvest N,mature,measured kg/ha
INTEGER GNAMNUM ! Grain N/area error # #
REAL GNAMSUA ! Grain N/area abs error # #
REAL GNAMSUM ! Grain N/area error sum #
REAL GNPCM ! Harvest N%,measured %
CHARACTER*6 GNPCMC ! Harvest N,mature char
REAL GNPCMEAA ! Grain N% abs error avg #
REAL GNPCMEAV ! Grain N% average error #
REAL GNPCMERR ! Harvest N%,error %
REAL GNPCMM ! Harvest N,mature,measured %
CHARACTER*6 GNPCMMC ! Harvest N,mature,measured char
INTEGER GNPCMNUM ! Grain N% error # #
REAL GNPCMSUA ! Grain N% abs error # #
REAL GNPCMSUM ! Grain N% error sum #
REAL GPLA(10) ! Green leaf area cm2/p
REAL GPLASENF ! Green leaf area,final sen strt #
REAL GPLASENS ! Green leaf area,senesce stage cm2/p
REAL GRAINANC ! Grain N concentration #
REAL GRAINN ! Grain N g/p
REAL GRAINNG ! Grain N growth,uptake g/p
REAL GRAINNGL ! Grain N growth from leaves g/p
REAL GRAINNGR ! Grain N growth from roots g/p
REAL GRAINNGS ! Grain N growth from stems g/p
REAL GRAINNGV ! Grain N growth from veg parts g/p
REAL GRAINNTMP ! Grain N,temporary value g/p
REAL GRNMN ! Grain N minimum concentration %
REAL GRNMX ! Grain N,maximum concentration %
REAL GRNS ! Grain N standard concentration %
REAL GRNUM ! Grains per plant #/p
REAL GRNUMAD ! Grains per unit area #/m2
REAL GROGR ! Grain growth,current assim g/p
REAL GROGRADJ ! Grain growth adj,max reached g/p
REAL GROGRP ! Grain growth potential g/p
REAL GROGRPA ! Grain growth,possible,assim g/p
REAL GROGRPN ! Grain growth,possible,N g/p
REAL GROGRST ! Grain growth from stem ch2o g/p
REAL GROLF ! Leaf growth rate g/p
REAL GROLFP ! Leaf growth,potential g/p
REAL GRORS ! Reserves growth g/p
REAL GRORSGR ! Reserves gr,unused grain assim g/p
REAL GRORSP ! Reserves growth,potential g/p
REAL GRORSPM ! Reserves growth,post-maturity g/p
REAL GRORSSD ! Seed reserves used for tops g/p
REAL GRORT ! Root growth g/p
REAL GROST ! Stem growth rate g/p
REAL GROSTP ! Stem growth,potential g/p
CHARACTER*1 GROUP ! Flag for type of group code
REAL GRP_EP ! Grain dm per unit EP g/mm
REAL GRP_ET ! Grain dm per unit EP g/mm
REAL GRP_IRR ! Grain dm per unit irrigation g/mm
REAL GRP_NAPP ! Grain dm per unit N appllied kg/kg
REAL GRP_NUPT ! Grain dm per unit N taken up kg/kg
REAL GRP_RAIN ! Grain dm per unit EP g/mm
REAL GRWT ! Grain weight g/p
REAL GRWTTMP ! Grain weight,temporary value g/p
CHARACTER*6 GSTAGEC ! Growth stage #
REAL GSTDM ! Growth stage,measured #
REAL GWADT ! Grain weight from t file kg/ha
REAL GWAM ! Harvest wt,maturity kg/ha
REAL GWAMM ! Harvest wt,mature,measured kg/ha
REAL GWGD ! Grain wt per unit mg
REAL GWGM ! Grain wt per unit,maturity mg
REAL GWGMM ! Grain wt per unit,mat,measured mg
REAL GWUD ! Grain size g
REAL GWUM ! Grain wt per unit,maturity g
CHARACTER*6 GWUMC ! Grain wt/unit,mat text
REAL GWUMEAA ! Grain wt/unit abs error avg #
REAL GWUMEAV ! Grain wt/unit average error #
REAL GWUMERR ! Grain wt per unit error %
REAL GWUMM ! Grain wt/unit,mat,measured g
CHARACTER*6 GWUMMC ! Grain wt/unit,mat,measured text
INTEGER GWUMNUM ! Grain wt/unit error # #
REAL GWUMSUA ! Grain wt/unit abs error # #
REAL GWUMSUM ! Grain wt/unit error sum #
REAL GWUMYLD ! Grain wt,mature,calculated g/#
REAL GWUT ! Grain weight/unit,t file mg
REAL H2OA ! Water available in root zone mm
REAL H2OPROFILE ! Total h2o in soil profile mm
REAL H2OPROFILEI ! H2o in profile,initial mm
REAL H2OROOTZONE ! Total h2o in root zone mm
REAL H2OROOTZONEI ! H2o in root zone,initial mm
INTEGER HADAY ! Harvest day of year #
REAL HARDAYS ! Accumulated hardening days #
REAL HARDI ! Hardening index #
REAL HARDILOS ! Hardening index loss #
REAL HARVFRAC(2) ! Harvested fr from main #
INTEGER HAYEAR ! Harvest year #
REAL HBPC ! Harvest by-product percentage %
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 #
REAL HIADT ! Harvest index from t file #
REAL HIAM ! Harvest index,mature %
CHARACTER*6 HIAMC ! Harvest index,mature char
REAL HIAMEAA ! Harvest index abs error avg #
REAL HIAMEAV ! Harvest index average error #
REAL HIAMERR ! Harvest index,maturity,error %
REAL HIAMM ! Harvest index,mature,measure #
CHARACTER*6 HIAMMC ! Harvest index,mature,measure char
REAL HIAMMTMP ! Harvest index,mature,temporary #
INTEGER HIAMNUM ! Harvest index error # #
REAL HIAMSUA ! Harvest index abs error # #
REAL HIAMSUM ! Harvest index error sum #
REAL HIND ! Harvest index,N,above ground #
REAL HINM ! Harvest index,N,abground,mat #
CHARACTER*6 HINMC ! Harvest index,N,abground,mat char
REAL HINMM ! Harvest N index,mature,meas %
CHARACTER*6 HINMMC ! Harvest N index,mature,meas char
INTEGER HLAST ! Last date for harvest #
REAL HNUMAEAA ! Harvest #/area abs error avg #
REAL HNUMAEAV ! Harvest #/area average error #
REAL HNUMAERR ! Harvest #,maturity,error %
REAL HNUMAM ! Harvest #,maturity #/m2
REAL HNUMAMM ! Harvest #,mature,measured #/m2
INTEGER HNUMANUM ! Harvest #/area error # #
REAL HNUMASUA ! Harvest #/area abs error # #
REAL HNUMASUM ! Harvest #/area error sum #
REAL HNUMAT ! Harvest number/area,t file #/m2
REAL HNUMET ! Harvest number/ear,t file #/s
REAL HNUMGEAA ! Harvest #/group abs error avg #
REAL HNUMGEAV ! Harvest #/group average error #
REAL HNUMGERR ! Harvest #/group,error %
REAL HNUMGM ! Harvest #,maturity #/g
REAL HNUMGMM ! Harvest #,mature,measured #/g
INTEGER HNUMGNUM ! Harvest #/group error # #
REAL HNUMGSUA ! Harvest #/group abs error # #
REAL HNUMGSUM ! Harvest #/group error sum #
REAL HPC ! Harvest percentage %
REAL CHTPC(10) ! Canopy ht % assoc with lf area %
REAL HWADM ! Harvest wt,measured kg/ha
REAL HWAHEAA ! Harvest wt/area abs error avg #
REAL HWAHEAV ! Harvest wt/area average error #
REAL HWAHERR ! Harvest wt,harvest,error %
REAL HWAHM ! Harvest wt,harvest,measured kg/ha
INTEGER HWAHNUM ! Harvest wt/area error # #
REAL HWAHSUA ! Harvest wt/area abs error # #
REAL HWAHSUM ! Harvest wt/area error sum #
CHARACTER*6 HWUDC ! Harvest wt/unit g
INTEGER HYEAR ! Harvest year as read #
INTEGER HYEARF ! Earliest year for harvest #
INTEGER HYEARL ! Last year for harvest #
INTEGER I ! Loop counter #
INTEGER ICSDUR ! Stage (phase) duration d
INTEGER ICSDUR0 ! Growth duration d
CHARACTER*1 IDETG ! Control flag,growth outputs code
CHARACTER*1 IDETL ! Control switch,detailed output code
CHARACTER*1 IDETO ! Control flag,overall outputs code
CHARACTER*1 IDETOU ! Control flag,error op,inputs code
CHARACTER*1 IDETS ! Control switch,summary outputs code
CHARACTER*1 IFERI ! Fertilizer switch (A,R,D) code
CHARACTER*1 IHARI ! Control flag,harvest code
INTEGER INTEGR ! Program control variable (=4) #
CHARACTER*1 IPLTI ! Code for planting date method code
INTEGER ISTAGE ! Developmental stage #
INTEGER ISTAGEP ! Developmental stage,previous #
CHARACTER*1 ISWNIT ! Soil nitrogen balance switch code
CHARACTER*1 ISWWAT ! Soil water balance switch Y/N code
INTEGER JDAT ! Jointing date (Year+doy) #
INTEGER JDATM ! Jointing date,measured,Yeardoy #
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 L ! Loop counter #
INTEGER L0 ! Layer with seed #
INTEGER L1 ! Loop counter #
INTEGER L2 ! Loop counter #
REAL LA1FAC ! Area of early leaves increment #
REAL LA1S ! Area of leaf 1,standard cm2
CHARACTER*5 LABEL(SUMNUM) ! Name of variables passed text
REAL LAFR ! Leaf area increase factor,rep #
REAL LAFST ! Leaf area factor change stage #
REAL LAFV ! Leaf area increase factor,veg #
REAL LAGSTAGE ! Lag phase,grain filling stage #
REAL LAI ! Leaf area index #
CHARACTER*6 LAIC ! Leaf area index m2/m2
REAL LAIL(30) ! Leaf area index by layer m2/m2
REAL LAIPROD ! Leaf area index produced #
CHARACTER*6 LAIPRODC ! Leaf area index produced m2/m2
REAL LAISTG(20) ! Leaf area index,specific stage #
REAL LAIX ! Leaf area index,maximum #
REAL LAIXEAA ! Leaf area index,max,abs err av #
REAL LAIXEAV ! Leaf area index,max,average er #
REAL LAIXERR ! Leaf area index,max,error %
REAL LAIXM ! Lf lamina area index,mx,meas m2/m2
INTEGER LAIXNUM ! Leaf area index,max, error # #
REAL LAIXSUA ! Leaf area index,max, abs error #
REAL LAIXSUM ! Leaf area index,max, error sum #
REAL LAIXT ! Leaf area index,max,t-file m2/m2
REAL LALOSSF ! Leaf area lost if tillers die fr
REAL LANC ! Leaf N concentration #
REAL LAP(LNUMX) ! Leaf area at leaf position cm2/p
REAL LAPOT(LNUMX) ! Leaf area potentials cm2/l
REAL LAPOTNXT ! Leaf area potential of next lf cm2/l
REAL LAPP(LNUMX) ! Leaf area diseased,leaf posn cm2/p
REAL LAPS(LNUMX) ! Leaf area senesced,leaf posn cm2/p
REAL LARFAC ! Area of later leaves increment #
REAL LASENLF ! Leaf area of senescing leaf ch cm2/p
REAL LASWITCH ! Leaf area at increment change cm2/l
REAL LATFR(20) ! Leaf area of tillers,fr main #
REAL LATL(1,LNUMX) ! Leaf area,tiller1,leaf pos cm2/l
REAL LAWCFCALC ! Leaf area/wt change,fr,calc #
REAL LAWFRMN ! Leaf area/wt min.,fr.standard #
REAL LAWR ! Area to weight ratio,lamina cm2/g
REAL LAWR2 ! Leaf area/weight ratio,stage2 cm2/g
REAL LAWRS ! Leaf area/wt ratio,standard cm2/g
REAL LAXS ! Area of biggest leaf,main stem cm2
REAL LCNC ! Leaf critical N conc #
REAL LCNCG ! Critical N conc for growth #
REAL LCNCP ! Critical N conc for phs #
REAL LCNCS(0:9) ! Leaf critical N conc,stage #
REAL LCNCSEN ! Critical N conc for senescence #
REAL LCNCT ! Critical N conc for tillering #
REAL LCNF ! Leaf critical N factor 0-1 #
INTEGER LCNUM ! Leaf cohort number (inc.grow) #
REAL LEAFN ! Leaf N g/p
INTEGER LENGROUP ! Length of group name #
INTEGER LENLINE ! Length of characgter string #
INTEGER LENRNAME ! Length of run description #
INTEGER LENTNAME ! Length,treatment description #
REAL LFFRS ! Leaf fraction,during phase #
REAL LFWT ! Leaf weight g/p
REAL LIF1 ! Light interception factor 1 #
REAL LIF2 ! Light interception factor 2 #
CHARACTER*80 LINESTAR ! Group header line (with star) text
CHARACTER*180 LINET ! Line from T-file text
REAL LL(20) ! Lower limit,soil h2o #
INTEGER LLDATM ! Last leaf (mature) date,measured
INTEGER LLIFE ! Leaf longevity (phyllochrons) #
REAL LLIGP ! Leaf lignin percentage #
REAL LLOSN ! Leaf area lost,N accelerated fr/d
REAL LLOSW ! Leaf area lost,H2O accelerated fr/d
REAL LLRSWAD ! Leaf lamina reserves weight kg/ha
REAL LLRSWT ! Leaf lamina reserves g/p
REAL LMNC ! Leaf minimum N conc #
REAL LMNCG ! Minimum N conc for growth #
REAL LMNCP ! Minimum N conc for phs #
REAL LMNCS(0:9) ! Leaf minimum N conc,stage #
REAL LMNCT ! Minimum N conc for tillering #
REAL LNAAM ! Leaf N,anthesis,measured kg/ha
REAL LNDEM ! Leaf demand for N g/p
REAL LNPCA ! Leaf N % at anthesis #
REAL LNPCAM ! Leaf N,anthesis,measured %
REAL LNPCMN(0:9) ! Leaf minimum N conc,stage %
REAL LNPCS(0:9) ! Leaf standard N conc,stage %
REAL LNSWITCH ! Leaf # at increment change #
REAL LNUMSD ! Leaf number,Haun stage #
REAL LNUMSEAA ! Leaf #/shoot abs error avg #
REAL LNUMSEAV ! Leaf #/shoot average error #
REAL LNUMSERR ! Leaf #,error %
INTEGER LNUMSG ! Growing leaf number #
REAL LNUMSM ! Leaf #/shoot,maturity #
REAL LNUMSMM ! Leaf #,mature,measured #/s
INTEGER LNUMSNUM ! Leaf #/shoot error # #
REAL LNUMSSUA ! Leaf #/shoot abs error # #
REAL LNUMSSUM ! Leaf #/shoot error sum #
REAL LNUMSTG(20) ! Leaf number,specific stage #
REAL LNUMT ! Leaf number from t file #
REAL LNUMTS ! Leaf number,Terminal spikelet #
REAL LRETS ! Stage --> dead leaves retained #
REAL LSAWS ! Leaf sheath area/wt ratio,std cm2/g
REAL LSENE ! Leaf senescence,end stage #
REAL LSENNF ! Leaf N loss when senesce,fr #
REAL LSENS ! Leaf senescence,start stage #
REAL LSEWF ! Leaf wt loss when senesce,fr #
REAL LSHAI ! Leaf sheath area index #
REAL LSHFR ! Leaf sheath fraction of total #
REAL LSHRSWT ! Leaf sheath reserves g/p
REAL LT50H ! Lethal temp,50%kill,hardened C
REAL LT50S ! Lethal temp,50%kill,seedling C
REAL LWAAM ! Leaf wt,anthesis,measured kg/ha
INTEGER MDAP ! Maturity days after planting #
INTEGER MDAPM ! Maturity DAP,measured #
INTEGER MDATEAA ! Maturity date abs error avg #
INTEGER MDATEAV ! Maturity date average error #
INTEGER MDATERR ! Maturity date error d
INTEGER MDATM ! Maturity date,measured yr+d #
INTEGER MDATNUM ! Maturity date error # #
INTEGER MDATSUA ! Maturity date abs error # #
INTEGER MDATSUM ! Maturity date error sum #
REAL MDATT ! Maturity date from t file YrDoy
INTEGER MDAY ! Maturity day of year d
INTEGER MDAYM ! Maturity day of year,measured d
CHARACTER*1 MODE ! Mode of model operation code
CHARACTER*8 MODEL ! Name of model text
CHARACTER*8 MODNAME ! Name of module text
CHARACTER*3 MONTH ! Month text
INTEGER MYEAR ! Maturity year #
INTEGER MYEARM ! Maturity year,measured #
REAL NCNU
REAL NCRG ! N concentration for max r.gr. ppm
REAL NDEMSOIL ! Plant nitrogen demand,soil g/p
INTEGER NFERT ! Fertilizer applns # #
REAL NFG ! N factor,growth 0-1 #
REAL NFGAV(0:9) ! N factor,growth,average,phase #
REAL NFGC ! N factor,growth,cumulative #
REAL NFGC0 ! N factor,growth,cycle #
REAL NFGL ! N factor,gr,lower limit #
REAL NFGU ! N factor,gr,upper limit #
REAL NFLF(LNUMX) ! N factor for leaf,average #
REAL NFLFSUM(LNUMX)! N factor for leaf,sum #
REAL NFP ! N factor,photosynthesis 0-1 #
REAL NFPAV(0:9) ! N factor,phs,average,phase #
REAL NFPC ! N factor,phs,cumulative #
REAL NFPC0 ! N factor,photosynthesis,cycle #
REAL NFPL ! N factor,phs,lower limit #
REAL NFPU ! N factor,phs,upper limit #
REAL NFRG ! N factor,root growth 0-1 #
REAL NFSF ! N factor,final senescn trigger #
REAL NFSU ! N factor,sen,upper limit #
REAL NFTI ! N factor,tillering 0-1 #
REAL NFTIL ! N factor,tillering,lower limit #
REAL NFTIU ! N factor,tillering,upper limit #
REAL NH4LEFT(20) ! NH4 concentration in soil mg/Mg
REAL NH4MN ! NH4 conc minimum for uptake mg/Mg
INTEGER NLAYR ! Number of layers in soil #
REAL NLAYRROOT
INTEGER NLIMIT ! Number of days N limited gr gr #
REAL NO3LEFT(20) ! NO3 concentration in soil mg/Mg
REAL NO3MN ! NO3 conc minimum for uptake mg/Mg
INTEGER NOUTDG ! Number for growth output file #
INTEGER NOUTDGN ! Number for growthN output file #
INTEGER NOUTPG2 ! Number for growth2 output file #
INTEGER NOUTPGF ! Number for growthF output file #
REAL NPOOLL ! Leaf N available for grain g/p
REAL NPOOLR ! Root N available for grain g/p
REAL NPOOLST ! Stem N available for grain g/p
REAL NPOOLV ! Vegetative N available for gr g/p
REAL NSINK ! N demand for grain filling g/p
REAL NTUPF ! N top-up fraction /d
REAL NUAD ! N uptake,cumulative kg/ha
REAL NUAMM ! N uptake,cumulative,maturity,m kg/ha
REAL NUAG ! N uptake kg/ha
REAL NUAM ! N uptake,cumulative,maturity kg/ha
REAL NUAP ! Total root N uptake,potential kg/ha
REAL NUAPCSM ! N uptake potential,CSM kg/ha
REAL NUF ! Plant N supply/demand ratio ft
REAL NUFACM ! N uptake factor,maturation,0-1 #
REAL NUPAP ! N uptake potential g/p
REAL NUPC ! N uptake,cumulative g/p
REAL NUPD ! N uptake g/p
REAL NUPR ! N uptake ratio to demand #
REAL NUSEFAC ! N use factor;mx nuselim,navfr #
REAL NUSELIM ! N limit on N for grain filling #
INTEGER ON ! Option number (sequence runs) #
INTEGER ONI ! Option number,initial value #
CHARACTER*3 OUT ! Output file extension text
INTEGER OUTCOUNT ! Output counter #
CHARACTER*77 OUTHED ! Output file heading text
CHARACTER*12 OUTPG ! Growth output file code code
CHARACTER*12 OUTPG2 ! Growth output2 file code code
CHARACTER*12 OUTPGF ! Growth output GF file code code
CHARACTER*12 OUTPN ! GrowthN output file code code
INTEGER OUTPUT ! Program control variable (=5) #
REAL P1D ! Photoperiod sensitivity coeff. %/10h
REAL P1DA ! Photoperiod coeff,age adjusted /h
REAL P1DAFAC ! Photoperiod coeff,adjust fac /lf
REAL P1DPE ! Photoperiod factor,pre-emerge #
REAL P1DT ! Photoperiod threshold h
REAL P1V ! Vernalization requirement d
REAL P4SGE ! Stem growth end,X-stage #
REAL PARAD ! Photosynthetically active radn MJ/m2
REAL PARADFAC ! PAR conversion factor MJ/MJ
REAL PARI ! PAR interception fraction #
REAL PARIOUT ! PAR interception for output #
REAL PARIP ! PAR interception percentage %
REAL PART ! PAR transmission fraction #
REAL PARUED ! PAR utilization effic,actual g/MJ
REAL PARUR ! PAR utilization effic,reprod g/MJ
REAL PARUV ! PAR utilization effic,veg g/MJ
CHARACTER*80 PATHCR ! Path to genotype files text
INTEGER PATHL ! Path length #
REAL PCARB ! Potential carbon fixation g/p
REAL PD(0:10) ! Phase durations deg.d
REAL PD2(3) ! Phase 2 sub-durations;1<joint deg.d
REAL PD2ADJ ! Phase 2 adjusted deg.d
REAL PD2FR(3) ! Phase 2 sub-durations;1<joint fr
REAL PD4(3) ! Phase 4 sub-durations;1<anthes deg.d
REAL PD4FR(3) ! Phase 4 sub-durations;1<anthes fr
REAL PDADJ ! Phase duration adjustment deg.d
INTEGER PDATE ! Planting date from X-file #
REAL PECM ! Phase duration,emergence Cd/cm
REAL PEG ! Phase duration,germination deg.d
REAL PEGD ! Phase duration,germ+dormancy deg.d
REAL PFGAV(0:9) ! Phosphorous factor,growth #
REAL PFPAV(0:9) ! Phosphorous factor,phs #
INTEGER PGDAP ! Plantgro file days after plt #
INTEGER PGROCOL(20) ! Plantgro column = t-file data #
REAL PGVAL ! Plantgro file value #
REAL PHF1 ! Phint factor,first few..2 lvs #
REAL PHINT ! Phylochron interval deg.d
REAL PHINTCHG ! Phylochron interval,change lf# #
REAL PHINTS ! Phylochron interval,standard deg.d
REAL PLA ! Plant leaf area cm2
REAL PLAG(2) ! Plant leaf area growth,tiller1 cm2/t
REAL PLAGT(2) ! Plant leaf area growth,total cm2/p
REAL PLAGTP(2) ! Plant lf area growth,potential cm2/p
REAL PLAS ! Leaf area senesced,normal cm2/p
REAL PLASC ! Leaf area senesced,cold cm2/p
REAL PLASF(10) ! Leaf area senesced,fr in phase #
REAL PLASS ! Leaf area senesced,stress cm2/p
REAL PLAST ! Leaf area senesced,tiller loss cm2/p
REAL PLASTMP ! Leaf area senesced,temporary cm2/p
INTEGER PLDAY ! Planting day of year #
INTEGER PLDAYP ! Planting day of year #
REAL PLMAGE ! Planting material age d
REAL PLTLOSS ! Plant popn lost through cold #/m2
INTEGER PLTOHARYR ! Planting to harvest years #
REAL PLTPOP ! Plant Population #/m2
REAL PLTPOPP ! Plant Population planned #/m2
INTEGER PLYEAR ! Planting year #
INTEGER PLYEARREAD ! Planting year as read #
REAL PRCADJ ! Precipitation adjustment mm
REAL PTF ! Partition fraction to tops #
REAL PTFA(10) ! Partition fr adjustment coeff. #
REAL PTFS(10) ! Partition fraction by stage #
REAL PTFSS ! Partition fraction for stage #
REAL PTFX ! Partition fraction,maximum #
REAL PTH(0:10) ! Phase thresholds du
REAL PTHOLD ! Phase threshold,previous du
REAL PTTN ! Minimum soil temperature,plt C
REAL PTX ! Maximum soil temperature,plt C
REAL PWAM ! Chaff + seed wt,maturity kg/ha
INTEGER PWDINF ! First day of planting window YYDDD
INTEGER PWDINL ! Last day of planting window YYDDD
INTEGER PWDOYF ! First doy of planting window doy
INTEGER PWDOYL ! Last doy of planting window doy
INTEGER PWYEARF ! First year of planting window yr
INTEGER PWYEARL ! Last year of planting window yr
REAL RADADJ ! Radiation adjustment MJ/m2
REAL RAIN ! Rainfall mm
REAL RAINC ! Rainfall,cumulative mm
REAL RAINCA ! Rainfall,cumulativ to anthesis mm
REAL RAINCP(0:9) ! Cumulative precip in phase mm
REAL RAINSUM ! Precipitation sum in phase mm
REAL RAINSUM0 ! Precipitation during cycle mm
REAL RANC ! Roots actual N concentration #
INTEGER RATE ! Program control variable (=3) #
REAL RCNC ! Root critical N concentration #
REAL RCNCS(0:9) ! Roots critical N conc,by stage #
REAL RCNF ! Roots critical N factor 0-1 #
REAL RCNP ! Root critical N conc,original #
REAL RDGS1 ! Root depth growth rate,initial cm/d
REAL RDGS2 ! Root depth growth rate,2nd cm/d
REAL RDGTH ! Rooting depth growth thrshold cm
INTEGER REP ! Number of run repetitions #
REAL RESPC ! Respiration,total,cumulative g/p
REAL RFAC ! Root length density fac,uptake #
REAL RLDF(20) ! Root length density fac,new gr #
REAL RLDGR ! Root length/root depth g ratio cm/cm
REAL RLFNU ! Root length factor,N uptake #
REAL RLIGP ! Root lignin concentration %
REAL RLV(20) ! Root length volume by layer /cm2
REAL RLWR ! Root length/weight ratio m/mg?
REAL RMNC ! Root minimum N conc g/g
REAL RMNCS(0:9) ! Roots minimum N conc,by stage #
REAL RMNP ! Root minimum N conc,original g/g
INTEGER RN ! Treatment replicate #
REAL RNAM ! Root N at maturity kg/ha
REAL RNAMM ! Root N at maturity,measured kg/ha
REAL RNDEM ! Root demand for N g/p
REAL RNDEM1 ! Root demand for N,overall g/p
REAL RNDEMSOIL ! Root demand for N,soil g/p
REAL RNH4U(20) ! Potential ammonium uptake kg/ha
INTEGER RNI ! Replicate number,initial value #
CHARACTER*1 RNMODE ! Run mode (eg.I=interactive) #
REAL RNO3U(20) ! Potential nitrate uptake kg/ha
REAL RNPCMN(0:9) ! Roots minimum N conc,by stage %
REAL RNPCS(0:9) ! Roots standard N conc,by stage %
REAL ROOTN ! Root N g/p
REAL ROOTNS ! Root N senesced g/p
REAL ROWSPC ! Row spacing cm
REAL RRESP ! Root respiration fraction #
REAL RSC ! Reserves concentration fr
REAL RSCA ! Reserves concentration,anthess fr
REAL RSCLX ! Reserves conc,leaves,max. #
REAL RSEN ! Root senescence fraction #
REAL RSFP ! Reserves factor,photosynthesis #
REAL RSFR ! Reserves fraction fr
REAL RSFRS ! Reserves fraction,standard #
REAL RSN ! Reserve N g/p
REAL RSNGL ! Reserves N growth from leaves g/p
REAL RSNGR ! Reserves N growth from roots g/p
REAL RSNGS ! Reserves N growth from stems g/p
REAL RSNUSEG ! Reserves N use for grain g/p
REAL RSNUSER ! Reserves N use for root growth g/p
REAL RSNUSET ! Reserves N use for top growth g/p
REAL RSNV ! Reserve N for vegetative gr g/p
REAL RSTAGE ! Reproductive develoment stage #
REAL RSTAGEP ! Reproductive stage,previous #
REAL RSWAM ! Reserves at maturity kg/ha
REAL RSWAMM ! Reserves at maturity,measured kg/ha
REAL RSWT ! Reserves weight g/p
REAL RSWTPM ! Reserves weight,post maturity 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
INTEGER RTSLXDATE ! Roots into last layer date YYDDD
REAL RTSW ! Tiller wt relative to standard #
REAL RTWT ! Root weight g/p
REAL RTWTG ! Root weight growth g/p
REAL RTWTGL(20) ! Root weight growth by layer g/p
REAL RTWTGS ! Root weight growth from seed g/p
REAL RTWTL(20) ! Root weight by layer g/p
REAL RTWTS ! Root weight senesced g/p
REAL RTWTSL(20) ! Root weight senesced by layer g/p
INTEGER RUN ! Run (from command line) number #
INTEGER RUNI ! Run (internal for sequences) #
INTEGER RUNINIT ! Program control variable (= 1) #
CHARACTER*75 RUNNAME ! Run title text
CHARACTER*8 RUNRUNI ! Run+internal run number text
REAL RWAM ! Root wt at maturity kg/ha
REAL RWAMM ! Root wt at maturity,measured kg/ha
REAL RWUMX ! Root water uptake,maximum mm2/m
REAL RWUMXI ! Root water uptake,max,init.val mm2/m
REAL RWUMXS ! Root water uptake,maximum,std mm2/m
REAL RWUPM ! Pore space threshold,pl effect #
REAL RWUPMI ! Pore space threshold,initial #
REAL SAID ! Stem area index m2/m2
REAL SANC ! Stem N concentration #
REAL SAT(20) ! Saturated limit,soil #
REAL SAWS ! Stem area to wt ratio,standard cm2/g
REAL SCNC ! Stem critical N conc #
REAL SCNCS(0:9) ! Stem critical N conc,stage #
REAL SCNF ! Stem critical N factor 0-1 #
REAL SDAFR ! Seed reserves fraction avail #
REAL SDCOAT ! Non useable material in seed g
REAL SDEPTH ! Sowing depth cm
REAL SDNAP ! Seed N at planting kg/ha
REAL SDNC ! Seed N concentration #
REAL SDNPCI ! Seed N concentration,initial %
REAL SDSZ ! Seed size g
INTEGER SEASEND ! Program control variable (= 6) #
CHARACTER*1 SEASENDOUT ! Season end outputs flag text
INTEGER SEASINIT ! Program control variable (=2) #
REAL SEEDN ! Seed N g/p
REAL SEEDNI ! Seed N,initial g/p
REAL SEEDNR ! Seed N used by roots g/p
REAL SEEDNRA ! Seed N used by roots,additionl g/p
REAL SEEDNRB ! Seed N used by roots,basic g/p
REAL SEEDNT ! Seed N used by tops g/p
REAL SEEDNTA ! Seed N used by tops,additional g/p
REAL SEEDNTB ! Seed N used by tops,basic g/p
REAL SEEDRS ! Seed reserves g/p
REAL SEEDRSAV ! Seed reserves available g/p
REAL SEEDRSI ! Seed reserves,initial g/p
REAL SEEDRSUX ! Seed reserves use maximum g/pdd
REAL SENCL(0:20) ! Senesced C,by layer g/p
REAL SENCS ! Senesced C added to soil g/p
REAL SENLA ! Senesced leaf area,total cm2/p
REAL SENLFG ! Senesced leaf g/p
REAL SENLFGRS ! Senesced leaf to reserves g/p
REAL SENLGL(0:20) ! Senesced lignin added,by layer g/p
REAL SENLGS ! Senesced lignin added to soil g/p
REAL SENNATC ! Senesced N,litter+soil,cum kg/ha
REAL SENNATCM ! Senesced N,litter+soil,cum,mes kg/ha
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 SENNSTG ! Senesced N from stems g/p
REAL SENNSTGRS ! Senesced N to rs from stems g/p
REAL SENSTG ! Senesced material from stems g/p
REAL SENWATC ! Senesced om,litter+soil,cum kg/ha
REAL SENWATCM ! Senesced om,litter+soil,cum kg/ha
REAL SENWL(0:20) ! Senesced om added by layer g/p
REAL SENWS ! Senesced weight,soil g/p
REAL SHF(20) ! Soil hospitality factor 0-1 #
REAL SHRTD ! Shoot/root ratio #
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 #
REAL SMNC ! Stem minimum N conc #
REAL SMNCS(0:9) ! Stem minimum N conc,stage #
INTEGER SN ! Sequence number,crop rotation #
REAL SNDEM ! Stem demand for N g/p
REAL SNH4(20) ! Soil NH4 N kg/ha
REAL SNH4PROFILE ! NH4 N in soil profile kg/ha
REAL SNH4PROFILEI ! NO3 N in soil profile,initial kg/ha
REAL SNH4ROOTZONE ! NH4 N in root zone kg/ha
REAL SNH4ROOTZONEI ! NH4 N in root zone,initial kg/ha
INTEGER SNI ! Sequence number,as initiated #
REAL SNO3(20) ! Soil NO3 N kg/ha
REAL SNO3PROFILE ! NO3 N in soil profile kg/ha
REAL SNO3PROFILEI ! NO3 N in soil profile,initial kg/ha
REAL SNO3ROOTZONE ! NO3 N in root zone kg/ha
REAL SNO3ROOTZONEI ! NO3 N in root zone,initial kg/ha
REAL SNOW ! Snow cm
REAL SNPCMN(0:9) ! Stem minimum N conc,stage %
REAL SNPCS(0:9) ! Stem standard N conc,stage %