/[MITgcm]/MITgcm/pkg/mnc/mnc_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_readparms.F

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

revision 1.28 by edhill, Fri Mar 10 05:50:23 2006 UTC revision 1.29 by jmc, Tue Aug 15 16:13:29 2006 UTC
# Line 44  C     !LOCAL VARIABLES: Line 44  C     !LOCAL VARIABLES:
44  C     Functions  C     Functions
45        integer ILNBLNK        integer ILNBLNK
46    
47    C-----
48    C     Need some work to make MNC multi-threaded safe.
49    C     For now, switch it off (otherwise, it's hanging up somewhere)
50          IF ( nThreads.GT.1 ) THEN
51            _BEGIN_MASTER( myThid )
52            WRITE(msgBuf,'(2A)') '**WARNING** MNC_READPARMS: ',
53         &                       'useMNC unsafe with multi-threads'
54            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
55         &                      SQUEEZE_RIGHT , myThid )
56            WRITE(msgBuf,'(2A)') '**WARNING** MNC_READPARMS: ',
57         &                       'for now, switch useMNC to FALSE'
58            CALL PRINT_MESSAGE( msgBuf, errorMessageUnit,
59         &                      SQUEEZE_RIGHT , myThid )
60            useMNC = .FALSE.
61            _END_MASTER( myThid )
62            RETURN
63          ENDIF
64    C-----
65    
66  C     Set default values for MNC run-time parameters  C     Set default values for MNC run-time parameters
67        DO i = 1,MAX_LEN_FNAM        DO i = 1,MAX_LEN_FNAM
68          mnc_outdir_str(i:i) = ' '          mnc_outdir_str(i:i) = ' '
Legend:
Removed from v.1.28  
changed lines
  Added in v.1.29
  ViewVC Help
Powered by ViewVC 1.1.22