/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_som_exchanges.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_som_exchanges.F

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

revision 1.2 by jmc, Thu Aug 16 21:23:45 2007 UTC revision 1.3 by jmc, Fri May 9 21:43:16 2008 UTC
# Line 30  C     myThid ::  my Thread Id number Line 30  C     myThid ::  my Thread Id number
30        INTEGER myThid        INTEGER myThid
31  CEOP  CEOP
32    
33  #ifdef GAD_ALLOW_SOM_ADVECT  #ifdef GAD_ALLOW_TS_SOM_ADV
34  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
35  C     === Local variables ===  C     === Local variables ===
36    
# Line 44  C--   Apply exchanges to Salin. 2nd.O.Mo Line 44  C--   Apply exchanges to Salin. 2nd.O.Mo
44         CALL GAD_EXCH_SOM( som_S, Nr, myThid )         CALL GAD_EXCH_SOM( som_S, Nr, myThid )
45        ENDIF        ENDIF
46    
47  #endif /* GAD_ALLOW_SOM_ADVECT */  #endif /* GAD_ALLOW_TS_SOM_ADV */
48    
49        RETURN        RETURN
50        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22