--- MITgcm/model/src/ini_dynvars.F 2005/04/15 14:02:54 1.15 +++ MITgcm/model/src/ini_dynvars.F 2005/11/08 02:10:49 1.16 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_dynvars.F,v 1.15 2005/04/15 14:02:54 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/model/src/ini_dynvars.F,v 1.16 2005/11/08 02:10:49 jmc Exp $ C $Name: $ #include "CPP_OPTIONS.h" @@ -25,9 +25,6 @@ #include "EEPARAMS.h" #include "PARAMS.h" #include "DYNVARS.h" -#ifdef ALLOW_NONHYDROSTATIC -#include "GW.h" -#endif C !INPUT/OUTPUT PARAMETERS: C == Routine arguments == @@ -77,12 +74,6 @@ gsNm1(I,J,K,bi,bj) =0. _d 0 #endif -#ifdef ALLOW_NONHYDROSTATIC -ceh3 needs an IF ( useNONHYDROSTATIC ) THEN - gW(I,J,K,bi,bj)=0. _d 0 - gWnm1(I,J,K,bi,bj)=0. _d 0 -#endif - totPhiHyd(I,J,K,bi,bj)=0. _d 0 IVDConvCount(i,j,k,bi,bj) = 0. _d 0 ENDDO