/[MITgcm]/MITgcm/eesupp/src/nml_change_syntax.F
ViewVC logotype

Diff of /MITgcm/eesupp/src/nml_change_syntax.F

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

revision 1.1 by jmc, Mon Dec 13 04:21:52 2010 UTC revision 1.2 by jmc, Sun Dec 26 02:59:37 2010 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
 #ifndef NML_TERMINATOR  
 #define NML_TERMINATOR  ' &'  
 #else  
 #define NML_TERMINATOR  ' /'  
 #endif  
   
6  CBOP  CBOP
   
7  C     !ROUTINE: NML_CHANGE_SYNTAX  C     !ROUTINE: NML_CHANGE_SYNTAX
8    
9  C     !INTERFACE:  C     !INTERFACE:
# Line 53  C     myThid    :: my Thread Id number Line 46  C     myThid    :: my Thread Id number
46  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
47  C     == Local variables ==  C     == Local variables ==
48        INTEGER il        INTEGER il
49          CHARACTER*(2) nmlEnd
50    #ifdef NML_TERMINATOR
51          PARAMETER( nmlEnd = ' /' )
52    #else
53          PARAMETER( nmlEnd = ' &' )
54    #endif
55    
56  #ifdef NML_EXTENDED_F77  #ifdef NML_EXTENDED_F77
57  C     i0      :: position of active "=" (end of variable name definition)  C     i0      :: position of active "=" (end of variable name definition)
58  C     i1      :: position of 1rst left parenthesis  C     i1      :: position of 1rst left parenthesis
# Line 75  CEOP Line 75  CEOP
75        il = MAX(ILNBLNK(record),1)        il = MAX(ILNBLNK(record),1)
76        IF ( il .EQ. 2 ) THEN        IF ( il .EQ. 2 ) THEN
77         IF ( record(1:2) .EQ. ' &' ) THEN         IF ( record(1:2) .EQ. ' &' ) THEN
78          record(1:2) = NML_TERMINATOR          record(1:2) = nmlEnd
79         ENDIF         ENDIF
80        ENDIF        ENDIF
81    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22