/[MITgcm]/MITgcm/pkg/timeave/timeave_statv_write.F
ViewVC logotype

Diff of /MITgcm/pkg/timeave/timeave_statv_write.F

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

revision 1.19 by edhill, Mon Sep 13 18:42:11 2004 UTC revision 1.20 by mlosch, Thu Sep 16 09:42:24 2004 UTC
# Line 54  C     useVariableK :: T when vertical di Line 54  C     useVariableK :: T when vertical di
54  C     Final Time Averages and Dump Files if needed  C     Final Time Averages and Dump Files if needed
55        IF (DIFFERENT_MULTIPLE(taveFreq,myTime,myTime-deltaTClock)) THEN        IF (DIFFERENT_MULTIPLE(taveFreq,myTime,myTime-deltaTClock)) THEN
56    
57          useVariableK = useKPP .OR. useGMredi .OR. ivdc_kappa.NE.0.          useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90
58         &      .OR. useGMredi .OR. ivdc_kappa.NE.0.
59          WRITE(suff,'(I10.10)') myIter          WRITE(suff,'(I10.10)') myIter
60    
61          DO bj = myByLo(myThid), myByHi(myThid)          DO bj = myByLo(myThid), myByHi(myThid)
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22