45 USE modd_data_cover, ONLY : xdata_town, xdata_nature, xdata_sea, xdata_water, &
46 xdata_lai, xdata_vegtype, xdata_h_tree, &
47 xdata_ground_depth, xdata_root_depth, &
48 tdata_seed, tdata_reap, xdata_watsup, xdata_irrig,&
56 USE yomhook
,ONLY : lhook, dr_hook
57 USE parkind1
,ONLY : jprb
64 CHARACTER(LEN=6),
INTENT(IN) :: hprogram
71 INTEGER :: jcover,jdec,jk
78 CHARACTER(LEN=8),
DIMENSION(19) :: cnvt
79 CHARACTER(LEN=2) :: cf
80 REAL(KIND=JPRB) :: zhook_handle
82 IF (lhook) CALL dr_hook(
'WRITE_DATA',0,zhook_handle)
103 DO jcover=301,jpcover
104 WRITE(*,fmt=
'(A80)')
'!-------------------------------------------------------------------------------'
105 WRITE(*,fmt=
'(A16,I3.3)')
'SUBROUTINE COVER',jcover
106 WRITE(*,fmt=
'(A1)')
'!'
107 WRITE(*,fmt=
'(A10,I3.3)')
'!* cover',jcover
108 WRITE(*,fmt=
'(A5,A60)')
'! ',cnames(jcover,1)
109 WRITE(*,fmt=
'(A1)')
'!'
110 WRITE(*,fmt=
'(A7,I3)')
'ICOVER=',jcover
111 WRITE(*,fmt=
'(A1)')
'!'
112 WRITE(*,fmt=
'(A21,F4.2)')
'XDATA_TOWN (ICOVER)=',xdata_town(jcover)
113 WRITE(*,fmt=
'(A21,F4.2)')
'XDATA_NATURE(ICOVER)=',xdata_nature(jcover)
114 WRITE(*,fmt=
'(A21,F4.2)')
'XDATA_WATER (ICOVER)=',xdata_water(jcover)
115 WRITE(*,fmt=
'(A21,F4.2)')
'XDATA_SEA (ICOVER)=',xdata_sea(jcover)
116 WRITE(*,fmt=
'(A1)')
'!'
118 IF (xdata_vegtype(jcover,jk)==0.) cycle
119 IF (all(xdata_lai_all_years(jcover,:,jk)==0.))
THEN
120 WRITE(*,fmt=
'(A29,A8,A5)') &
121 'XDATA_LAI_ALL_YEARS(ICOVER,:,',cnvt(jk),
')= 0.'
124 WRITE(*,fmt=
'(A29,A8,A7)') &
125 'XDATA_LAI_ALL_YEARS(ICOVER,:,',cnvt(jk),
')= (/ &'
129 WRITE(*,fmt=
'(A7,12(F4.1,A2),A1)')
' ', &
130 max(xdata_lai_all_years(jcover,(jdec-1)*12+1,jk),0.1),
', ', &
131 max(xdata_lai_all_years(jcover,(jdec-1)*12+2,jk),0.1),
', ', &
132 max(xdata_lai_all_years(jcover,(jdec-1)*12+3,jk),0.1),
', ', &
133 max(xdata_lai_all_years(jcover,(jdec-1)*12+4,jk),0.1),
', ', &
134 max(xdata_lai_all_years(jcover,(jdec-1)*12+5,jk),0.1),
', ', &
135 max(xdata_lai_all_years(jcover,(jdec-1)*12+6,jk),0.1),
', ', &
136 max(xdata_lai_all_years(jcover,(jdec-1)*12+7,jk),0.1),
', ', &
137 max(xdata_lai_all_years(jcover,(jdec-1)*12+8,jk),0.1),
', ', &
138 max(xdata_lai_all_years(jcover,(jdec-1)*12+9,jk),0.1),
', ', &
139 max(xdata_lai_all_years(jcover,(jdec-1)*12+10,jk),0.1),
', ', &
140 max(xdata_lai_all_years(jcover,(jdec-1)*12+11,jk),0.1),
', ', &
141 max(xdata_lai_all_years(jcover,(jdec-1)*12+12,jk),0.1),cf,
'&'
143 WRITE(*,fmt=
'(A7)')
' /)'
145 WRITE(*,fmt=
'(A1)')
'!'
147 IF (xdata_vegtype(jcover,jk)==0.) cycle
148 WRITE(*,fmt=
'(A21,A8,A3,F4.2)') &
149 'XDATA_VEGTYPE(ICOVER,',cnvt(jk),
')= ',xdata_vegtype(jcover,jk)
151 WRITE(*,fmt=
'(A1)')
'!'
153 IF (xdata_vegtype(jcover,jk)==0.) cycle
154 WRITE(*,fmt=
'(A20,A8,A3,F4.1)') &
155 'XDATA_H_TREE(ICOVER,',cnvt(jk),
')= ',xdata_h_tree(jcover,jk)
157 WRITE(*,fmt=
'(A1)')
'!'
159 IF (xdata_vegtype(jcover,jk)==0.) cycle
160 WRITE(*,fmt=
'(A24,A8,A3,F4.1)') &
161 'XDATA_ROOT_DEPTH(ICOVER,',cnvt(jk),
')= ',xdata_root_depth(jcover,jk)
163 WRITE(*,fmt=
'(A1)')
'!'
165 IF (xdata_vegtype(jcover,jk)==0.) cycle
166 WRITE(*,fmt=
'(A26,A8,A3,F4.1)') &
167 'XDATA_GROUND_DEPTH(ICOVER,',cnvt(jk),
')= ',xdata_ground_depth(jcover,jk)
169 WRITE(*,fmt=
'(A1)')
'!'
170 IF (xdata_vegtype(jcover,9)/=0.)
THEN
171 WRITE(*,fmt=
'(A18,A8,A15,I2.2)') &
172 'TDATA_SEED(ICOVER,',cnvt(9),
')%TDATE%MONTH= ',tdata_seed(jcover,9)%TDATE%MONTH
173 WRITE(*,fmt=
'(A18,A8,A15,I2.2)') &
174 'TDATA_SEED(ICOVER,',cnvt(9),
')%TDATE%DAY = ',tdata_seed(jcover,9)%TDATE%DAY
175 WRITE(*,fmt=
'(A18,A8,A15,I2.2)') &
176 'TDATA_REAP(ICOVER,',cnvt(9),
')%TDATE%MONTH= ',tdata_reap(jcover,9)%TDATE%MONTH
177 WRITE(*,fmt=
'(A18,A8,A15,I2.2)') &
178 'TDATA_REAP(ICOVER,',cnvt(9),
')%TDATE%DAY = ',tdata_reap(jcover,9)%TDATE%DAY
179 WRITE(*,fmt=
'(A20,A8,A3,F4.1)') &
180 'XDATA_WATSUP(ICOVER,',cnvt(9),
')= ',xdata_watsup(jcover,9)
181 WRITE(*,fmt=
'(A20,A8,A3,F4.1)') &
182 'XDATA_IRRIG (ICOVER,',cnvt(9),
')= ',xdata_irrig(jcover,9)
184 WRITE(*,fmt=
'(A20,I3.3)')
'END SUBROUTINE COVER',jcover
190 DO jcover=301,jpcover
191 WRITE(*,fmt=
'(A10,I3.3)')
'CALL COVER',jcover
193 IF (lhook) CALL dr_hook(
'WRITE_DATA',1,zhook_handle)
subroutine write_data(HPROGRAM)