Changeset 191 for codes/icosagcm/trunk
- Timestamp:
- 05/27/14 00:01:46 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
codes/icosagcm/trunk/src/caldyn_gcm.f90
r190 r191 137 137 USE kinetic_mod 138 138 USE theta2theta_rhodz_mod 139 USE wind_mod 139 140 USE mpipara 140 141 USE trace … … 297 298 ! CALL write_output_fields(f_ps, f_phis, f_dps, f_u, f_theta_rhodz, f_q, & 298 299 ! f_buf_i, f_buf_v, f_buf_u3d, f_buf_ulon, f_buf_ulat, f_buf_s, f_buf_p) 300 CALL un2ulonlat(f_u, f_buf_ulon, f_buf_ulat) 301 CALL writefield("ulon",f_buf_ulon) 302 CALL writefield("ulat",f_buf_ulat) 299 303 300 304 CALL output_field("ps",f_ps)
Note: See TracChangeset
for help on using the changeset viewer.