/[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.22 by mlosch, Tue Oct 11 08:35:36 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 85  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
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.23
  ViewVC Help
Powered by ViewVC 1.1.22