/[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.4 by cnh, Wed Oct 28 03:11:34 1998 UTC
# Line 25  CEndOfInterface Line 25  CEndOfInterface
25  C     === Local variables ===  C     === Local variables ===
26        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
27                
28        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
29         & '// ======================================================='
30        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
31       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
32    
33        WRITE(msgBuf,'(A)') '// Computational Grid Specification ( see files "SIZE.h" )'        WRITE(msgBuf,'(A)')
34         & '// Computational Grid Specification ( see files "SIZE.h" )'
35        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
36       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
37    
38        WRITE(msgBuf,'(A)') '//                                  ( and "eedata"       )'        WRITE(msgBuf,'(A)')
39         & '//                                  ( and "eedata"       )'
40        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
41       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
42    
43        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
44         & '// ======================================================='
45        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
46       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
47    
48        WRITE(msgBuf,'(A,I5,A)') '     nPx =',nPx,' ; /* No. processes in X */'        WRITE(msgBuf,'(A,I5,A)') '     nPx =',nPx,
49         & ' ; /* No. processes in X */'
50        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
51       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
52    
53        WRITE(msgBuf,'(A,I5,A)') '     nPy =',nPy,' ; /* No. processes in Y */'        WRITE(msgBuf,'(A,I5,A)') '     nPy =',nPy,
54         & ' ; /* No. processes in Y */'
55        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
56       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
57    
58        WRITE(msgBuf,'(A,I5,A)') '     nSx =',nSx,' ; /* No. tiles in X per process */'        WRITE(msgBuf,'(A,I5,A)') '     nSx =',nSx,
59         & ' ; /* No. tiles in X per process */'
60        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
61       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
62    
63        WRITE(msgBuf,'(A,I5,A)') '     nSy =',nSy,' ; /* No. tiles in Y per process */'        WRITE(msgBuf,'(A,I5,A)') '     nSy =',nSy,
64         & ' ; /* No. tiles in Y per process */'
65        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
66       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
67    
68        WRITE(msgBuf,'(A,I5,A)') '     sNx =',sNx,' ; /* Tile size in X */'        WRITE(msgBuf,'(A,I5,A)') '     sNx =',sNx,
69         & ' ; /* Tile size in X */'
70        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
71       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
72    
73        WRITE(msgBuf,'(A,I5,A)') '     sNy =',sNy,' ; /* Tile size in Y */'        WRITE(msgBuf,'(A,I5,A)') '     sNy =',sNy,
74         & ' ; /* Tile size in Y */'
75        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
76       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
77    
# Line 75  C     === Local variables === Line 85  C     === Local variables ===
85        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
86       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
87    
88        WRITE(msgBuf,'(A,I5,A)') '     nTx =',nTx,' ; /* No. threads in X per process */'        WRITE(msgBuf,'(A,I5,A)') '     nTx =',nTx,
89         & ' ; /* No. threads in X per process */'
90        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
91       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
92    
93        WRITE(msgBuf,'(A,I5,A)') '     nTy =',nTy,' ; /* No. threads in Y per process */'        WRITE(msgBuf,'(A,I5,A)') '     nTy =',nTy,
94         & ' ; /* No. threads in Y per process */'
95        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
96       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
97    
98        WRITE(msgBuf,'(A,I5,A)') '      Nr =', Nr,' ; /* No. levels in the vertical   */ '        WRITE(msgBuf,'(A,I5,A)') '      Nr =', Nr,
99         & ' ; /* No. levels in the vertical   */ '
100        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
101       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
102    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22