Changeset 191

Timestamp:

05/27/14 00:01:46 (10 years ago)

Author:

dubos

Message:

Reactivated output of ulon,ulat

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -137 +137 @@
     USE kinetic_mod
     USE theta2theta_rhodz_mod
+    USE wind_mod
     USE mpipara
     USE trace
@@ -297 +298 @@
 !       CALL write_output_fields(f_ps, f_phis, f_dps, f_u, f_theta_rhodz, f_q, &
 !            f_buf_i, f_buf_v, f_buf_u3d, f_buf_ulon, f_buf_ulat, f_buf_s, f_buf_p)
+       CALL un2ulonlat(f_u, f_buf_ulon, f_buf_ulat)
+       CALL writefield("ulon",f_buf_ulon)
+       CALL writefield("ulat",f_buf_ulat)
 
        CALL output_field("ps",f_ps)