/[MITgcm]/MITgcm/pkg/ctrl/ctrl_map_ini.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_map_ini.F

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

revision 1.3 by heimbach, Mon Aug 13 18:10:26 2001 UTC revision 1.4 by heimbach, Mon Aug 13 23:28:41 2001 UTC
# Line 107  c--   Temperature field. Line 107  c--   Temperature field.
107                do i = imin,imax                do i = imin,imax
108                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +                  theta(i,j,k,bi,bj) = theta(i,j,k,bi,bj) +
109       &                               fac*tmpfld3d(i,j,k,bi,bj)       &                               fac*tmpfld3d(i,j,k,bi,bj)
110                  gtNm1(i,j,k,bi,bj) = gtNm1(i,j,k,bi,bj) +  cph                gtNm1(i,j,k,bi,bj) = gtNm1(i,j,k,bi,bj) +
111       &                               fac*tmpfld3d(i,j,k,bi,bj)  cph     &                               fac*tmpfld3d(i,j,k,bi,bj)
112                enddo                enddo
113              enddo              enddo
114            enddo            enddo
# Line 132  c--   Temperature field. Line 132  c--   Temperature field.
132                do i = imin,imax                do i = imin,imax
133                  salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +                  salt(i,j,k,bi,bj) = salt(i,j,k,bi,bj) +
134       &                               fac*tmpfld3d(i,j,k,bi,bj)       &                               fac*tmpfld3d(i,j,k,bi,bj)
135                  gsNm1(i,j,k,bi,bj) = gsNm1(i,j,k,bi,bj) +  cph                gsNm1(i,j,k,bi,bj) = gsNm1(i,j,k,bi,bj) +
136       &                               fac*tmpfld3d(i,j,k,bi,bj)  cph     &                               fac*tmpfld3d(i,j,k,bi,bj)
137                enddo                enddo
138              enddo              enddo
139            enddo            enddo
# Line 157  c--   Temperature field. Line 157  c--   Temperature field.
157                do i = imin,imax                do i = imin,imax
158                  tr1(i,j,k,bi,bj) = tr1(i,j,k,bi,bj) +                  tr1(i,j,k,bi,bj) = tr1(i,j,k,bi,bj) +
159       &                               fac*tmpfld3d(i,j,k,bi,bj)       &                               fac*tmpfld3d(i,j,k,bi,bj)
160                  gsNm1(i,j,k,bi,bj) = gsNm1(i,j,k,bi,bj) +  cph                gtr1Nm1(i,j,k,bi,bj) = gtr1Nm1(i,j,k,bi,bj) +
161       &                               fac*tmpfld3d(i,j,k,bi,bj)  cph     &                               fac*tmpfld3d(i,j,k,bi,bj)
162                enddo                enddo
163              enddo              enddo
164            enddo            enddo
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22