139 |
& 'y u-velocity separation',myThid) |
& 'y u-velocity separation',myThid) |
140 |
CALL MNC_CW_ADD_VATTR_TEXT('rA','description', |
CALL MNC_CW_ADD_VATTR_TEXT('rA','description', |
141 |
& 'r-face area',myThid) |
& 'r-face area',myThid) |
142 |
CALL MNC_CW_ADD_VATTR_TEXT('rAw','description', |
C Its pointless to write blank attributes so these should be |
143 |
& '',myThid) |
C filled in. |
144 |
CALL MNC_CW_ADD_VATTR_TEXT('rAs','description', |
C CALL MNC_CW_ADD_VATTR_TEXT('rAw','description', |
145 |
& '',myThid) |
C & '',myThid) |
146 |
CALL MNC_CW_ADD_VATTR_TEXT('rAz','description', |
C CALL MNC_CW_ADD_VATTR_TEXT('rAs','description', |
147 |
& '',myThid) |
C & '',myThid) |
148 |
|
C CALL MNC_CW_ADD_VATTR_TEXT('rAz','description', |
149 |
|
C & '',myThid) |
150 |
CALL MNC_CW_ADD_VATTR_TEXT('fCori','description', |
CALL MNC_CW_ADD_VATTR_TEXT('fCori','description', |
151 |
& 'Coriolis f',myThid) |
& 'Coriolis f',myThid) |
152 |
CALL MNC_CW_ADD_VATTR_TEXT('fCoriG','description', |
CALL MNC_CW_ADD_VATTR_TEXT('fCoriG','description', |