/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_ini_io.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_ini_io.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by gforget, Wed Jan 11 00:22:35 2017 UTC revision 1.2 by jmc, Wed Jan 11 20:49:30 2017 UTC
# Line 42  C     == Local variables == Line 42  C     == Local variables ==
42        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
43    
44        IF ( diag_mdsio.AND.(diagMdsDir.NE.' ').AND.        IF ( diag_mdsio.AND.(diagMdsDir.NE.' ').AND.
45       &     diagMdsDirCreate.AND.(mdsioLocalDir.EQ.' ') ) THEN       &     diagMdsDirCreate.AND.(mdsioLocalDir.EQ.' ') ) THEN
46  #ifdef HAVE_SYSTEM  #ifdef HAVE_SYSTEM
47         iL = ILNBLNK( diagMdsDir )         iL = ILNBLNK( diagMdsDir )
48  C      append "/", if necessary  C      append "/", if necessary
# Line 52  C      append "/", if necessary Line 52  C      append "/", if necessary
52         ENDIF         ENDIF
53  C      create directory  C      create directory
54         iL = ILNBLNK( diagMdsDir ) -1         iL = ILNBLNK( diagMdsDir ) -1
55         WRITE(namBuf,'(2A)') ' mkdir -p ', diagMdsDir(1:iL)         WRITE(namBuf,'(3A)') ' mkdir -p ', diagMdsDir(1:iL), ' '
56         pIL = 1 + ILNBLNK( namBuf )         pIL = 1 + ILNBLNK( namBuf )
57         WRITE(msgBuf,'(3A)')         WRITE(standardMessageUnit,'(3A)')
58       & '==> SYSTEM CALL (from DIAGNOSTICS_INI_IO): >',namBuf(1:pIL),'<'       & '==> SYSTEM CALL (from DIAGNOSTICS_INI_IO): >',namBuf(1:pIL),'<'
59           CALL SYSTEM( namBuf(1:pIL) )
60           WRITE(msgBuf,'(A)') ' '
61         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
62       &                     SQUEEZE_RIGHT, myThid )       &                     SQUEEZE_RIGHT, myThid )
        CALL SYSTEM( namBuf(1:pIL) )  
63  #else  #else
64          WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_INI_IO: cannot call ',          WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_INI_IO: cannot call ',
65       &       'mkdir -> please create diagMdsDir manually'       &       'mkdir -> please create diagMdsDir manually'
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22