| 264 |
|
|
| 265 |
#endif /* ALLOW_SSS0_CONTROL */ |
#endif /* ALLOW_SSS0_CONTROL */ |
| 266 |
|
|
| 267 |
|
#ifdef ALLOW_HFACC_CONTROL |
| 268 |
|
else if ( grdchkvarindex .eq. 20 ) then |
| 269 |
|
il=ilnblnk( xx_hfacc_file ) |
| 270 |
|
write(fname(1:80),'(80a)') ' ' |
| 271 |
|
write(fname(1:80),'(2a,i10.10)') |
| 272 |
|
& xx_hfacc_file(1:il),'.',optimcycle |
| 273 |
|
|
| 274 |
|
#ifdef ALLOW_HFACC3D_CONTROL |
| 275 |
|
|
| 276 |
|
call active_read_xyz( fname, tmpfld3d, icvrec, |
| 277 |
|
& doglobalread, ladinit, optimcycle, |
| 278 |
|
& mythid, dummy) |
| 279 |
|
|
| 280 |
|
xx_comp_ref = tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) |
| 281 |
|
xx_comp_pert = xx_comp_ref + grdchk_eps |
| 282 |
|
tmpfld3d( itilepos,jtilepos,layer,itile,jtile ) = xx_comp_pert |
| 283 |
|
|
| 284 |
|
call active_write_xyz( fname, tmpfld3d, icvrec, |
| 285 |
|
& optimcycle, |
| 286 |
|
& mythid, dummy) |
| 287 |
|
|
| 288 |
|
#else |
| 289 |
|
|
| 290 |
|
call active_read_xy( fname, tmpfld2d, icvrec, |
| 291 |
|
& doglobalread, ladinit, optimcycle, |
| 292 |
|
& mythid, dummy) |
| 293 |
|
|
| 294 |
|
xx_comp_ref = tmpfld2d( itilepos,jtilepos,itile,jtile ) |
| 295 |
|
xx_comp_pert = xx_comp_ref + grdchk_eps |
| 296 |
|
tmpfld2d( itilepos,jtilepos,itile,jtile ) = xx_comp_pert |
| 297 |
|
|
| 298 |
|
call active_write_xy( fname, tmpfld2d, icvrec, |
| 299 |
|
& optimcycle, |
| 300 |
|
& mythid, dummy) |
| 301 |
|
|
| 302 |
|
#endif /* ALLOW_HFACC3D_CONTROL */ |
| 303 |
|
#endif /* ALLOW_HFACC_CONTROL */ |
| 304 |
else |
else |
| 305 |
ce --> this index does not exist yet. |
ce --> this index does not exist yet. |
| 306 |
endif |
endif |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch