/[MITgcm]/MITgcm/pkg/kl10/kl10_output.F
ViewVC logotype

Diff of /MITgcm/pkg/kl10/kl10_output.F

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

revision 1.1 by jmc, Wed Jul 30 03:28:05 2014 UTC revision 1.2 by jmc, Fri Mar 24 23:38:56 2017 UTC
# Line 64  C     !FUNCTIONS: Line 64  C     !FUNCTIONS:
64    
65  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
66  C     == Local variables ==  C     == Local variables ==
67        CHARACTER*(MAX_LEN_MBUF) suff        CHARACTER*(10) suff
68  #ifdef ALLOW_TIMEAVE  #ifdef ALLOW_TIMEAVE
69        INTEGER bi, bj        INTEGER bi, bj
70        _RL DDTT        _RL DDTT
# Line 84  C--------------------------------------- Line 84  C---------------------------------------
84    
85         IF (KLwriteState) THEN         IF (KLwriteState) THEN
86  C       Write each snap-shot as a new file  C       Write each snap-shot as a new file
87          WRITE(suff,'(I10.10)') myIter          IF ( rwSuffixType.EQ.0 ) THEN
88              WRITE(suff,'(I10.10)') myIter
89            ELSE
90              CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid )
91            ENDIF
92          CALL WRITE_FLD_XYZ_RL('KLviscAr.',suff,KLviscAr,          CALL WRITE_FLD_XYZ_RL('KLviscAr.',suff,KLviscAr,
93       &       myIter,myThid)       &       myIter,myThid)
94          CALL WRITE_FLD_XYZ_RL('KLeps.',suff,KLeps,          CALL WRITE_FLD_XYZ_RL('KLeps.',suff,KLeps,
# Line 141  C     Normalize by integrated time Line 145  C     Normalize by integrated time
145          ENDDO          ENDDO
146    
147  C     Write each snap-shot as a new file  C     Write each snap-shot as a new file
148          WRITE(suff,'(I10.10)') myIter          IF ( rwSuffixType.EQ.0 ) THEN
149              WRITE(suff,'(I10.10)') myIter
150            ELSE
151              CALL RW_GET_SUFFIX( suff, myTime, myIter, myThid )
152            ENDIF
153          CALL WRITE_FLD_XYZ_RL( 'KLviscAr-T.', suff,          CALL WRITE_FLD_XYZ_RL( 'KLviscAr-T.', suff,
154       &                          KLviscArTave, myIter, myThid )       &                          KLviscArTave, myIter, myThid )
155          CALL WRITE_FLD_XYZ_RL( 'KLeps-T.', suff,          CALL WRITE_FLD_XYZ_RL( 'KLeps-T.', suff,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22