Ignore:
Timestamp:
Oct 24, 2008, 5:03:23 PM (16 years ago)
Author:
lmdzadmin
Message:

Modif pour que ca tourne avec des sorties R4 à partir d'une compilation R8.
FH/IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/dyn3d/wrgrads.F

    r938 r1025  
    1717      integer if,nl
    1818      real field(imx*jmx*lmx)
     19
     20      integer, parameter:: wp = selected_real_kind(p=6, r=36)
     21      real(wp) field4(imx*jmx*lmx)
     22
    1923      character*10 name,file
    2024      character*10 titlevar
     
    8387c     print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
    8488c     print*,ivar(if),nvar(if),var(ivar(if),if),writectl
     89      field4(1:imd(if)*jmd(if)*nl)=field(1:imd(if)*jmd(if)*nl)
    8590      do l=1,nl
    8691         irec(if)=irec(if)+1
     
    8994c    s ,(l-1)*imd(if)*jmd(if)+(ijf-1)*imd(if)+iif
    9095         write(unit(if)+1,rec=irec(if))
    91      s   ((field((l-1)*imd(if)*jmd(if)+(j-1)*imd(if)+i)
     96     s   ((field4((l-1)*imd(if)*jmd(if)+(j-1)*imd(if)+i)
    9297     s   ,i=iii,iif),j=iji,ijf)
    9398      enddo
Note: See TracChangeset for help on using the changeset viewer.