Changeset 764 for LMDZ4/trunk/libf/dyn3dpar/bernoui_p.F
- Timestamp:
- Jun 4, 2007, 4:13:10 PM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/bernoui_p.F
r630 r764 37 37 c 38 38 INTEGER ij,l,ijb,ije,jjb,jje 39 EXTERNAL filtreg_p40 39 c 41 40 c----------------------------------------------------------------------- … … 50 49 jje=jj_end+1 51 50 if (pole_sud) jje=jj_end 52 51 52 c$OMP DO SCHEDULE(STATIC,OMP_CHUNK) 53 53 DO l=1,llm 54 54 … … 58 58 59 59 ENDDO 60 c$OMP END DO NOWAIT 60 61 c 61 62 c-----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.