62 |
integer funit |
integer funit |
63 |
integer cbuffindex |
integer cbuffindex |
64 |
|
|
65 |
_RL cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
real*4 cbuff( sNx*nSx*nPx*sNy*nSy*nPy ) |
66 |
|
|
67 |
character*(128) fname |
character*(128) fname |
68 |
cgg( |
cgg( |
149 |
write( funit ) (nWetcGlobal(k), k=1,nr) |
write( funit ) (nWetcGlobal(k), k=1,nr) |
150 |
write( funit ) (nWetsGlobal(k), k=1,nr) |
write( funit ) (nWetsGlobal(k), k=1,nr) |
151 |
write( funit ) (nWetwGlobal(k), k=1,nr) |
write( funit ) (nWetwGlobal(k), k=1,nr) |
152 |
|
#ifdef ALLOW_CTRL_WETV |
153 |
write( funit ) (nWetvGlobal(k), k=1,nr) |
write( funit ) (nWetvGlobal(k), k=1,nr) |
154 |
|
#endif |
155 |
|
|
156 |
cgg( Add OBCS Mask information into the header section for optimization. |
cgg( Add OBCS Mask information into the header section for optimization. |
157 |
#ifdef ALLOW_OBCSN_CONTROL |
#ifdef ALLOW_OBCSN_CONTROL |
181 |
do icvar = 1,maxcvars |
do icvar = 1,maxcvars |
182 |
if ( ncvarindex(icvar) .ne. -1 ) then |
if ( ncvarindex(icvar) .ne. -1 ) then |
183 |
do icvrec = 1,ncvarrecs(icvar) |
do icvrec = 1,ncvarrecs(icvar) |
|
cph( |
|
|
print *,'in owd: icvar, icvrec, ncvarrecs, ncvarindex', |
|
|
& icvar, icvrec, ncvarrecs(icvar), ncvarindex(icvar) |
|
|
cph) |
|
184 |
do bj = 1,nsy |
do bj = 1,nsy |
185 |
do bi = 1,nsx |
do bi = 1,nsx |
186 |
write( funit ) ncvarindex(icvar) |
write( funit ) ncvarindex(icvar) |