- Timestamp:
- 08/20/20 16:22:41 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/diagnostics/geopotential_mod.f90
r899 r1046 28 28 theta_rhodz = f_theta_rhodz(ind) 29 29 theta = f_theta(ind) 30 CALL compute_theta_rhodz2theta(ps, theta_rhodz,theta,0 )30 CALL compute_theta_rhodz2theta(ps, theta_rhodz,theta,0, ondevice=.FALSE.) 31 31 phis = f_phis(ind) 32 32 phi = f_phi(ind)
Note: See TracChangeset
for help on using the changeset viewer.