LHEEA / HOS-ocean

This project has migrated to GitLab: https://gitlab.com/lheea/HOS-Ocean
https://gitlab.com/lheea/HOS-Ocean
GNU General Public License v3.0
71 stars 35 forks source link

I encountered an error during compilation. #25

Open banzhiqing opened 1 year ago

banzhiqing commented 1 year ago

Dear developers,

Greetings! I would like to inquire about an issue I encountered while compiling Hos-ocean on Ubuntu 20.04. Could you kindly assist me in understanding the root cause of the following error? sources/HOS/velocities.f90:1259:41:

1256 | DO ii2=1,n2 | 2 ...... 1259 | k=SQRT(kx(ii1)2+ky(ii2)2) | 1 Warning: Array reference at (1) out of bounds (64 > 1) in loop beginning at (2) sources/HOS/velocities.f90:1260:63:

1256 | DO ii2=1,n2 | 2 ...... 1260 | M(index1,index2) = exp(i(kx(ii1)x(i1)+ky(ii2)y(i2)))EXP(k*eta(i1,i2)) | 1 Warning: Array reference at (1) out of bounds (64 > 1) in loop beginning at (2) sources/HOS/velocities.f90:1260:70:

1253 | DO i2=1,n2 | 2 ......

sources/utilities/Bivar.f90:524:49:

524 | if ( vpdt(x1,y1,x2,y2,xii,yii) ) 36,25,26 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sources/utilities/Bivar.f90:530:50:

530 | if(vpdt(x2,y2,x3,y3,xii,yii)) 36,27,28 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sources/utilities/Bivar.f90:534:50:

534 | if(vpdt(x3,y3,x1,y1,xii,yii)) 36,29,30 | 1 Warning: Fortran 2018 deleted feature: Arithmetic IF statement at (1) sources/utilities/Bivar.f90:648:50:

648 | if(vpdt(x1,y1,x2,y2,xii,yii)) 46,45,56 | 1

gducrozet commented 1 year ago

It seems that there is an issue with the size of the allocated vectors. As a first test, you can try to force the compilation of the whole set of routines make clean make all

banzhiqing commented 1 year ago

Thank you very much for your responses; my questions have been resolved.