Opened 8 years ago

Closed 8 years ago

#1091 closed Bug (fixed)

compile pb using key_agrif and key_nosignedzero

Reported by: clevy Owned by: nemo
Priority: low Milestone:
Component: OCE Version: release-3.5
Severity: Keywords:
Cc: Branch review:
MP ready?: Task progress:

Description (last modified by clevy)

Using nemo_v3_5 with key_agrif and key_nosignedzero activated, compilation stops with following errors:

mpif90 -o lib_fortran.o -I/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/inc -fdefault-real-8 -O3 -funroll-all-loops -fcray-pointer -ffree-line-length-none -I/opt/local/include -I/Users/clairelevy/Documents/WORK/XIOS/inc -c /Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:370.36:

REAL(wp), Dimension(1: SIZE ( pb,1 ))
SIGN_ARRAY_1D 1

Error: Symbol 'pb' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:367.3:

FUNCTION SIGN_ARRAY_1D( pa, pb )1

Error: Function result 'sign_array_1d' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:392.36:

REAL(wp), Dimension(1: SIZE ( pb,1 ),1: SIZE ( pb,2 )&

1

Error: Symbol 'pb' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:389.3:

FUNCTION SIGN_ARRAY_2D(pa,pb)1

Error: Function result 'sign_array_2d' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:414.36:

REAL(wp), Dimension(1: SIZE ( pb,1 ),1: SIZE ( pb,2 )&

1

Error: Symbol 'pb' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:411.3:

FUNCTION SIGN_ARRAY_3D(pa,pb)1

Error: Function result 'sign_array_3d' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:437.36:

REAL(wp), Dimension(1: SIZE ( pb,1 ))
SIGN_ARRAY_1D_A 1

Error: Symbol 'pb' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:434.3:

FUNCTION SIGN_ARRAY_1D_A(pa,pb)1

Error: Function result 'sign_array_1d_a' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:459.36:

REAL(wp), Dimension(1: SIZE ( pb,1 ),1: SIZE ( pb,2 )&

1

Error: Symbol 'pb' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:456.3:

FUNCTION SIGN_ARRAY_2D_A(pa,pb)1

Error: Function result 'sign_array_2d_a' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:482.36:

REAL(wp), Dimension(1: SIZE ( pb,1 ),1: SIZE ( pb,2 )&

1

Error: Symbol 'pb' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:479.3:

FUNCTION SIGN_ARRAY_3D_A(pa,pb)1

Error: Function result 'sign_array_3d_a' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:505.36:

REAL(wp), Dimension(1: SIZE ( pa,1 ))
SIGN_ARRAY_1D_B 1

Error: Symbol 'pa' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:502.3:

FUNCTION SIGN_ARRAY_1D_B(pa,pb)1

Error: Function result 'sign_array_1d_b' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:527.36:

REAL(wp), Dimension(1: SIZE ( pa,1 ),1: SIZE ( pa,2 )&

1

Error: Symbol 'pa' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:524.3:

FUNCTION SIGN_ARRAY_2D_B(pa,pb)1

Error: Function result 'sign_array_2d_b' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:550.36:

REAL(wp), Dimension(1: SIZE ( pa,1 ),1: SIZE ( pa,2 )&

1

Error: Symbol 'pa' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:547.3:

FUNCTION SIGN_ARRAY_3D_B(pa,pb)1

Error: Function result 'sign_array_3d_b' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:496.33:

WHERE ( pb ≥ 0.e0 ) ; SIGN_ARRAY_3D_A = ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:497.33:

ELSEWHERE ; SIGN_ARRAY_3D_A =-ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:473.33:

WHERE ( pb ≥ 0.e0 ) ; SIGN_ARRAY_2D_A = ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:474.33:

ELSEWHERE ; SIGN_ARRAY_2D_A =-ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:450.33:

WHERE ( pb ≥ 0.e0 ) ; SIGN_ARRAY_1D_A = ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:451.33:

ELSEWHERE ; SIGN_ARRAY_1D_A =-ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape

FUNCTION SIGN_ARRAY_2D_B(pa,pb)1

Error: Function result 'sign_array_2d_b' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:550.36:

REAL(wp), Dimension(1: SIZE ( pa,1 ),1: SIZE ( pa,2 )&

1

Error: Symbol 'pa' is used before it is typed at (1)
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:547.3:

FUNCTION SIGN_ARRAY_3D_B(pa,pb)1

Error: Function result 'sign_array_3d_b' at (1) has no IMPLICIT type
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:496.33:

WHERE ( pb ≥ 0.e0 ) ; SIGN_ARRAY_3D_A = ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:497.33:

ELSEWHERE ; SIGN_ARRAY_3D_A =-ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:473.33:

WHERE ( pb ≥ 0.e0 ) ; SIGN_ARRAY_2D_A = ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:474.33:

ELSEWHERE ; SIGN_ARRAY_2D_A =-ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:450.33:

WHERE ( pb ≥ 0.e0 ) ; SIGN_ARRAY_1D_A = ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
/Users/clairelevy/Documents/WORK/REF35/NEMOGCM/CONFIG/AGRIF/BLD/ppsrc/nemo/lib_fortran.f90:451.33:

ELSEWHERE ; SIGN_ARRAY_1D_A =-ABS(pa)

1

Error: WHERE assignment target at (1) has inconsistent shape
Fatal Error: Error count reached limit of 25.
fcm_internal compile failed (256)
make: * [lib_fortran.o] Error 1

Change Sub Loop Creation?.c made in 3_4 rev 3942

Change Sub Loop Creation?.c made in 3_5 rev 3943

Commit History (2)

ChangesetAuthorTimeChangeLog
3943clevy2013-06-28T09:28:33+02:00

change AGRIF/LIB to allow compatibility with key_nosignedzero in v3_5, see ticket #1091

3942clevy2013-06-28T09:23:21+02:00

change AGRIF/LIB to allow compatibility with key_nosignedzero, see ticket #1091

Attachments (1)

SubLoopCreation.c (25.5 KB) - added by dupontf 8 years ago.

Download all attachments as: .zip

Change History (3)

Changed 8 years ago by dupontf

comment:1 Changed 8 years ago by dupontf

Sounds like a problem with the AGRIF converter program placing the declaration of the output array before the declaration of the incoming array, when the output array is defined by the dimensions of the incoming array. Search attachment for "fred": a crude correction dating back to NEMO2.3. I remember mentioning the problem to Laurent Debreu but you may need to try a bigger bell.

Fred.

comment:2 Changed 8 years ago by clevy

  • Description modified (diff)
  • Resolution set to fixed
  • Status changed from new to closed
Note: See TracTickets for help on using tickets.