[MITgcm-support] Can't compile diagnostics_ini_io.F

[Jody Klymak]

Hi all,

There have been some changes to the diagnostics package since checkpoint 66c (?) that don’t compile on macOS brew-insstalled gfortran setup.  

Is it my genmake that is bad, or is the code assuming something that doesn’t work for me? 66b compiles with the same genmake...

Thanks,   Jody

-------------- next part --------------
A non-text attachment was scrubbed...
Name: Makefile
Type: application/octet-stream
Size: 398041 bytes
Desc: not available
URL: <http://mitgcm.org/pipermail/mitgcm-support/attachments/20170306/e5577bf5/attachment-0001.obj>
-------------- next part --------------


```
valdez:build jklymak$ make
Update AD_CONFIG.h and make ./mitgcmuv
make -f Makefile ./mitgcmuv
cat diagnostics_ini_io.F |  /usr/local/bin/cpp -traditional -P -DWORDLENGTH=4 -DALWAYS_USE_MPI -DALLOW_USE_MPI -DHAVE_SYSTEM -DHAVE_FDATE -DHAVE_ETIME_SBR -DHAVE_CLOC -DHAVE_SETRLSTK -DHAVE_STAT -DHAVE_NETCDF -DHAVE_FLUSH  -I.  | /Users/jklymak/Dropbox/MITgcmCVS/MITgcm/tools/set64bitConst.sh  > diagnostics_ini_io.for
mpif90 -Wunused -Wuninitialized  -O3 -funroll-loops -ftree-vectorize -ffpe-trap=invalid  -c diagnostics_ini_io.for
diagnostics_ini_io.for:2038:47:

        IF ( iL.LT.MAX_LEN_FNAM .AND. diagMdsDir(iL:iL).NE.'/' ) THEN
                                               1
Error: Syntax error in IF-expression at (1)
diagnostics_ini_io.for:2039:8:

         namBuf(1:iL) = diagMdsDir(1:iL)
        1
Error: Unclassifiable statement at (1)
diagnostics_ini_io.for:2040:24:

         WRITE(diagMdsDir(1:iL+1),'(2A)') namBuf(1:iL),'/'
                        1
Error: Syntax error in WRITE statement at (1)
diagnostics_ini_io.for:2044:52:

        WRITE(namBuf,'(3A)') ' mkdir -p ', diagMdsDir(1:iL), ' '
                                                    1
Error: Syntax error in WRITE statement at (1)
diagnostics_ini_io.for:2054:9:

       ENDIF
         1
Error: Expecting END SUBROUTINE statement at (1)
diagnostics_ini_io.for:2034:37:

       IF ( diag_mdsio.AND.(diagMdsDir.NE.' ').AND.
                                     1
Error: Symbol 'diagmdsdir' at (1) has no IMPLICIT type
diagnostics_ini_io.for:2035:27:

      &     diagMdsDirCreate.AND.(mdsioLocalDir.EQ.' ') ) THEN
                           1
Error: Symbol 'diagmdsdircreate' at (1) has no IMPLICIT type
make[1]: *** [diagnostics_ini_io.o] Error 1
make: *** [fwd_exe_target] Error 2
```

--
Jody Klymak    
http://web.uvic.ca/~jklymak/