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 |
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) |