/[MITgcm]/MITgcm/pkg/layers/layers_output.F
ViewVC logotype

Diff of /MITgcm/pkg/layers/layers_output.F

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

revision 1.4 by jmc, Mon Dec 28 02:37:52 2009 UTC revision 1.5 by dfer, Wed Oct 19 01:28:45 2011 UTC
# Line 74  C---+----1----+----2----+----3----+----4 Line 74  C---+----1----+----2----+----3----+----4
74              CALL WRITE_FLD_3D_RL( 'layers_HU.', suff, Nlayers,              CALL WRITE_FLD_3D_RL( 'layers_HU.', suff, Nlayers,
75       &                             layers_HU, myIter, myThid )       &                             layers_HU, myIter, myThid )
76  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
77  #endif /* LAYESR_UFLUX */  #endif /* LAYERS_UFLUX */
78  #ifdef LAYERS_VFLUX  #ifdef LAYERS_VFLUX
79              CALL WRITE_FLD_3D_RL( 'layers_VFlux.', suff, Nlayers,              CALL WRITE_FLD_3D_RL( 'layers_VFlux.', suff, Nlayers,
80       &                             layers_VFlux, myIter, myThid )       &                             layers_VFlux, myIter, myThid )
# Line 82  C---+----1----+----2----+----3----+----4 Line 82  C---+----1----+----2----+----3----+----4
82              CALL WRITE_FLD_3D_RL( 'layers_HV.', suff, Nlayers,              CALL WRITE_FLD_3D_RL( 'layers_HV.', suff, Nlayers,
83       &                             layers_HV, myIter, myThid )       &                             layers_HV, myIter, myThid )
84  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
85  #endif /* LAYESR_VFLUX */  #endif /* LAYERS_VFLUX */
86    #ifdef LAYERS_PRHO_REF
87                CALL WRITE_FLD_3D_RL( 'layers_prho.', suff, Nr,
88         &                             prho, myIter, myThid )
89    #endif /* LAYERS_PRHO_REF */
90            ENDIF            ENDIF
91          ENDIF          ENDIF
92    
# Line 146  C      Normalize by integrated time Line 150  C      Normalize by integrated time
150  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
151  #endif /* LAYERS_VFLUX */  #endif /* LAYERS_VFLUX */
152    
153    #ifdef LAYERS_PRHO_REF
154              CALL TIMEAVE_NORMALIZE( prho_tave, layers_timeave,
155         &                            Nr, bi, bj, myThid )
156    #endif /* LAYERS_PRHO_REF */
157    
158           ENDDO           ENDDO
159          ENDDO          ENDDO
160    
# Line 167  C      Normalize by integrated time Line 176  C      Normalize by integrated time
176       &                          layers_HV_T, myIter, myThid )       &                          layers_HV_T, myIter, myThid )
177  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
178  #endif /* LAYERS_VFLUX */  #endif /* LAYERS_VFLUX */
179    
180    #ifdef LAYERS_PRHO_REF
181             CALL WRITE_FLD_3D_RL( 'layers_prho-tave.', suff, Nr,
182         &                          prho_tave, myIter, myThid )
183    #endif /* LAYERS_PRHO_REF */
184    
185          ENDIF          ENDIF
186    
187  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
# Line 189  C      Reset averages to zero Line 204  C      Reset averages to zero
204            CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid)            CALL TIMEAVE_RESET(layers_HV_T,Nlayers,bi,bj,myThid)
205  #endif /* LAYERS_THICKNESS */  #endif /* LAYERS_THICKNESS */
206  #endif /* LAYERS_VFLUX */  #endif /* LAYERS_VFLUX */
207    
208    #ifdef LAYERS_PRHO_REF
209              CALL TIMEAVE_RESET(prho_tave,Nr,bi,bj,myThid)
210    #endif /* LAYERS_PRHO_REF */
211    
212            layers_TimeAve(bi,bj) = 0.            layers_TimeAve(bi,bj) = 0.
213           ENDDO           ENDDO
214          ENDDO          ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22