Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch
| revision 1.2 by dfer, Fri Jan 30 02:23:56 2009 UTC | revision 1.3 by jmc, Tue Apr 28 18:15:33 2009 UTC | |
|---|---|---|
| # | Line 64 C-- Read initial turbulent kinetic ene | Line 64 C-- Read initial turbulent kinetic ene |
| 64 | IF ( GGL90TKEFile .NE. ' ' ) THEN | IF ( GGL90TKEFile .NE. ' ' ) THEN |
| 65 | _BARRIER | _BARRIER |
| 66 | CALL READ_FLD_XYZ_RL( GGL90TKEFile, ' ', GGL90TKE, 0, myThid ) | CALL READ_FLD_XYZ_RL( GGL90TKEFile, ' ', GGL90TKE, 0, myThid ) |
| 67 | _EXCH_XYZ_R8(GGL90TKE,myThid) | _EXCH_XYZ_RL(GGL90TKE,myThid) |
| 68 | DO bj=myByLo(myThid),myByHi(myThid) | DO bj=myByLo(myThid),myByHi(myThid) |
| 69 | DO bi=myBxLo(myThid),myBxHi(myThid) | DO bi=myBxLo(myThid),myBxHi(myThid) |
| 70 | DO k=1,Nr | DO k=1,Nr |
|
||||||||
| ViewVC Help | |
| Powered by ViewVC 1.1.22 |