--- MITgcm/pkg/seaice/seaice_jfnk.F 2013/03/02 04:35:05 1.20 +++ MITgcm/pkg/seaice/seaice_jfnk.F 2013/04/04 07:02:51 1.21 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jfnk.F,v 1.20 2013/03/02 04:35:05 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/seaice/seaice_jfnk.F,v 1.21 2013/04/04 07:02:51 mlosch Exp $ C $Name: $ #include "SEAICE_OPTIONS.h" @@ -53,9 +53,7 @@ INTEGER myIter INTEGER myThid -#if ( (defined SEAICE_CGRID) && \ - (defined SEAICE_ALLOW_JFNK) && \ - (defined SEAICE_ALLOW_DYNAMICS) ) +#ifdef SEAICE_ALLOW_JFNK C !FUNCTIONS: LOGICAL DIFFERENT_MULTIPLE EXTERNAL DIFFERENT_MULTIPLE @@ -529,7 +527,7 @@ C This is the new residual JFNKresidual = resLoc -#endif /* SEAICE_ALLOW_DYNAMICS and SEAICE_CGRID and SEAICE_ALLOW_JFNK */ +#endif /* SEAICE_ALLOW_JFNK */ RETURN END