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

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

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

revision 1.2 by dimitri, Wed Feb 17 17:42:42 2010 UTC revision 1.3 by jmc, Wed Aug 14 01:00:11 2013 UTC
# Line 71  C     ndId      :: diagnostic Id number Line 71  C     ndId      :: diagnostic Id number
71        _RS     dummyRS(1)        _RS     dummyRS(1)
72  C ===============  C ===============
73    
74    C--   Check if this S/R is called from the right place ;
75    C     needs to be after DIAGNOSTICS_SWITCH_ONOFF and before DIAGNOSTICS_WRITE
76          IF ( diag_pkgStatus.NE.ready2fillDiags ) THEN
77            CALL DIAGNOSTICS_STATUS_ERROR( 'DIAGNOSTICS_FILL_RS',
78         &                   ' ', chardiag, ready2fillDiags, myThid )
79          ENDIF
80    
81        arrType = 2        arrType = 2
82        scaleFact = 1. _d 0        scaleFact = 1. _d 0
83        IF ( bibjFlg.EQ.0 ) THEN        IF ( bibjFlg.EQ.0 ) THEN
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22