/[MITgcm]/MITgcm/pkg/ggl90/ggl90_exchanges.F
ViewVC logotype

Annotation of /MITgcm/pkg/ggl90/ggl90_exchanges.F

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

Revision 1.3 - (hide annotations) (download)
Thu Feb 19 15:44:12 2015 UTC (9 years, 7 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65r, checkpoint65s, checkpoint65p, checkpoint65q, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, checkpoint65j, checkpoint65k, checkpoint65n, checkpoint65o, checkpoint65l, checkpoint65m, HEAD
Changes since 1.2: +18 -8 lines 
add IDEMIX (Olbers and Eden, 2013, Eden and Olbers, 2014):
  - code provided by Carsten Eden as an extension of ggl90
  - so far the code is turned on within ggl90 by setting a CPP-flag at
    compile time; a runtime flag implementation is not yet complete
1 mlosch 1.3 C $Header: /u/gcmpack/MITgcm/pkg/ggl90/ggl90_exchanges.F,v 1.2 2009/04/28 18:15:33 jmc Exp $
2     C $Name: checkpoint64b $
3 mlosch 1.1
4     #include "GGL90_OPTIONS.h"
5    
6     CBOP
7     C !ROUTINE: GGL90_EXCHANGES
8    
9     C !INTERFACE: ==========================================================
10     SUBROUTINE GGL90_EXCHANGES( myThid )
11    
12 mlosch 1.3 C !DESCRIPTION: \bv
13     C *================================================================*
14     C | S/R GGL90_EXCHANGES
15     C | Exchange data to update overlaps for GGL90TKE
16     C *================================================================*
17     C \ev
18 mlosch 1.1
19     C !USES: ===============================================================
20     IMPLICIT NONE
21 mlosch 1.3 C === Global variables ===
22 mlosch 1.1 #include "SIZE.h"
23     #include "EEPARAMS.h"
24     #include "GGL90.h"
25    
26 mlosch 1.3 C !INPUT/OUTPUT PARAMETERS: ========================================
27     C == Routine arguments ==
28 mlosch 1.1 C myThid :: thread number
29     INTEGER myThid
30    
31     #ifdef ALLOW_GGL90
32     C !LOCAL VARIABLES: ====================================================
33 mlosch 1.3 C == Local variables ==
34 mlosch 1.1 CEOP
35    
36     #ifdef ALLOW_GGL90_HORIZDIFF
37     IF (GGL90isON .AND. GGL90diffTKEh .GT. 0. _d 0) THEN
38     C Exchange overlaps
39 jmc 1.2 _EXCH_XYZ_RL(GGL90TKE,myThid)
40 mlosch 1.1 ENDIF
41     #endif /* ALLOW_GGL90_HORIZDIFF */
42 mlosch 1.3 #ifdef ALLOW_GGL90_IDEMIX
43     IF ( useIDEMIX ) THEN
44     _EXCH_XYZ_RL(IDEMIX_E,myThid)
45     _EXCH_XYZ_RL(IDEMIX_V0,myThid)
46     ENDIF
47     #endif
48 mlosch 1.1 #endif /* ALLOW_GGL90 */
49    
50     RETURN
51     END
  ViewVC Help
Powered by ViewVC 1.1.22