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

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

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

revision 1.12 by jmc, Fri May 9 21:44:31 2008 UTC revision 1.13 by jmc, Thu Sep 3 22:13:04 2009 UTC
# Line 278  C        Read 2nd Order moments as conse Line 278  C        Read 2nd Order moments as conse
278           DO n=1,nSOM           DO n=1,nSOM
279             iRec = n             iRec = n
280             CALL READ_REC_3D_RL( fn, prec, Nr,             CALL READ_REC_3D_RL( fn, prec, Nr,
281       O               _Ptracers_som(1-Olx,1-Oly,1,1,1,n,iTracer),       O               _Ptracers_som(:,:,:,:,:,n,iTracer),
282       I               iRec, myIter, myThid )       I               iRec, myIter, myThid )
283           ENDDO           ENDDO
284           CALL GAD_EXCH_SOM( _Ptracers_som(1-Olx,1-Oly,1,1,1,1,iTracer),           CALL GAD_EXCH_SOM( _Ptracers_som(:,:,:,:,:,:,iTracer),
285       &                      Nr, myThid )       &                      Nr, myThid )
286          ENDIF          ENDIF
287         ENDDO         ENDDO
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22