/[MITgcm]/MITgcm/pkg/fizhi/fizhi_init_vars.F
ViewVC logotype

Diff of /MITgcm/pkg/fizhi/fizhi_init_vars.F

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

revision 1.7 by edhill, Fri Aug 6 21:12:14 2004 UTC revision 1.8 by molod, Thu Aug 12 15:21:22 2004 UTC
# Line 168  c         Physics works top-down. so -> Line 168  c         Physics works top-down. so ->
168  c Now initialize tke, xlmt, khmt, xxmt, yymt, ctmt, zetamt,  c Now initialize tke, xlmt, khmt, xxmt, yymt, ctmt, zetamt,
169  c Now initialize land state too - tcanopy, etc...  c Now initialize land state too - tcanopy, etc...
170          do L = 1,Nrphys          do L = 1,Nrphys
171          do i = 1,nchptot          do i = 1,nchptot(bi,bj)
172           tke(i,L,bi,bj) = 0.           tke(i,L,bi,bj) = 0.
173           xlmt(i,L,bi,bj) = 0.           xlmt(i,L,bi,bj) = 0.
174           khmt(i,L,bi,bj) = 0.           khmt(i,L,bi,bj) = 0.
# Line 176  c Now initialize land state too - tcanop Line 176  c Now initialize land state too - tcanop
176          enddo          enddo
177  c Now initialize land state too - tcanopy, etc... SET FOR NOW,  c Now initialize land state too - tcanopy, etc... SET FOR NOW,
178  c                                              READ CLIM FOR REAL  c                                              READ CLIM FOR REAL
179          do i = 1,nchptot          do i = 1,nchptot(bi,bj)
180          tcanopy(i,bi,bj) = 283.          tcanopy(i,bi,bj) = 283.
181          tdeep(i,bi,bj) = 282.5          tdeep(i,bi,bj) = 282.5
182          ecanopy(i,bi,bj) = 2.e-2          ecanopy(i,bi,bj) = 2.e-2
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22