Changeset 349

Timestamp:

08/01/15 15:43:11 (9 years ago)

Author:

dubos

Message:

Re-enabled dycore output lost in HEAT@45

File:

• codes/icosagcm/trunk/src/caldyn_gcm.f90 (modified) (1 diff)

codes/icosagcm/trunk/src/caldyn_gcm.f90

@@ -301 +301 @@
 !       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 output_field("ulon",f_buf_ulon)
-!       CALL output_field("ulat",f_buf_ulat)
-
-!       CALL output_field("ps",f_ps)
+       CALL un2ulonlat(f_u, f_buf_ulon, f_buf_ulat)
+       CALL output_field("ulon",f_buf_ulon)
+       CALL output_field("ulat",f_buf_ulat)
+       CALL output_field("ps",f_ps)
 !       CALL output_field("dps",f_dps)
 !       CALL output_field("mass",f_mass)
 !       CALL output_field("dmass",f_dmass)
-!       CALL output_field("vort",f_qv)
-!       CALL output_field("theta",f_theta)
+       CALL output_field("vort",f_qv)
+       CALL output_field("theta",f_theta)
 !       CALL output_field("exner",f_pk)
 !       CALL output_field("pv",f_qv)
-! 
+ 
     END IF