/[MITgcm]/MITgcm/pkg/gmredi/gmredi_k3d.F
ViewVC logotype

Diff of /MITgcm/pkg/gmredi/gmredi_k3d.F

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

revision 1.8 by m_bates, Sat Aug 31 17:33:55 2013 UTC revision 1.9 by m_bates, Sun Sep 15 14:31:11 2013 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    #include "CPP_OPTIONS.h"
4  #include "GMREDI_OPTIONS.h"  #include "GMREDI_OPTIONS.h"
5    
6  C     !ROUTINE: GMREDI_K3D  C     !ROUTINE: GMREDI_K3D
# Line 266  C     Zeroing some cumulative fields Line 267  C     Zeroing some cumulative fields
267  C     Find the zonal velocity at the cell centre  C     Find the zonal velocity at the cell centre
268  C     The logicals here are, in order: 1/ go from grid to north/east directions  C     The logicals here are, in order: 1/ go from grid to north/east directions
269  C     2/ go from C to A grid and 3/ apply the mask  C     2/ go from C to A grid and 3/ apply the mask
270        CALL rotate_uv2en_rl(uVel, vVel, ubar, vbar, .TRUE., .TRUE.,  #ifdef ALLOW_EDDYPSI      
271       &     .TRUE.,Nr,mythid)        IF (GM_InMomAsStress) THEN
272            CALL rotate_uv2en_rl(uMean, vMean, ubar, vbar, .TRUE., .TRUE.,
273         &       .TRUE.,Nr,mythid)
274          ELSE
275    #endif
276            CALL rotate_uv2en_rl(uVel, vVel, ubar, vbar, .TRUE., .TRUE.,
277         &       .TRUE.,Nr,mythid)
278    #ifdef ALLOW_EDDYPSI      
279          ENDIF
280    #endif
281    
282  C     Square of the buoyancy frequency at the top of a grid cell  C     Square of the buoyancy frequency at the top of a grid cell
283        DO k=2,Nr        DO k=2,Nr
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22