search

CEMPD / SMOKE

Create emissions inputs for multiple air quality modeling systems with unmatched speed and flexibility
https://www.cmascenter.org/smoke/
45 stars 21 forks source link

normbeis361.f and gfortran #27

Closed miroi closed 4 years ago

miroi commented 4 years ago

Well, upon compilation with gfortran 4.9.2 I got this error:

cd /home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/smoke/src/../Linux2_x86_64gfort;  gfortran -I/home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/ioapi/ioapi/fixed_src -I/home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/smoke/src/inc -I/home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/ioapi/Linux2_x86_64gfort                 -ffixed-line-length-132  -fno-backslash          -O3 -ffast-math -funroll-loops -m64   -DAUTO_ARRAYS=1 -DF90=1 -DFLDMN=1 -DFSTR_L=int -DIOAPI_NO_STDOUT=1 -DNEED_ARGS=1 -c /home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/smoke/src/biog/normbeis361.f
/home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/smoke/src/biog/normbeis361.f:163.22:

      INTEGER :: IS_AG, IS_TAG
                      1
Error: Return type mismatch of function 'is_ag' at (1) (INTEGER(4)/LOGICAL(4))
/home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/smoke/src/biog/normbeis361.f:693.36:

                                IF (IS_AG( M, MODIS12 , MODIS14, NLCD81,
                                    1
Error: IF clause at (1) requires a scalar LOGICAL expression
/home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/smoke/src/biog/normbeis361.f:163.30:

      INTEGER :: IS_AG, IS_TAG
                              1
Error: Return type mismatch of function 'is_tag' at (1) (INTEGER(4)/LOGICAL(4))
/home/milias/work/air-pollution-modelling/SMOKE/installed/subsys/smoke/src/biog/normbeis361.f:719.40:

                                    IF( IS_TAG (M,MODIS14) ) THEN
                                        1
Error: IF clause at (1) requires a scalar LOGICAL expression
Makefile:348: recipe for target 'normbeis361.o' failed
make: *** [normbeis361.o] Error 1