141 |
& 'coordinates','XC YC RC iter', myThid) |
& 'coordinates','XC YC RC iter', myThid) |
142 |
#endif |
#endif |
143 |
|
|
144 |
|
#ifdef ALLOW_KAPGM_CONTROL |
145 |
|
CALL MNC_CW_ADD_VNAME('adkapgm', 'Cen_xy_Hn__C__t', 4,5, myThid) |
146 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adkapgm', |
147 |
|
& 'units','[cost]/[m^2/s]', myThid) |
148 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adkapgm', |
149 |
|
& 'long_name','adjoint isopycnal diffusion', myThid) |
150 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adkapgm', |
151 |
|
& 'coordinates','XC YC RC iter', myThid) |
152 |
|
#endif |
153 |
|
|
154 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
155 |
c |
c |
156 |
CALL MNC_CW_ADD_VNAME('adustress', 'Cen_xy_Hn__-__t', 3,4, myThid) |
CALL MNC_CW_ADD_VNAME('adustress', 'Cen_xy_Hn__-__t', 3,4, myThid) |