/[MITgcm]/MITgcm/pkg/ecco/cost_ctdsclim.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_ctdsclim.F

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

revision 1.2 by heimbach, Wed Dec 3 23:08:40 2003 UTC revision 1.3 by heimbach, Sat Dec 20 20:11:14 2003 UTC
# Line 81  c     == local variables == Line 81  c     == local variables ==
81        character*(MAX_LEN_MBUF) msgbuf        character*(MAX_LEN_MBUF) msgbuf
82    
83  #ifdef GENERIC_BAR_MONTH  #ifdef GENERIC_BAR_MONTH
84        integer mrec, nyears, iyear        integer mrec, nyears, iyear, tmpmon
85  #endif        #endif      
86  c     == external functions ==  c     == external functions ==
87    
# Line 132  c--   Read tiled data. Line 132  c--   Read tiled data.
132    
133  #ifdef GENERIC_BAR_MONTH  #ifdef GENERIC_BAR_MONTH
134  c--   Loop over month  c--   Loop over month
135          if (nmonsrec.GT.12) then
136             tmpmon = 12
137          else
138             tmpmon = nmonsrec
139          endif
140        do irec = 1,12        do irec = 1,12
141           nyears=int((nmonsrec-irec)/12)+1           nyears=int((nmonsrec-irec)/12)+1
142           if(nyears.gt.0) then           if(nyears.gt.0) then
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22