/[MITgcm]/MITgcm/pkg/thsice/THSICE_PARAMS.h
ViewVC logotype

Diff of /MITgcm/pkg/thsice/THSICE_PARAMS.h

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.4 by jmc, Fri Dec 17 04:29:07 2004 UTC revision 1.5 by edhill, Fri Jun 24 04:36:54 2005 UTC
# Line 119  C---+----1----+----2----+----3----+----4 Line 119  C---+----1----+----2----+----3----+----4
119  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
120    
121  C--   COMMON / THSICE_PAR_L / ice model (logical) parameters  C--   COMMON / THSICE_PAR_L / ice model (logical) parameters
122  C     stepFwd_oceMxL  :: step forward mixed-layer T & S (slab-ocean)  C     stepFwd_oceMxL        :: step forward mixed-layer T & S (slab-ocean)
123  C     thSIce_tave_mdsio :: write TimeAverage output using MDSIO  C     thSIce_tave_mdsio     :: write TimeAverage output using MDSIO
124  C     thSIce_diag_mdsio :: write snap-shot output   using MDSIO  C     thSIce_snapshot_mdsio :: write snap-shot output   using MDSIO
125  C     thSIce_mon_stdio  :: write monitor to std-outp  C     thSIce_mon_stdio      :: write monitor to std-outp
126  C     thSIce_tave_mnc   :: write TimeAverage output using MNC  C     thSIce_tave_mnc       :: write TimeAverage output using MNC
127  C     thSIce_diag_mnc   :: write snap-shot output   using MNC  C     thSIce_snapshot_mnc   :: write snap-shot output   using MNC
128  C     thSIce_mon_mnc    :: write monitor to netcdf file  C     thSIce_mon_mnc        :: write monitor to netcdf file
129    C     thSIce_pickup_read_mnc    :: pickup read w/ MNC
130    C     thSIce_pickup_write_mnc   :: pickup write w/ MNC
131    C     thSIce_pickup_write_mdsio :: pickup write w/ MDSIO
132        COMMON / THSICE_PAR_L /        COMMON / THSICE_PAR_L /
133       &  stepFwd_oceMxL,       &     stepFwd_oceMxL,
134       &  thSIce_tave_mdsio, thSIce_diag_mdsio, thSIce_mon_stdio,       &     thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio,
135       &  thSIce_tave_mnc,   thSIce_diag_mnc,   thSIce_mon_mnc       &     thSIce_tave_mnc,   thSIce_snapshot_mnc,   thSIce_mon_mnc,
136         &     thSIce_pickup_read_mnc,
137         &     thSIce_pickup_write_mdsio,
138         &     thSIce_pickup_write_mnc
139    
140        LOGICAL stepFwd_oceMxL        LOGICAL stepFwd_oceMxL
141        LOGICAL thSIce_tave_mdsio, thSIce_diag_mdsio, thSIce_mon_stdio        LOGICAL thSIce_tave_mdsio, thSIce_snapshot_mdsio, thSIce_mon_stdio
142        LOGICAL thSIce_tave_mnc,   thSIce_diag_mnc,   thSIce_mon_mnc        LOGICAL thSIce_tave_mnc,   thSIce_snapshot_mnc,   thSIce_mon_mnc
143          LOGICAL thSIce_pickup_read_mnc
144          LOGICAL thSIce_pickup_write_mdsio
145          LOGICAL thSIce_pickup_write_mnc
146    
147  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters  C--   COMMON / THSICE_PAR_I / ice model (integer) parameters
148  c     startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files  c     startIceModel :: =1 : start ice model at nIter0 ; =0 : use pickup files
# Line 191  C     thSIceTsurf_InitFile :: File name Line 200  C     thSIceTsurf_InitFile :: File name
200  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
201    
202  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
203    
204    CEH3 ;;; Local Variables: ***
205    CEH3 ;;; mode:fortran ***
206    CEH3 ;;; End: ***
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22