/[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

trunk/libf/IOIPSL/Histcom/histdef.f90 revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC trunk/Sources/IOIPSL/Histcom/histdef.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC
# Line 21  contains Line 21  contains
21           slab_ori, slab_sz, sopps, tax_last, tax_name, tax_name_length, &           slab_ori, slab_sz, sopps, tax_last, tax_name, tax_name_length, &
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      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 ?
# Line 255  contains Line 255  contains
255      freq_opp(fileid, iv) = pfreq_opp      freq_opp(fileid, iv) = pfreq_opp
256      freq_wrt(fileid, iv) = pfreq_wrt      freq_wrt(fileid, iv) = pfreq_wrt
257    
258      CALL ioget_calendar(un_an, un_jour)      CALL ioget_calendar_real(un_an, un_jour)
259      IF (pfreq_opp<0) THEN      IF (pfreq_opp<0) THEN
260         CALL ioget_calendar(un_an)         CALL ioget_calendar_real(un_an)
261         test_fopp = pfreq_opp*(-1.)*un_an/12.*un_jour         test_fopp = pfreq_opp*(-1.)*un_an/12.*un_jour
262      ELSE      ELSE
263         test_fopp = pfreq_opp         test_fopp = pfreq_opp
264      END IF      END IF
265      IF (pfreq_wrt<0) THEN      IF (pfreq_wrt<0) THEN
266         CALL ioget_calendar(un_an)         CALL ioget_calendar_real(un_an)
267         test_fwrt = pfreq_wrt*(-1.)*un_an/12.*un_jour         test_fwrt = pfreq_wrt*(-1.)*un_an/12.*un_jour
268      ELSE      ELSE
269         test_fwrt = pfreq_wrt         test_fwrt = pfreq_wrt
Legend:
Removed from v.67  
changed lines
  Added in v.134
  ViewVC Help
Powered by ViewVC 1.1.21