-
Notifications
You must be signed in to change notification settings - Fork 1
/
INTRO.FOR
109 lines (93 loc) · 3.87 KB
/
INTRO.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
C========================================================================
C INTRO, Subroutine
C
C Prints model opening screen
C-----------------------------------------------------------------------
C Revision history
C
C 01/01/1993 GH Written
C 09/14/1993 PWW Header modifications and header changes
C 12/31/1997 GH Change date to 12/31/97, DSSAT v3.1
C 05/06/1998 GH Change release version to DSSAT v3.5
C 11/16/1998 GH Change release date for DSSAT v3.5 patch
C 05/31/1999 GH Change release date for DSSAT v3.51 patch
C 09/20/2000 GH Change working version to DSSAT v3.7
C 11/03/2001 GH Add CASUPRO model
C 11/04/2001 GH Check for model name instead of crop name
C 12/13/2001 GH Created new intro for CSM model
C 01/30/2001 GH Modified introduction
C 09/20/2000 GH Change working version to CSM v3.9
C 03/31/2004 GH Changed to release version CSM v4.0
C 08/31/2005 GH Changed to release version CSM Version 4.0.2
C 02/21/2006 GH Change to working version CSM v4.6
C 02/06/2007 CHP Change to working version CSM v4.5
C-----------------------------------------------------------------------
C INPUT : None
C
C LOCAL : None
C
C OUTPUT : None
C-----------------------------------------------------------------------
C Called : INPUT
C
C Calls : None
C-----------------------------------------------------------------------
C DEFINITIONS
C
C None :
C=======================================================================
SUBROUTINE INTRO
USE ModuleDefs
IMPLICIT NONE
CHARACTER*1 ANS,BOX_SID
CHARACTER*56 ZCG(15)
CHARACTER*58 BOX_TOP,BOX_BOT,BOX_DAT
INTEGER I
DATA BOX_TOP/
& 'ÕÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͸'/
DATA BOX_SID/'³'/
DATA BOX_BOT/
& 'ÔÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ;'/
DATA BOX_DAT/
& '³ 10 October 2010 ³'/
DATA ZCG/
& ' ICASA ',
& ' ',
& ' G.Hoogenboom, J.W.Jones, C.H.Porter, K.J.Boote, ',
& ' L.A.Hunt, J.W. White, J.I.Lizaso, ',
& ' P.W.Wilkens, U.Singh, F.S. Royce, and R. Ogoshi ',
& ' ',
& ' The Cropping System Model (CSM) is a comprehensive ',
& ' simulation model that incorporates the features of the ',
& ' generic grain legume model CROPGRO, the generic grain ',
& ' cereal model CERES, and the root model SUBSTOR. CSM ',
& ' simulates growth, development, and yield and soil and ',
& ' plant water, nitrogen and carbon dynamics for multiple ',
& ' crops in response to weather and soil conditions, crop ',
& ' management and cultivar characteristics. ',
& ' '/
CALL HOME
WRITE (*,250) BOX_TOP
WRITE (*,100) BOX_SID,BOX_SID
WRITE (*,250) BOX_BOT
WRITE(*,250) BOX_TOP
WRITE(*,252) BOX_SID,Version,BOX_SID
DO I = 1, 15
WRITE (*,255) BOX_SID,ZCG(I),BOX_SID
END DO
WRITE (*,250) BOX_DAT
WRITE (*,250) BOX_BOT
WRITE (*,250) BOX_TOP
WRITE (*,150) BOX_SID,BOX_SID
WRITE (*,250) BOX_BOT
READ (5,'(A1)') ANS
RETURN
100 FORMAT (10X,A1,13X,'DSSAT Version 4.5.0 Generic Input',10X,A1)
150 FORMAT (10X,A1,4X,
& 'Please press < ENTER > key (ÄÄÙ) to continue',7X,A1)
252 FORMAT (10X,A1," DSSAT Cropping System Model (CSM) Version ",
& I1,".",I1,".",I1,".",I3.3," ",A1)
250 FORMAT (10X,A58)
255 FORMAT (10X,A1,A56,A1)
410 FORMAT (10X,A2)
END SUBROUTINE INTRO