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 |