Ignore:
Timestamp:
May 17, 2011, 10:56:57 AM (14 years ago)
Author:
slebonnois
Message:

Sebastien Lebonnois: apres validation des versions Venus et Titan,
correction d'un certain nombre de bugs.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/phytitan/write_histmth.h

    r110 r119  
    156156      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    157157      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    158       CALL histwrite(nid_day,"thv"//str1,itau_w,zx_tmp_3d,
     158      CALL histwrite(nid_mth,"thv"//str1,itau_w,zx_tmp_3d,
    159159     .                                   iim*jjmp1*klev,ndex3d)
    160160       enddo      ! fin boucle NSPECV
    … …  
    176176      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    177177      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    178       CALL histwrite(nid_day,"khv"//str1,itau_w,zx_tmp_3d,
     178      CALL histwrite(nid_mth,"khv"//str1,itau_w,zx_tmp_3d,
    179179     .                                   iim*jjmp1*klev,ndex3d)
    180180       enddo      ! fin boucle NSPECV
    … …  
    189189      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    190190      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    191       CALL histwrite(nid_day,"tgv"//str1,itau_w,zx_tmp_3d,
     191      CALL histwrite(nid_mth,"tgv"//str1,itau_w,zx_tmp_3d,
    192192     .                                   iim*jjmp1*klev,ndex3d)
    193193       enddo      ! fin boucle NSPECV
    … …  
    209209      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    210210      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    211       CALL histwrite(nid_day,"kgv"//str1,itau_w,zx_tmp_3d,
     211      CALL histwrite(nid_mth,"kgv"//str1,itau_w,zx_tmp_3d,
    212212     .                                   iim*jjmp1*klev,ndex3d)
    213213       enddo      ! fin boucle NSPECV
    … …  
    222222      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    223223      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    224       CALL histwrite(nid_day,"thi"//str1,itau_w,zx_tmp_3d,
     224      CALL histwrite(nid_mth,"thi"//str1,itau_w,zx_tmp_3d,
    225225     .                                   iim*jjmp1*klev,ndex3d)
    226226       enddo      ! fin boucle NSPECI
    … …  
    242242      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    243243      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    244       CALL histwrite(nid_day,"khi"//str1,itau_w,zx_tmp_3d,
     244      CALL histwrite(nid_mth,"khi"//str1,itau_w,zx_tmp_3d,
    245245     .                                   iim*jjmp1*klev,ndex3d)
    246246       enddo      ! fin boucle NSPECI
    … …  
    255255      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    256256      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    257       CALL histwrite(nid_day,"tgi"//str1,itau_w,zx_tmp_3d,
     257      CALL histwrite(nid_mth,"tgi"//str1,itau_w,zx_tmp_3d,
    258258     .                                   iim*jjmp1*klev,ndex3d)
    259259       enddo      ! fin boucle NSPECI
    … …  
    275275      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    276276      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    277       CALL histwrite(nid_day,"kgi"//str1,itau_w,zx_tmp_3d,
     277      CALL histwrite(nid_mth,"kgi"//str1,itau_w,zx_tmp_3d,
    278278     .                                   iim*jjmp1*klev,ndex3d)
    279279       enddo      ! fin boucle NSPECI
Note: See TracChangeset for help on using the changeset viewer.