/[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.1 by adcroft, Mon Mar 4 19:01:29 2002 UTC revision 1.2 by dimitri, Mon Aug 4 22:53:42 2003 UTC
# Line 17  C !USES: =============================== Line 17  C !USES: ===============================
17  #include "SIZE.h"  #include "SIZE.h"
18  #include "EEPARAMS.h"  #include "EEPARAMS.h"
19  #include "PTRACERS.h"  #include "PTRACERS.h"
20    #include "PARAMS.h"
21    
22  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
23  C  myThid               :: thread number  C  myThid               :: thread number
# Line 43  C internal flag to indicate we are in bu Line 44  C internal flag to indicate we are in bu
44  C Set defaults values for parameters in PTRACERS.h  C Set defaults values for parameters in PTRACERS.h
45        PTRACERS_numInUse=-1        PTRACERS_numInUse=-1
46        DO iTracer=1,PTRACERS_num        DO iTracer=1,PTRACERS_num
47         PTRACERS_advScheme(iTracer)=0         PTRACERS_advScheme(iTracer)=saltAdvScheme
48         PTRACERS_diffKh(iTracer)=0.         PTRACERS_diffKh(iTracer)=diffKhS
49         PTRACERS_diffK4(iTracer)=0.         PTRACERS_diffK4(iTracer)=diffK4S
50         PTRACERS_diffKr(iTracer)=0.         PTRACERS_diffKr(iTracer)=diffKrS
51         PTRACERS_useGMRedi(iTracer)=.FALSE.         PTRACERS_useGMRedi(iTracer)=useGMRedi
52         PTRACERS_useKPP(iTracer)=.FALSE.         PTRACERS_useKPP(iTracer)=useKPP
53         PTRACERS_initialFile(iTracer)=' '         PTRACERS_initialFile(iTracer)=' '
54        ENDDO        ENDDO
55    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22