62 |
& nwettile, |
& nwettile, |
63 |
& irecmem, |
& irecmem, |
64 |
& bimem, bjmem, |
& bimem, bjmem, |
65 |
& ilocmem,jlocmem,klocmem, |
& ilocmem,jlocmem,klocmem,iobcsmem, |
66 |
& ichkmem, icompmem, itestmem, ierrmem |
& ichkmem, icompmem, itestmem, ierrmem |
67 |
integer ncvarcomp |
integer ncvarcomp |
68 |
integer maxncvarcomps |
integer maxncvarcomps |
69 |
integer nwettile( nsx,nsy,nr ) |
integer nwettile( nsx,nsy,nr,nobcs ) |
70 |
integer irecmem ( maxgrdchecks ) |
integer irecmem ( maxgrdchecks ) |
71 |
integer bjmem ( maxgrdchecks ) |
integer bjmem ( maxgrdchecks ) |
72 |
integer bimem ( maxgrdchecks ) |
integer bimem ( maxgrdchecks ) |
73 |
integer klocmem ( maxgrdchecks ) |
integer klocmem ( maxgrdchecks ) |
74 |
|
integer iobcsmem( maxgrdchecks ) |
75 |
integer jlocmem ( maxgrdchecks ) |
integer jlocmem ( maxgrdchecks ) |
76 |
integer ilocmem ( maxgrdchecks ) |
integer ilocmem ( maxgrdchecks ) |
77 |
integer ichkmem ( maxgrdchecks ) |
integer ichkmem ( maxgrdchecks ) |
79 |
integer itestmem( maxgrdchecks ) |
integer itestmem( maxgrdchecks ) |
80 |
integer ierrmem ( maxgrdchecks ) |
integer ierrmem ( maxgrdchecks ) |
81 |
|
|
82 |
|
#ifdef ALLOW_OBCS_CONTROL |
83 |
|
_RL grdchk_maskxz(1-olx:snx+olx,nr,nsx,nsy,nobcs) |
84 |
|
_RL grdchk_maskyz(1-oly:sny+oly,nr,nsx,nsy,nobcs) |
85 |
|
#endif |
86 |
|
|
87 |
|
|
88 |
|
|
89 |
c ================================================================== |
c ================================================================== |
90 |
c END OF HEADER GRADIENT_CHECK |
c END OF HEADER GRADIENT_CHECK |
91 |
c ================================================================== |
c ================================================================== |