/[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.8 by adcroft, Tue May 18 17:39:21 1999 UTC revision 1.14 by jamous, Tue Mar 26 18:03:50 2002 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: 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     K - Loop counter  C     == Local variables ==
37  C     iUnit - Work variable for IO unit number  C     iUnit  :: Work variable for IO unit number
38  C     errIO - IO unit error flag  C     errIO  :: IO unit error flag
39        INTEGER K, IL  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
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       & 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
# Line 74  C     is made. Line 84  C     is made.
84  C  C
85        notUsingXPeriodicity       = .FALSE.        notUsingXPeriodicity       = .FALSE.
86        notUsingYPeriodicity       = .FALSE.        notUsingYPeriodicity       = .FALSE.
87          useCubedSphereExchange     = .FALSE.
88        usingMPI                   = .FALSE.        usingMPI                   = .FALSE.
89        nTx                        = 1        nTx                        = 1
90        nTy                        = 1        nTy                        = 1
# Line 142  C--   Report contents of parameter file Line 153  C--   Report contents of parameter file
153        READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3)        READ(UNIT=iUnit,NML=EEPARMS,IOSTAT=errIO,err=3)
154        IF ( errIO .GE. 0 ) GOTO 4        IF ( errIO .GE. 0 ) GOTO 4
155      3 CONTINUE      3 CONTINUE
156    #ifndef TARGET_PWR3
157         WRITE(msgBuf,'(A)')         WRITE(msgBuf,'(A)')
158       &  'S/R EESET_PARMS'       &  'S/R EESET_PARMS'
159         CALL PRINT_ERROR( msgBuf , 1)         CALL PRINT_ERROR( msgBuf , 1)
# Line 153  C--   Report contents of parameter file Line 165  C--   Report contents of parameter file
165         CALL PRINT_ERROR( msgBuf , 1)         CALL PRINT_ERROR( msgBuf , 1)
166         CALL EEDATA_EXAMPLE         CALL EEDATA_EXAMPLE
167         STOP 'ABNORMAL END: S/R EESET_PARMS'         STOP 'ABNORMAL END: S/R EESET_PARMS'
168    #endif
169     4  CONTINUE     4  CONTINUE
170    
171  C--   Execution Environment parameter file read  C--   Execution Environment parameter file read
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22