/[MITgcm]/MITgcm/model/src/set_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/set_parms.F

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

revision 1.14 by jmc, Thu Apr 26 13:46:03 2012 UTC revision 1.15 by jmc, Fri Jun 15 13:20:04 2012 UTC
# Line 32  c     EXTERNAL ILNBLNK Line 32  c     EXTERNAL ILNBLNK
32    
33  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
34        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
35          INTEGER k
36        _RL tmpVar        _RL tmpVar
37  CEOP  CEOP
38    
# Line 134  C--   Metric terms on/off flag. Line 135  C--   Metric terms on/off flag.
135        ENDIF        ENDIF
136    
137  C--   Advection and Forcing for Temp and salt  on/off flags  C--   Advection and Forcing for Temp and salt  on/off flags
138          tempVertDiff4 = .FALSE.
139          saltVertDiff4 = .FALSE.
140          DO k=1,Nr
141            tempVertDiff4 = tempVertDiff4 .OR. ( diffKr4T(k).GT.0. _d 0 )
142            saltVertDiff4 = saltVertDiff4 .OR. ( diffKr4S(k).GT.0. _d 0 )
143          ENDDO
144        tempAdvection = tempStepping .AND. tempAdvection        tempAdvection = tempStepping .AND. tempAdvection
145          tempVertDiff4 = tempStepping .AND. tempVertDiff4
146        tempForcing   = tempStepping .AND. tempForcing        tempForcing   = tempStepping .AND. tempForcing
147        saltAdvection = saltStepping .AND. saltAdvection        saltAdvection = saltStepping .AND. saltAdvection
148          saltVertDiff4 = saltStepping .AND. saltVertDiff4
149        saltForcing   = saltStepping .AND. saltForcing        saltForcing   = saltStepping .AND. saltForcing
150        tempImplVertAdv = tempAdvection .AND. tempImplVertAdv        tempImplVertAdv = tempAdvection .AND. tempImplVertAdv
151        saltImplVertAdv = saltAdvection .AND. saltImplVertAdv        saltImplVertAdv = saltAdvection .AND. saltImplVertAdv
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22