/[MITgcm]/MITgcm/model/src/calc_r_star.F
ViewVC logotype

Diff of /MITgcm/model/src/calc_r_star.F

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

revision 1.8 by jmc, Fri Sep 30 15:14:21 2005 UTC revision 1.9 by jmc, Fri Nov 4 01:19:24 2005 UTC
# Line 48  C     i,j,k,bi,bj  :: loop counter Line 48  C     i,j,k,bi,bj  :: loop counter
48  C     numbWrite    :: count the Number of warning written on STD-ERR file  C     numbWrite    :: count the Number of warning written on STD-ERR file
49  C     numbWrMax    ::  maximum  Number of warning written on STD-ERR file  C     numbWrMax    ::  maximum  Number of warning written on STD-ERR file
50        INTEGER i,j,k,bi,bj        INTEGER i,j,k,bi,bj
       INTEGER ii,jj  
51        INTEGER numbWrite, numbWrMax        INTEGER numbWrite, numbWrMax
52        _RL tmpfldW, tmpfldS        _RL tmpfldW, tmpfldS
53  c     CHARACTER*(MAX_LEN_MBUF) suff  c     CHARACTER*(MAX_LEN_MBUF) suff
54  CEOP  CEOP
55    #ifdef W2_FILL_NULL_REGIONS
56          INTEGER ii,jj
57    #endif
58        DATA numbWrite / 0 /        DATA numbWrite / 0 /
59        numbWrMax = Nx*Ny        numbWrMax = Nx*Ny
60    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22