Parent Directory
| 
Revision Log
| 
Revision Graph
check-in original code, before itd modifications seaice_advdiff.F,v 1.60 2012/02/16 01:22:02 seaice_check_pickup.F,v 1.7 2012/03/05 15:21:44 seaice_diagnostics_init.F,v 1.33 2012/02/16 01:22:02 seaice_growth.F,v 1.162 2012/03/15 03:07:31 seaice_init_fixed.F,v 1.19 2012/03/11 13:41:38 seaice_init_varia.F,v 1.72 2012/03/14 22:55:53 seaice_readparms.F,v 1.120 2012/03/14 22:55:53 seaice_write_pickup.F,v 1.14 2012/03/05 15:21:45 seaice_read_pickup.F,v 1.16 2012/03/05 15:21:44 seaice_model.F,v 1.100 2012/03/02 18:56:06 SEAICE.h,v 1.62 2012/03/06 16:51:21 SEAICE_OPTIONS.h,v 1.63 2012/03/08 01:15:02 SEAICE_PARAMS.h,v 1.91 2012/03/11 13:41:38 SEAICE_SIZE.h,v 1.5 2012/03/06 16:51:21 SIZE.h,v 1.28 2009/05/17 21:15:07
| 1 | dimitri | 1.1 | C $Header: /u/gcmpack/MITgcm/pkg/seaice/SEAICE_SIZE.h,v 1.5 2012/03/06 16:51:21 jmc Exp $ |
| 2 | C $Name: $ | ||
| 3 | |||
| 4 | #ifdef ALLOW_SEAICE | ||
| 5 | |||
| 6 | CBOP | ||
| 7 | C !ROUTINE: SEAICE_SIZE.h | ||
| 8 | C !INTERFACE: | ||
| 9 | C #include SEAICE_SIZE.h | ||
| 10 | |||
| 11 | C !DESCRIPTION: | ||
| 12 | C Contains seaice array-size definition (number of tracers,categories). | ||
| 13 | |||
| 14 | C SItrMaxNum :: number of passive tracers to allocate | ||
| 15 | C MULTDIM :: number of seaice categories to allocate | ||
| 16 | CEOP | ||
| 17 | |||
| 18 | C- Maximum Number of categories | ||
| 19 | INTEGER MULTDIM | ||
| 20 | PARAMETER (MULTDIM=7) | ||
| 21 | |||
| 22 | C- Maximum Number of tracers | ||
| 23 | INTEGER SItrMaxNum | ||
| 24 | PARAMETER(SItrMaxNum = 3 ) | ||
| 25 | |||
| 26 | #ifdef ALLOW_AUTODIFF_TAMC | ||
| 27 | INTEGER iicekey | ||
| 28 | INTEGER nEVPstepMax | ||
| 29 | PARAMETER ( nEVPstepMax=180 ) | ||
| 30 | INTEGER NMAX_TICE | ||
| 31 | PARAMETER ( NMAX_TICE=10 ) | ||
| 32 | INTEGER SOLV_MAX_FIXED | ||
| 33 | PARAMETER ( SOLV_MAX_FIXED=500 ) | ||
| 34 | #endif | ||
| 35 | |||
| 36 | #endif /* ALLOW_SEAICE */ | ||
| 37 | |||
| 38 | CEH3 ;;; Local Variables: *** | ||
| 39 | CEH3 ;;; mode:fortran *** | ||
| 40 | CEH3 ;;; End: *** |
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |