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

Diff of /MITgcm_contrib/dgoldberg/streamice/eta_gl_streamice_prime.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:13:46 2013 UTC revision 1.2 by dgoldberg, Thu Mar 7 15:10:00 2013 UTC
# Line 15  Line 15 
15         _RL X, M1, M2, Y0, W         _RL X, M1, M2, Y0, W
16         _RL TMP1, PI         _RL TMP1, PI
17    
18    
19         IF (X<-1.0*W/2.0) THEN         IF (X<-1.0*W/2.0) THEN
20           ETA_GL_STREAMICE_PRIME = M1           ETA_GL_STREAMICE_PRIME = M1
21         ELSEIF(X>W/2.0) THEN         ELSEIF(X>W/2.0) THEN
# Line 23  Line 24 
24           PI = 3.14159265358979323844D0           PI = 3.14159265358979323844D0
25           TMP1 = SIN (PI*X/W)           TMP1 = SIN (PI*X/W)
26           ETA_GL_STREAMICE_PRIME =           ETA_GL_STREAMICE_PRIME =
27       &     M1/2 * (1+TMP1) +       &     M1/2 * (1-TMP1) +
28       &     M2/2 * (1-TMP1)       &     M2/2 * (1+TMP1)
29         ENDIF         ENDIF
30    
31         RETURN         RETURN
        END  
32           END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22