/[MITgcm]/MITgcm_contrib/dcarroll/highres_darwin/code/PTRACERS_FIELDS.h
ViewVC logotype

Contents of /MITgcm_contrib/dcarroll/highres_darwin/code/PTRACERS_FIELDS.h

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


Revision 1.1 - (show annotations) (download)
Sun Sep 22 21:23:46 2019 UTC (5 years, 10 months ago) by dcarroll
Branch: MAIN
CVS Tags: HEAD
File MIME type: text/plain
Initial check in of high resolution Darwin simulation code

1 C $Header: /u/gcmpack/MITgcm/pkg/ptracers/PTRACERS_FIELDS.h,v 1.4 2016/08/23 18:29:48 jahn Exp $
2 C $Name: $
3
4 #ifdef ALLOW_PTRACERS
5
6 CBOP
7 C !ROUTINE: PTRACERS_FIELDS.h
8 C !INTERFACE:
9 C #include PTRACERS_FIELDS.h
10
11 C !DESCRIPTION:
12 C Contains passive tracer fields
13
14 CEOP
15
16 C COMMON /PTRACERS_FIELDS/
17 C pTracer :: passive tracer concentration (tr per unit volume).
18 C gpTrNm1 :: work-space for time-stepping
19 C surfaceForcingPTr :: passive tracer surface forcing
20 _RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
21 & PTRACERS_num)
22 _RL gpTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
23 & PTRACERS_num)
24 _RL surfaceForcingPTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,
25 & PTRACERS_num)
26 _RL ForcingPTr3(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
27 & PTRACERS_num)
28 COMMON /PTRACERS_FIELDS/
29 & pTracer, gpTrNm1, surfaceForcingPTr, ForcingPTr3
30
31 _RL totSurfCorPTr(PTRACERS_num)
32 _RL meanSurfCorPTr(PTRACERS_num)
33 COMMON /PTRACERS_SURFCOR_FIELDS/ totSurfCorPTr, meanSurfCorPTr
34
35 #endif /* ALLOW_PTRACERS */
36
37 CEH3 ;;; Local Variables: ***
38 CEH3 ;;; mode:fortran ***
39 CEH3 ;;; End: ***

  ViewVC Help
Powered by ViewVC 1.1.22