279 |
CALL MNC_CW_RS_W('R','adstate',0,0,'RC',rC, myThid) |
CALL MNC_CW_RS_W('R','adstate',0,0,'RC',rC, myThid) |
280 |
CALL MNC_CW_RS_W('R','adstate',0,0,'RF',rF, myThid) |
CALL MNC_CW_RS_W('R','adstate',0,0,'RF',rF, myThid) |
281 |
|
|
282 |
|
#ifdef ALLOW_EXF |
283 |
|
CALL MNC_CW_SET_UDIM('adexf', 0, myThid) |
284 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'XC',xC, myThid) |
285 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'YC',yC, myThid) |
286 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'XU',xG, myThid) |
287 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'YU',yC, myThid) |
288 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'XV',xC, myThid) |
289 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'YV',yG, myThid) |
290 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'XG',xG, myThid) |
291 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'YG',yG, myThid) |
292 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'RC',rC, myThid) |
293 |
|
CALL MNC_CW_RS_W('R','adexf',0,0,'RF',rF, myThid) |
294 |
|
#endif |
295 |
|
|
296 |
|
#ifdef ALLOW_SEAICE |
297 |
|
CALL MNC_CW_SET_UDIM('adseaice', 0, myThid) |
298 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'XC',xC, myThid) |
299 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'YC',yC, myThid) |
300 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'XU',xG, myThid) |
301 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'YU',yC, myThid) |
302 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'XV',xC, myThid) |
303 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'YV',yG, myThid) |
304 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'XG',xG, myThid) |
305 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'YG',yG, myThid) |
306 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'RC',rC, myThid) |
307 |
|
CALL MNC_CW_RS_W('R','adseaice',0,0,'RF',rF, myThid) |
308 |
|
#endif |
309 |
|
|
310 |
ENDIF |
ENDIF |
311 |
#endif |
#endif |
312 |
|
|