/[MITgcm]/MITgcm/model/src/ini_nlfs_vars.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_nlfs_vars.F

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

revision 1.3 by gforget, Fri Jan 14 01:28:31 2011 UTC revision 1.4 by gforget, Fri Jan 14 23:23:54 2011 UTC
# Line 56  C-    1rst bi,bj loop : Line 56  C-    1rst bi,bj loop :
56  C-- Initialise arrays (NLFS using r-coordinate):  C-- Initialise arrays (NLFS using r-coordinate):
57           DO j=1-Oly,sNy+Oly           DO j=1-Oly,sNy+Oly
58            DO i=1-Olx,sNx+Olx            DO i=1-Olx,sNx+Olx
59             hFac_surfC(i,j,bi,bj) = _hFacC(i,j,1,bi,bj)             hFac_surfC(i,j,bi,bj) = 0.
60             hFac_surfW(i,j,bi,bj) = _hFacW(i,j,1,bi,bj)             hFac_surfW(i,j,bi,bj) = 0.
61             hFac_surfS(i,j,bi,bj) = _hFacS(i,j,1,bi,bj)             hFac_surfS(i,j,bi,bj) = 0.
62             hFac_surfNm1C(i,j,bi,bj) = _hFacC(i,j,1,bi,bj)             hFac_surfNm1C(i,j,bi,bj) = 0.
63             hFac_surfNm1W(i,j,bi,bj) = _hFacW(i,j,1,bi,bj)             hFac_surfNm1W(i,j,bi,bj) = 0.
64             hFac_surfNm1S(i,j,bi,bj) = _hFacS(i,j,1,bi,bj)             hFac_surfNm1S(i,j,bi,bj) = 0.
65             PmEpR(i,j,bi,bj) = 0.             PmEpR(i,j,bi,bj) = 0.
66             Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)             Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj)
67            ENDDO            ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22