/[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.2 by dimitri, Mon Aug 4 22:53:42 2003 UTC revision 1.4 by dimitri, Thu Nov 13 06:35:15 2003 UTC
# Line 42  C internal flag to indicate we are in bu Line 42  C internal flag to indicate we are in bu
42        PTRACERSisON=.TRUE.        PTRACERSisON=.TRUE.
43    
44  C Set defaults values for parameters in PTRACERS.h  C Set defaults values for parameters in PTRACERS.h
45          PTRACERS_taveFreq=taveFreq
46        PTRACERS_numInUse=-1        PTRACERS_numInUse=-1
47        DO iTracer=1,PTRACERS_num        DO iTracer=1,PTRACERS_num
48         PTRACERS_advScheme(iTracer)=saltAdvScheme         PTRACERS_advScheme(iTracer)=saltAdvScheme
# Line 52  C Set defaults values for parameters in Line 53  C Set defaults values for parameters in
53         PTRACERS_useKPP(iTracer)=useKPP         PTRACERS_useKPP(iTracer)=useKPP
54         PTRACERS_initialFile(iTracer)=' '         PTRACERS_initialFile(iTracer)=' '
55        ENDDO        ENDDO
56          PTRACERS_useRecords=.FALSE.
57    
58  C Open and read the data.ptracers file  C Open and read the data.ptracers file
59        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22