Changeset 709 for LMDZ4/branches/V3_test/libf/dyn3dpar/flumass_p.F
- Timestamp:
- Sep 20, 2006, 12:12:39 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/V3_test/libf/dyn3dpar/flumass_p.F
r630 r709 37 37 REAL SSUM 38 38 39 39 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 40 40 DO 5 l = 1,llm 41 41 … … 61 61 62 62 5 CONTINUE 63 63 c$OMP END DO NOWAIT 64 64 c ................................................................ 65 65 c calcul de la composante du flux de masse en x aux poles ....... … … 87 87 saireun= SSUM( iim, aireu( 1 ), 1 ) 88 88 89 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 89 90 DO l = 1,llm 90 91 … … 111 112 112 113 ENDDO 113 114 c$OMP END DO NOWAIT 115 114 116 ENDIF 115 117 … … 119 121 saires = SSUM( iim, aire( ip1jm+1 ), 1 ) 120 122 saireus= SSUM( iim, aireu( ip1jm+1 ), 1 ) 121 123 124 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 122 125 DO l = 1,llm 123 126 … … 143 146 144 147 ENDDO 145 148 c$OMP END DO NOWAIT 146 149 ENDIF 147 150
Note: See TracChangeset
for help on using the changeset viewer.