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

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

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

revision 1.3 by cnh, Sat Aug 22 17:51:05 1998 UTC revision 1.6 by cnh, Sun Feb 4 14:38:43 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
# Line 14  C     | the computational mode in which Line 15  C     | the computational mode in which
15  C     | includes the computational grid but does not include any |  C     | includes the computational grid but does not include any |
16  C     | model specific nuerical parameters.                      |  C     | model specific nuerical parameters.                      |
17  C     \==========================================================/  C     \==========================================================/
18          IMPLICIT NONE
19    
20  C     === Global data ===  C     === Global data ===
21  #include "SIZE.h"  #include "SIZE.h"
# Line 25  CEndOfInterface Line 27  CEndOfInterface
27  C     === Local variables ===  C     === Local variables ===
28        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
29                
30        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
31         & '// ======================================================='
32        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
33       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
34    
35        WRITE(msgBuf,'(A)') '// Computational Grid Specification ( see files "SIZE.h" )'        WRITE(msgBuf,'(A)')
36         & '// Computational Grid Specification ( see files "SIZE.h" )'
37        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
38       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
39    
40        WRITE(msgBuf,'(A)') '//                                  ( and "eedata"       )'        WRITE(msgBuf,'(A)')
41         & '//                                  ( and "eedata"       )'
42        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
43       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
44    
45        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
46         & '// ======================================================='
47        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
48       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
49    
50        WRITE(msgBuf,'(A,I5,A)') '     nPx =',nPx,' ; /* No. processes in X */'        WRITE(msgBuf,'(A,I5,A)') '     nPx =',nPx,
51         & ' ; /* No. processes in X */'
52        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
53       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
54    
55        WRITE(msgBuf,'(A,I5,A)') '     nPy =',nPy,' ; /* No. processes in Y */'        WRITE(msgBuf,'(A,I5,A)') '     nPy =',nPy,
56         & ' ; /* No. processes in Y */'
57        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
58       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
59    
60        WRITE(msgBuf,'(A,I5,A)') '     nSx =',nSx,' ; /* No. tiles in X per process */'        WRITE(msgBuf,'(A,I5,A)') '     nSx =',nSx,
61         & ' ; /* No. tiles in X per process */'
62        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
63       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
64    
65        WRITE(msgBuf,'(A,I5,A)') '     nSy =',nSy,' ; /* No. tiles in Y per process */'        WRITE(msgBuf,'(A,I5,A)') '     nSy =',nSy,
66         & ' ; /* No. tiles in Y per process */'
67        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
68       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
69    
70        WRITE(msgBuf,'(A,I5,A)') '     sNx =',sNx,' ; /* Tile size in X */'        WRITE(msgBuf,'(A,I5,A)') '     sNx =',sNx,
71         & ' ; /* Tile size in X */'
72        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
73       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
74    
75        WRITE(msgBuf,'(A,I5,A)') '     sNy =',sNy,' ; /* Tile size in Y */'        WRITE(msgBuf,'(A,I5,A)') '     sNy =',sNy,
76         & ' ; /* Tile size in Y */'
77        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
78       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
79    
# Line 75  C     === Local variables === Line 87  C     === Local variables ===
87        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
88       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
89    
90        WRITE(msgBuf,'(A,I5,A)') '     nTx =',nTx,' ; /* No. threads in X per process */'        WRITE(msgBuf,'(A,I5,A)') '     nTx =',nTx,
91         & ' ; /* No. threads in X per process */'
92        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
93       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
94    
95        WRITE(msgBuf,'(A,I5,A)') '     nTy =',nTy,' ; /* No. threads in Y per process */'        WRITE(msgBuf,'(A,I5,A)') '     nTy =',nTy,
96         & ' ; /* No. threads in Y per process */'
97        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
98       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
99    
100        WRITE(msgBuf,'(A,I5,A)') '      Nr =', Nr,' ; /* No. levels in the vertical   */ '        WRITE(msgBuf,'(A,I5,A)') '      Nr =', Nr,
101         & ' ; /* No. levels in the vertical   */ '
102        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
103       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
104    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22