File |
Line number |
Procedure |
Code |
./model/src/ini_curvilinear_grid.F |
212 |
INI_CURVILINEAR_GRID |
mncFn(i:i) = ' ' |
./model/src/ini_curvilinear_grid.F |
214 |
INI_CURVILINEAR_GRID |
write(mncFn,'(a)') 'mitgrid' |
./model/src/ini_curvilinear_grid.F |
221 |
INI_CURVILINEAR_GRID |
CALL MNC_FILE_CLOSE_ALL_MATCHING(mncFn, myThid) |
./model/src/ini_curvilinear_grid.F |
222 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_UDIM(mncFn, 1, myThid) |
./model/src/ini_curvilinear_grid.F |
223 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_CITER(mncFn, 2, -1, -1, -1, myThid) |
./model/src/ini_curvilinear_grid.F |
224 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_UDIM(mncFn, 1, myThid) |
./model/src/ini_curvilinear_grid.F |
225 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XC', xC, myThid) |
./model/src/ini_curvilinear_grid.F |
226 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XG', xG, myThid) |
./model/src/ini_curvilinear_grid.F |
227 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YC', yC, myThid) |
./model/src/ini_curvilinear_grid.F |
228 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YG', yG, myThid) |
./model/src/ini_curvilinear_grid.F |
229 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxC',dxC, myThid) |
./model/src/ini_curvilinear_grid.F |
230 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyC',dyC, myThid) |
./model/src/ini_curvilinear_grid.F |
231 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxF',dxF, myThid) |
./model/src/ini_curvilinear_grid.F |
232 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyF',dyF, myThid) |
./model/src/ini_curvilinear_grid.F |
233 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxG',dxG, myThid) |
./model/src/ini_curvilinear_grid.F |
234 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyG',dyG, myThid) |
./model/src/ini_curvilinear_grid.F |
235 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxV',dxV, myThid) |
./model/src/ini_curvilinear_grid.F |
236 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyU',dyU, myThid) |
./model/src/ini_curvilinear_grid.F |
237 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rA', rA, myThid) |
./model/src/ini_curvilinear_grid.F |
238 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAz',rAz, myThid) |
./model/src/ini_curvilinear_grid.F |
239 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAw',rAw, myThid) |
./model/src/ini_curvilinear_grid.F |
240 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAs',rAs, myThid) |
./model/src/ini_curvilinear_grid.F |
241 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleCS',angleCosC,myThid) |
./model/src/ini_curvilinear_grid.F |
242 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleSN',angleSinC,myThid) |
./model/src/ini_curvilinear_grid.F |
55 |
INI_CURVILINEAR_GRID |
CHARACTER*(80) mncFn |