/[MITgcm]/MITgcm/pkg/gridalt/make_phys_grid.F
ViewVC logotype

Diff of /MITgcm/pkg/gridalt/make_phys_grid.F

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

revision 1.5 by molod, Tue Nov 2 00:54:51 2004 UTC revision 1.6 by molod, Fri Jun 30 19:08:24 2006 UTC
# Line 228  c    of the dynamics grid onto the physi Line 228  c    of the dynamics grid onto the physi
228          enddo          enddo
229  c  c
230  c  All done adding layers - if we need more to make numlevphys, put  c  All done adding layers - if we need more to make numlevphys, put
231  c     them as thin (1 mb) layers near the top  c     them as thin (0.1 mb) layers near the top
232         if(nlphys.lt.numlevphys)then         if(nlphys.lt.numlevphys)then
233          nlevs = numlevphys-nlphys          nlevs = numlevphys-nlphys
234          dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj)-100. * nlevs          dpphys(i,j,nlphys,bi,bj) = dpphys(i,j,nlphys,bi,bj)-10. * nlevs
235          do Lnew = nlphys+1,numlevphys          do Lnew = nlphys+1,numlevphys
236           dpphys(i,j,Lnew,bi,bj) = 100.           dpphys(i,j,Lnew,bi,bj) = 10.
237          enddo          enddo
238          nlperdyn(i,j,Nr,bi,bj) = numlevphys          nlperdyn(i,j,Nr,bi,bj) = numlevphys
239         endif         endif
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22