/[MITgcm]/MITgcm/pkg/fizhi/fizhi_read_pickup.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_read_pickup.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.10 by molod, Thu Oct 7 03:20:56 2004 UTC revision 1.11 by molod, Thu Oct 7 19:39:37 2004 UTC
# Line 75  C       Read fields as consecutive recor Line 75  C       Read fields as consecutive recor
75         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,fccavesw,16,myThid)
76         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid)         CALL MDSREADFIELD(fn,prec,'RL',Nrphys,temp,17,myThid)
77    
78         do bj = 1,Nsy         do bj = 1,myByLo(myThid), myByHi(myThid)
79         do bi = 1,Nsx         do bi = 1,myBxLo(myThid), myBxHi(myThid)
80         do j = 1-OLy,sNy+OLy         do j = 1-OLy,sNy+OLy
81         do i = 1-OLx,sNx+OLx         do i = 1-OLx,sNx+OLx
82          raincon(i,j,bi,bj) = temp(i,j,1,bi,bj)          raincon(i,j,bi,bj) = temp(i,j,1,bi,bj)
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22