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

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

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

revision 1.89 by mlosch, Wed Aug 7 16:55:52 2002 UTC revision 1.90 by mlosch, Wed Sep 18 16:38:01 2002 UTC
# Line 160  C                      index into fVerTe Line 160  C                      index into fVerTe
160        INTEGER k, km1, kp1, kup, kDown        INTEGER k, km1, kp1, kup, kDown
161    
162  Cjmc : add for phiHyd output <- but not working if multi tile per CPU  Cjmc : add for phiHyd output <- but not working if multi tile per CPU
163  c     CHARACTER*(MAX_LEN_MBUF) suff  c      CHARACTER*(MAX_LEN_MBUF) suff
164  c     LOGICAL  DIFFERENT_MULTIPLE  c      LOGICAL  DIFFERENT_MULTIPLE
165  c     EXTERNAL DIFFERENT_MULTIPLE  c      EXTERNAL DIFFERENT_MULTIPLE
166  Cjmc(end)  Cjmc(end)
167    
168  C---    The algorithm...  C---    The algorithm...
# Line 449  C--     End If implicitViscosity.AND.mom Line 449  C--     End If implicitViscosity.AND.mom
449          ENDIF          ENDIF
450    
451  Cjmc : add for phiHyd output <- but not working if multi tile per CPU  Cjmc : add for phiHyd output <- but not working if multi tile per CPU
452  c       IF ( DIFFERENT_MULTIPLE(dumpFreq,myTime+deltaTClock,myTime)  c        IF ( DIFFERENT_MULTIPLE(dumpFreq,myTime+deltaTClock,myTime)
453  c    &  .AND. buoyancyRelation .eq. 'ATMOSPHERIC' ) THEN  c     &       .AND. buoyancyRelation .ne. 'OCEANIC' ) THEN
454  c         WRITE(suff,'(I10.10)') myIter+1  c           WRITE(suff,'(I10.10)') myIter+1
455  c         CALL WRITE_FLD_XYZ_RL('PH.',suff,phiHyd,myIter+1,myThid)  c           CALL WRITE_FLD_XYZ_RL('PH.',suff,phiHyd,myIter+1,myThid)
456  c       ENDIF  c        ENDIF
457  Cjmc(end)  Cjmc(end)
458    
459  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
# Line 466  Cjmc(end) Line 466  Cjmc(end)
466         ENDDO         ENDDO
467        ENDDO        ENDDO
468    
469    Cml(
470    C     In order to compare the variance of phiHydLow of a p/z-coordinate
471    C     run with etaH of a z/p-coordinate run the drift of phiHydLow
472    C     has to be removed by something like the following subroutine:
473    C      CALL REMOVE_MEAN_RL( 1, phiHydLow, maskH, maskH, rA, drF,
474    C     &                'phiHydLow', myThid )
475    Cml)
476    
477  #ifndef DISABLE_DEBUGMODE  #ifndef DISABLE_DEBUGMODE
478        If (debugMode) THEN        If (debugMode) THEN
479         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(1,EtaN,'EtaN (DYNAMICS)',myThid)
Legend:
Removed from v.1.89  
changed lines
  Added in v.1.90
  ViewVC Help
Powered by ViewVC 1.1.22