/[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.35 by jahn, Fri Jun 26 23:10:10 2009 UTC revision 1.36 by jmc, Sun Sep 5 22:28:14 2010 UTC
# Line 60  C     tauTr1ClimRelax :: old parameter ( Line 60  C     tauTr1ClimRelax :: old parameter (
60       &     PTRACERS_diffKrNr,       &     PTRACERS_diffKrNr,
61       &     PTRACERS_ref,       &     PTRACERS_ref,
62       &     PTRACERS_EvPrRn,       &     PTRACERS_EvPrRn,
63         &     PTRACERS_addSrelax2EmP,
64       &     PTRACERS_useGMRedi,       &     PTRACERS_useGMRedi,
65       &     PTRACERS_useDWNSLP,       &     PTRACERS_useDWNSLP,
66       &     PTRACERS_useKPP,       &     PTRACERS_useKPP,
# Line 117  C     Set defaults values for parameters Line 118  C     Set defaults values for parameters
118            PTRACERS_units(iTracer)(ic:ic) = ' '            PTRACERS_units(iTracer)(ic:ic) = ' '
119          ENDDO          ENDDO
120        ENDDO        ENDDO
121          PTRACERS_addSrelax2EmP    = .FALSE.
122        PTRACERS_useRecords       = .FALSE.        PTRACERS_useRecords       = .FALSE.
123  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
124        PTRACERS_timeave_mnc      = useMNC .AND. timeave_mnc        PTRACERS_timeave_mnc      = useMNC .AND. timeave_mnc
# Line 294  C--   Print a summary of pTracer paramet Line 296  C--   Print a summary of pTracer paramet
296        CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,        CALL WRITE_0D_I( PTRACERS_Iter0, INDEX_NONE,
297       &   'PTRACERS_Iter0 =',       &   'PTRACERS_Iter0 =',
298       &   ' /* timestep number when tracers are initialized */')       &   ' /* timestep number when tracers are initialized */')
299          CALL WRITE_0D_L( PTRACERS_addSrelax2EmP, INDEX_NONE,
300         &   'PTRACERS_addSrelax2EmP =','/* add Salt relaxation to EmP */')
301        CALL WRITE_1D_RL( PTRACERS_dTLev, Nr, INDEX_K,        CALL WRITE_1D_RL( PTRACERS_dTLev, Nr, INDEX_K,
302       &   'PTRACERS_dTLev =',       &   'PTRACERS_dTLev =',
303       &'   /* Ptracer timestep ( s ) */')       &'   /* Ptracer timestep ( s ) */')
Legend:
Removed from v.1.35  
changed lines
  Added in v.1.36
  ViewVC Help
Powered by ViewVC 1.1.22