/[MITgcm]/MITgcm/pkg/cal/cal_set.F
ViewVC logotype

Diff of /MITgcm/pkg/cal/cal_set.F

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

revision 1.1 by heimbach, Mon May 14 22:07:27 2001 UTC revision 1.2 by heimbach, Thu May 30 22:49:56 2002 UTC
# Line 1  Line 1 
 C $Header$  
1    
2  #include "CAL_CPPOPTIONS.h"  #include "CAL_CPPOPTIONS.h"
3    
 #ifdef ALLOW_CAL_NENDITER  
4        subroutine cal_Set(        subroutine cal_Set(
5       I                    modstart,       I                    modstart,
6       I                    modend,       I                    modend,
# Line 17  C $Header$ Line 15  C $Header$
15       I                    modintsteps,       I                    modintsteps,
16       I                    mythid       I                    mythid
17       &                  )       &                  )
 #else  
       subroutine cal_Set(  
      I                    modstart,  
      I                    modend,  
      I                    modstep,  
      I                    modcalendartype,  
      I                    modstartdate_1,  
      I                    modstartdate_2,  
      I                    modenddate_1,  
      I                    modenddate_2,  
      I                    moditerini,  
      I                    modintsteps,  
      I                    mythid  
      &                  )  
 #endif  
18    
19  c     ==================================================================  c     ==================================================================
20  c     SUBROUTINE cal_Set  c     SUBROUTINE cal_Set
# Line 112  c     mythid          - number of this i Line 95  c     mythid          - number of this i
95        integer modenddate_1        integer modenddate_1
96        integer modenddate_2        integer modenddate_2
97        integer moditerini        integer moditerini
 #ifdef ALLOW_CAL_NENDITER  
98        integer moditerend        integer moditerend
 #endif  
99        integer modintsteps        integer modintsteps
100        integer mythid        integer mythid
101    
# Line 159  c Line 140  c
140        modeliter0       = moditerini        modeliter0       = moditerini
141        modelintsteps    = modintsteps        modelintsteps    = modintsteps
142    
 #ifdef ALLOW_CAL_NENDITER  
143        modeliterend     = moditerend        modeliterend     = moditerend
 #else  
       modeliterend     = 0  
 #endif  
144    
145  c     Do first consistency checks (most are taken from the MITgcmUV).  c     Do first consistency checks (most are taken from the MITgcmUV).
146  c     o Time step.  c     o Time step.
# Line 461  c     Check consistency of the numerical Line 438  c     Check consistency of the numerical
438          ierr = 115          ierr = 115
439          call cal_PrintError( ierr, mythid )          call cal_PrintError( ierr, mythid )
440          stop ' stopped in cal_Set.'          stop ' stopped in cal_Set.'
 #ifdef ALLOW_CAL_NENDITER  
441        else if ( modeliterend .ne. moditerend ) then        else if ( modeliterend .ne. moditerend ) then
442          ierr = 116          ierr = 116
443          call cal_PrintError( ierr, mythid )          call cal_PrintError( ierr, mythid )
444          stop ' stopped in cal_Set.'          stop ' stopped in cal_Set.'
 #endif  
445        else if ( modelintsteps .ne. modintsteps) then        else if ( modelintsteps .ne. modintsteps) then
446          ierr = 117          ierr = 117
447          call cal_PrintError( ierr, mythid )          call cal_PrintError( ierr, mythid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22