pkg/ptracers/PTRACERS_FIELDS.h

0a278985fd Jean*0001 #ifdef ALLOW_PTRACERS
                0002
                0003 CBOP
                0004 C    !ROUTINE: PTRACERS_FIELDS.h
                0005 C    !INTERFACE:
                0006 C #include PTRACERS_FIELDS.h
                0007
                0008 C    !DESCRIPTION:
                0009 C Contains passive tracer fields
                0010
                0011 CEOP
                0012
                0013 C     COMMON /PTRACERS_FIELDS/
                0014 C     pTracer  :: passive tracer concentration (tr per unit volume).
                0015 C     gpTrNm1  :: work-space for time-stepping
                0016 C     surfaceForcingPTr :: passive tracer surface forcing
                0017       _RL  pTracer (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
                0018      &              PTRACERS_num)
                0019       _RL  gpTrNm1 (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy,
                0020      &              PTRACERS_num)
                0021       _RL  surfaceForcingPTr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy,
                0022      &              PTRACERS_num)
                0023       COMMON /PTRACERS_FIELDS/
6bd1c8683e Jean*0024      &              pTracer, gpTrNm1, surfaceForcingPTr
0a278985fd Jean*0025
4da58558f5 Oliv*0026       _RL totSurfCorPTr(PTRACERS_num)
0aacb0e819 Oliv*0027       _RL meanSurfCorPTr(PTRACERS_num)
                0028       COMMON /PTRACERS_SURFCOR_FIELDS/ totSurfCorPTr, meanSurfCorPTr
4da58558f5 Oliv*0029
0a278985fd Jean*0030 #endif /* ALLOW_PTRACERS */
                0031
                0032 CEH3 ;;; Local Variables: ***
                0033 CEH3 ;;; mode:fortran ***
                0034 CEH3 ;;; End: ***