155 |
ierr_grdchk = 0 |
ierr_grdchk = 0 |
156 |
cphadmtlm( |
cphadmtlm( |
157 |
fcref = fc |
fcref = fc |
158 |
cphadmtlm fcref = objf_state_final(45,4,1,1) |
cphadmtlm fcref = objf_state_final(45,4,1,1,1) |
159 |
cphadmtlm) |
cphadmtlm) |
160 |
|
|
161 |
print *, 'ph-check fcref = ', fcref |
print *, 'ph-check fcref = ', fcref |
255 |
g_fc = 0. |
g_fc = 0. |
256 |
cphadmtlm do j=1,sny |
cphadmtlm do j=1,sny |
257 |
cphadmtlm do i=1,snx |
cphadmtlm do i=1,snx |
258 |
cphadmtlm g_objf_state_final(i,j,1,1) = 0. |
cphadmtlm g_objf_state_final(i,j,1,1,1) = 0. |
259 |
|
cphadmtlm g_objf_state_final(i,j,1,1,2) = 0. |
260 |
cphadmtlm enddo |
cphadmtlm enddo |
261 |
cphadmtlm enddo |
cphadmtlm enddo |
262 |
cphadmtlm) |
cphadmtlm) |
263 |
call g_the_main_loop( mytime, myiter, mythid ) |
call g_the_main_loop( mytime, myiter, mythid ) |
264 |
cphadmtlm( |
cphadmtlm( |
265 |
ftlxxmemo = g_fc |
ftlxxmemo = g_fc |
266 |
cphadmtlm ftlxxmemo = g_objf_state_final(45,4,1,1) |
cphadmtlm ftlxxmemo = g_objf_state_final(45,4,1,1,1) |
267 |
cphadmtlm) |
cphadmtlm) |
268 |
_BARRIER |
_BARRIER |
269 |
c-- |
c-- |
304 |
call the_main_loop( mytime, myiter, mythid ) |
call the_main_loop( mytime, myiter, mythid ) |
305 |
cphadmtlm( |
cphadmtlm( |
306 |
fcpertplus = fc |
fcpertplus = fc |
307 |
cphadmtlm fcpertplus = objf_state_final(45,4,1,1) |
cphadmtlm fcpertplus = objf_state_final(45,4,1,1,1) |
308 |
cphadmtlm) |
cphadmtlm) |
309 |
print *, 'ph-check fcpertplus = ', fcpertplus |
print *, 'ph-check fcpertplus = ', fcpertplus |
310 |
_BARRIER |
_BARRIER |