Parent Directory
| 
Revision Log
| 
Revision Graph
o first steps towards MNC-ification of PTRACERS - compiles and runs with linux_ia32_g77 - only outputs instantaneous tracer fields (so far!)
| 1 | edhill | 1.2 | C $Header: /u/gcmpack/MITgcm/pkg/ptracers/PTRACERS_SIZE.h,v 1.1 2004/07/13 16:47:11 jmc Exp $ |
| 2 | jmc | 1.1 | C $Name: $ |
| 3 | |||
| 4 | #ifdef ALLOW_PTRACERS | ||
| 5 | |||
| 6 | CBOP | ||
| 7 | C !ROUTINE: PTRACERS_SIZE.h | ||
| 8 | C !INTERFACE: | ||
| 9 | C #include PTRACERS_SIZE.h | ||
| 10 | |||
| 11 | C !DESCRIPTION: | ||
| 12 | C Contains passive tracer array size (number of tracers). | ||
| 13 | |||
| 14 | C PTRACERS_num defines how many passive tracers are allocated/exist. | ||
| 15 | C and is set here (default 1) | ||
| 16 | C | ||
| 17 | C Number of tracers | ||
| 18 | INTEGER PTRACERS_num | ||
| 19 | PARAMETER(PTRACERS_num = 1 ) | ||
| 20 | |||
| 21 | CEOP | ||
| 22 | #endif /* ALLOW_PTRACERS */ | ||
| 23 | edhill | 1.2 | |
| 24 | CEH3 ;;; Local Variables: *** | ||
| 25 | CEH3 ;;; mode:fortran *** | ||
| 26 | CEH3 ;;; End: *** |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |