131 |
& 'coordinates','XC YC RC iter', myThid) |
& 'coordinates','XC YC RC iter', myThid) |
132 |
#endif |
#endif |
133 |
|
|
134 |
|
#ifdef ALLOW_DIFFKR_CONTROL |
135 |
|
CALL MNC_CW_ADD_VNAME('adDIFFKR', 'Cen_xy_Hn__C__t', 4,5, myThid) |
136 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adDIFFKR','units','[cost]/[m^2/s]', myThid) |
137 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adDIFFKR','long_name', |
138 |
|
& 'adjoint vertical diffusion', myThid) |
139 |
|
CALL MNC_CW_ADD_VATTR_TEXT('adDIFFKR', |
140 |
|
& 'coordinates','XC YC RC iter', myThid) |
141 |
|
#endif |
142 |
|
|
143 |
#ifdef ALLOW_EXF |
#ifdef ALLOW_EXF |
144 |
c |
c |
145 |
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) |