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

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

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

revision 1.47 by jmc, Wed Apr 1 23:58:22 2009 UTC revision 1.48 by mlosch, Tue Jan 19 14:24:36 2010 UTC
# Line 2449  CCC      if(pl(i,L).le.10.) then Line 2449  CCC      if(pl(i,L).le.10.) then
2449  CCC       qxlm(i,L) = 0.  CCC       qxlm(i,L) = 0.
2450  CCC      endif  CCC      endif
2451           if(pl(i,L).le.150.) then           if(pl(i,L).le.150.) then
2452            qxlm(i,L) = min(qxlm(i,L),5.)            qxlm(i,L) = min(qxlm(i,L),5. _d 0)
2453           endif           endif
2454          enddo          enddo
2455        enddo        enddo
# Line 2525  CCC       kh(i,L) = 0. Line 2525  CCC       kh(i,L) = 0.
2525  CCC       km(i,L) = 0.  CCC       km(i,L) = 0.
2526  CCC      endif  CCC      endif
2527           if(pl(i,L).le.150.) then           if(pl(i,L).le.150.) then
2528            kh(i,L) = min(kh(i,L),5.)            kh(i,L) = min(kh(i,L),5. _d 0)
2529            km(i,L) = min(km(i,L),5.)            km(i,L) = min(km(i,L),5. _d 0)
2530           endif           endif
2531          enddo          enddo
2532        enddo        enddo
Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48
  ViewVC Help
Powered by ViewVC 1.1.22