/[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.2 by jmc, Wed Jan 11 20:49:30 2017 UTC revision 1.3 by jmc, Fri Mar 24 21:51:43 2017 UTC
# Line 41  C     == Local variables == Line 41  C     == Local variables ==
41    
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
        iL = ILNBLNK( diagMdsDir )  
 C      append "/", if necessary  
        IF ( iL.LT.MAX_LEN_FNAM .AND. diagMdsDir(iL:iL).NE.'/' ) THEN  
         namBuf(1:iL) = diagMdsDir(1:iL)  
         WRITE(diagMdsDir(1:iL+1),'(2A)') namBuf(1:iL),'/'  
        ENDIF  
47  C      create directory  C      create directory
48         iL = ILNBLNK( diagMdsDir ) -1          iL = ILNBLNK( diagMdsDir )
49         WRITE(namBuf,'(3A)') ' mkdir -p ', diagMdsDir(1:iL), ' '          WRITE(namBuf,'(3A)') ' mkdir -p ', diagMdsDir(1:iL), ' '
50         pIL = 1 + ILNBLNK( namBuf )          pIL = 1 + ILNBLNK( namBuf )
51         WRITE(standardMessageUnit,'(3A)')          WRITE(standardMessageUnit,'(4A)')
52       & '==> SYSTEM CALL (from DIAGNOSTICS_INI_IO): >',namBuf(1:pIL),'<'       &       ' ==> SYSTEM CALL (from DIAGNOSTICS_INI_IO): ',
53         CALL SYSTEM( namBuf(1:pIL) )       &       '>', namBuf(1:pIL), '<'
54         WRITE(msgBuf,'(A)') ' '          CALL SYSTEM( namBuf(1:pIL) )
55         CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,          WRITE(msgBuf,'(A)') ' '
56       &                     SQUEEZE_RIGHT, myThid )          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
57         &                      SQUEEZE_RIGHT, myThid )
58  #else  #else
59          WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_INI_IO: cannot call ',          WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_INI_IO: ',
60       &       'mkdir -> please create diagMdsDir manually'       &       'cannot call mkdir -> please create diagMdsDir manually'
61          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
62          WRITE(msgBuf,'(A,A)') 'S/R DIAGNOSTICS_INI_IO: and ',          WRITE(msgBuf,'(2A)') 'S/R DIAGNOSTICS_INI_IO: ',
63       &       'set diagMdsDirCreate=.FALSE. in data.diagnostics'       &       'and set diagMdsDirCreate=.FALSE. in data.diagnostics'
64          CALL PRINT_ERROR( msgBuf, myThid )          CALL PRINT_ERROR( msgBuf, myThid )
65          CALL ALL_PROC_DIE( 0 )          CALL ALL_PROC_DIE( 0 )
66          STOP 'ABNORMAL END: S/R DIAGNOSTICS_INI_IO'          STOP 'ABNORMAL END: S/R DIAGNOSTICS_INI_IO'
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22