/[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.3 by cnh, Sun Feb 4 14:38:47 2001 UTC revision 1.4 by heimbach, Tue Apr 10 22:35:25 2001 UTC
# Line 77  c Local Line 77  c Local
77           enddo           enddo
78                    
79        else        else
80  cph(  write statement confuses TAMC           write(*,*) 'FIND_ALPHA: eqn = ',eqn
 cph         write(0,*) 'FIND_ALPHA: eqn = ',eqn  
 cph)  
81           stop 'FIND_ALPHA: argument "eqn" has illegal value'           stop 'FIND_ALPHA: argument "eqn" has illegal value'
82        endif        endif
83    
# Line 157  c Local Line 155  c Local
155           enddo           enddo
156    
157        else        else
158  cph(  write statement confuses TAMC           write(*,*) 'FIND_BETA: eqn = ',eqn
 cph         write(0,*) 'FIND_BETA: eqn = ',eqn  
 cph)  
159           stop 'FIND_BETA: argument "eqn" has illegal value'           stop 'FIND_BETA: argument "eqn" has illegal value'
160        endif        endif
161    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22