/[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.2 by dimitri, Tue Sep 23 04:34:23 2003 UTC revision 1.4 by dimitri, Tue Oct 21 03:25:30 2003 UTC
# Line 34  C  none Line 34  C  none
34    
35  C !LOCAL VARIABLES: ====================================================  C !LOCAL VARIABLES: ====================================================
36  C  i,j,k,bi,bj,iTracer  :: loop indices  C  i,j,k,bi,bj,iTracer  :: loop indices
37        INTEGER i,j,k,bi,bj,iTracer,iMonth        INTEGER i,j,k,bi,bj,iTracer,iMonth,iUnit,iRec
38        CHARACTER*(10) suff        CHARACTER*(10) suff
39        _RL SumPtracer        _RL SumPtracer
40  CEOP  CEOP
# Line 56  C Initialize arrays in common blocks : Line 56  C Initialize arrays in common blocks :
56             ENDDO             ENDDO
57            ENDDO            ENDDO
58           ENDDO           ENDDO
59             DO j=1-Oly,sNy+OLy
60              DO i=1-Olx,sNx+Olx
61               surfaceTendencyPtr(i,j,bi,bj,iTracer) = 0. _d 0
62              ENDDO
63             ENDDO
64    
65  C end bi,bj loops  C end bi,bj loops
66          ENDDO          ENDDO
# Line 117  C     long and that each month is 262980 Line 122  C     long and that each month is 262980
122         ENDDO         ENDDO
123        ENDDO        ENDDO
124    
125    #ifdef OCEAN_INVERSION_PROJECT_TIME_DEPENDENT
126    C     Initialize atmospheric CO2 array
127          call mdsfindunit( iUnit, mythid)
128          open(iUnit,file='splco2_cis92a.dat',status='old',form="FORMATTED")
129          do iRec=1,pTracerAtm_Nrec
130             read(iUnit,*) pTracerAtmYear(iRec), pTracerAtmCO2(iRec)
131    cdb      print*, '###', iRec, pTracerAtmYear(iRec), pTracerAtmCO2(iRec)
132          enddo
133          close(iUnit)
134    #endif /* OCEAN_INVERSION_PROJECT_TIME_DEPENDENT */
135    
136  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
137    
138        RETURN        RETURN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22