<div dir="ltr"><div><div><div><div>Yes you are correct. I misspelled it. It would be <b>pkg/obcs/obcs_calc.F.</b><br><br></div>I was seeing some papers on Internal Gravity Waves generation through the mentioned barotropic flow.<br><br></div>I will try with whatever you said. <br><br></div>Thanks,<br></div>Subhajit Kar<br><br></div><div class="gmail_extra"><br><div class="gmail_quote">On Tue, May 8, 2018 at 8:49 PM, Martin Losch <span dir="ltr"><<a href="mailto:Martin.Losch@awi.de" target="_blank">Martin.Losch@awi.de</a>></span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">I don’t know what you are doing with pkg/mypackage. I was under the impression (but might be wrong) that this is a template for buildung your own package. All you need to do is modify obcs_calc.F either in place (pkg/obcs/obcs_calc.F) or make a copy in your “code” directory and edit that.<br>
<br>
Your fortran compile error appears, because you are defining uVel etc. twice, once as a DUMMY argument in obcs_calc.F and once DYNVARS.h (have a look at obcs_calc.f to see this). <br>
<br>
Do you really want to use the dynamic variable etaN (which is updated each timestep) to compute u on the boundary? In that case you need to either pass etaN, just like uVel, etc as a DUMMY variable to obcs_calc.F, or rename all dummy variables (uVel -> uVelLoc or similar, etc.) within obcs_calc.F and then include DYNVARS.h.<br>
<br>
Or do you want to prescribe the surface elevation along the boundary so that it is consistent with u0*sin(omega*t)? Then you need to asign values just like u0, omega etc. also to OBXeta or similar.<br>
<span class="HOEnZb"><font color="#888888"><br>
Martin<br>
</font></span><div class="HOEnZb"><div class="h5"><br>
> On 8. May 2018, at 15:22, subhajit kar <<a href="mailto:subhajitkar19@gmail.com">subhajitkar19@gmail.com</a>> wrote:<br>
> <br>
> Thank you Martin. The problem has now been resolved.<br>
> <br>
> The problem I have been trying to model is tidal flow over a 3-D Gaussian topography.<br>
> <br>
> I have been modeling tidal flow as - u = u0*sin(omega*t) - c/H*etaN in the western boundary. Here, u0, omega, c and H are constant and etaN is the free-surface elevation.<br>
> <br>
> To model this I have modified the obcs_calc.F in pkg/mypackage module.<br>
> <br>
> However, etaN variable is defined in DYNVARS.h and while including this library I am getting errors <br>
> <br>
> <br>
> <br>
> Real*8 uVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,<wbr>Nr,nSx,nSy)<br>
> 1<br>
> Error: COMMON attribute conflicts with DUMMY attribute in ‘uvel’ at (1)<br>
> obcs_calc.f:3154:18:<br>
> <br>
> Real*8 vVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,<wbr>Nr,nSx,nSy)<br>
> 1<br>
> Error: COMMON attribute conflicts with DUMMY attribute in ‘vvel’ at (1)<br>
> obcs_calc.f:3155:18:<br>
> <br>
> Real*8 wVel (1-OLx:sNx+OLx,1-OLy:sNy+OLy,<wbr>Nr,nSx,nSy)<br>
> 1<br>
> Error: COMMON attribute conflicts with DUMMY attribute in ‘wvel’ at (1)<br>
> <br>
> <br>
> While not included, I am getting - etaN has no implicit type.<br>
> <br>
> <br>
> Is there anything wrong I am doing and also how to get rid of it.<br>
> <br>
> Thanks,<br>
> Subhajit Kar <br>
> <br>
> <br>
> On Tue, May 8, 2018 at 1:06 PM, Martin Losch <<a href="mailto:Martin.Losch@awi.de">Martin.Losch@awi.de</a>> wrote:<br>
> Hi,<br>
> you need to provide more details about what you actually did to the code in order to get specific help.<br>
> <br>
> This error you could have googled. I found this in stackoverflow,<br>
> <a href="https://stackoverflow.com/questions/26887689/error-non-numeric-character-in-statement-at-label-1" rel="noreferrer" target="_blank">https://stackoverflow.com/<wbr>questions/26887689/error-non-<wbr>numeric-character-in-<wbr>statement-at-label-1</a><br>
> <br>
> you compiler assumes fixed source form with file suffixes .f, but you start your code in column 4 (<br>
> <br>
> C234567<br>
> LOGICAL OBCSisON<br>
> <br>
> In fixed source form, the first 6 columns are served for special labels, comment characters, etc.<br>
> <br>
> Martin<br>
> <br>
> <br>
>> On 8. May 2018, at 08:59, subhajit kar <<a href="mailto:subhajitkar19@gmail.com">subhajitkar19@gmail.com</a>> wrote:<br>
>> <br>
>> Hello MITgcm users,<br>
>> <br>
>> <br>
>> I am trying model a toy-problem of Internal Gravity Waves generation through a tidal flow.<br>
>> <br>
>> I have modified the obcs_calc.F in the pkg/mypackage. I am getting several errors - <br>
>> <br>
>> <br>
>> <br>
>> obcs_calc.f:3008:3:<br>
>> <br>
>> LOGICAL OBCSisON<br>
>> 1<br>
>> Error: Non-numeric character in statement label at (1)<br>
>> obcs_calc.f:3008:3:<br>
>> <br>
>> LOGICAL OBCSisON<br>
>> 1<br>
>> Error: Unclassifiable statement at (1)<br>
>> <br>
>> Error: Non-numeric character in statement label at (1)<br>
>> obcs_calc.f:3009:3:<br>
>> <br>
>> COMMON /OBCS_PACKAGE/ OBCSisON<br>
>> 1<br>
>> Error: Unclassifiable statement at (1)<br>
>> obcs_calc.f:3033:1:<br>
>> <br>
>> & OB_Jnorth,OB_Jsouth,OB_Ieast,<wbr>OB_Iwest,<br>
>> 1<br>
>> Error: Non-numeric character in statement label at (1)<br>
>> <br>
>> ......<br>
>> ......<br>
>> ......<br>
>> <br>
>> <br>
>> Does anyone know how to remove this errors?<br>
>> <br>
>> Thanks for the help.<br>
>> <br>
>> <br>
>> Regrads,<br>
>> Subhajit Kar<br>
>> <br>
>> ______________________________<wbr>_________________<br>
>> MITgcm-support mailing list<br>
>> <a href="mailto:MITgcm-support@mitgcm.org">MITgcm-support@mitgcm.org</a><br>
>> <a href="http://mailman.mitgcm.org/mailman/listinfo/mitgcm-support" rel="noreferrer" target="_blank">http://mailman.mitgcm.org/<wbr>mailman/listinfo/mitgcm-<wbr>support</a><br>
> <br>
> <br>
> ______________________________<wbr>_________________<br>
> MITgcm-support mailing list<br>
> <a href="mailto:MITgcm-support@mitgcm.org">MITgcm-support@mitgcm.org</a><br>
> <a href="http://mailman.mitgcm.org/mailman/listinfo/mitgcm-support" rel="noreferrer" target="_blank">http://mailman.mitgcm.org/<wbr>mailman/listinfo/mitgcm-<wbr>support</a><br>
> <br>
> <br>
> ______________________________<wbr>_________________<br>
> MITgcm-support mailing list<br>
> <a href="mailto:MITgcm-support@mitgcm.org">MITgcm-support@mitgcm.org</a><br>
> <a href="http://mailman.mitgcm.org/mailman/listinfo/mitgcm-support" rel="noreferrer" target="_blank">http://mailman.mitgcm.org/<wbr>mailman/listinfo/mitgcm-<wbr>support</a><br>
<br>
______________________________<wbr>_________________<br>
MITgcm-support mailing list<br>
<a href="mailto:MITgcm-support@mitgcm.org">MITgcm-support@mitgcm.org</a><br>
<a href="http://mailman.mitgcm.org/mailman/listinfo/mitgcm-support" rel="noreferrer" target="_blank">http://mailman.mitgcm.org/<wbr>mailman/listinfo/mitgcm-<wbr>support</a><br>
</div></div></blockquote></div><br></div>