/[MITgcm]/MITgcm/pkg/seaice/seaice_cost_sss.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_cost_sss.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

--- MITgcm/pkg/seaice/seaice_cost_sss.F	2014/10/20 03:20:57	1.9
+++ MITgcm/pkg/seaice/seaice_cost_sss.F	2015/03/23 21:04:59	1.10
@@ -1,4 +1,4 @@
-C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_cost_sss.F,v 1.9 2014/10/20 03:20:57 gforget Exp $
+C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_cost_sss.F,v 1.10 2015/03/23 21:04:59 gforget Exp $
 C $Name:  $
 
 #include "SEAICE_OPTIONS.h"
@@ -80,6 +80,8 @@
       character*(MAX_LEN_FNAM) localobsfile
 
 #if (defined (ALLOW_ECCO) && defined (ALLOW_COST))
+#ifdef ALLOW_SEAICE_COST_SMR_AREA
+
 c     == local variables ==
 
       integer bi,bj
@@ -368,6 +370,8 @@
 
 c--   End of mult_local or localobsfile
       endif
+
+#endif /* ALLOW_SEAICE_COST_SMR_AREA */
 #endif /* ifdef ALLOW_COST */
 
       end

 

  ViewVC Help
Powered by ViewVC 1.1.22