/[MITgcm]/MITgcm/pkg/atm_compon_interf/cpl_init_fixed.F
ViewVC logotype

Contents of /MITgcm/pkg/atm_compon_interf/cpl_init_fixed.F

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


Revision 1.4 - (show annotations) (download)
Wed Jan 6 00:36:02 2016 UTC (8 years, 4 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint66g, checkpoint66f, checkpoint66e, checkpoint66d, checkpoint66c, checkpoint66b, checkpoint66a, checkpoint66o, checkpoint66n, checkpoint66m, checkpoint66l, checkpoint66k, checkpoint66j, checkpoint66i, checkpoint66h, checkpoint65z, checkpoint65x, checkpoint65y, checkpoint65s, checkpoint65v, checkpoint65w, checkpoint65t, checkpoint65u, HEAD
Changes since 1.3: +7 -1 lines
- add diagnostics for all imported fields from coupler (in both OCN & ATM);
  this is entended to replace the OCN cplFldtave.* output files (not updated
  to contain new additional exchanged fields).

1 C $Header: /u/gcmpack/MITgcm/pkg/atm_compon_interf/cpl_init_fixed.F,v 1.3 2015/11/12 01:01:58 jmc Exp $
2 C $Name: $
3
4 #include "ATM_CPL_OPTIONS.h"
5
6 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7 CBOP
8 C !ROUTINE: CPL_INIT_FIXED
9
10 C !INTERFACE:
11 SUBROUTINE CPL_INIT_FIXED( myThid )
12
13 C !DESCRIPTION:
14 C Define MNC variables for use by the coupler.
15
16 C !USES:
17 IMPLICIT NONE
18 #include "SIZE.h"
19 #include "EEPARAMS.h"
20 #include "PARAMS.h"
21
22 C !INPUT PARAMETERS:
23 INTEGER myThid
24 CEOP
25
26 #ifdef ALLOW_MNC
27 C IF (useMNC) THEN
28 C ENDIF
29 #endif /* ALLOW_MNC */
30
31 #ifdef ALLOW_DIAGNOSTICS
32 IF ( useDiagnostics ) THEN
33 CALL CPL_DIAGNOSTICS_INIT( myThid )
34 ENDIF
35 #endif
36
37 RETURN
38 END

  ViewVC Help
Powered by ViewVC 1.1.22