Changeset 75 for codes/icosagcm/trunk/src/icosa_gcm.f90

Timestamp:

08/02/12 22:32:22 (12 years ago)

Author:

ymipsl

Message:

write file apbp.nc parameters for vertical discretisation

YM

File:

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

codes/icosagcm/trunk/src/icosa_gcm.f90

@@ -77 +77 @@
   CALL WriteField("Ai",geom%Ai)
 !  CALL WriteField("sum_ne",sum_ne)
+  CALL write_apbp
   CALL timeloop