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

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

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

Revision 1.6 - (show annotations) (download)
Mon Apr 2 23:48:15 2012 UTC (12 years, 1 month ago) by jmc
Branch: MAIN
CVS Tags: checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65h, checkpoint65i, checkpoint65n, checkpoint65l, checkpoint65m, checkpoint65b, checkpoint65c, checkpoint65a, checkpoint65f, checkpoint65g, checkpoint65d, checkpoint65e, checkpoint64, checkpoint65, checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint63p, checkpoint63q, checkpoint63r, checkpoint63s, checkpoint63l, checkpoint63m, checkpoint63n, checkpoint63o, checkpoint65o, checkpoint64y, checkpoint64x, checkpoint64z, checkpoint64q, checkpoint64p, checkpoint64s, checkpoint64r, checkpoint64u, checkpoint64t, checkpoint64w, checkpoint64v, checkpoint64i, checkpoint64h, checkpoint64k, checkpoint64j, checkpoint64m, checkpoint64l, checkpoint64o, checkpoint64n, checkpoint64a, checkpoint64c, checkpoint64b, checkpoint64e, checkpoint64d, checkpoint64g, checkpoint64f, HEAD
Changes since 1.5: +35 -36 lines 
updated (default comment character for namelist)
1 C $Header: /u/gcmpack/MITgcm/eesupp/src/eedata_example.F,v 1.5 2004/03/27 03:51:51 edhill Exp $
2 C $Name: $
3
4 #include "CPP_EEOPTIONS.h"
5
6 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"
17 #include "EEPARAMS.h"
18
19 C -- Local variables --
20 CHARACTER*(MAX_LEN_MBUF) msgBuf
21
22 WRITE(msgBuf,'(A)') '// Shown below is an example "eedata" file.'
23 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
24 WRITE(msgBuf,'(2A)') '// To use this example copy and paste',
25 & ' the ">" lines.'
26 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
27 WRITE(msgBuf,'(2A)') '// Then remove the text up to',
28 & ' and including the ">".'
29 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
30 WRITE(msgBuf,'(A)') '># Example "eedata" file'
31 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
32 WRITE(msgBuf,'(A)') '># Lines beginning "#" are comments'
33 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
34 WRITE(msgBuf,'(A)') '># nTx - No. threads per process in X'
35 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
36 WRITE(msgBuf,'(A)') '># nTy - No. threads per process in Y'
37 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
38 WRITE(msgBuf,'(A)') '>&EEPARMS '
39 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
40 WRITE(msgBuf,'(A)') '> nTx=1, '
41 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
42 WRITE(msgBuf,'(A)') '> nTy=1, '
43 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
44 WRITE(msgBuf,'(A)') '>& '
45 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
46 WRITE(msgBuf,'(2A)') '># Note: Some systems use & as the ',
47 & 'namelist terminator (as shown here).'
48 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
49 WRITE(msgBuf,'(A)') '># Other systems use a / character.'
50 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
51 WRITE(msgBuf,'(A)') ' '
52 CALL PRINT_MESSAGE( msgBuf,standardMessageUnit,SQUEEZE_RIGHT,1 )
53
54 RETURN
55 END
  ViewVC Help
Powered by ViewVC 1.1.22