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_histday.h

    r447 r463  
    184184
    185185      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u850,zx_tmp_2d)
    186       CALL histwrite(nid_day,"u850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     186      CALL histwrite(nid_day,"u850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    187187
    188188      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v850,zx_tmp_2d)
    189       CALL histwrite(nid_day,"v850",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     189      CALL histwrite(nid_day,"v850",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    190190
    191191      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u500,zx_tmp_2d)
    192       CALL histwrite(nid_day,"u500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     192      CALL histwrite(nid_day,"u500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    193193
    194194      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v500,zx_tmp_2d)
    195       CALL histwrite(nid_day,"v500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     195      CALL histwrite(nid_day,"v500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    196196
    197197      CALL gr_fi_ecrit(1, klon,iim,jjmp1, u200,zx_tmp_2d)
    198       CALL histwrite(nid_day,"u200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     198      CALL histwrite(nid_day,"u200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    199199
    200200      CALL gr_fi_ecrit(1, klon,iim,jjmp1, v200,zx_tmp_2d)
    201       CALL histwrite(nid_day,"v200",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     201      CALL histwrite(nid_day,"v200",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    202202
    203203      CALL gr_fi_ecrit(1, klon,iim,jjmp1, phi500,zx_tmp_2d)
    204       CALL histwrite(nid_day,"phi500",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     204      CALL histwrite(nid_day,"phi500",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    205205
    206206      CALL gr_fi_ecrit(1, klon,iim,jjmp1, slp,zx_tmp_2d)
    207       CALL histwrite(nid_day,"slp",itap,zx_tmp_2d,iim*jjmp1,ndex2d)
     207      CALL histwrite(nid_day,"slp",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    208208
    209209      CALL gr_fi_ecrit(1,klon,iim,jjmp1,cape,zx_tmp_2d)
Note: See TracChangeset for help on using the changeset viewer.