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

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

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

revision 1.1 by adcroft, Tue May 18 18:01:13 1999 UTC revision 1.2 by heimbach, Mon Nov 13 16:32:58 2000 UTC
# Line 76  c Local Line 76  c Local
76           enddo           enddo
77                    
78        else        else
79           write(0,*) 'FIND_ALPHA: eqn = ',eqn  cph(  write statement confuses TAMC
80    cph         write(0,*) 'FIND_ALPHA: eqn = ',eqn
81    cph)
82           stop 'FIND_ALPHA: argument "eqn" has illegal value'           stop 'FIND_ALPHA: argument "eqn" has illegal value'
83        endif        endif
84    
# Line 154  c Local Line 156  c Local
156           enddo           enddo
157    
158        else        else
159           write(0,*) 'FIND_BETA: eqn = ',eqn  cph(  write statement confuses TAMC
160    cph         write(0,*) 'FIND_BETA: eqn = ',eqn
161    cph)
162           stop 'FIND_BETA: argument "eqn" has illegal value'           stop 'FIND_BETA: argument "eqn" has illegal value'
163        endif        endif
164    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22