Ignore:
Timestamp:
Apr 15, 2011, 3:44:44 PM (14 years ago)
Author:
slebonnois
Message:

SL: corrections de bugs suite a compilations venus et titan de la version 109.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/libf/phytitan/write_histmth.h

    r106 r110  
    4949c
    5050c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragh,zx_tmp_2d)
    51 c     z4_tmp_2d=zx_tmp_2d
    52 c     CALL histwrite(nid_mth,"cdragh",itau_w,z4_tmp_2d,iim*jjmp1,ndex2d)
     51c     CALL histwrite(nid_mth,"cdragh",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    5352c
    5453c     CALL gr_fi_ecrit(1, klon,iim,jjmp1, cdragm,zx_tmp_2d)
    55 c     z4_tmp_2d=zx_tmp_2d
    56 c     CALL histwrite(nid_mth,"cdragm",itau_w,z4_tmp_2d,iim*jjmp1,ndex2d)
     54c     CALL histwrite(nid_mth,"cdragm",itau_w,zx_tmp_2d,iim*jjmp1,ndex2d)
    5755c
    5856      ENDIF !lev_histmth.GE.1
    … …  
    8886c
    8987c     CALL gr_fi_ecrit(klev,klon,iim,jjmp1, ycoefh, zx_tmp_3d)
    90 c     z4_tmp_3d=zx_tmp_3d
    91 c     CALL histwrite(nid_mth,"Kz",itau_w,z4_tmp_3d,
     88c     CALL histwrite(nid_mth,"Kz",itau_w,zx_tmp_3d,
    9289c    .                                   iim*jjmp1*klev,ndex3d)
    9390c
    … …  
    159156      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    160157      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    161       z4_tmp_3d=zx_tmp_3d
    162       CALL histwrite(nid_day,"thv"//str1,itau_w,z4_tmp_3d,
     158      CALL histwrite(nid_day,"thv"//str1,itau_w,zx_tmp_3d,
    163159     .                                   iim*jjmp1*klev,ndex3d)
    164160       enddo      ! fin boucle NSPECV
    … …  
    180176      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    181177      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    182       z4_tmp_3d=zx_tmp_3d
    183       CALL histwrite(nid_day,"khv"//str1,itau_w,z4_tmp_3d,
     178      CALL histwrite(nid_day,"khv"//str1,itau_w,zx_tmp_3d,
    184179     .                                   iim*jjmp1*klev,ndex3d)
    185180       enddo      ! fin boucle NSPECV
    … …  
    194189      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    195190      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    196       z4_tmp_3d=zx_tmp_3d
    197       CALL histwrite(nid_day,"tgv"//str1,itau_w,z4_tmp_3d,
     191      CALL histwrite(nid_day,"tgv"//str1,itau_w,zx_tmp_3d,
    198192     .                                   iim*jjmp1*klev,ndex3d)
    199193       enddo      ! fin boucle NSPECV
    … …  
    215209      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    216210      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    217       z4_tmp_3d=zx_tmp_3d
    218       CALL histwrite(nid_day,"kgv"//str1,itau_w,z4_tmp_3d,
     211      CALL histwrite(nid_day,"kgv"//str1,itau_w,zx_tmp_3d,
    219212     .                                   iim*jjmp1*klev,ndex3d)
    220213       enddo      ! fin boucle NSPECV
    … …  
    229222      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    230223      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    231       z4_tmp_3d=zx_tmp_3d
    232       CALL histwrite(nid_day,"thi"//str1,itau_w,z4_tmp_3d,
     224      CALL histwrite(nid_day,"thi"//str1,itau_w,zx_tmp_3d,
    233225     .                                   iim*jjmp1*klev,ndex3d)
    234226       enddo      ! fin boucle NSPECI
    … …  
    250242      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    251243      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    252       z4_tmp_3d=zx_tmp_3d
    253       CALL histwrite(nid_day,"khi"//str1,itau_w,z4_tmp_3d,
     244      CALL histwrite(nid_day,"khi"//str1,itau_w,zx_tmp_3d,
    254245     .                                   iim*jjmp1*klev,ndex3d)
    255246       enddo      ! fin boucle NSPECI
    … …  
    264255      zx_tmp_fi3d(1:klon,1:klev)=t_tauhvd(1:klon,1:klev)
    265256      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    266       z4_tmp_3d=zx_tmp_3d
    267       CALL histwrite(nid_day,"tgi"//str1,itau_w,z4_tmp_3d,
     257      CALL histwrite(nid_day,"tgi"//str1,itau_w,zx_tmp_3d,
    268258     .                                   iim*jjmp1*klev,ndex3d)
    269259       enddo      ! fin boucle NSPECI
    … …  
    285275      zx_tmp_fi3d(1:klon,1:klev)=t_khvd(1:klon,1:klev)
    286276      CALL gr_fi_ecrit(klev,klon,iim,jjmp1,zx_tmp_fi3d,zx_tmp_3d)
    287       z4_tmp_3d=zx_tmp_3d
    288       CALL histwrite(nid_day,"kgi"//str1,itau_w,z4_tmp_3d,
     277      CALL histwrite(nid_day,"kgi"//str1,itau_w,zx_tmp_3d,
    289278     .                                   iim*jjmp1*klev,ndex3d)
    290279       enddo      ! fin boucle NSPECI
Note: See TracChangeset for help on using the changeset viewer.