--- trunk/dyn3d/gcm.f	2014/09/16 14:00:41	108
+++ trunk/dyn3d/gcm.f	2014/09/17 10:08:00	109
@@ -35,7 +35,7 @@
   use tracstoke, only: istdyn, istphy
   use unit_nml_m, only: unit_nml
   use yoethf_m, only: yoethf
-  use write_field, only: NbField, FieldId
+  use write_field, only: NbField, Ncid
 
   IMPLICIT NONE
 
@@ -155,7 +155,7 @@
   call histclo
 
   do i = 1, nbfield
-     call nf95_close(FieldId(i))
+     call nf95_close(Ncid(i))
   end do
 
   print *, 'Simulation finished'