compile pb using key_agrif and key_nosignedzero

[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 SubLoopCreation?.c made in 3_4 rev 3942

Change SubLoopCreation?.c made in 3_5 rev 3943

[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.