/[MITgcm]/MITgcm/pkg/my82/my82_ri_number.F
ViewVC logotype

Diff of /MITgcm/pkg/my82/my82_ri_number.F

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

revision 1.1 by mlosch, Thu Sep 2 09:11:54 2004 UTC revision 1.2 by mlosch, Mon May 30 07:41:45 2005 UTC
# Line 65  C     rhoK, rhoKm1 - Density below and a Line 65  C     rhoK, rhoKm1 - Density below and a
65  C     epsilon      - small number  C     epsilon      - small number
66        INTEGER I,J,Km1        INTEGER I,J,Km1
67        _RL        p5    , p125              _RL        p5    , p125      
68        PARAMETER( p5=0.5, p125=0.125 )        PARAMETER( p5=0.5D0, p125=0.125D0 )
69        _RL tempu, tempv        _RL tempu, tempv
70        _RL epsilon        _RL epsilon
71        PARAMETER    (  epsilon = 1.D-10 )        PARAMETER    (  epsilon = 1.D-10 )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22