/[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 82 by guez, Wed Mar 5 14:57:53 2014 UTC revision 93 by guez, Tue Apr 1 15:50:48 2014 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 mathelp, ONLY: buildop
26    
27      INTEGER, INTENT(IN):: fileid      INTEGER, INTENT(IN):: fileid
# 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.82  
changed lines
  Added in v.93
  ViewVC Help
Powered by ViewVC 1.1.21