/[MITgcm]/MITgcm/pkg/ptracers/ptracers_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_readparms.F

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

revision 1.13 by mlosch, Sun Nov 28 23:50:59 2004 UTC revision 1.19 by jmc, Sat May 14 22:50:15 2005 UTC
# Line 40  C     msgBuf     :: message buffer Line 40  C     msgBuf     :: message buffer
40  C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS  C     PTRACERS_taveFreq :: Frequency with which time-averaged PTRACERS
41  C                          are written to post-processing files.  C                          are written to post-processing files.
42        NAMELIST /PTRACERS_PARM01/        NAMELIST /PTRACERS_PARM01/
43         &     PTRACERS_dumpFreq,
44       &     PTRACERS_taveFreq,       &     PTRACERS_taveFreq,
45       &     PTRACERS_monitorFreq,       &     PTRACERS_monitorFreq,
46       &     PTRACERS_advScheme,       &     PTRACERS_advScheme,
47         &     PTRACERS_ImplVertAdv,
48       &     PTRACERS_diffKh,       &     PTRACERS_diffKh,
49       &     PTRACERS_diffK4,       &     PTRACERS_diffK4,
50       &     PTRACERS_diffKr,       &     PTRACERS_diffKr,
51       &     PTRACERS_diffKrNr,       &     PTRACERS_diffKrNr,
52       &     PTRACERS_useGMRedi,       &     PTRACERS_useGMRedi,
53       &     PTRACERS_useKPP,       &     PTRACERS_useKPP,
54         &     PTRACERS_Iter0,
55       &     PTRACERS_numInUse,       &     PTRACERS_numInUse,
56       &     PTRACERS_initialFile,       &     PTRACERS_initialFile,
57       &     PTRACERS_useRecords,       &     PTRACERS_useRecords,
58       &     PTRACERS_names,       &     PTRACERS_names,
59       &     PTRACERS_long_names,       &     PTRACERS_long_names,
60       &     PTRACERS_units,       &     PTRACERS_units,
      &     PTRACERS_read_mnc,  
61       &     PTRACERS_write_mnc       &     PTRACERS_write_mnc
62    
63  C     This routine has been called by the main model so we set our  C     This routine has been called by the main model so we set our
# Line 63  C     internal flag to indicate we are i Line 65  C     internal flag to indicate we are i
65        PTRACERSisON=.TRUE.        PTRACERSisON=.TRUE.
66    
67  C     Set defaults values for parameters in PTRACERS.h  C     Set defaults values for parameters in PTRACERS.h
68          PTRACERS_dumpFreq    = dumpFreq
69        PTRACERS_taveFreq    = taveFreq        PTRACERS_taveFreq    = taveFreq
70        PTRACERS_monitorFreq = monitorFreq        PTRACERS_monitorFreq = monitorFreq
71          PTRACERS_Iter0   = 0
72        PTRACERS_numInUse=-1        PTRACERS_numInUse=-1
73        DO iTracer=1,PTRACERS_num        DO iTracer=1,PTRACERS_num
74          PTRACERS_advScheme(iTracer)=saltAdvScheme          PTRACERS_advScheme(iTracer)=saltAdvScheme
75            PTRACERS_ImplVertAdv(iTracer) = .FALSE.
76          PTRACERS_diffKh(iTracer)=diffKhS          PTRACERS_diffKh(iTracer)=diffKhS
77          PTRACERS_diffK4(iTracer)=diffK4S          PTRACERS_diffK4(iTracer)=diffK4S
78          PTRACERS_diffKr(iTracer)=UNSET_RL          PTRACERS_diffKr(iTracer)=UNSET_RL
# Line 84  C     Set defaults values for parameters Line 89  C     Set defaults values for parameters
89          ENDDO          ENDDO
90        ENDDO        ENDDO
91        PTRACERS_useRecords  = .FALSE.        PTRACERS_useRecords  = .FALSE.
       PTRACERS_read_mdsio  = .TRUE.  
       PTRACERS_read_mnc    = .FALSE.  
92        PTRACERS_write_mdsio = .TRUE.        PTRACERS_write_mdsio = .TRUE.
93        PTRACERS_write_mnc   = .FALSE.        PTRACERS_write_mnc   = .FALSE.
94    
# Line 139  C     Check that enough parameters were Line 142  C     Check that enough parameters were
142            STOP 'ABNORMAL END: S/R PTRACERS_READPARMS'            STOP 'ABNORMAL END: S/R PTRACERS_READPARMS'
143          ENDIF          ENDIF
144        ENDDO        ENDDO
145    #ifndef INCLUDE_IMPLVERTADV_CODE
146          DO iTracer=1,PTRACERS_numInUse
147           IF ( PTRACERS_ImplVertAdv(iTracer) ) THEN
148            WRITE(msgBuf,'(A)')
149         &   'PTRACERS_READPARMS: #undef INCLUDE_IMPLVERTADV_CODE'
150            CALL PRINT_ERROR( msgBuf , myThid)
151            WRITE(msgBuf,'(2A,I2,A)') 'PTRACERS_READPARMS:',
152         &   ' but pTracers_ImplVertAdv(',iTracer,' ) is TRUE'
153            CALL PRINT_ERROR( msgBuf , myThid)
154            STOP 'ABNORMAL END: S/R PTRACERS_READPARMS'
155           ENDIF
156          ENDDO
157    #endif
158        DO iTracer=1,PTRACERS_numInUse        DO iTracer=1,PTRACERS_numInUse
159          PTRACERS_useGMRedi(iTracer) = PTRACERS_useGMRedi(iTracer)          PTRACERS_useGMRedi(iTracer) = PTRACERS_useGMRedi(iTracer)
160       &                           .AND.useGMRedi       &                           .AND.useGMRedi
# Line 154  C     Check that enough parameters were Line 170  C     Check that enough parameters were
170  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
171        IF (useMNC) THEN        IF (useMNC) THEN
172  C       Set the default I/O Types  C       Set the default I/O Types
         IF (PTRACERS_read_mnc) PTRACERS_read_mdsio = .FALSE.  
         IF ( (.NOT. outputTypesInclusive)  
      &       .AND. PTRACERS_write_mnc ) pickup_write_mdsio = .FALSE.  
173          IF ( (.NOT. outputTypesInclusive)          IF ( (.NOT. outputTypesInclusive)
174       &       .AND. PTRACERS_write_mnc ) PTRACERS_write_mdsio = .FALSE.       &       .AND. PTRACERS_write_mnc ) PTRACERS_write_mdsio = .FALSE.
175                    
# Line 176  C--   Print a summary of pTracer paramet Line 189  C--   Print a summary of pTracer paramet
189        CALL WRITE_0D_I( PTRACERS_numInUse, INDEX_NONE,        CALL WRITE_0D_I( PTRACERS_numInUse, INDEX_NONE,
190       &   'PTRACERS_numInUse =',       &   'PTRACERS_numInUse =',
191       &   ' /* number of tracers */')       &   ' /* number of tracers */')
192          CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,
193         &   'PTRACERS_Iter0 =',
194         &   ' /* timestep number when tracers are initialized */')
195          CALL WRITE_0D_R8(PTRACERS_dumpFreq, INDEX_NONE,
196         &   'PTRACERS_dumpFreq =',
197         &   ' /* Frequency^-1 for snapshot output (s) */')
198        CALL WRITE_0D_R8(PTRACERS_taveFreq, INDEX_NONE,        CALL WRITE_0D_R8(PTRACERS_taveFreq, INDEX_NONE,
199       &   'PTRACERS_taveFreq =',       &   'PTRACERS_taveFreq =',
200       &   ' /* Frequency^-1 for time-Aver. output (s) */')       &   ' /* Frequency^-1 for time-Aver. output (s) */')
# Line 193  C--   Print a summary of pTracer paramet Line 212  C--   Print a summary of pTracer paramet
212          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1)          CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , 1)
213          CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE,          CALL WRITE_0D_I( PTRACERS_advScheme(iTracer), INDEX_NONE,
214       &     'PTRACERS_advScheme =', ' /* Advection Scheme */')       &     'PTRACERS_advScheme =', ' /* Advection Scheme */')
215            CALL WRITE_0D_L( PTRACERS_ImplVertAdv(iTracer), INDEX_NONE,
216         &     'PTRACERS_ImplVertAdv =',
217         &     ' /* implicit vert. advection flag */')
218          CALL WRITE_0D_R8( PTRACERS_diffKh(iTracer), INDEX_NONE,          CALL WRITE_0D_R8( PTRACERS_diffKh(iTracer), INDEX_NONE,
219       &     'PTRACERS_diffKh =', ' /* Laplacian Diffusivity */')       &     'PTRACERS_diffKh =', ' /* Laplacian Diffusivity */')
220          CALL WRITE_0D_R8( PTRACERS_diffK4(iTracer), INDEX_NONE,          CALL WRITE_0D_R8( PTRACERS_diffK4(iTracer), INDEX_NONE,
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22