/[MITgcm]/MITgcm_contrib/dgoldberg/streamice/phi_gl_streamice.F
ViewVC logotype

Diff of /MITgcm_contrib/dgoldberg/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, Tue Feb 19 19:14:12 2013 UTC revision 1.2 by dgoldberg, Wed Aug 27 19:29:12 2014 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