/[MITgcm]/MITgcm/pkg/fizhi/fizhi_gwdrag.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_gwdrag.F

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

revision 1.5 by molod, Tue May 31 18:07:45 2005 UTC revision 1.6 by molod, Tue May 31 20:14:37 2005 UTC
# Line 440  c --------------------------------- Line 440  c ---------------------------------
440        enddo        enddo
441    
442        do  i = 1,irun        do  i = 1,irun
443         robar(i) = robar(i)/(ps(i)-ple(i,Lm+1-nbase(i))) * 100.0         robar(i) = robar(i)/(ps(i)-ple(i,Lm+1-nbase(i)-1)) * 100.0
444         ubar(i) = ubar(i)/(ps(i)-ple(i,Lm+1-nbase(i)))         ubar(i) = ubar(i)/(ps(i)-ple(i,Lm+1-nbase(i)-1))
445         vbar(i) = vbar(i)/(ps(i)-ple(i,Lm+1-nbase(i)))         vbar(i) = vbar(i)/(ps(i)-ple(i,Lm+1-nbase(i)-1))
446    
447         speed(i) = sqrt( ubar(i)*ubar(i) + vbar(i)*vbar(i) )         speed(i) = sqrt( ubar(i)*ubar(i) + vbar(i)*vbar(i) )
448         ang(i) = atan2(vbar(i),ubar(i))         ang(i) = atan2(vbar(i),ubar(i))
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22