22 |
title, topp, unit_name, var_axid, var_haxid, var_zaxid, zax_name, & |
title, topp, unit_name, var_axid, var_haxid, var_zaxid, zax_name, & |
23 |
zax_size, zorig, zsize |
zax_size, zorig, zsize |
24 |
USE ioget_calendar_m, ONLY: ioget_calendar_real |
USE ioget_calendar_m, ONLY: ioget_calendar_real |
25 |
USE mathelp, ONLY: buildop |
USE buildop_m, ONLY: buildop |
26 |
|
|
27 |
INTEGER, INTENT(IN):: fileid |
INTEGER, INTENT(IN):: fileid |
28 |
! (ID of the file the variable should be archived in) |
! (ID of the file the variable should be archived in) |
206 |
|
|
207 |
IF (szz/=zax_size(fileid, zid)) THEN |
IF (szz/=zax_size(fileid, zid)) THEN |
208 |
str20 = zax_name(fileid, zid) |
str20 = zax_name(fileid, zid) |
|
str70 = 'The size of the zoom does not correspond ' // & |
|
|
'to the size of the chosen vertical axis' |
|
209 |
WRITE (str71, '("Size of zoom in z:", I4)') szz |
WRITE (str71, '("Size of zoom in z:", I4)') szz |
210 |
WRITE (str72, '("Size declared for axis ", a, ":", I4)') & |
WRITE (str72, '("Size declared for axis ", a, ":", I4)') & |
211 |
trim(str20), zax_size(fileid, zid) |
trim(str20), zax_size(fileid, zid) |
212 |
CALL histerr(3, 'histdef', str70, str71, str72) |
CALL histerr(3, 'histdef', 'The size of the zoom does not ' & |
213 |
|
// 'correspond to the size of the chosen vertical axis', & |
214 |
|
str71, str72) |
215 |
END IF |
END IF |
216 |
|
|
217 |
! Is the zoom smaler that the total size of the variable ? |
! Is the zoom smaler that the total size of the variable ? |