/[MITgcm]/MITgcm/pkg/ptracers/ptracers_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_forcing.F

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

revision 1.4 by dimitri, Wed Sep 24 04:52:39 2003 UTC revision 1.5 by heimbach, Sun Oct 26 01:10:34 2003 UTC
# Line 8  C !ROUTINE: PTRACERS_FORCING Line 8  C !ROUTINE: PTRACERS_FORCING
8    
9  C !INTERFACE: ==========================================================  C !INTERFACE: ==========================================================
10        SUBROUTINE PTRACERS_FORCING(        SUBROUTINE PTRACERS_FORCING(
11       I                            bi,bj,iMin,iMax,jMin,jMax,k,iTracer,       I                            bi,bj,iMin,iMax,jMin,jMax,k,
12       U                            gPtracer,       U                            gPtracer,surfPtracer,
13       I                            myIter,myTime,myThid )       I                            myIter,myTime,myThid )
14    
15  C !DESCRIPTION:  C !DESCRIPTION:
# Line 19  C !USES: =============================== Line 19  C !USES: ===============================
19        IMPLICIT NONE        IMPLICIT NONE
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
 #include "PTRACERS.h"  
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "FFIELDS.h"  #include "FFIELDS.h"
24  #include "DYNVARS.h"  #include "DYNVARS.h"
# Line 29  C !INPUT PARAMETERS: =================== Line 28  C !INPUT PARAMETERS: ===================
28  C  bi,bj                :: tile indices  C  bi,bj                :: tile indices
29  C  iMin iMax jMin jMax  :: working range of tile for applying forcing  C  iMin iMax jMin jMax  :: working range of tile for applying forcing
30  C  k                    :: vertical level number  C  k                    :: vertical level number
 C  iTracer              :: passive tracer index  
31  C  gPtracer             :: the tendancy array  C  gPtracer             :: the tendancy array
32  C  myIter               :: time-step number  C  myIter               :: time-step number
33  C  myTime               :: model time  C  myTime               :: model time
34  C  myThid               :: thread number  C  myThid               :: thread number
35        INTEGER bi,bj,iMin, iMax, jMin, jMax,k,iTracer        INTEGER bi,bj,iMin, iMax, jMin, jMax,k
36        _RL gPtracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)        _RL gPtracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,Nr,nSx,nSy)
37          _RL surfPtracer(1-Olx:sNx+Olx,1-Oly:sNy+Oly,nSx,nSy)
38        INTEGER myIter        INTEGER myIter
39        _RL myTime        _RL myTime
40        INTEGER myThid        INTEGER myThid
# Line 66  C     by PTRACERS_FORCING because it is Line 65  C     by PTRACERS_FORCING because it is
65           DO i=iMin,iMax           DO i=iMin,iMax
66            gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) +            gPtracer(i,j,k,bi,bj) = gPtracer(i,j,k,bi,bj) +
67       &           maskC(i,j,k,bi,bj) *       &           maskC(i,j,k,bi,bj) *
68       &           surfaceTendencyPtr(i,j,bi,bj,iTracer)       &           surfPtracer(i,j,bi,bj)
69           ENDDO           ENDDO
70          ENDDO          ENDDO
71         ENDIF         ENDIF
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22