/[MITgcm]/MITgcm/pkg/dic/fe_chem.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/fe_chem.F

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

revision 1.13 by dfer, Mon Apr 7 20:31:16 2008 UTC revision 1.14 by stephd, Fri Apr 18 19:32:12 2008 UTC
# Line 62  C in surface layer Line 62  C in surface layer
62            IF (hFacC(i,j,k,bi,bj) .GT. 0. _d 0) THEN            IF (hFacC(i,j,k,bi,bj) .GT. 0. _d 0) THEN
63    
64  #ifdef DIC_NO_NEG  #ifdef DIC_NO_NEG
65                tmpfe=max(0. _d0 , fe (i,j,k,bi,bj))                tmpfe=max(0. _d 0 , fe (i,j,k,bi,bj))
66  #else  #else
67                tmpfe=fe (i,j,k,bi,bj)                tmpfe=fe (i,j,k,bi,bj)
68  #endif  #endif
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22