/[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.9 by edhill, Sat Mar 27 03:51:51 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: EEWRITE_EEENV
8    
9    C     !INTERFACE:
10        SUBROUTINE EEWRITE_EEENV        SUBROUTINE EEWRITE_EEENV
11  C     /==========================================================\        IMPLICIT NONE
12  C     | SUBROUTINE EERWITE_EEENV                                 |  
13  C     | o Write execution environment summary                    |  C     !DESCRIPTION:
14  C     |==========================================================|  C     *==========================================================*
15  C     | Write a summary of the execution environment as          |  C     | SUBROUTINE EERWITE\_EEENV                                  
16  C     | configured for this run. The execution environment is    |  C     | o Write execution environment summary                    
17  C     | the computational mode in which the model operatoes. It  |  C     *==========================================================*
18  C     | includes the computational grid but does not include any |  C     | Write a summary of the execution environment as          
19  C     | model specific nuerical parameters.                      |  C     | configured for this run. The execution environment is    
20  C     \==========================================================/  C     | the computational mode in which the model operatoes. It  
21    C     | includes the computational grid but does not include any  
22    C     | model specific nuerical parameters.                      
23    C     *==========================================================*
24    
25  C     === Global data ===  C     !USES:
26    C     == Global data ==
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "EESUPPORT.h"  #include "EESUPPORT.h"
30    
31  CEndOfInterface  C     !LOCAL VARIABLES:
32    C     == Local variables ==
33  C     === Local variables ===  C     msgBuf :: Temp. for building text messages.
34        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
35    CEOP
36                
37        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
38         & '// ======================================================='
39        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
40       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
41    
42        WRITE(msgBuf,'(A)') '// Computational Grid Specification ( see files "SIZE.h" )'        WRITE(msgBuf,'(A)')
43         & '// Computational Grid Specification ( see files "SIZE.h" )'
44        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
45       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
46    
47        WRITE(msgBuf,'(A)') '//                                  ( and "eedata"       )'        WRITE(msgBuf,'(A)')
48         & '//                                  ( and "eedata"       )'
49        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
50       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
51    
52        WRITE(msgBuf,'(A)') '// ======================================================='        WRITE(msgBuf,'(A)')
53         & '// ======================================================='
54        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
55       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
56    
57        WRITE(msgBuf,'(A,I5,A)') '     nPx =',nPx,' ; /* No. processes in X */'        WRITE(msgBuf,'(A,I5,A)') '     nPx =',nPx,
58         & ' ; /* No. processes in X */'
59        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
60       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
61    
62        WRITE(msgBuf,'(A,I5,A)') '     nPy =',nPy,' ; /* No. processes in Y */'        WRITE(msgBuf,'(A,I5,A)') '     nPy =',nPy,
63         & ' ; /* No. processes in Y */'
64        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
65       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
66    
67        WRITE(msgBuf,'(A,I5,A)') '     nSx =',nSx,' ; /* No. tiles in X per process */'        WRITE(msgBuf,'(A,I5,A)') '     nSx =',nSx,
68         & ' ; /* No. tiles in X per process */'
69        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
70       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
71    
72        WRITE(msgBuf,'(A,I5,A)') '     nSy =',nSy,' ; /* No. tiles in Y per process */'        WRITE(msgBuf,'(A,I5,A)') '     nSy =',nSy,
73         & ' ; /* No. tiles in Y per process */'
74        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
75       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
76    
77        WRITE(msgBuf,'(A,I5,A)') '     sNx =',sNx,' ; /* Tile size in X */'        WRITE(msgBuf,'(A,I5,A)') '     sNx =',sNx,
78         & ' ; /* Tile size in X */'
79        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
80       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
81    
82        WRITE(msgBuf,'(A,I5,A)') '     sNy =',sNy,' ; /* Tile size in Y */'        WRITE(msgBuf,'(A,I5,A)') '     sNy =',sNy,
83         & ' ; /* Tile size in Y */'
84        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
85       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
86    
# Line 75  C     === Local variables === Line 94  C     === Local variables ===
94        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
95       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
96    
97        WRITE(msgBuf,'(A,I5,A)') '     nTx =',nTx,' ; /* No. threads in X per process */'        WRITE(msgBuf,'(A,I5,A)') '     nTx =',nTx,
98         & ' ; /* No. threads in X per process */'
99        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
100       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
101    
102        WRITE(msgBuf,'(A,I5,A)') '     nTy =',nTy,' ; /* No. threads in Y per process */'        WRITE(msgBuf,'(A,I5,A)') '     nTy =',nTy,
103         & ' ; /* No. threads in Y per process */'
104        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
105       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
106    
107        WRITE(msgBuf,'(A,I5,A)') '      Nr =', Nr,' ; /* No. levels in the vertical   */ '        WRITE(msgBuf,'(A,I5,A)') '      Nr =', Nr,
108         & ' ; /* No. levels in the vertical   */ '
109        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
110       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
111    
# Line 132  C     === Local variables === Line 154  C     === Local variables ===
154        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
155       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
156    
157          WRITE(msgBuf,'(A,L4,A)') 'useCoupler=', useCoupler,
158         & ' ; /* Flag used to control communications with */'
159          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
160         &  SQUEEZE_RIGHT , 1)
161          WRITE(msgBuf,'(A,A,A)') '          ', '     ' ,
162         & '   /*  other model components, through a coupler */'
163          CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
164         &  SQUEEZE_RIGHT , 1)
165    
166    
167        WRITE(msgBuf,'(A)') '                '        WRITE(msgBuf,'(A)') '                '
168        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,        CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
169       &  SQUEEZE_RIGHT , 1)       &  SQUEEZE_RIGHT , 1)
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22