Changeset 1025
- Timestamp:
- Oct 24, 2008, 5:03:23 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3d/wrgrads.F
r938 r1025 17 17 integer if,nl 18 18 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 19 23 character*10 name,file 20 24 character*10 titlevar … … 83 87 c print*,'ivar(if),nvar(if),var(ivar(if),if),writectl' 84 88 c 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) 85 90 do l=1,nl 86 91 irec(if)=irec(if)+1 … … 89 94 c s ,(l-1)*imd(if)*jmd(if)+(ijf-1)*imd(if)+iif 90 95 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) 92 97 s ,i=iii,iif),j=iji,ijf) 93 98 enddo
Note: See TracChangeset
for help on using the changeset viewer.