Parent Directory | Revision Log | Revision Graph | Patch
revision 1.17 by edhill, Fri Jul 9 02:41:52 2004 UTC | revision 1.18 by edhill, Wed Sep 1 02:43:36 2004 UTC | |
---|---|---|
# | Line 570 C Check that gname exists | Line 570 C Check that gname exists |
570 | mnc_cw_vbij(1,indv) = bi_dim | mnc_cw_vbij(1,indv) = bi_dim |
571 | mnc_cw_vbij(2,indv) = bj_dim | mnc_cw_vbij(2,indv) = bj_dim |
572 | ||
573 | #ifdef MNC_DEBUG_GTYPE | |
574 | CALL MNC_CW_ADD_VATTR_TEXT(vname,1,'mitgcm_grid',gname, myThid) | CALL MNC_CW_ADD_VATTR_TEXT(vname,1,'mitgcm_grid',gname, myThid) |
575 | #endif | |
576 | ||
577 | RETURN | RETURN |
578 | END | END |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |