--- MITgcm/pkg/autodiff/adcommon.h	2009/10/08 08:18:21	1.22
+++ MITgcm/pkg/autodiff/adcommon.h	2009/10/22 12:35:51	1.23
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/autodiff/adcommon.h,v 1.22 2009/10/08 08:18:21 mlosch Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/autodiff/adcommon.h,v 1.23 2009/10/22 12:35:51 mlosch Exp $
 C $Name:  $
 
 C--   These common blocks are extracted from the
@@ -157,17 +157,13 @@
 #endif
 
 #ifdef ALLOW_SEAICE
-      _RL adarea(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      common /adseaice_dynvars_1/ adarea
-c
-      _RL adheff(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      _RL adhsnow(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      common /adseaice_trans/ adheff, adhsnow
-# ifdef SEAICE_ALLOW_DYNAMICS
-      _RL aduice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      _RL advice(1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
-      common /adseaice_dynvars_2/ aduice, advice
-# endif
+      _RL adarea  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
+      _RL adheff  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
+      _RL adhsnow (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
+      _RL aduice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
+      _RL advice  (1-olx:snx+olx,1-oly:sny+oly,nsx,nsy)
+      common /adseaice_dynvars_1/ 
+     &     adarea, adheff, adhsnow, aduice, advice
 #endif
 
 #ifdef ALLOW_DEPTH_CONTROL