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

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

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

revision 1.7 by molod, Thu Oct 7 03:20:56 2004 UTC revision 1.8 by molod, Thu Oct 7 19:39:37 2004 UTC
# Line 49  C     lgf     :: flag to write "global" Line 49  C     lgf     :: flag to write "global"
49        integer i,j,k,bi,bj        integer i,j,k,bi,bj
50    
51  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
52        do bj = 1,Nsy        do bj = 1,myByLo(myThid), myByHi(myThid)
53        do bi = 1,Nsx        do bi = 1,myBxLo(myThid), myBxHi(myThid)
54        do k = 1,Nrphys        do k = 1,Nrphys
55        do j = 1-OLy,sNy+OLy        do j = 1-OLy,sNy+OLy
56        do i = 1-OLx,sNx+OLx        do i = 1-OLx,sNx+OLx
# Line 100  C--   Write fields as consecutive record Line 100  C--   Write fields as consecutive record
100        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,16,myIter,        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nrphys,fccavesw,16,myIter,
101       .                                                          myThid)       .                                                          myThid)
102    
103        do bj = 1,Nsy        do bj = myByLo(myThid), myByHi(myThid)
104        do bi = 1,Nsx        do bi = myBxLo(myThid), myBxHi(myThid)
105        do j = 1,sNy        do j = 1,sNy
106        do i = 1,sNx        do i = 1,sNx
107         temp(i,j,1,bi,bj) = raincon(i,j,bi,bj)         temp(i,j,1,bi,bj) = raincon(i,j,bi,bj)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22