| File |
Line number |
Procedure |
Code |
|
./model/src/ini_curvilinear_grid.F |
233 |
INI_CURVILINEAR_GRID |
mncFn(i:i) = ' ' |
|
./model/src/ini_curvilinear_grid.F |
235 |
INI_CURVILINEAR_GRID |
write(mncFn,'(a)') 'mitgrid' |
|
./model/src/ini_curvilinear_grid.F |
242 |
INI_CURVILINEAR_GRID |
CALL MNC_FILE_CLOSE_ALL_MATCHING(mncFn, myThid) |
|
./model/src/ini_curvilinear_grid.F |
243 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_UDIM(mncFn, 1, myThid) |
|
./model/src/ini_curvilinear_grid.F |
244 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_CITER(mncFn, 2, -1, -1, -1, myThid) |
|
./model/src/ini_curvilinear_grid.F |
245 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_SET_UDIM(mncFn, 1, myThid) |
|
./model/src/ini_curvilinear_grid.F |
246 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XC', xC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
247 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'XG', xG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
248 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YC', yC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
249 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'YG', yG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
250 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxC',dxC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
251 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyC',dyC, myThid) |
|
./model/src/ini_curvilinear_grid.F |
252 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxF',dxF, myThid) |
|
./model/src/ini_curvilinear_grid.F |
253 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyF',dyF, myThid) |
|
./model/src/ini_curvilinear_grid.F |
254 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxG',dxG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
255 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyG',dyG, myThid) |
|
./model/src/ini_curvilinear_grid.F |
256 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dxV',dxV, myThid) |
|
./model/src/ini_curvilinear_grid.F |
257 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'dyU',dyU, myThid) |
|
./model/src/ini_curvilinear_grid.F |
258 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rA', rA, myThid) |
|
./model/src/ini_curvilinear_grid.F |
259 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAz',rAz, myThid) |
|
./model/src/ini_curvilinear_grid.F |
260 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAw',rAw, myThid) |
|
./model/src/ini_curvilinear_grid.F |
261 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rAs',rAs, myThid) |
|
./model/src/ini_curvilinear_grid.F |
262 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleCS',angleCosC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
263 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'AngleSN',angleSinC,myThid) |
|
./model/src/ini_curvilinear_grid.F |
53 |
INI_CURVILINEAR_GRID |
CHARACTER*(80) mncFn |