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

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

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

revision 1.3 by gforget, Fri May 30 02:45:43 2008 UTC revision 1.4 by gforget, Sat May 31 16:50:35 2008 UTC
# Line 4  C $Name$ Line 4  C $Name$
4  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
5  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
6    
7    #ifdef ALLOW_GMREDI
8    # include "GMREDI_OPTIONS.h"
9    #endif
10    
11  CBOP  CBOP
12  C     !ROUTINE: TAUEDDY_EXTERNAL_FORCING_U  C     !ROUTINE: TAUEDDY_EXTERNAL_FORCING_U
13  C     !INTERFACE:  C     !INTERFACE:
# Line 177  C     Add meridional eddy momentum impul Line 181  C     Add meridional eddy momentum impul
181         ENDDO         ENDDO
182        ENDDO        ENDDO
183  #ifdef ALLOW_GMREDI  #ifdef ALLOW_GMREDI
184        if ( GM_InMomAsStress ) then        endif
185  #endif  #endif
186    
187  #endif  #endif
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22