Ignore:
Timestamp:
Apr 22, 2003, 1:16:30 PM (21 years ago)
Author:
lmdzadmin
Message:

En rajoutant des diagnostiques dans les fichiers, quelqu'un s'etait goure dans
le pas de temps d'ecriture d'ou probleme dans le calendrier interne des
fichiers.
LF

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ.3.3/branches/rel-LF/libf/phylmd/write_histmth.h

    r455 r463  
    505505
    506506      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
    507       CALL histwrite(nid_mth,"u850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     507      CALL histwrite(nid_mth,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    508508
    509509      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
    510       CALL histwrite(nid_mth,"v850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     510      CALL histwrite(nid_mth,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    511511
    512512      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
    513       CALL histwrite(nid_mth,"u500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     513      CALL histwrite(nid_mth,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    514514
    515515      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
    516       CALL histwrite(nid_mth,"v500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     516      CALL histwrite(nid_mth,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    517517
    518518      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
    519       CALL histwrite(nid_mth,"u200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     519      CALL histwrite(nid_mth,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    520520
    521521      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
    522       CALL histwrite(nid_mth,"v200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     522      CALL histwrite(nid_mth,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    523523
    524524      CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d)
    525       CALL histwrite(nid_mth,"phi500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     525      CALL histwrite(nid_mth,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    526526
    527527      CALL gr_fi_ecrit(1, klon,iim,jjmp1, w500,zx_tmp_2d)
    528       CALL histwrite(nid_mth,"w500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     528      CALL histwrite(nid_mth,"w500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    529529
    530530
Note: See TracChangeset for help on using the changeset viewer.