/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_utils.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_utils.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.29 by jmc, Fri Jan 15 00:25:58 2010 UTC revision 1.30 by jmc, Fri Jan 15 18:57:07 2010 UTC
# Line 333  C     !LOCAL VARIABLES: Line 333  C     !LOCAL VARIABLES:
333    
334  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
335    
336          _BEGIN_MASTER( myThid)
337    
338  C--   Check if this S/R is called from the right place ;  C--   Check if this S/R is called from the right place ;
339  C     needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED  C     needs to be after DIAGNOSTICS_INIT_EARLY and before DIAGNOSTICS_INIT_FIXED
340        IF ( .NOT.settingDiags ) THEN        IF ( .NOT.settingDiags ) THEN
# Line 404  C-    for now, do nothing but just send Line 406  C-    for now, do nothing but just send
406       &                      SQUEEZE_RIGHT , myThid )       &                      SQUEEZE_RIGHT , myThid )
407        ENDIF        ENDIF
408    
409          _END_MASTER( myThid)
410    
411        RETURN        RETURN
412        END        END
413    
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22