--- MITgcm/pkg/thsice/thsice_write_pickup.F	2005/09/17 03:17:06	1.3
+++ MITgcm/pkg/thsice/thsice_write_pickup.F	2005/11/05 00:57:00	1.4
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/thsice/thsice_write_pickup.F,v 1.3 2005/09/17 03:17:06 edhill Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/thsice/thsice_write_pickup.F,v 1.4 2005/11/05 00:57:00 jmc Exp $
 C $Name:  $
 
 #include "THSICE_OPTIONS.h"
@@ -26,10 +26,6 @@
 #include "THSICE_PARAMS.h"
 #include "THSICE_VARS.h"
 
-C     == Common blocks ==
-      COMMON /PCKP_GBLFLS/ globalFile
-      LOGICAL globalFile
-
 C     !INPUT/OUTPUT PARAMETERS:
 C     == Routine arguments ==
       INTEGER prec