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