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

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

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


Revision 1.2 - (hide annotations) (download)
Thu Apr 23 20:37:29 1998 UTC (26 years, 1 month ago) by cnh
Branch: MAIN
CVS Tags: checkpoint11, checkpoint10, checkpoint13, checkpoint15, checkpoint14, checkpoint17, checkpoint19, checkpoint18, redigm, checkpoint20, checkpoint21, checkpoint22, checkpoint5, checkpoint4, checkpoint7, checkpoint6, checkpoint1, checkpoint3, checkpoint2, checkpoint9, checkpoint8, kloop1, kloop2, checkpoint12, checkpoint16, branch-point-rdot
Branch point for: checkpoint7-4degree-ref, branch-rdot
Changes since 1.1: +1 -1 lines
Changed $Id to $Header

1 cnh 1.2 C $Header: eedata_example.F,v 1.1.1.1 1998/04/22 19:15:30 cnh Exp $
2 cnh 1.1
3     #include "CPP_EEOPTIONS.h"
4    
5     C /==========================================================\
6     C | S/R EEDATA_EXAMPLE |
7     C | o Write example eedata file |
8     C |==========================================================|
9     C | Notes |
10     C | ===== |
11     C | Some systems require & as the namelist terminator. |
12     C | Other systems use a / character. |
13     C \==========================================================/
14     SUBROUTINE EEDATA_EXAMPLE
15     #include "SIZE.h"
16     #include "EEPARAMS.h"
17    
18     C -- Local variables --
19     CHARACTER*(MAX_LEN_MBUF) msgBuf
20    
21     WRITE(msgBuf,'(A)') '// Shown below is an example "eedata" file.'
22     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
23     WRITE(msgBuf,'(A)') '// To use this example copy and paste the '
24     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
25     WRITE(msgBuf,'(A)') '// ">" lines. Then remove the text up to'
26     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
27     WRITE(msgBuf,'(A)') '// and including the ">".'
28     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
29     WRITE(msgBuf,'(A)') '># Example "eedata" file'
30     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
31     WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments'
32     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
33     WRITE(msgBuf,'(A)') '># nTx - No. threads per process in X'
34     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
35     WRITE(msgBuf,'(A)') '># nTy - No. threads per process in Y'
36     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
37     WRITE(msgBuf,'(A)') '>&EEPARMS '
38     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
39     WRITE(msgBuf,'(A)') '>nTx=1,nTy=1 '
40     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
41     WRITE(msgBuf,'(A)') '>/ '
42     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
43     WRITE(msgBuf,'(A)') '># Note: Some systems use & as the '
44     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
45     WRITE(msgBuf,'(A)') '># namelist terminator. Other systems'
46     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
47     WRITE(msgBuf,'(A)') '># use a / character (as shown here).'
48     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
49     WRITE(msgBuf,'(A)') ' '
50     CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1)
51     C
52     RETURN
53     END
54    

  ViewVC Help
Powered by ViewVC 1.1.22