File |
Line number |
Procedure |
Code |
./pkg/mnc/mnc_cw_model_attr.F |
100 |
MNC_CW_SET_GATTR |
& 4*exch2_nNeighbours(tnum), exch2_pij(1,1,tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
102 |
MNC_CW_SET_GATTR |
& exch2_nNeighbours(tnum), exch2_oi(1,tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
104 |
MNC_CW_SET_GATTR |
& exch2_nNeighbours(tnum), exch2_oj(1,tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
107 |
MNC_CW_SET_GATTR |
& 'exch2_isNedge', 1, exch2_isNedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
109 |
MNC_CW_SET_GATTR |
& 'exch2_isSedge', 1, exch2_isSedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
111 |
MNC_CW_SET_GATTR |
& 'exch2_isEedge', 1, exch2_isEedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
113 |
MNC_CW_SET_GATTR |
& 'exch2_isWedge', 1, exch2_isWedge(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
116 |
MNC_CW_SET_GATTR |
& 'exch2_myFace', 1, exch2_myFace(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
118 |
MNC_CW_SET_GATTR |
& 'exch2_txGlobalo', 1, exch2_txGlobalo(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
120 |
MNC_CW_SET_GATTR |
& 'exch2_tyGlobalo', 1, exch2_tyGlobalo(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
122 |
MNC_CW_SET_GATTR |
& 'exch2_tBasex', 1, exch2_tBasex(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
124 |
MNC_CW_SET_GATTR |
& 'exch2_tBasey', 1, exch2_tBasey(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
13 |
MNC_CW_SET_GATTR |
I bi, bj, tnum, |
./pkg/mnc/mnc_cw_model_attr.F |
36 |
MNC_CW_SET_GATTR |
integer myThid, bi,bj, tnum |
./pkg/mnc/mnc_cw_model_attr.F |
81 |
MNC_CW_SET_GATTR |
CALL MNC_FILE_ADD_ATTR_INT(fname,'tile_number', 1, tnum, myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
94 |
MNC_CW_SET_GATTR |
& 'exch2_nNeighbours', 1, exch2_nNeighbours(tnum), myThid) |
./pkg/mnc/mnc_cw_model_attr.F |
96 |
MNC_CW_SET_GATTR |
& 'exch2_neighbourId', exch2_nNeighbours(tnum), |
./pkg/mnc/mnc_cw_model_attr.F |
97 |
MNC_CW_SET_GATTR |
& exch2_neighbourId(1,tnum), myThid) |