/[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.31 by jmc, Sun Aug 17 02:09:36 2008 UTC revision 1.33 by jmc, Thu Aug 21 15:16:01 2008 UTC
# Line 58  C     tauTr1ClimRelax :: old parameter ( Line 58  C     tauTr1ClimRelax :: old parameter (
58       &     PTRACERS_ref,       &     PTRACERS_ref,
59       &     PTRACERS_EvPrRn,       &     PTRACERS_EvPrRn,
60       &     PTRACERS_useGMRedi,       &     PTRACERS_useGMRedi,
61         &     PTRACERS_useDWNSLP,
62       &     PTRACERS_useKPP,       &     PTRACERS_useKPP,
63       &     PTRACERS_Iter0,       &     PTRACERS_Iter0,
64       &     PTRACERS_numInUse,       &     PTRACERS_numInUse,
# Line 104  C     Set defaults values for parameters Line 105  C     Set defaults values for parameters
105          ENDDO          ENDDO
106          PTRACERS_EvPrRn(iTracer)=UNSET_RL          PTRACERS_EvPrRn(iTracer)=UNSET_RL
107          PTRACERS_useGMRedi(iTracer)=useGMRedi          PTRACERS_useGMRedi(iTracer)=useGMRedi
         PTRACERS_useGMRedi(iTracer)=useGMRedi  
108          PTRACERS_useDWNSLP(iTracer)=useDOWN_SLOPE          PTRACERS_useDWNSLP(iTracer)=useDOWN_SLOPE
109            PTRACERS_useKPP(iTracer)   =useKPP
110          PTRACERS_initialFile(iTracer)=' '          PTRACERS_initialFile(iTracer)=' '
111          DO ic = 1,MAX_LEN_FNAM          DO ic = 1,MAX_LEN_FNAM
112            PTRACERS_names(iTracer)(ic:ic) = ' '            PTRACERS_names(iTracer)(ic:ic) = ' '
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22