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 |