/[lmdze]/trunk/Sources/IOIPSL/Histcom/histdef.f
ViewVC logotype

Diff of /trunk/Sources/IOIPSL/Histcom/histdef.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 93 by guez, Tue Apr 1 15:50:48 2014 UTC revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC
# Line 22  contains Line 22  contains
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)
# Line 206  contains Line 206  contains
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 ?
Legend:
Removed from v.93  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21