120 |
& 'S-facing vertical fraction of open cell',myThid) |
& 'S-facing vertical fraction of open cell',myThid) |
121 |
|
|
122 |
C Write the GRID.h variables |
C Write the GRID.h variables |
123 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rC',0,rC,myThid) |
CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid) |
124 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rF',0,rF,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rC',rC,myThid) |
125 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drC',0,drC,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rF',rF,myThid) |
126 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drF',0,drF,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drC',drC,myThid) |
127 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'saFac',0,saFac,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drF',drF,myThid) |
128 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xC',0,xC,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'saFac',saFac,myThid) |
129 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yC',0,yC,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xC',xC,myThid) |
130 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xG',0,xG,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yC',yC,myThid) |
131 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yG',0,yG,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xG',xG,myThid) |
132 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxC',0,dxC,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yG',yG,myThid) |
133 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyC',0,dyC,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxC',dxC,myThid) |
134 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxF',0,dxF,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyC',dyC,myThid) |
135 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyF',0,dyF,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxF',dxF,myThid) |
136 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxG',0,dxG,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyF',dyF,myThid) |
137 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyG',0,dyG,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxG',dxG,myThid) |
138 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxV',0,dxV,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyG',dyG,myThid) |
139 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyU',0,dyU,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxV',dxV,myThid) |
140 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rA',0,rA,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyU',dyU,myThid) |
141 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAw',0,rAw,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rA',rA,myThid) |
142 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAs',0,rAs,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAw',rAw,myThid) |
143 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAz',0,rAz,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAs',rAs,myThid) |
144 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCori',0,fCori,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAz',rAz,myThid) |
145 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCoriG',0,fCoriG,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCori',fCori,myThid) |
146 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'R_low',0,R_low,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid) |
147 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'Ro_surf',0,Ro_surf,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'R_low',R_low,myThid) |
148 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacC',0,HFacC,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid) |
149 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacW',0,HFacW,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacC',HFacC,myThid) |
150 |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacS',0,HFacS,myThid) |
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacW',HFacW,myThid) |
151 |
|
CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacS',HFacS,myThid) |
152 |
|
|
153 |
|
|
154 |
RETURN |
RETURN |