Changeset 1048
- Timestamp:
- 08/26/20 14:49:41 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/initial/etat0_heldsz.f90
r1046 r1048 243 243 244 244 CALL compute_theta_rhodz2theta(ps,theta_rhodz,theta,1, ondevice=.TRUE.) 245 246 !$acc parallel loop collapse(3) default(present) async 245 247 DO l=ll_begin,ll_end 246 248 DO j=jj_begin-1,jj_end+1
Note: See TracChangeset
for help on using the changeset viewer.