/[MITgcm]/MITgcm/pkg/streamice/phi_gl_streamice.F
ViewVC logotype

Diff of /MITgcm/pkg/streamice/phi_gl_streamice.F

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

revision 1.1 by dgoldberg, Wed Jun 12 21:30:21 2013 UTC revision 1.2 by dgoldberg, Fri Jun 21 19:35:44 2013 UTC
# Line 1  Line 1 
1    C $Header$
2    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6        _RL FUNCTION PHI_GL_STREAMICE (X, W)        _RL FUNCTION PHI_GL_STREAMICE (X, W)
# Line 8  Line 11 
11         _RL X, W         _RL X, W
12         _RL TMP1, PI         _RL TMP1, PI
13    
14         IF (X<0.0) THEN         IF (X.le.0.0) THEN
15           PHI_GL_STREAMICE = 0.0           PHI_GL_STREAMICE = 0.0
16         ELSEIF(X>W/2.0) THEN         ELSEIF(X.gt.0.5*W) THEN
17           PHI_GL_STREAMICE = 1.0           PHI_GL_STREAMICE = 1.0
18         ELSE         ELSE
19           PI = 3.14159265358979323844D0           PI = 3.14159265358979323844D0
# Line 19  Line 22 
22         ENDIF         ENDIF
23    
24         RETURN         RETURN
        END  
25           END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22