--- MITgcm/pkg/ctrl/ctrl_set_fname.F 2003/11/06 22:05:08 1.7 +++ MITgcm/pkg/ctrl/ctrl_set_fname.F 2004/11/16 05:42:12 1.8 @@ -1,5 +1,5 @@ C -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.7 2003/11/06 22:05:08 heimbach Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/ctrl/ctrl_set_fname.F,v 1.8 2004/11/16 05:42:12 heimbach Exp $ C $Name: $ #include "CTRL_CPPOPTIONS.h" @@ -27,10 +27,7 @@ #include "GRID.h" #include "ctrl.h" - -#ifdef ALLOW_ECCO_OPTIMIZATION #include "optim.h" -#endif c == routine arguments == @@ -40,10 +37,6 @@ c == local variables == -#ifndef ALLOW_ECCO_OPTIMIZATION - integer optimcycle -#endif - integer ii integer il @@ -54,10 +47,6 @@ c == end of interface == -#ifndef ALLOW_ECCO_OPTIMIZATION - optimcycle = 0 -#endif - c-- Only the master thread will do I/O. _BEGIN_MASTER( mythid )