/[MITgcm]/MITgcm/pkg/thsice/thsice_readparms.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_readparms.F

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

revision 1.10 by jmc, Mon Jul 24 20:30:54 2006 UTC revision 1.11 by jmc, Wed Apr 4 02:11:35 2007 UTC
# Line 32  C     === Global variables === Line 32  C     === Global variables ===
32    
33  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
34  C     === Routine arguments ===  C     === Routine arguments ===
35    C     myThid    :: My Thread Id. number
36        INTEGER myThid        INTEGER myThid
37  CEOP  CEOP
38    
39  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
40    
41  C     === Local variables ===  C     === Local variables ===
42  C     msgBuf      - Informational/error message buffer  C     msgBuf    :: Informational/error message buffer
43  C     iUnit       - Work variable for IO unit number  C     iUnit     :: Work variable for IO unit number
44        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
45        INTEGER iUnit        INTEGER iUnit
46    
# Line 63  C--   Th-Sea-ICE parameter Line 64  C--   Th-Sea-ICE parameter
64       &     startIceModel, stepFwd_oceMxL,       &     startIceModel, stepFwd_oceMxL,
65       &     thSIce_deltaT, ocean_deltaT, tauRelax_MxL,       &     thSIce_deltaT, ocean_deltaT, tauRelax_MxL,
66       &     hMxL_default, sMxL_default, vMxL_default,       &     hMxL_default, sMxL_default, vMxL_default,
67       &     stressReduction,       &     thSIce_diffK, thSIceAdvScheme, stressReduction,
68       &     thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq,       &     thSIce_taveFreq, thSIce_diagFreq, thSIce_monFreq,
69       &     thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc,       &     thSIce_tave_mnc, thSIce_snapshot_mnc, thSIce_mon_mnc,
70       &     thSIce_pickup_read_mnc, thSIce_pickup_write_mnc,       &     thSIce_pickup_read_mnc, thSIce_pickup_write_mnc,
# Line 130  C--   Default values (parameters) Line 131  C--   Default values (parameters)
131        hMxL_default    = 50. _d 0        hMxL_default    = 50. _d 0
132        sMxL_default    = 35. _d 0        sMxL_default    = 35. _d 0
133        vMxL_default    = 5. _d -2        vMxL_default    = 5. _d -2
134          thSIce_diffK    = 0. _d 0
135          thSIceAdvScheme = 0
136        stressReduction = 1. _d 0        stressReduction = 1. _d 0
137        IF ( useSEAICE ) stressReduction = 0. _d 0        IF ( useSEAICE ) stressReduction = 0. _d 0
138        thSIce_taveFreq = taveFreq        thSIce_taveFreq = taveFreq
# Line 254  c     OPEN(iUnit,file='thsice_check_para Line 257  c     OPEN(iUnit,file='thsice_check_para
257        WRITE(iUnit,*) 'ThSI: frac_energy',frac_energy        WRITE(iUnit,*) 'ThSI: frac_energy',frac_energy
258        WRITE(iUnit,*) 'ThSI: hihig   =',hihig        WRITE(iUnit,*) 'ThSI: hihig   =',hihig
259        WRITE(iUnit,*) 'ThSI: stressReduction =',stressReduction        WRITE(iUnit,*) 'ThSI: stressReduction =',stressReduction
260          WRITE(iUnit,*) 'ThSI: thSIceAdvScheme =',thSIceAdvScheme
261          WRITE(iUnit,*) 'ThSI: thSIce_diffK  =',thSIce_diffK
262        WRITE(iUnit,*) 'ThSI: thSIce_deltaT =',thSIce_deltaT        WRITE(iUnit,*) 'ThSI: thSIce_deltaT =',thSIce_deltaT
263        WRITE(iUnit,*) 'ThSI: ocean_deltaT  =',ocean_deltaT        WRITE(iUnit,*) 'ThSI: ocean_deltaT  =',ocean_deltaT
264        WRITE(iUnit,*) 'ThSI: stepFwd_oceMxL=',stepFwd_oceMxL        WRITE(iUnit,*) 'ThSI: stepFwd_oceMxL=',stepFwd_oceMxL
# Line 277  C--   Everyone else must wait for the pa Line 282  C--   Everyone else must wait for the pa
282    
283        RETURN        RETURN
284        END        END
285    
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22