222 |
write(cunit) (nWetcGlobal(k), k=1,nr) |
write(cunit) (nWetcGlobal(k), k=1,nr) |
223 |
write(cunit) (nWetsGlobal(k), k=1,nr) |
write(cunit) (nWetsGlobal(k), k=1,nr) |
224 |
write(cunit) (nWetwGlobal(k), k=1,nr) |
write(cunit) (nWetwGlobal(k), k=1,nr) |
225 |
|
#ifdef ALLOW_CTRL_WETV |
226 |
write(cunit) (nWetvGlobal(k), k=1,nr) |
write(cunit) (nWetvGlobal(k), k=1,nr) |
227 |
|
#endif |
228 |
#ifdef ALLOW_OBCSN_CONTROL |
#ifdef ALLOW_OBCSN_CONTROL |
229 |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
write(cunit) ((nWetobcsnGlo(k,iobcs), k=1,nr),iobcs= 1,nobcs) |
230 |
#endif |
#endif |