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