Parent Directory | Revision Log | Revision Graph | 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 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |