/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_citer.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_citer.F

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

revision 1.1 by edhill, Sat Sep 10 18:30:07 2005 UTC revision 1.2 by edhill, Wed Sep 14 19:27:31 2005 UTC
# Line 25  C     !INPUT PARAMETERS: Line 25  C     !INPUT PARAMETERS:
25        integer igroup, iflag, ival_curr, ival_next, myThid        integer igroup, iflag, ival_curr, ival_next, myThid
26  CEOP  CEOP
27    
28    C     !LOCAL VARIABLES:
29          integer i
30    
31        mnc_cw_cit(1,igroup) = iflag        mnc_cw_cit(1,igroup) = iflag
32        IF ( ival_curr .GT. 0 ) THEN        IF ( ival_curr .GT. 0 ) THEN
33          mnc_cw_cit(2,igroup) = ival_curr  
34            IF ( mnc_cw_cit(2,igroup) .NE. ival_curr ) THEN
35    
36    C         The current iteration number has changed so we need to reset
37    C         the unlimited dimension for all the files in this citer group
38              DO i = 1,MNC_MAX_ID
39                IF ( mnc_cw_fgci(i) .eq. igroup ) THEN
40                  mnc_cw_fgud(i) = 0
41                ENDIF
42              ENDDO
43    
44              mnc_cw_cit(2,igroup) = ival_curr
45    
46            ENDIF
47            
48        ENDIF        ENDIF
49        IF ( ival_next .GT. 0 ) THEN        IF ( ival_next .GT. 0 ) THEN
50          mnc_cw_cit(3,igroup) = ival_next          mnc_cw_cit(3,igroup) = ival_next
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22