- Timestamp:
- 07/16/14 18:05:01 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/stokes.F90
r222 r227 33 33 real a,b,molrad,visc 34 34 save a,b 35 !$OMP THREADPRIVATE(a,b) 35 36 36 37 LOGICAL firstcall 37 38 SAVE firstcall 38 39 DATA firstcall/.true./ 40 !$OMP THREADPRIVATE(firstcall) 39 41 40 42 if (firstcall) then
Note: See TracChangeset
for help on using the changeset viewer.