--- MITgcm/pkg/diagnostics/diagnostics_utils.F 2010/01/15 00:25:58 1.29 +++ MITgcm/pkg/diagnostics/diagnostics_utils.F 2010/01/15 18:57:07 1.30 @@ -1,4 +1,4 @@ -C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_utils.F,v 1.29 2010/01/15 00:25:58 jmc Exp $ +C $Header: /home/ubuntu/mnt/e9_copy/MITgcm/pkg/diagnostics/diagnostics_utils.F,v 1.30 2010/01/15 18:57:07 jmc Exp $ C $Name: $ #include "DIAG_OPTIONS.h" @@ -333,6 +333,8 @@ C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| + _BEGIN_MASTER( myThid) + C-- Check if this S/R is called from the right place ; C needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED IF ( .NOT.settingDiags ) THEN @@ -404,6 +406,8 @@ & SQUEEZE_RIGHT , myThid ) ENDIF + _END_MASTER( myThid) + RETURN END