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

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

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

revision 1.1 by jmc, Thu Sep 3 20:47:14 2009 UTC revision 1.2 by jmc, Wed Aug 14 01:00:12 2013 UTC
# Line 74  C     ndId      :: diagnostic Id number Line 74  C     ndId      :: diagnostic Id number
74        _RS     dummyRS(1)        _RS     dummyRS(1)
75  C ===============  C ===============
76    
77    C--   Check if this S/R is called from the right place ;
78    C     needs to be after DIAGNOSTICS_SWITCH_ONOFF and before DIAGNOSTICS_WRITE
79          IF ( diag_pkgStatus.NE.ready2fillDiags ) THEN
80            CALL DIAGNOSTICS_STATUS_ERROR( 'DIAGNOSTICS_SCALE_FILL_RS',
81         &                   ' ', chardiag, ready2fillDiags, myThid )
82          ENDIF
83    
84        arrType = 2        arrType = 2
85        IF ( bibjFlg.EQ.0 ) THEN        IF ( bibjFlg.EQ.0 ) THEN
86          bi = myBxLo(myThid)          bi = myBxLo(myThid)
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22