C $Header: /u/gcmpack/MITgcm/pkg/ptracers/PTRACERS_FIELDS.h,v 1.4 2016/08/23 18:29:48 jahn Exp $ C $Name: $ #ifdef ALLOW_PTRACERS CBOP C !ROUTINE: PTRACERS_FIELDS.h C !INTERFACE: C #include PTRACERS_FIELDS.h C !DESCRIPTION: C Contains passive tracer fields CEOP C COMMON /PTRACERS_FIELDS/ C pTracer :: passive tracer concentration (tr per unit volume). C gpTrNm1 :: work-space for time-stepping C surfaceForcingPTr :: passive tracer surface forcing _RL pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, & PTRACERS_num) _RL gpTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy, & PTRACERS_num) _RL surfaceForcingPTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy, & PTRACERS_num) COMMON /PTRACERS_FIELDS/ & pTracer, gpTrNm1, surfaceForcingPTr _RL totSurfCorPTr(PTRACERS_num) _RL meanSurfCorPTr(PTRACERS_num) COMMON /PTRACERS_SURFCOR_FIELDS/ totSurfCorPTr, meanSurfCorPTr #endif /* ALLOW_PTRACERS */ CEH3 ;;; Local Variables: *** CEH3 ;;; mode:fortran *** CEH3 ;;; End: ***