程序设计注释参考格式

程序设计注释参考格式

*************************************************************************** * SUBROUTINE CROPGROWTH（子程序名称） * * Author: Ep Heuvelink（作者名） * * Date: April 1992 * * Purpose: Calculation of crop growth based on gross photosynthesis * * dry weights of the plant parts, respiration parameters and * * dry matter distribution; originates from main program part * * in REF.FOR * * If .NOT. FIXEDCROP growth rates are added up to present dry * * weight and removal of plant parts (e.g. harvest of fruits) is * * taken into account * * * * FORMAL PARAMETERS: (I=input, O=output) * * name meaning units class * * ---- ------- ----- ----- * * GPHOT Daily total gross photosynthesis g CH20/m2/d I * * WTW Total plant dry weight g/m2 I/O * * WLV Dry weight of leaves g/m2 I/O * * WST Dry weight of stems g/m2 I/O * * WSO Dry weight of storage organs g/m2 I/O * * WRT Dry weight of roots g/m2 I/O * * WLVP, WSTP, WSOP : Array with table on removal of leaves, * * stem or storage organs respectively g/m2 I * * IWLVP, IWSTP, IWSOP: size of above mentioned arrays I * * WLVE, WSTE, WSOE: Dry weight of leaves, stem and storage * * organs still Existing on the plants * * (e.g. WLVE equals WLV minus picked leaves g/m2 O * * REFTMP Reference temperature for maintenance respiration oC I * * Q10 Q10-value for maintenance respiration - I * * MAINLV Maintenance respiration at REFTMP for leaves g CH2O/m2/d I * * MAINST Maintenance respiration at REFTMP for stems g CH2O/m2/d I * * MAINSO Maintenance respiration at REFTMP ans g CH2O/m2/d I * * MAINRT Maintenance respiration at REFTMP for roots g CH2O/m2/d I * * FLV Fraction dry matter diverted to leaves - I * * FST Fraction dry matter diverted to stems - I * * FSO Fraction dry matter diverted to storage organs - I * * FRT Fraction dry matter diverted to roots - I * * ASRQLV Assimilate requirements leaves g CH2O/g dw I * * ASRQST Assimilate requirements stems g CH2O/g dw I * * ASRQSO Assimilate requirements storage organs g CH2O/g dw I * * ASRQRT Assimilate requirements roots g CH2O/g dw I * * PERCDW Percentage dry weight of storage organs - I *

* GTW Total growth rate g dw/m2/d O *

* GLV Growth rate of leaves g dw/m2/d O * * GST Growth rate of stems g dw/m2/d O *

* GSO Growth rate of storage organs g dw/m2/d O *

* GRT Growth rate of roots g dw/m2/d O *

* FIXEDCROP logical; (if .TRUE. calculations are conducted *

* with fixed crop properties (no change in plant *

* dry weights)) I *

* *

* SUBROUTINES AND FUNCTIONS called: NONE *

* File usage: none *

***************************************************************************

SUBROUTINE CROPGROWTH(TIME,GPHOT,WTW,WLV,WLVP,IWLVP,WST,

$ WSTP,IWSTP,WSO,WSOP,IWSOP,WRT,

$ REFTMP,TMPA,Q10,MAINLV,MAINST,MAINSO,MAINRT,

$ FLV,FST,FSO,FRT,ASRQLV,ASRQST,ASRQSO,ASRQRT,

$ FIXEDCROP,GTW,GLV,GST,GSO,GRT,WLVE,WSTE,WSOE)

IMPLICIT REAL(A-H,J-Z)

IMPLICIT INTEGER(I)

REAL WLVP(730),WSOP(730),WSTP(730)

LOGICAL FIXEDCROP

*-----Calculate Existing dry weights from dry weights of plant parts

*-----minus dry weight of removed plant parts

WLVE = MAX(0.,WLV-LINT(WLVP,IWLVP,TIME))

WSTE = MAX(0.,WST-LINT(WSTP,IWSTP,TIME))

WSOE = MAX(0.,WSO-LINT(WSOP,IWSOP,TIME))

*-----Maintenance respiration [g CH2O m-2 day-1]

MAINTS = WLVE*MAINLV + WSTE*MAINST + WSOE*MAINSO + WRT*MAINRT

TEFF = Q10**(((TMPA-REFTMP)/10.))

MAINT = AMIN1(GPHOT,MAINTS*TEFF)

*-----Assimilate requirements for dry matter conversion

*-----[g CH2O/g dry matter]

ASRQ = FLV*ASRQLV+FST*ASRQST+FSO*ASRQSO+FRT*ASRQRT

*-----Rate of growth [g d.w. m-2 day-1]

GTW = (GPHOT - MAINT) / ASRQ

GLV = GTW * FLV

GST = GTW * FST

GSO = GTW * FSO