/[MITgcm]/MITgcm/pkg/pp81/pp81_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/pp81/pp81_calc.F

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

revision 1.1 by mlosch, Thu Sep 2 09:11:54 2004 UTC revision 1.2 by jmc, Sun Oct 17 23:12:59 2004 UTC
# Line 87  CEOP Line 87  CEOP
87  C     assign a minium ( = background ) value  C     assign a minium ( = background ) value
88           PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr)           PPviscAr(I,J,K,bi,bj) = MAX(PPviscTmp,viscAr)
89           PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom,           PPdiffKr(I,J,K,bi,bj) = MAX(PPviscAr(I,J,K,bi,bj)/denom,
90       &        diffKrT)       &        diffKrNrT(k))
91  CML         if ( k.eq.2 .and. i.ge.1 .and. i.le.sNx .and. j.eq.1)  CML         if ( k.eq.2 .and. i.ge.1 .and. i.le.sNx .and. j.eq.1)
92  CML     &        print '(A,3I3,5E14.5)', 'ml-pp81', I,J,K, RiLimit,  CML     &        print '(A,3I3,5E14.5)', 'ml-pp81', I,J,K, RiLimit,
93  CML     &        RiNumber(I,J),denom,  CML     &        RiNumber(I,J),denom,
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22