/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_init_fixed.F

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

revision 1.3 by jmc, Fri Oct 19 14:43:10 2007 UTC revision 1.4 by jmc, Tue Feb 12 20:26:02 2008 UTC
# Line 21  C     === Global variables === Line 21  C     === Global variables ===
21    
22  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
23  C     === Routine arguments ===  C     === Routine arguments ===
24  C     myThid -  Number of this instance of GAD_INIT_FIXED  C     myThid  :: My Thread Id. number
25        INTEGER myThid        INTEGER myThid
26  CEOP  CEOP
27    
28  C     === Local variables ===  C     === Local variables ===
29  C     msgBuf      - Informational/error meesage buffer  C     msgBuf  :: Informational/error meesage buffer
30        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
31        INTEGER   minOlSize        INTEGER   minOlSize
32          INTEGER   n
33    
34  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
35    
36        _BEGIN_MASTER(myThid)        _BEGIN_MASTER(myThid)
37    
38    C-- Set SOM I/O suffix (used for pickup, diagnostics ...)
39          DO n=1,nSOM
40            somSfx(n) = '  '
41            IF (n.EQ.1) somSfx(n) = '_x'
42            IF (n.EQ.2) somSfx(n) = '_y'
43            IF (n.EQ.3) somSfx(n) = '_z'
44            IF (n.EQ.4) somSfx(n) = 'xx'
45            IF (n.EQ.5) somSfx(n) = 'yy'
46            IF (n.EQ.6) somSfx(n) = 'zz'
47            IF (n.EQ.7) somSfx(n) = 'xy'
48            IF (n.EQ.8) somSfx(n) = 'xz'
49            IF (n.EQ.9) somSfx(n) = 'yz'
50          ENDDO
51    
52  C-- Set Temp & Salt 2nd-Order Moment Advec. flag according to advection scheme  C-- Set Temp & Salt 2nd-Order Moment Advec. flag according to advection scheme
53        tempSOM_Advection = tempAdvScheme.GE.ENUM_SOM_PRATHER        tempSOM_Advection = tempAdvScheme.GE.ENUM_SOM_PRATHER
54       &              .AND. tempAdvScheme.LE.ENUM_SOM_LIMITER       &              .AND. tempAdvScheme.LE.ENUM_SOM_LIMITER
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22