/[MITgcm]/MITgcm/pkg/ecco/cost_drift.F
ViewVC logotype

Diff of /MITgcm/pkg/ecco/cost_drift.F

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

revision 1.1 by heimbach, Thu Nov 6 22:10:07 2003 UTC revision 1.2 by heimbach, Wed Dec 3 23:08:40 2003 UTC
# Line 234  c           the temperature field. Line 234  c           the temperature field.
234                do i = imin,imax                do i = imin,imax
235                    if (_hFacC(i,j,k,bi,bj) .ne. 0.) then                    if (_hFacC(i,j,k,bi,bj) .ne. 0.) then
236                       fctiles = fctiles +                       fctiles = fctiles +
237       &                  (wsalt(k,bi,bj)*cosphi(i,j,bi,bj)*100.0*       &                  (wsalt(k,bi,bj)*cosphi(i,j,bi,bj)*2.5*
238       &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*       &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf)*
239       &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))       &          (Slmean(i,j,k,bi,bj)/nl - Sfmean(i,j,k,bi,bj)/nf))
240       &                         &                  
241                       fctilet = fctilet +                       fctilet = fctilet +
242       &                  (wtheta(k,bi,bj)*cosphi(i,j,bi,bj)*100.0*       &                  (wtheta(k,bi,bj)*cosphi(i,j,bi,bj)*2.5*
243       &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)*       &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf)*
244       &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))       &          (Tlmean(i,j,k,bi,bj)/nl - Tfmean(i,j,k,bi,bj)/nf))
245                    endif                    endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22