/[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.20 by edhill, Sat Jul 30 00:58:41 2005 UTC revision 1.23 by mlosch, Fri Oct 14 12:45:05 2005 UTC
# Line 52  C                          are written t Line 52  C                          are written t
52       &     PTRACERS_diffK4,       &     PTRACERS_diffK4,
53       &     PTRACERS_diffKr,       &     PTRACERS_diffKr,
54       &     PTRACERS_diffKrNr,       &     PTRACERS_diffKrNr,
55         &     PTRACERS_ref,
56       &     PTRACERS_useGMRedi,       &     PTRACERS_useGMRedi,
57       &     PTRACERS_useKPP,       &     PTRACERS_useKPP,
58       &     PTRACERS_Iter0,       &     PTRACERS_Iter0,
# Line 61  C                          are written t Line 62  C                          are written t
62       &     PTRACERS_names,       &     PTRACERS_names,
63       &     PTRACERS_long_names,       &     PTRACERS_long_names,
64       &     PTRACERS_units,       &     PTRACERS_units,
65       &     PTRACERS_timeave_mnc, PTRACERS_snapshot_mnc,       &     PTRACERS_timeave_mnc,
66       &     PTRACERS_pickup_write_mnc, PTRACERS_pickup_read_mnc       &     PTRACERS_snapshot_mnc,
67         &     PTRACERS_monitor_mnc,
68         &     PTRACERS_pickup_write_mnc,
69         &     PTRACERS_pickup_read_mnc
70    
71  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
72  C     internal flag to indicate we are in business  C     internal flag to indicate we are in business
# Line 82  C     Set defaults values for parameters Line 86  C     Set defaults values for parameters
86          PTRACERS_diffKr(iTracer)=UNSET_RL          PTRACERS_diffKr(iTracer)=UNSET_RL
87          DO k=1,Nr          DO k=1,Nr
88            PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k)            PTRACERS_diffKrNr(k,iTracer)=diffKrNrS(k)
89              PTRACERS_ref     (k,iTracer)=0. _d 0
90          ENDDO          ENDDO
91          PTRACERS_useGMRedi(iTracer)=useGMRedi          PTRACERS_useGMRedi(iTracer)=useGMRedi
92          PTRACERS_useKPP(iTracer)=useKPP          PTRACERS_useKPP(iTracer)=useKPP
# Line 96  C     Set defaults values for parameters Line 101  C     Set defaults values for parameters
101  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
102        PTRACERS_timeave_mnc      = timeave_mnc .AND. useMNC        PTRACERS_timeave_mnc      = timeave_mnc .AND. useMNC
103        PTRACERS_snapshot_mnc     = snapshot_mnc .AND. useMNC        PTRACERS_snapshot_mnc     = snapshot_mnc .AND. useMNC
104          PTRACERS_monitor_mnc      = monitor_mnc .AND. useMNC
105        PTRACERS_pickup_write_mnc = pickup_write_mnc .AND. useMNC        PTRACERS_pickup_write_mnc = pickup_write_mnc .AND. useMNC
106        PTRACERS_pickup_read_mnc  = pickup_read_mnc .AND. useMNC        PTRACERS_pickup_read_mnc  = pickup_read_mnc .AND. useMNC
107  #else  #else
108        PTRACERS_timeave_mnc      = .FALSE.        PTRACERS_timeave_mnc      = .FALSE.
109        PTRACERS_snapshot_mnc     = .FALSE.        PTRACERS_snapshot_mnc     = .FALSE.
110          PTRACERS_monitor_mnc      = .FALSE.
111        PTRACERS_pickup_write_mnc = .FALSE.        PTRACERS_pickup_write_mnc = .FALSE.
112        PTRACERS_pickup_read_mnc  = .FALSE.        PTRACERS_pickup_read_mnc  = .FALSE.
113  #endif  #endif
# Line 182  C     Check that enough parameters were Line 189  C     Check that enough parameters were
189    
190  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
191        PTRACERS_timeave_mnc      =        PTRACERS_timeave_mnc      =
192       &     PTRACERS_timeave_mnc .AND. useMNC       &     PTRACERS_timeave_mnc      .AND. useMNC
193        PTRACERS_snapshot_mnc     =        PTRACERS_snapshot_mnc     =
194       &     PTRACERS_snapshot_mnc .AND. useMNC       &     PTRACERS_snapshot_mnc     .AND. useMNC
195          PTRACERS_monitor_mnc      =
196         &     PTRACERS_monitor_mnc      .AND. useMNC .AND. monitor_mnc
197        PTRACERS_pickup_write_mnc =        PTRACERS_pickup_write_mnc =
198       &     PTRACERS_pickup_write_mnc .AND. useMNC       &     PTRACERS_pickup_write_mnc .AND. useMNC
199        PTRACERS_pickup_read_mnc  =        PTRACERS_pickup_read_mnc  =
200       &     PTRACERS_pickup_read_mnc .AND. useMNC       &     PTRACERS_pickup_read_mnc  .AND. useMNC
201    
202        PTRACERS_timeave_mdsio      = (.NOT. PTRACERS_timeave_mnc)        PTRACERS_timeave_mdsio      = (.NOT. PTRACERS_timeave_mnc)
203       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
204        PTRACERS_snapshot_mdsio     = (.NOT. PTRACERS_snapshot_mnc)        PTRACERS_snapshot_mdsio     = (.NOT. PTRACERS_snapshot_mnc)
205       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
206          PTRACERS_monitor_stdio      = (.NOT. PTRACERS_monitor_mnc)
207         &     .OR. outputTypesInclusive
208        PTRACERS_pickup_write_mdsio = (.NOT. PTRACERS_pickup_write_mnc)        PTRACERS_pickup_write_mdsio = (.NOT. PTRACERS_pickup_write_mnc)
209       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
210        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)        PTRACERS_pickup_read_mdsio  = (.NOT. PTRACERS_pickup_read_mnc)
211       &     .OR. outputTypesInclusive       &     .OR. outputTypesInclusive
212                
       IF (useMNC) THEN  
 C       Initialize the MNC variable types for PTRACERS  
         CALL PTRACERS_MNC_INIT( myThid )  
       ENDIF  
213  #else  #else
214        PTRACERS_timeave_mnc        = .FALSE.        PTRACERS_timeave_mnc        = .FALSE.
215        PTRACERS_snapshot_mnc       = .FALSE.        PTRACERS_snapshot_mnc       = .FALSE.
216          PTRACERS_monitor_mnc        = .FALSE.
217        PTRACERS_pickup_write_mnc   = .FALSE.        PTRACERS_pickup_write_mnc   = .FALSE.
218        PTRACERS_pickup_read_mnc    = .FALSE.        PTRACERS_pickup_read_mnc    = .FALSE.
219        PTRACERS_timeave_mdsio      = .TRUE.        PTRACERS_timeave_mdsio      = .TRUE.
220        PTRACERS_snapshot_mdsio     = .TRUE.        PTRACERS_snapshot_mdsio     = .TRUE.
221          PTRACERS_monitor_stdio      = .TRUE.
222        PTRACERS_pickup_write_mdsio = .TRUE.        PTRACERS_pickup_write_mdsio = .TRUE.
223        PTRACERS_pickup_read_mdsio  = .TRUE.        PTRACERS_pickup_read_mdsio  = .TRUE.
224  #endif  #endif
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22