/[MITgcm]/MITgcm/pkg/obcs/obcs_prescribe_read.F
ViewVC logotype

Diff of /MITgcm/pkg/obcs/obcs_prescribe_read.F

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

revision 1.16 by mlosch, Thu Jan 24 18:39:38 2008 UTC revision 1.17 by mlosch, Thu Jan 24 20:51:00 2008 UTC
# Line 285  c     == local variables == Line 285  c     == local variables ==
285        integer year0, year1        integer year0, year1
286        _RL     fac        _RL     fac
287  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
288        integer iTracer, i,j,k        integer iTracer
289  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
290    
291  c     == end of interface ==  c     == end of interface ==
# Line 360  c     get record numbers and interpolati Line 360  c     get record numbers and interpolati
360  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
361  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
362        if ( usePTRACERS ) then        if ( usePTRACERS ) then
363         do itracer = 1, PTRACERS_numInUse         do iTracer = 1, PTRACERS_numInUse
364          call exf_set_obcs_xz(  OBptr (1-Olx,1,1,1,iTracer)          call exf_set_obcs_xz(  OBptr (1-Olx,1,1,1,iTracer)
365       I                       , OBptr0(1-Olx,1,1,1,iTracer)       I                       , OBptr0(1-Olx,1,1,1,iTracer)
366       I                       , OBptr1(1-Olx,1,1,1,iTracer)       I                       , OBptr1(1-Olx,1,1,1,iTracer)
# Line 483  c     == local variables == Line 483  c     == local variables ==
483        integer year0, year1        integer year0, year1
484        _RL     fac        _RL     fac
485  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
486        integer iTracer, i,j,k        integer iTracer
487  #endif /* ALLOW_PTRACERS */  #endif /* ALLOW_PTRACERS */
488    
489  c     == end of interface ==  c     == end of interface ==
# Line 558  c     get record numbers and interpolati Line 558  c     get record numbers and interpolati
558  #endif /* ALLOW_SEAICE */  #endif /* ALLOW_SEAICE */
559  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
560        if ( usePTRACERS ) then        if ( usePTRACERS ) then
561         do itracer = 1, PTRACERS_numInUse         do iTracer = 1, PTRACERS_numInUse
562          call exf_set_obcs_yz(  OBptr (1-Olx,1,1,1,iTracer)          call exf_set_obcs_yz(  OBptr (1-Olx,1,1,1,iTracer)
563       I                       , OBptr0(1-Olx,1,1,1,iTracer)       I                       , OBptr0(1-Olx,1,1,1,iTracer)
564       I                       , OBptr1(1-Olx,1,1,1,iTracer)       I                       , OBptr1(1-Olx,1,1,1,iTracer)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22