Ignore:
Timestamp:
Mar 21, 2002, 4:09:32 PM (22 years ago)
Author:
lmdzadmin
Message:

2 changements pour les fichiers histoire:

  • utilisation de l'entree "rectilineaire" de IOIPSL pour ne plus avoir

a

lancer ncregular a chaque fois

  • le calendrier des fichiers histoire est maintenant base sur la date d'initialisation de la simulation plutot que sur la date de depart du

job

en cours

LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/physiq.F

    r340 r353  
    360360c
    361361      INTEGER julien
    362       INTEGER idayvrai
    363       SAVE idayvrai
    364362c
    365363      INTEGER lmt_pas
    … …  
    555553      SAVE ecrit_reg   ! frequence d'ecriture
    556554c
     555      integer itau_w   ! pas de temps ecriture = itap + itau_phy
    557556c
    558557c
    … …  
    589588      logical ok_sync
    590589      real date0
     590      integer idayref
    591591
    592592C essai writephys
    … …  
    761761c Gestion calendrier
    762762
    763          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    764          zjulian = zjulian + day_ini
    765 
    766763c
    767764      IF (ok_journe) THEN
    768765c
    769          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    770          zjulian = zjulian + day_ini
     766         idayref = day_ref
     767         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    771768c
    772769         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    … …  
    779776         ENDDO
    780777         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
     778         write(*,*)'zx_lon = ',zx_lon(:,1)
     779         write(*,*)'zx_lat = ',zx_lat(1,:)
    781780         CALL histbeg("histday", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    782      .                 1,iim,1,jjmp1, 0, zjulian, dtime,
     781     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    783782     .                 nhori, nid_day)
     783         write(*,*)'Journee ', itau_phy, zjulian
    784784         CALL histvert(nid_day, "presnivs", "Vertical levels", "mb",
    785785     .                 klev, presnivs, nvert)
    … …  
    10021002      IF (ok_mensuel) THEN
    10031003c
    1004          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    1005          zjulian = zjulian + day_ini
     1004         idayref = day_ref
     1005         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    10061006c
    10071007         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    … …  
    10151015         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    10161016         CALL histbeg("histmth.nc", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
    1017      .                 1,iim,1,jjmp1, 0, zjulian, dtime,
     1017     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    10181018     .                 nhori, nid_mth)
     1019         write(*,*)'Mensuel ', itau_phy, zjulian
    10191020         CALL histvert(nid_mth, "presnivs", "Vertical levels", "mb",
    10201021     .                 klev, presnivs, nvert)
    … …  
    14461447      IF (ok_instan) THEN
    14471448c
    1448          CALL ymds2ju(anne_ini, 1, 1, 0.0, zjulian)
    1449          zjulian = zjulian + day_ini
     1449         idayref = day_ref
     1450         CALL ymds2ju(annee_ref, 1, idayref, 0.0, zjulian)
    14501451c
    14511452         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlon,zx_lon)
    … …  
    14581459         ENDDO
    14591460         CALL gr_fi_ecrit(1,klon,iim,jjmp1,rlat,zx_lat)
    1460          CALL histbeg("histins", iim,zx_lon, jjmp1,zx_lat,
    1461      .                 1,iim,1,jjmp1, 0, zjulian, dtime,
     1461         CALL histbeg("histins", iim,zx_lon(:,1), jjmp1,zx_lat(1,:),
     1462     .                 1,iim,1,jjmp1, itau_phy, zjulian, dtime,
    14621463     .                 nhori, nid_ins)
     1464         write(*,*)'Inst ', itau_phy, zjulian
    14631465         CALL histvert(nid_ins, "presnivs", "Vertical levels", "mb",
    14641466     .                 klev, presnivs, nvert)
    … …  
    17631765c
    17641766      IF (MOD(itap-1,lmt_pas) .EQ. 0) THEN
    1765          idayvrai = NINT(xjour)
    1766          PRINT *,' PHYS cond  julien ',julien,idayvrai
     1767         PRINT *,' PHYS cond  julien ',julien
    17671768         CALL ozonecm( FLOAT(julien), rlat, paprs, wo)
    17681769      ENDIF
    … …  
    23982399         zsto = dtime
    23992400         zout = dtime * FLOAT(ecrit_day)
     2401         itau_w = itau_phy + itap
    24002402
    24012403         i = NINT(zout/zsto)
    … …  
    24182420C
    24192421      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    2420       CALL histwrite(nid_day,"tsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2422      CALL histwrite(nid_day,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24212423c     call writephy(fid_day,prof2d_av,'tsol',zxtsol,
    24222424c    .              'Surface Temperature','K')
    … …  
    24252427      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_ter)
    24262428      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d ,zx_tmp_2d)
    2427       CALL histwrite(nid_day,"tter",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2429      CALL histwrite(nid_day,"tter",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24282430c     call writephy(fid_day,prof2d_av,'tter',ftsol(1 : klon, is_ter),
    24292431c    .              'Surface Temperature','K')
    … …  
    24312433      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_lic)
    24322434      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    2433       CALL histwrite(nid_day,"tlic",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2435      CALL histwrite(nid_day,"tlic",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24342436c     call writephy(fid_day,prof2d_av,'tlic',ftsol(1 : klon, is_lic),
    24352437c    .              'Surface Temperature','K')
    … …  
    24372439      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_oce)
    24382440      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    2439       CALL histwrite(nid_day,"toce",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2441      CALL histwrite(nid_day,"toce",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24402442c     call writephy(fid_day,prof2d_av,'toce',ftsol(1 : klon, is_oce),
    24412443c    .              'Surface Temperature','K')
    … …  
    24432445      zx_tmp_fi2d(1 : klon) = ftsol(1 : klon, is_sic)
    24442446      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    2445       CALL histwrite(nid_day,"tsic",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2447      CALL histwrite(nid_day,"tsic",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24462448c     call writephy(fid_day,prof2d_av,'tsic',ftsol(1 : klon, is_sic),
    24472449c    .              'Surface Temperature','K')
    … …  
    24512453      ENDDO
    24522454      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2453       CALL histwrite(nid_day,"psol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2455      CALL histwrite(nid_day,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24542456c Essai writephys
    24552457      varname = 'psol'
    … …  
    24632465      ENDDO
    24642466      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2465       CALL histwrite(nid_day,"rain",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2467      CALL histwrite(nid_day,"rain",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24662468c     call writephy(fid_day,prof2d_av,'rain',zx_tmp_fi2d,
    24672469c    .              'Precipitation','mm/day')
    … …  
    24702472c
    24712473      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    2472       CALL histwrite(nid_day,"snow",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2474      CALL histwrite(nid_day,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24732475c     call writephy(fid_day,prof2d_av,'snow',snow_fall,
    24742476c    .              'Snow','mm/day')
    24752477c
    24762478      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    2477       CALL histwrite(nid_day,"snow_cov",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2479      CALL histwrite(nid_day,"snow_cov",itau_w,zx_tmp_2d,iim*jjmp1,
     2480     .               ndex2d)
    24782481c     call writephy(fid_day,prof2d_av,'snow_cov',zxsnow,
    24792482c    .              'Snow cover','mm')
    24802483c
    24812484      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    2482       CALL histwrite(nid_day,"evap",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2485      CALL histwrite(nid_day,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24832486c     call writephy(fid_day,prof2d_av,'evap',evap,
    24842487c    .              'Evaporation','mm/day')
    24852488c
    24862489      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)
    2487       CALL histwrite(nid_day,"tops",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2490      CALL histwrite(nid_day,"tops",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24882491c     call writephy(fid_day,prof2d_av,'tops',topsw,
    24892492c    .              'Solar rad. at TOA','W/m2')
    24902493c
    24912494      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    2492       CALL histwrite(nid_day,"topl",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2495      CALL histwrite(nid_day,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24932496c     call writephy(fid_day,prof2d_av,'topl',toplw,
    24942497c    .              'IR rad. at TOA','W/m2')
    24952498c
    24962499      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    2497       CALL histwrite(nid_day,"sols",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2500      CALL histwrite(nid_day,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    24982501c     call writephy(fid_day,prof2d_av,'sols',solsw,
    24992502c    .              'Solar rad. at surf.','W/m2')
    25002503c
    25012504      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    2502       CALL histwrite(nid_day,"soll",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2505      CALL histwrite(nid_day,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    25032506c     call writephy(fid_day,prof2d_av,'soll',sollw,
    25042507c    .              'IR rad. at surface','W/m2')
    25052508c
    25062509      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    2507       CALL histwrite(nid_day,"solldown",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2510      CALL histwrite(nid_day,"solldown",itau_w,zx_tmp_2d,iim*jjmp1,
     2511     .               ndex2d)
    25082512c     call writephy(fid_day,prof2d_av,'solldown',sollwdown,
    25092513c    .              'Down. IR rad. at surface','W/m2')
    25102514c
    25112515      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    2512       CALL histwrite(nid_day,"bils",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2516      CALL histwrite(nid_day,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    25132517c     call writephy(fid_day,prof2d_av,'bils',bils,
    25142518c    .              'Surf. total heat flux','W/m2')
    25152519c
    25162520      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
    2517       CALL histwrite(nid_day,"sens",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2521      CALL histwrite(nid_day,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    25182522c     call writephy(fid_day,prof2d_av,'sens',sens,
    25192523c    .              'Sensible heat flux','W/m2')
    25202524c
    25212525      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    2522       CALL histwrite(nid_day,"fder",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2526      CALL histwrite(nid_day,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    25232527c     call writephy(fid_day,prof2d_av,'fder',fder,
    25242528c    .              'Heat flux derivation','W/m2')
    … …  
    25292533        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    25302534        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2531         CALL histwrite(nid_day,"pourc_"//clnsurf(nsrf),itap,
     2535        CALL histwrite(nid_day,"pourc_"//clnsurf(nsrf),itau_w,
    25322536     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25332537c       call writephy(fid_day,prof2d_av,'pourc_'//clnsurf(nsrf),
    … …  
    25372541        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    25382542        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2539         CALL histwrite(nid_day,"tsol_"//clnsurf(nsrf),itap,
     2543        CALL histwrite(nid_day,"tsol_"//clnsurf(nsrf),itau_w,
    25402544     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25412545c       call writephy(fid_day,prof2d_av,'tsol_'//clnsurf(nsrf),
    … …  
    25452549        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    25462550        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2547         CALL histwrite(nid_day,"sens_"//clnsurf(nsrf),itap,
     2551        CALL histwrite(nid_day,"sens_"//clnsurf(nsrf),itau_w,
    25482552     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25492553c       call writephy(fid_day,prof2d_av,'sens_'//clnsurf(nsrf),
    … …  
    25532557        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    25542558        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2555         CALL histwrite(nid_day,"lat_"//clnsurf(nsrf),itap,
     2559        CALL histwrite(nid_day,"lat_"//clnsurf(nsrf),itau_w,
    25562560     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25572561c       call writephy(fid_day,prof2d_av,'lat_'//clnsurf(nsrf),
    … …  
    25612565        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    25622566        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2563         CALL histwrite(nid_day,"taux_"//clnsurf(nsrf),itap,
     2567        CALL histwrite(nid_day,"taux_"//clnsurf(nsrf),itau_w,
    25642568     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25652569c       call writephy(fid_day,prof2d_av,'taux_'//clnsurf(nsrf),
    … …  
    25692573        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    25702574        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2571         CALL histwrite(nid_day,"tauy_"//clnsurf(nsrf),itap,
     2575        CALL histwrite(nid_day,"tauy_"//clnsurf(nsrf),itau_w,
    25722576     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25732577c       call writephy(fid_day,prof2d_av,'tauy_'//clnsurf(nsrf),
    … …  
    25772581        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    25782582        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2579         CALL histwrite(nid_day,"albe_"//clnsurf(nsrf),itap,
     2583        CALL histwrite(nid_day,"albe_"//clnsurf(nsrf),itau_w,
    25802584     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25812585c       call writephy(fid_day,prof2d_av,'albe_'//clnsurf(nsrf),
    … …  
    25882592        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    25892593        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2590         CALL histwrite(nid_day,"rugs_"//clnsurf(nsrf),itap,
     2594        CALL histwrite(nid_day,"rugs_"//clnsurf(nsrf),itau_w,
    25912595     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    25922596c       call writephy(fid_day,prof2d_av,'rugs_'//clnsurf(nsrf),
    … …  
    26002604c$$$      ENDDO
    26012605c$$$      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2602 c$$$      CALL histwrite(nid_day,"sicf",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2606c$$$      CALL histwrite(nid_day,"sicf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    26032607c
    26042608      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)
    2605       CALL histwrite(nid_day,"cldl",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2609      CALL histwrite(nid_day,"cldl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    26062610c     call writephy(fid_day,prof2d_av,'cldl',cldl,
    26072611c    .              'Low-level cloudiness','-')
    26082612c
    26092613      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)
    2610       CALL histwrite(nid_day,"cldm",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2614      CALL histwrite(nid_day,"cldm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    26112615c     call writephy(fid_day,prof2d_av,'cldm',cldm,
    26122616c    .              'Mid-level cloudiness','-')
    26132617c
    26142618      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)
    2615       CALL histwrite(nid_day,"cldh",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2619      CALL histwrite(nid_day,"cldh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    26162620c     call writephy(fid_day,prof2d_av,'cldh',cldh,
    26172621c    .              'High-level cloudiness','-')
    26182622c
    26192623      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
    2620       CALL histwrite(nid_day,"cldt",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2624      CALL histwrite(nid_day,"cldt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    26212625c     call writephy(fid_day,prof2d_av,'cldt',cldt,
    26222626c    .              'Total cloudiness','-')
    26232627c
    26242628      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)
    2625       CALL histwrite(nid_day,"cldq",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2629      CALL histwrite(nid_day,"cldq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    26262630c     call writephy(fid_day,prof2d_av,'cldq',cldq,
    26272631c    .              'Cloud liquid water path','-')
    … …  
    26302634c
    26312635      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    2632       CALL histwrite(nid_day,"temp",itap,zx_tmp_3d,
     2636      CALL histwrite(nid_day,"temp",itau_w,zx_tmp_3d,
    26332637     .                                   iim*jjmp1*klev,ndex3d)
    26342638c Essai writephys
    … …  
    26392643c
    26402644      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
    2641       CALL histwrite(nid_day,"ovap",itap,zx_tmp_3d,
     2645      CALL histwrite(nid_day,"ovap",itau_w,zx_tmp_3d,
    26422646     .                                   iim*jjmp1*klev,ndex3d)
    26432647c     call writephy(fid_day,prof3d_av,'ovap',qx(1,1,ivap),
    … …  
    26452649c
    26462650      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    2647       CALL histwrite(nid_day,"geop",itap,zx_tmp_3d,
     2651      CALL histwrite(nid_day,"geop",itau_w,zx_tmp_3d,
    26482652     .                                   iim*jjmp1*klev,ndex3d)
    26492653c     call writephy(fid_day,prof3d_av,'geop',zphi,
    … …  
    26512655c
    26522656      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    2653       CALL histwrite(nid_day,"vitu",itap,zx_tmp_3d,
     2657      CALL histwrite(nid_day,"vitu",itau_w,zx_tmp_3d,
    26542658     .                                   iim*jjmp1*klev,ndex3d)
    26552659c     call writephy(fid_day,prof3d_av,'vitu',u_seri,
    … …  
    26572661c
    26582662      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    2659       CALL histwrite(nid_day,"vitv",itap,zx_tmp_3d,
     2663      CALL histwrite(nid_day,"vitv",itau_w,zx_tmp_3d,
    26602664     .                                   iim*jjmp1*klev,ndex3d)
    26612665c     call writephy(fid_day,prof3d_av,'vitv',v_seri,
    … …  
    26632667c
    26642668      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
    2665       CALL histwrite(nid_day,"vitw",itap,zx_tmp_3d,
     2669      CALL histwrite(nid_day,"vitw",itau_w,zx_tmp_3d,
    26662670     .                                   iim*jjmp1*klev,ndex3d)
    26672671c     call writephy(fid_day,prof3d_av,'vitw',omega,
    … …  
    26692673c
    26702674      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    2671       CALL histwrite(nid_day,"pres",itap,zx_tmp_3d,
     2675      CALL histwrite(nid_day,"pres",itau_w,zx_tmp_3d,
    26722676     .                                   iim*jjmp1*klev,ndex3d)
    26732677c     call writephy(fid_day,prof3d_av,'pres',pplay,
    … …  
    26902694         zsto = dtime
    26912695         zout = dtime * ecrit_mth
     2696         itau_w = itau_phy + itap
    26922697
    26932698         i = NINT(zout/zsto)
    … …  
    27002705
    27012706      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    2702       CALL histwrite(nid_mth,"tsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2707      CALL histwrite(nid_mth,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27032708c
    27042709      DO i = 1, klon
    … …  
    27062711      ENDDO
    27072712      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2708       CALL histwrite(nid_mth,"psol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2713      CALL histwrite(nid_mth,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27092714c
    27102715      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxqsol,zx_tmp_2d)
    2711       CALL histwrite(nid_mth,"qsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2716      CALL histwrite(nid_mth,"qsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27122717c
    27132718      DO i = 1, klon
    … …  
    27152720      ENDDO
    27162721      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2717       CALL histwrite(nid_mth,"rain",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2722      CALL histwrite(nid_mth,"rain",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27182723c
    27192724      DO i = 1, klon
    … …  
    27212726      ENDDO
    27222727      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2723       CALL histwrite(nid_mth,"plul",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2728      CALL histwrite(nid_mth,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27242729c
    27252730      DO i = 1, klon
    … …  
    27272732      ENDDO
    27282733      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2729       CALL histwrite(nid_mth,"pluc",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2734      CALL histwrite(nid_mth,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27302735c
    27312736      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    2732       CALL histwrite(nid_mth,"snow",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2737      CALL histwrite(nid_mth,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27332738c
    27342739      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    2735       CALL histwrite(nid_mth,"snow_cov",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2740      CALL histwrite(nid_mth,"snow_cov",itau_w,zx_tmp_2d,iim*jjmp1,
     2741     .               ndex2d)
    27362742c
    27372743      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    2738       CALL histwrite(nid_mth,"evap",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2744      CALL histwrite(nid_mth,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27392745c
    27402746      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw,zx_tmp_2d)
    2741       CALL histwrite(nid_mth,"tops",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2747      CALL histwrite(nid_mth,"tops",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27422748c
    27432749      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    2744       CALL histwrite(nid_mth,"topl",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2750      CALL histwrite(nid_mth,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27452751c
    27462752      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    2747       CALL histwrite(nid_mth,"sols",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2753      CALL histwrite(nid_mth,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27482754c
    27492755      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    2750       CALL histwrite(nid_mth,"soll",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2756      CALL histwrite(nid_mth,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27512757c
    27522758      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    2753       CALL histwrite(nid_mth,"solldown",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2759      CALL histwrite(nid_mth,"solldown",itau_w,zx_tmp_2d,iim*jjmp1,
     2760     .               ndex2d)
    27542761c
    27552762      CALL gr_fi_ecrit(1, klon,iim,jjmp1, topsw0,zx_tmp_2d)
    2756       CALL histwrite(nid_mth,"tops0",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2763      CALL histwrite(nid_mth,"tops0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27572764c
    27582765      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw0,zx_tmp_2d)
    2759       CALL histwrite(nid_mth,"topl0",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2766      CALL histwrite(nid_mth,"topl0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27602767c
    27612768      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw0,zx_tmp_2d)
    2762       CALL histwrite(nid_mth,"sols0",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2769      CALL histwrite(nid_mth,"sols0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27632770c
    27642771      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw0,zx_tmp_2d)
    2765       CALL histwrite(nid_mth,"soll0",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2772      CALL histwrite(nid_mth,"soll0",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27662773c
    27672774      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    2768       CALL histwrite(nid_mth,"bils",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2775      CALL histwrite(nid_mth,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27692776c
    27702777      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
    2771       CALL histwrite(nid_mth,"sens",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2778      CALL histwrite(nid_mth,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27722779c
    27732780      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    2774       CALL histwrite(nid_mth,"fder",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2781      CALL histwrite(nid_mth,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27752782c
    27762783c
    … …  
    27792786c      ENDDO
    27802787c      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2781 c      CALL histwrite(nid_mth,"frtu",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2788c      CALL histwrite(nid_mth,"frtu",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27822789c
    27832790c      DO i = 1, klon
    … …  
    27852792c      ENDDO
    27862793c      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2787 c      CALL histwrite(nid_mth,"frtv",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2794c      CALL histwrite(nid_mth,"frtv",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    27882795c
    27892796      DO nsrf = 1, nbsrf
    … …  
    27912798        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    27922799        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2793         CALL histwrite(nid_mth,"pourc_"//clnsurf(nsrf),itap,
     2800        CALL histwrite(nid_mth,"pourc_"//clnsurf(nsrf),itau_w,
    27942801     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    27952802C
    27962803        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    27972804        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2798         CALL histwrite(nid_mth,"tsol_"//clnsurf(nsrf),itap,
     2805        CALL histwrite(nid_mth,"tsol_"//clnsurf(nsrf),itau_w,
    27992806     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    28002807C
    28012808        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    28022809        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2803         CALL histwrite(nid_mth,"sens_"//clnsurf(nsrf),itap,
     2810        CALL histwrite(nid_mth,"sens_"//clnsurf(nsrf),itau_w,
    28042811     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    28052812C
    28062813        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    28072814        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2808         CALL histwrite(nid_mth,"lat_"//clnsurf(nsrf),itap,
     2815        CALL histwrite(nid_mth,"lat_"//clnsurf(nsrf),itau_w,
    28092816     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    28102817C
    28112818        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    28122819        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2813         CALL histwrite(nid_mth,"taux_"//clnsurf(nsrf),itap,
     2820        CALL histwrite(nid_mth,"taux_"//clnsurf(nsrf),itau_w,
    28142821     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    28152822C     
    28162823        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    28172824        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2818         CALL histwrite(nid_mth,"tauy_"//clnsurf(nsrf),itap,
     2825        CALL histwrite(nid_mth,"tauy_"//clnsurf(nsrf),itau_w,
    28192826     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    28202827C
    28212828        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    28222829        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2823         CALL histwrite(nid_mth,"albe_"//clnsurf(nsrf),itap,
     2830        CALL histwrite(nid_mth,"albe_"//clnsurf(nsrf),itau_w,
    28242831     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    28252832C
    28262833        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    28272834        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    2828         CALL histwrite(nid_mth,"rugs_"//clnsurf(nsrf),itap,
     2835        CALL histwrite(nid_mth,"rugs_"//clnsurf(nsrf),itau_w,
    28292836     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    28302837c
    28312838      zx_tmp_fi2d(1 : klon) = agesno( 1 : klon, nsrf)
    28322839      CALL gr_fi_ecrit(1, klon,iim,jjmp1, agesno,zx_tmp_2d)
    2833       CALL histwrite(nid_mth,"ages_"//clnsurf(nsrf),itap
     2840      CALL histwrite(nid_mth,"ages_"//clnsurf(nsrf),itau_w
    28342841     $    ,zx_tmp_2d,iim*jjmp1,ndex2d)
    28352842
    … …  
    28392846c$$$      ENDDO
    28402847c$$$      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    2841 c$$$      CALL histwrite(nid_mth,"sicf",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2848c$$$      CALL histwrite(nid_mth,"sicf",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28422849c
    28432850      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
    2844       CALL histwrite(nid_mth,"albs",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2851      CALL histwrite(nid_mth,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28452852      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
    2846       CALL histwrite(nid_mth,"albslw",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2853      CALL histwrite(nid_mth,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28472854c
    28482855      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
    2849       CALL histwrite(nid_mth,"cdrm",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2856      CALL histwrite(nid_mth,"cdrm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28502857c
    28512858      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
    2852       CALL histwrite(nid_mth,"cdrh",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2859      CALL histwrite(nid_mth,"cdrh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28532860c
    28542861      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldl,zx_tmp_2d)
    2855       CALL histwrite(nid_mth,"cldl",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2862      CALL histwrite(nid_mth,"cldl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28562863c
    28572864      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldm,zx_tmp_2d)
    2858       CALL histwrite(nid_mth,"cldm",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2865      CALL histwrite(nid_mth,"cldm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28592866c
    28602867      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldh,zx_tmp_2d)
    2861       CALL histwrite(nid_mth,"cldh",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2868      CALL histwrite(nid_mth,"cldh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28622869c
    28632870      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldt,zx_tmp_2d)
    2864       CALL histwrite(nid_mth,"cldt",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2871      CALL histwrite(nid_mth,"cldt",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28652872c
    28662873      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cldq,zx_tmp_2d)
    2867       CALL histwrite(nid_mth,"cldq",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2874      CALL histwrite(nid_mth,"cldq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28682875c
    28692876      CALL gr_fi_ecrit(1, klon,iim,jjmp1, ue,zx_tmp_2d)
    2870       CALL histwrite(nid_mth,"ue",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2877      CALL histwrite(nid_mth,"ue",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28712878c
    28722879      CALL gr_fi_ecrit(1, klon,iim,jjmp1, ve,zx_tmp_2d)
    2873       CALL histwrite(nid_mth,"ve",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2880      CALL histwrite(nid_mth,"ve",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28742881c
    28752882      CALL gr_fi_ecrit(1, klon,iim,jjmp1, uq,zx_tmp_2d)
    2876       CALL histwrite(nid_mth,"uq",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2883      CALL histwrite(nid_mth,"uq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28772884c
    28782885      CALL gr_fi_ecrit(1, klon,iim,jjmp1, vq,zx_tmp_2d)
    2879       CALL histwrite(nid_mth,"vq",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2886      CALL histwrite(nid_mth,"vq",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28802887cKE43
    28812888      IF (iflag_con .GE. 3) THEN ! sb
    28822889c
    28832890      CALL gr_fi_ecrit(1, klon,iim,jjmp1, cape,zx_tmp_2d)
    2884       CALL histwrite(nid_mth,"cape",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2891      CALL histwrite(nid_mth,"cape",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28852892c
    28862893      CALL gr_fi_ecrit(1, klon,iim,jjmp1,pbase,zx_tmp_2d)
    2887       CALL histwrite(nid_mth,"pbase",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2894      CALL histwrite(nid_mth,"pbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28882895c
    28892896      CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_pct,zx_tmp_2d)
    2890       CALL histwrite(nid_mth,"ptop",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2897      CALL histwrite(nid_mth,"ptop",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28912898c
    28922899      CALL gr_fi_ecrit(1, klon,iim,jjmp1,ema_cbmf,zx_tmp_2d)
    2893       CALL histwrite(nid_mth,"fbase",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     2900      CALL histwrite(nid_mth,"fbase",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    28942901c
    28952902c
    … …  
    29002907C
    29012908      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    2902       CALL histwrite(nid_mth,"temp",itap,zx_tmp_3d,
     2909      CALL histwrite(nid_mth,"temp",itau_w,zx_tmp_3d,
    29032910     .                                   iim*jjmp1*klev,ndex3d)
    29042911c
    29052912      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,ivap), zx_tmp_3d)
    2906       CALL histwrite(nid_mth,"ovap",itap,zx_tmp_3d,
     2913      CALL histwrite(nid_mth,"ovap",itau_w,zx_tmp_3d,
    29072914     .                                   iim*jjmp1*klev,ndex3d)
    29082915c
    29092916      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    2910       CALL histwrite(nid_mth,"geop",itap,zx_tmp_3d,
     2917      CALL histwrite(nid_mth,"geop",itau_w,zx_tmp_3d,
    29112918     .                                   iim*jjmp1*klev,ndex3d)
    29122919c
    29132920      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    2914       CALL histwrite(nid_mth,"vitu",itap,zx_tmp_3d,
     2921      CALL histwrite(nid_mth,"vitu",itau_w,zx_tmp_3d,
    29152922     .                                   iim*jjmp1*klev,ndex3d)
    29162923c
    29172924      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    2918       CALL histwrite(nid_mth,"vitv",itap,zx_tmp_3d,
     2925      CALL histwrite(nid_mth,"vitv",itau_w,zx_tmp_3d,
    29192926     .                                   iim*jjmp1*klev,ndex3d)
    29202927c
    29212928      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, omega, zx_tmp_3d)
    2922       CALL histwrite(nid_mth,"vitw",itap,zx_tmp_3d,
     2929      CALL histwrite(nid_mth,"vitw",itau_w,zx_tmp_3d,
    29232930     .                                   iim*jjmp1*klev,ndex3d)
    29242931c
    29252932      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    2926       CALL histwrite(nid_mth,"pres",itap,zx_tmp_3d,
     2933      CALL histwrite(nid_mth,"pres",itau_w,zx_tmp_3d,
    29272934     .                                   iim*jjmp1*klev,ndex3d)
    29282935c
    29292936      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldfra, zx_tmp_3d)
    2930       CALL histwrite(nid_mth,"rneb",itap,zx_tmp_3d,
     2937      CALL histwrite(nid_mth,"rneb",itau_w,zx_tmp_3d,
    29312938     .                                   iim*jjmp1*klev,ndex3d)
    29322939c
    29332940      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zx_rh, zx_tmp_3d)
    2934       CALL histwrite(nid_mth,"rhum",itap,zx_tmp_3d,
     2941      CALL histwrite(nid_mth,"rhum",itau_w,zx_tmp_3d,
    29352942     .                                   iim*jjmp1*klev,ndex3d)
    29362943c
    29372944      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cldliq, zx_tmp_3d)
    2938       CALL histwrite(nid_mth,"oliq",itap,zx_tmp_3d,
     2945      CALL histwrite(nid_mth,"oliq",itau_w,zx_tmp_3d,
    29392946     .                                   iim*jjmp1*klev,ndex3d)
    29402947c
    29412948      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_dyn, zx_tmp_3d)
    2942       CALL histwrite(nid_mth,"dtdyn",itap,zx_tmp_3d,
     2949      CALL histwrite(nid_mth,"dtdyn",itau_w,zx_tmp_3d,
    29432950     .                                   iim*jjmp1*klev,ndex3d)
    29442951c
    29452952      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_dyn, zx_tmp_3d)
    2946       CALL histwrite(nid_mth,"dqdyn",itap,zx_tmp_3d,
     2953      CALL histwrite(nid_mth,"dqdyn",itau_w,zx_tmp_3d,
    29472954     .                                   iim*jjmp1*klev,ndex3d)
    29482955c
    29492956      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_con, zx_tmp_3d)
    2950       CALL histwrite(nid_mth,"dtcon",itap,zx_tmp_3d,
     2957      CALL histwrite(nid_mth,"dtcon",itau_w,zx_tmp_3d,
    29512958     .                                   iim*jjmp1*klev,ndex3d)
    29522959c
    29532960      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_con, zx_tmp_3d)
    2954       CALL histwrite(nid_mth,"dqcon",itap,zx_tmp_3d,
     2961      CALL histwrite(nid_mth,"dqcon",itau_w,zx_tmp_3d,
    29552962     .                                   iim*jjmp1*klev,ndex3d)
    29562963c
    29572964      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_lsc, zx_tmp_3d)
    2958       CALL histwrite(nid_mth,"dtlsc",itap,zx_tmp_3d,
     2965      CALL histwrite(nid_mth,"dtlsc",itau_w,zx_tmp_3d,
    29592966     .                                   iim*jjmp1*klev,ndex3d)
    29602967c
    29612968      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_lsc, zx_tmp_3d)
    2962       CALL histwrite(nid_mth,"dqlsc",itap,zx_tmp_3d,
     2969      CALL histwrite(nid_mth,"dqlsc",itau_w,zx_tmp_3d,
    29632970     .                                   iim*jjmp1*klev,ndex3d)
    29642971c
    29652972      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
    2966       CALL histwrite(nid_mth,"dtvdf",itap,zx_tmp_3d,
     2973      CALL histwrite(nid_mth,"dtvdf",itau_w,zx_tmp_3d,
    29672974     .                                   iim*jjmp1*klev,ndex3d)
    29682975c
    29692976      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
    2970       CALL histwrite(nid_mth,"dqvdf",itap,zx_tmp_3d,
     2977      CALL histwrite(nid_mth,"dqvdf",itau_w,zx_tmp_3d,
    29712978     .                                   iim*jjmp1*klev,ndex3d)
    29722979c
    29732980      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_eva, zx_tmp_3d)
    2974       CALL histwrite(nid_mth,"dteva",itap,zx_tmp_3d,
     2981      CALL histwrite(nid_mth,"dteva",itau_w,zx_tmp_3d,
    29752982     .                                   iim*jjmp1*klev,ndex3d)
    29762983c
    29772984      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_eva, zx_tmp_3d)
    2978       CALL histwrite(nid_mth,"dqeva",itap,zx_tmp_3d,
     2985      CALL histwrite(nid_mth,"dqeva",itau_w,zx_tmp_3d,
    29792986     .                                   iim*jjmp1*klev,ndex3d)
    29802987c
    29812988      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zpt_conv, zx_tmp_3d)
    2982       CALL histwrite(nid_mth,"ptconv",itap,zx_tmp_3d,
     2989      CALL histwrite(nid_mth,"ptconv",itau_w,zx_tmp_3d,
    29832990     .                                   iim*(jjmp1)*klev,ndex3d)
    29842991c
    29852992      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ratqs, zx_tmp_3d)
    2986       CALL histwrite(nid_mth,"ratqs",itap,zx_tmp_3d,
     2993      CALL histwrite(nid_mth,"ratqs",itau_w,zx_tmp_3d,
    29872994     .                                   iim*(jjmp1)*klev,ndex3d)
    29882995c
    29892996      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_ajs, zx_tmp_3d)
    2990       CALL histwrite(nid_mth,"dtajs",itap,zx_tmp_3d,
     2997      CALL histwrite(nid_mth,"dtajs",itau_w,zx_tmp_3d,
    29912998     .                                   iim*jjmp1*klev,ndex3d)
    29922999c
    29933000      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_ajs, zx_tmp_3d)
    2994       CALL histwrite(nid_mth,"dqajs",itap,zx_tmp_3d,
     3001      CALL histwrite(nid_mth,"dqajs",itau_w,zx_tmp_3d,
    29953002     .                                   iim*jjmp1*klev,ndex3d)
    29963003c
    29973004      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat, zx_tmp_3d)
    2998       CALL histwrite(nid_mth,"dtswr",itap,zx_tmp_3d,
     3005      CALL histwrite(nid_mth,"dtswr",itau_w,zx_tmp_3d,
    29993006     .                                   iim*jjmp1*klev,ndex3d)
    30003007c
    30013008      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, heat0, zx_tmp_3d)
    3002       CALL histwrite(nid_mth,"dtsw0",itap,zx_tmp_3d,
     3009      CALL histwrite(nid_mth,"dtsw0",itau_w,zx_tmp_3d,
    30033010     .                                   iim*jjmp1*klev,ndex3d)
    30043011c
    30053012      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool, zx_tmp_3d)
    3006       CALL histwrite(nid_mth,"dtlwr",itap,zx_tmp_3d,
     3013      CALL histwrite(nid_mth,"dtlwr",itau_w,zx_tmp_3d,
    30073014     .                                   iim*jjmp1*klev,ndex3d)
    30083015c
    30093016      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, cool0, zx_tmp_3d)
    3010       CALL histwrite(nid_mth,"dtlw0",itap,zx_tmp_3d,
     3017      CALL histwrite(nid_mth,"dtlw0",itau_w,zx_tmp_3d,
    30113018     .                                   iim*jjmp1*klev,ndex3d)
    30123019c
    30133020      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_vdf, zx_tmp_3d)
    3014       CALL histwrite(nid_mth,"duvdf",itap,zx_tmp_3d,
     3021      CALL histwrite(nid_mth,"duvdf",itau_w,zx_tmp_3d,
    30153022     .                                   iim*jjmp1*klev,ndex3d)
    30163023c
    30173024      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_vdf, zx_tmp_3d)
    3018       CALL histwrite(nid_mth,"dvvdf",itap,zx_tmp_3d,
     3025      CALL histwrite(nid_mth,"dvvdf",itau_w,zx_tmp_3d,
    30193026     .                                   iim*jjmp1*klev,ndex3d)
    30203027c
    30213028      IF (ok_orodr) THEN
    30223029      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_oro, zx_tmp_3d)
    3023       CALL histwrite(nid_mth,"duoro",itap,zx_tmp_3d,
     3030      CALL histwrite(nid_mth,"duoro",itau_w,zx_tmp_3d,
    30243031     .                                   iim*jjmp1*klev,ndex3d)
    30253032c
    30263033      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_oro, zx_tmp_3d)
    3027       CALL histwrite(nid_mth,"dvoro",itap,zx_tmp_3d,
     3034      CALL histwrite(nid_mth,"dvoro",itau_w,zx_tmp_3d,
    30283035     .                                   iim*jjmp1*klev,ndex3d)
    30293036c
    … …  
    30323039      IF (ok_orolf) THEN
    30333040      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_u_lif, zx_tmp_3d)
    3034       CALL histwrite(nid_mth,"dulif",itap,zx_tmp_3d,
     3041      CALL histwrite(nid_mth,"dulif",itau_w,zx_tmp_3d,
    30353042     .                                   iim*jjmp1*klev,ndex3d)
    30363043c
    30373044      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_v_lif, zx_tmp_3d)
    3038       CALL histwrite(nid_mth,"dvlif",itap,zx_tmp_3d,
     3045      CALL histwrite(nid_mth,"dvlif",itau_w,zx_tmp_3d,
    30393046     .                                   iim*jjmp1*klev,ndex3d)
    30403047      ENDIF
    30413048C
    30423049      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, wo, zx_tmp_3d)
    3043       CALL histwrite(nid_mth,"ozone",itap,zx_tmp_3d,
     3050      CALL histwrite(nid_mth,"ozone",itau_w,zx_tmp_3d,
    30443051     .                                   iim*jjmp1*klev,ndex3d)
    30453052c
    … …  
    30493056         CALL gr_fi_ecrit(klev,klon,iim,jjmp1, qx(1,1,iq+2), zx_tmp_3d)
    30503057         WRITE(str2,'(i2.2)') iq
    3051          CALL histwrite(nid_mth,"trac"//str2,itap,zx_tmp_3d,
     3058         CALL histwrite(nid_mth,"trac"//str2,itau_w,zx_tmp_3d,
    30523059     .                                   iim*jjmp1*klev,ndex3d)
    30533060      ELSE
    … …  
    30613068c
    30623069      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, upwd, zx_tmp_3d)
    3063       CALL histwrite(nid_mth,"upwd",itap,zx_tmp_3d,
     3070      CALL histwrite(nid_mth,"upwd",itau_w,zx_tmp_3d,
    30643071     .                                   iim*jjmp1*klev,ndex3d)
    30653072c
    30663073      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd, zx_tmp_3d)
    3067       CALL histwrite(nid_mth,"dnwd",itap,zx_tmp_3d,
     3074      CALL histwrite(nid_mth,"dnwd",itau_w,zx_tmp_3d,
    30683075     .                                   iim*jjmp1*klev,ndex3d)
    30693076c
    30703077      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, dnwd0, zx_tmp_3d)
    3071       CALL histwrite(nid_mth,"dnwd0",itap,zx_tmp_3d,
     3078      CALL histwrite(nid_mth,"dnwd0",itau_w,zx_tmp_3d,
    30723079     .                                   iim*jjmp1*klev,ndex3d)
    30733080c
    30743081      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, Ma, zx_tmp_3d)
    3075       CALL histwrite(nid_mth,"Ma",itap,zx_tmp_3d,
     3082      CALL histwrite(nid_mth,"Ma",itau_w,zx_tmp_3d,
    30763083     .                                   iim*jjmp1*klev,ndex3d)
    30773084c
    … …  
    30943101         zsto = dtime * ecrit_ins
    30953102         zout = dtime * ecrit_ins
     3103         itau_w = itau_phy + itap
    30963104
    30973105         i = NINT(zout/zsto)
    … …  
    31073115      ENDDO
    31083116      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    3109       CALL histwrite(nid_ins,"psol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3117      CALL histwrite(nid_ins,"psol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31103118c
    31113119      DO i = 1, klon
    … …  
    31133121      ENDDO
    31143122      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    3115       CALL histwrite(nid_ins,"rain",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3123      CALL histwrite(nid_ins,"rain",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31163124c
    31173125      DO i = 1, klon
    … …  
    31193127      ENDDO
    31203128      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    3121       CALL histwrite(nid_ins,"plul",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3129      CALL histwrite(nid_ins,"plul",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31223130c
    31233131      DO i = 1, klon
    … …  
    31253133      ENDDO
    31263134      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d,zx_tmp_2d)
    3127       CALL histwrite(nid_ins,"pluc",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3135      CALL histwrite(nid_ins,"pluc",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31283136
    31293137      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxtsol,zx_tmp_2d)
    3130       CALL histwrite(nid_ins,"tsol",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3138      CALL histwrite(nid_ins,"tsol",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31313139c
    31323140      CALL gr_fi_ecrit(1, klon,iim,jjmp1, snow_fall,zx_tmp_2d)
    3133       CALL histwrite(nid_ins,"snow",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3141      CALL histwrite(nid_ins,"snow",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31343142
    31353143c
    31363144      CALL gr_fi_ecrit(1, klon,iim,jjmp1, toplw,zx_tmp_2d)
    3137       CALL histwrite(nid_ins,"topl",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3145      CALL histwrite(nid_ins,"topl",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31383146c
    31393147      CALL gr_fi_ecrit(1, klon,iim,jjmp1, evap,zx_tmp_2d)
    3140       CALL histwrite(nid_ins,"evap",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3148      CALL histwrite(nid_ins,"evap",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31413149c
    31423150      CALL gr_fi_ecrit(1, klon,iim,jjmp1, solsw,zx_tmp_2d)
    3143       CALL histwrite(nid_ins,"sols",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3151      CALL histwrite(nid_ins,"sols",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31443152c
    31453153      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollw,zx_tmp_2d)
    3146       CALL histwrite(nid_ins,"soll",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3154      CALL histwrite(nid_ins,"soll",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31473155c
    31483156      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sollwdown,zx_tmp_2d)
    3149       CALL histwrite(nid_ins,"solldown",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3157      CALL histwrite(nid_ins,"solldown",itau_w,zx_tmp_2d,iim*jjmp1,
     3158     .                ndex2d)
    31503159c
    31513160      CALL gr_fi_ecrit(1, klon,iim,jjmp1, bils,zx_tmp_2d)
    3152       CALL histwrite(nid_ins,"bils",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3161      CALL histwrite(nid_ins,"bils",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31533162c
    31543163      CALL gr_fi_ecrit(1, klon,iim,jjmp1, sens,zx_tmp_2d)
    3155       CALL histwrite(nid_ins,"sens",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3164      CALL histwrite(nid_ins,"sens",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31563165c
    31573166      CALL gr_fi_ecrit(1, klon,iim,jjmp1, fder,zx_tmp_2d)
    3158       CALL histwrite(nid_ins,"fder",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3167      CALL histwrite(nid_ins,"fder",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    31593168c
    31603169      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_oce),zx_tmp_2d)
    3161       CALL histwrite(nid_ins,"dtsvdfo",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3170      CALL histwrite(nid_ins,"dtsvdfo",itau_w,zx_tmp_2d,iim*jjmp1,
     3171     .               ndex2d)
    31623172c
    31633173      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_ter),zx_tmp_2d)
    3164       CALL histwrite(nid_ins,"dtsvdft",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3174      CALL histwrite(nid_ins,"dtsvdft",itau_w,zx_tmp_2d,iim*jjmp1,
     3175     .               ndex2d)
    31653176c
    31663177      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_lic),zx_tmp_2d)
    3167       CALL histwrite(nid_ins,"dtsvdfg",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3178      CALL histwrite(nid_ins,"dtsvdfg",itau_w,zx_tmp_2d,iim*jjmp1,
     3179     .               ndex2d)
    31683180c
    31693181      CALL gr_fi_ecrit(1, klon,iim,jjmp1, d_ts(1,is_sic),zx_tmp_2d)
    3170       CALL histwrite(nid_ins,"dtsvdfi",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3182      CALL histwrite(nid_ins,"dtsvdfi",itau_w,zx_tmp_2d,iim*jjmp1,
     3183     .               ndex2d)
    31713184
    31723185      DO nsrf = 1, nbsrf
    … …  
    31743187        zx_tmp_fi2d(1 : klon) = pctsrf( 1 : klon, nsrf)
    31753188        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3176         CALL histwrite(nid_ins,"pourc_"//clnsurf(nsrf),itap,
     3189        CALL histwrite(nid_ins,"pourc_"//clnsurf(nsrf),itau_w,
    31773190     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    31783191C
    31793192        zx_tmp_fi2d(1 : klon) = fluxt( 1 : klon, 1, nsrf)
    31803193        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3181         CALL histwrite(nid_ins,"sens_"//clnsurf(nsrf),itap,
     3194        CALL histwrite(nid_ins,"sens_"//clnsurf(nsrf),itau_w,
    31823195     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    31833196C
    31843197        zx_tmp_fi2d(1 : klon) = fluxlat( 1 : klon, nsrf)
    31853198        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3186         CALL histwrite(nid_ins,"lat_"//clnsurf(nsrf),itap,
     3199        CALL histwrite(nid_ins,"lat_"//clnsurf(nsrf),itau_w,
    31873200     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    31883201C
    31893202        zx_tmp_fi2d(1 : klon) = ftsol( 1 : klon, nsrf)
    31903203        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3191         CALL histwrite(nid_ins,"tsol_"//clnsurf(nsrf),itap,
     3204        CALL histwrite(nid_ins,"tsol_"//clnsurf(nsrf),itau_w,
    31923205     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    31933206C
    31943207        zx_tmp_fi2d(1 : klon) = fluxu( 1 : klon, 1, nsrf)
    31953208        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3196         CALL histwrite(nid_ins,"taux_"//clnsurf(nsrf),itap,
     3209        CALL histwrite(nid_ins,"taux_"//clnsurf(nsrf),itau_w,
    31973210     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    31983211C     
    31993212        zx_tmp_fi2d(1 : klon) = fluxv( 1 : klon, 1, nsrf)
    32003213        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3201         CALL histwrite(nid_ins,"tauy_"//clnsurf(nsrf),itap,
     3214        CALL histwrite(nid_ins,"tauy_"//clnsurf(nsrf),itau_w,
    32023215     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    32033216C
    32043217        zx_tmp_fi2d(1 : klon) = frugs( 1 : klon, nsrf)
    32053218        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3206         CALL histwrite(nid_ins,"rugs_"//clnsurf(nsrf),itap,
     3219        CALL histwrite(nid_ins,"rugs_"//clnsurf(nsrf),itau_w,
    32073220     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    32083221C
    32093222        zx_tmp_fi2d(1 : klon) = falbe( 1 : klon, nsrf)
    32103223        CALL gr_fi_ecrit(1, klon,iim,jjmp1, zx_tmp_fi2d , zx_tmp_2d)
    3211         CALL histwrite(nid_ins,"albe_"//clnsurf(nsrf),itap,
     3224        CALL histwrite(nid_ins,"albe_"//clnsurf(nsrf),itau_w,
    32123225     $      zx_tmp_2d,iim*jjmp1,ndex2d)
    32133226C
    32143227      END DO 
    32153228      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsol,zx_tmp_2d)
    3216       CALL histwrite(nid_ins,"albs",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3229      CALL histwrite(nid_ins,"albs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    32173230      CALL gr_fi_ecrit(1, klon,iim,jjmp1, albsollw,zx_tmp_2d)
    3218       CALL histwrite(nid_ins,"albslw",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3231      CALL histwrite(nid_ins,"albslw",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    32193232c
    32203233      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxsnow,zx_tmp_2d)
    3221       CALL histwrite(nid_ins,"snow_cov",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3234      CALL histwrite(nid_ins,"snow_cov",itau_w,zx_tmp_2d,iim*jjmp1,
     3235     .               ndex2d)
    32223236c
    32233237      CALL gr_fi_ecrit(1, klon,iim,jjmp1, zxrugs,zx_tmp_2d)
    3224       CALL histwrite(nid_ins,"rugs",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     3238      CALL histwrite(nid_ins,"rugs",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    32253239c
    32263240c Champs 3D:
    32273241c
    32283242      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, t_seri, zx_tmp_3d)
    3229       CALL histwrite(nid_ins,"temp",itap,zx_tmp_3d,
     3243      CALL histwrite(nid_ins,"temp",itau_w,zx_tmp_3d,
    32303244     .                                   iim*jjmp1*klev,ndex3d)
    32313245c
    32323246      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, u_seri, zx_tmp_3d)
    3233       CALL histwrite(nid_ins,"vitu",itap,zx_tmp_3d,
     3247      CALL histwrite(nid_ins,"vitu",itau_w,zx_tmp_3d,
    32343248     .                                   iim*jjmp1*klev,ndex3d)
    32353249c
    32363250      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, v_seri, zx_tmp_3d)
    3237       CALL histwrite(nid_ins,"vitv",itap,zx_tmp_3d,
     3251      CALL histwrite(nid_ins,"vitv",itau_w,zx_tmp_3d,
    32383252     .                                   iim*jjmp1*klev,ndex3d)
    32393253c
    32403254      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, zphi, zx_tmp_3d)
    3241       CALL histwrite(nid_ins,"geop",itap,zx_tmp_3d,
     3255      CALL histwrite(nid_ins,"geop",itau_w,zx_tmp_3d,
    32423256     .                                   iim*jjmp1*klev,ndex3d)
    32433257c
    32443258      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, pplay, zx_tmp_3d)
    3245       CALL histwrite(nid_ins,"pres",itap,zx_tmp_3d,
     3259      CALL histwrite(nid_ins,"pres",itau_w,zx_tmp_3d,
    32463260     .                                   iim*jjmp1*klev,ndex3d)
    32473261c
    32483262      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_t_vdf, zx_tmp_3d)
    3249       CALL histwrite(nid_ins,"dtvdf",itap,zx_tmp_3d,
     3263      CALL histwrite(nid_ins,"dtvdf",itau_w,zx_tmp_3d,
    32503264     .                                   iim*jjmp1*klev,ndex3d)
    32513265c
    32523266      CALL gr_fi_ecrit(klev,klon,iim,jjmp1, d_q_vdf, zx_tmp_3d)
    3253       CALL histwrite(nid_ins,"dqvdf",itap,zx_tmp_3d,
     3267      CALL histwrite(nid_ins,"dqvdf",itau_w,zx_tmp_3d,
    32543268     .                                   iim*jjmp1*klev,ndex3d)
    32553269
    … …  
    33393353c
    33403354      IF (lafin) THEN
     3355         itau_phy = itau_phy + itap
    33413356ccc         IF (ok_oasis) CALL quitcpl
    33423357         CALL phyredem ("restartphy.nc",dtime,radpas,co2_ppm,solaire,
Note: See TracChangeset for help on using the changeset viewer.