/[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.23 by mlosch, Fri Oct 14 12:45:05 2005 UTC revision 1.24 by jmc, Tue May 23 23:32:41 2006 UTC
# Line 6  C $Name$ Line 6  C $Name$
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP  CBOP
8  C     !ROUTINE: PTRACERS_READPARMS  C     !ROUTINE: PTRACERS_READPARMS
9          
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE PTRACERS_READPARMS( myThid )        SUBROUTINE PTRACERS_READPARMS( myThid )
12          
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     Initialize PTRACERS parameters, read in data.ptracers  C     Initialize PTRACERS parameters, read in data.ptracers
15    
# Line 53  C                          are written t Line 53  C                          are written t
53       &     PTRACERS_diffKr,       &     PTRACERS_diffKr,
54       &     PTRACERS_diffKrNr,       &     PTRACERS_diffKrNr,
55       &     PTRACERS_ref,       &     PTRACERS_ref,
56         &     PTRACERS_EvPrRn,
57       &     PTRACERS_useGMRedi,       &     PTRACERS_useGMRedi,
58       &     PTRACERS_useKPP,       &     PTRACERS_useKPP,
59       &     PTRACERS_Iter0,       &     PTRACERS_Iter0,
# Line 62  C                          are written t Line 63  C                          are written t
63       &     PTRACERS_names,       &     PTRACERS_names,
64       &     PTRACERS_long_names,       &     PTRACERS_long_names,
65       &     PTRACERS_units,       &     PTRACERS_units,
66       &     PTRACERS_timeave_mnc,       &     PTRACERS_timeave_mnc,
67       &     PTRACERS_snapshot_mnc,       &     PTRACERS_snapshot_mnc,
68       &     PTRACERS_monitor_mnc,       &     PTRACERS_monitor_mnc,
69       &     PTRACERS_pickup_write_mnc,       &     PTRACERS_pickup_write_mnc,
70       &     PTRACERS_pickup_read_mnc       &     PTRACERS_pickup_read_mnc
71    
72  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 88  C     Set defaults values for parameters Line 89  C     Set defaults values for parameters
89            PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k)            PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k)
90            PTRACERS_ref     (k,iTracer)=0. _d 0            PTRACERS_ref     (k,iTracer)=0. _d 0
91          ENDDO          ENDDO
92            PTRACERS_EvPrRn(iTracer)=UNSET_RL
93          PTRACERS_useGMRedi(iTracer)=useGMRedi          PTRACERS_useGMRedi(iTracer)=useGMRedi
94          PTRACERS_useKPP(iTracer)=useKPP          PTRACERS_useKPP(iTracer)=useKPP
95          PTRACERS_initialFile(iTracer)=' '          PTRACERS_initialFile(iTracer)=' '
# Line 209  C     Check that enough parameters were Line 211  C     Check that enough parameters were
211       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
212        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)
213       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
214          
215  #else  #else
216        PTRACERS_timeave_mnc        = .FALSE.        PTRACERS_timeave_mnc        = .FALSE.
217        PTRACERS_snapshot_mnc       = .FALSE.        PTRACERS_snapshot_mnc       = .FALSE.
# Line 222  C     Check that enough parameters were Line 224  C     Check that enough parameters were
224        PTRACERS_pickup_write_mdsio = .TRUE.        PTRACERS_pickup_write_mdsio = .TRUE.
225        PTRACERS_pickup_read_mdsio  = .TRUE.        PTRACERS_pickup_read_mdsio  = .TRUE.
226  #endif  #endif
227          
228  C--   Print a summary of pTracer parameter values:  C--   Print a summary of pTracer parameter values:
229        iUnit = standardMessageUnit        iUnit = standardMessageUnit
230        WRITE(msgBuf,'(A)') '// ==================================='        WRITE(msgBuf,'(A)') '// ==================================='
# Line 279  C--   Print a summary of pTracer paramet Line 281  C--   Print a summary of pTracer paramet
281       &     'PTRACERS_useGMRedi =', ' /* apply GM-Redi */')       &     'PTRACERS_useGMRedi =', ' /* apply GM-Redi */')
282          CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE,          CALL WRITE_0D_L( PTRACERS_useKPP(iTracer), INDEX_NONE,
283       &     'PTRACERS_useKPP =', ' /* apply KPP scheme */')       &     'PTRACERS_useKPP =', ' /* apply KPP scheme */')
284            CALL WRITE_1D_R8( PTRACERS_ref(1,iTracer), Nr, INDEX_K,
285         &     'PTRACERS_ref =', ' /* Reference vertical profile */')
286            CALL WRITE_0D_R8( PTRACERS_EvPrRn(iTracer), INDEX_NONE,
287         &     'PTRACERS_EvPrRn =', '/* tracer conc. in Evap. & Rain */')
288    
289        ENDDO        ENDDO
290          WRITE(msgBuf,'(A)') ' -----------------------------------'          WRITE(msgBuf,'(A)') ' -----------------------------------'
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22