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

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

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

revision 1.12 by adcroft, Tue May 29 14:01:36 2001 UTC revision 1.13 by cnh, Fri Sep 21 03:54:34 2001 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "CPP_EEOPTIONS.h"  #include "CPP_EEOPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: EESET_PARMS
8    
9    C     !INTERFACE:
10        SUBROUTINE EESET_PARMS        SUBROUTINE EESET_PARMS
 C     /==========================================================\  
 C     | SUBROUTINE EESET_PARMS                                   |  
 C     | o Routine to set model "parameters"                      |  
 C     |==========================================================|  
 C     | This routine is called from the high-level wrapper       |  
 C     | after multi-process paralle processing has started but   |  
 C     | before multi-threaded parallelism. THe routine reads an  |  
 C     | an "execution environment" input parameter file holding  |  
 C     | information about the number of threads at run-time.     |  
 C     \==========================================================/  
11        IMPLICIT NONE        IMPLICIT NONE
12    
13  C     === Global variables ===  C     !DESCRIPTION:
14    C     *==========================================================*
15    C     | SUBROUTINE EESET_PARMS                                    
16    C     | o Routine to set model "parameters"                      
17    C     *==========================================================*
18    C     | This routine is called from the high-level wrapper        
19    C     | after multi-process paralle processing has started but    
20    C     | before multi-threaded parallelism. THe routine reads an  
21    C     | an "execution environment" input parameter file holding  
22    C     | information about the number of threads at run-time.      
23    C     *==========================================================*
24    
25    C     !USES:
26    C     == Global variables ==
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
29  #include "EESUPPORT.h"  #include "EESUPPORT.h"
30  CEndOfInterface        INTEGER  IFNBLNK
31          EXTERNAL IFNBLNK
32          INTEGER  ILNBLNK
33          EXTERNAL ILNBLNK
34    
35  C     === Local variables ===  C     !LOCAL VARIABLES:
36  C     iUnit - Work variable for IO unit number  C     == Local variables ==
37  C     errIO - IO unit error flag  C     iUnit  :: Work variable for IO unit number
38    C     errIO  :: IO unit error flag
39    C     IL     :: Temp. for index strings
40    C     msgBuf :: Temp. for textual I/O
41    C     record :: Temp. for textual I/O
42        INTEGER IL        INTEGER IL
43        INTEGER errIO        INTEGER errIO
44        INTEGER iUnit        INTEGER iUnit
45        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
46        CHARACTER*(MAX_LEN_PREC) record        CHARACTER*(MAX_LEN_PREC) record
       INTEGER  IFNBLNK  
       EXTERNAL IFNBLNK  
       INTEGER  ILNBLNK  
       EXTERNAL ILNBLNK  
47        NAMELIST /EEPARMS/        NAMELIST /EEPARMS/
48       & nTx, nTy,usingMPI,useCubedSphereExchange       & nTx, nTy,usingMPI,useCubedSphereExchange
49    CEOP
50    
51    
52  C--   For now these options are fixed as the code does  C--   For now these options are fixed as the code does
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22