/[MITgcm]/MITgcm/pkg/seaice/seaice_cost_init_fixed.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_cost_init_fixed.F

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

revision 1.2 by heimbach, Thu Sep 1 05:34:31 2005 UTC revision 1.3 by heimbach, Thu Sep 1 14:28:22 2005 UTC
# Line 26  c     == global variables == Line 26  c     == global variables ==
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "GRID.h"  #include "GRID.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
29  #include "SEAICE_COST.h"  #ifdef ALLOW_COST
30    # include "SEAICE_COST.h"
31    #endif
32  #ifdef ALLOW_CAL  #ifdef ALLOW_CAL
33  # include "cal.h"  # include "cal.h"
34  #endif  #endif
# Line 36  c     == routine arguments == Line 37  c     == routine arguments ==
37    
38        integer mythid        integer mythid
39    
40    #ifdef ALLOW_COST
41  c     == local variables ==  c     == local variables ==
42    
43        integer tempDate1(4)        integer tempDate1(4)
# Line 103  cph         call seaice_cost_init_barfil Line 105  cph         call seaice_cost_init_barfil
105    
106        _BARRIER        _BARRIER
107    
108    #endif /* ALLOW_COST */
109    
110        end        end

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.22