/[MITgcm]/MITgcm_contrib/ocean_inversion_project/code/ptracers_init.F
ViewVC logotype

Diff of /MITgcm_contrib/ocean_inversion_project/code/ptracers_init.F

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

revision 1.7 by dimitri, Wed Oct 22 16:02:04 2003 UTC revision 1.8 by dimitri, Thu Dec 18 06:11:14 2003 UTC
# Line 102  C     Initialize pTracerTakahashi Line 102  C     Initialize pTracerTakahashi
102    
103  C     Normalize pTracerTakahashi so that 1e18 mol/yr is released  C     Normalize pTracerTakahashi so that 1e18 mol/yr is released
104  C     from each model region defined in pTracerMasks.  C     from each model region defined in pTracerMasks.
105  C     It is assumed that each year is 365.25 days (31557600 s)  C     It is assumed that each year is 365.24167 days (31556880 s)
106  C     long and that each month is 2629800 s.  C     long and that each month is 2629740 s.
107    
108        DO iTracer = 1, PTRACERS_num        DO iTracer = 1, PTRACERS_num
109         SumPtracer = 0.         SumPtracer = 0.
# Line 112  C     long and that each month is 262980 Line 112  C     long and that each month is 262980
112           DO j=1,sNy           DO j=1,sNy
113            DO i=1,sNx            DO i=1,sNx
114             DO iMonth=1,12             DO iMonth=1,12
115              SumPtracer = SumPtracer + 2629800. * rA(I,J,bi,bj) *              SumPtracer = SumPtracer + 2629740. * rA(I,J,bi,bj) *
116       &             pTracerMasks    (I,J,iTracer,bi,bj) *       &             pTracerMasks    (I,J,iTracer,bi,bj) *
117       &             pTracerTakahashi(I,J,iMonth ,bi,bj)       &             pTracerTakahashi(I,J,iMonth ,bi,bj)
118             ENDDO             ENDDO
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22