/[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.1 by cnh, Wed Apr 22 19:15:30 1998 UTC revision 1.6 by jmc, Mon Apr 2 23:48:15 2012 UTC
# Line 1  Line 1 
1  C $Id$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
 C     /==========================================================\  
 C     | S/R EEDATA_EXAMPLE                                       |  
 C     | o Write example eedata file                              |  
 C     |==========================================================|  
 C     | Notes                                                    |  
 C     | =====                                                    |  
 C     | Some systems require & as the namelist terminator.       |  
 C     | Other systems use a / character.                         |  
 C     \==========================================================/  
6        SUBROUTINE EEDATA_EXAMPLE        SUBROUTINE EEDATA_EXAMPLE
7    C     *==========================================================*
8    C     | S/R EEDATA\_EXAMPLE                                      |
9    C     | o Write example eedata file                              |
10    C     *==========================================================*
11    C     | Notes:                                                   |
12    C     |    Some systems require & as the namelist terminator.    |
13    C     |    Other systems use a / character.                      |
14    C     *==========================================================*
15          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.1  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.22