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

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

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

revision 1.3 by adcroft, Mon May 24 15:15:10 1999 UTC revision 1.6 by jmc, Mon Apr 2 23:48:15 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6        SUBROUTINE EEDATA_EXAMPLE        SUBROUTINE EEDATA_EXAMPLE
7  C     /==========================================================\  C     *==========================================================*
8  C     | S/R EEDATA_EXAMPLE                                       |  C     | S/R EEDATA\_EXAMPLE                                      |
9  C     | o Write example eedata file                              |  C     | o Write example eedata file                              |
10  C     |==========================================================|  C     *==========================================================*
11  C     | Notes                                                    |  C     | Notes:                                                   |
12  C     | =====                                                    |  C     |    Some systems require & as the namelist terminator.    |
13  C     | Some systems require & as the namelist terminator.       |  C     |    Other systems use a / character.                      |
14  C     | Other systems use a / character.                         |  C     *==========================================================*
 C     \==========================================================/  
15        IMPLICIT NONE        IMPLICIT NONE
16  #include "SIZE.h"  #include "SIZE.h"
17  #include "EEPARAMS.h"  #include "EEPARAMS.h"
18    
19  C     -- Local variables --  C     -- Local variables --
20        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
21          
22        WRITE(msgBuf,'(A)') '// Shown below is an example "eedata" file.'        WRITE(msgBuf,'(A)') '// Shown below is an example "eedata" file.'
23        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
24        WRITE(msgBuf,'(A)') '// To use this example copy and paste the  '        WRITE(msgBuf,'(2A)') '// To use this example copy and paste',
25        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &                     ' the ">" lines.'
26        WRITE(msgBuf,'(A)') '// ">" lines. Then remove the text up to'        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
27        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        WRITE(msgBuf,'(2A)') '// Then remove the text up to',
28        WRITE(msgBuf,'(A)') '// and including the ">".'       &                     ' and including the ">".'
29        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
30        WRITE(msgBuf,'(A)') '># Example "eedata" file'        WRITE(msgBuf,'(A)') '># Example "eedata" file'
31        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
32        WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments'        WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments'
33        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
34        WRITE(msgBuf,'(A)') '># nTx - No. threads per process in X'        WRITE(msgBuf,'(A)') '># nTx - No. threads per process in X'
35        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
36        WRITE(msgBuf,'(A)') '># nTy - No. threads per process in Y'        WRITE(msgBuf,'(A)') '># nTy - No. threads per process in Y'
37        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
38        WRITE(msgBuf,'(A)') '>&EEPARMS              '        WRITE(msgBuf,'(A)') '>&EEPARMS '
39        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
40        WRITE(msgBuf,'(A)') '>nTx=1,nTy=1           '        WRITE(msgBuf,'(A)') '> nTx=1,  '
41        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
42        WRITE(msgBuf,'(A)') '>/                     '        WRITE(msgBuf,'(A)') '> nTy=1,  '
43        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
44        WRITE(msgBuf,'(A)') '># Note: Some systems use & as the '        WRITE(msgBuf,'(A)') '>&        '
45        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
46        WRITE(msgBuf,'(A)') '># namelist terminator. Other systems'        WRITE(msgBuf,'(2A)') '># Note: Some systems use & as the ',
47        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)       &                     'namelist terminator (as shown here).'
48        WRITE(msgBuf,'(A)') '># use a / character (as shown here).'        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
49        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        WRITE(msgBuf,'(A)') '>#       Other systems use a / character.'
50          CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
51        WRITE(msgBuf,'(A)') ' '        WRITE(msgBuf,'(A)') ' '
52        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)        CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
53  C  
54        RETURN        RETURN
55        END        END
   
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22