--- MITgcm/pkg/diagnostics/diagnostics_fill_state.F 2006/08/29 17:00:30 1.32 +++ MITgcm/pkg/diagnostics/diagnostics_fill_state.F 2006/11/19 22:03:13 1.33 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_fill_state.F,v 1.32 2006/08/29 17:00:30 dfer Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_fill_state.F,v 1.33 2006/11/19 22:03:13 jmc Exp $ C $Name: $ #include "DIAG_OPTIONS.h" @@ -303,7 +303,7 @@ CALL DIAGNOSTICS_FILL(tmpMk,'VVELPHI ',0,Nr,0,1,1,myThid) ENDIF - IF ( DIAGNOSTICS_IS_ON('PRESSURE',myThid) ) THEN + IF ( DIAGNOSTICS_IS_ON('RCENTER ',myThid) ) THEN DO bj = myByLo(myThid), myByHi(myThid) DO bi = myBxLo(myThid), myBxHi(myThid) DO j = 1,sNy @@ -323,7 +323,7 @@ ENDDO ENDDO ENDDO - CALL DIAGNOSTICS_FILL(tmpMk,'PRESSURE',0,Nr,0,1,1,myThid) + CALL DIAGNOSTICS_FILL(tmpMk,'RCENTER ',0,Nr,0,1,1,myThid) ENDIF C First fill sequence for state variable tendency diagnostics: subtract state variable