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

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

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

revision 1.16 by adcroft, Wed May 5 18:32:34 1999 UTC revision 1.17 by adcroft, Tue May 18 17:57:01 1999 UTC
# Line 79  C Impose minimum size (dimensional) Line 79  C Impose minimum size (dimensional)
79               hFacC(I,J,K,bi,bj)=hFacMinDr*recip_drF(k)               hFacC(I,J,K,bi,bj)=hFacMinDr*recip_drF(k)
80              ENDIF              ENDIF
81             ENDIF             ENDIF
82             depthInK(i,j,bi,bj) = depthInK(i,j,bi,bj)             depthInK(i,j,bi,bj) = depthInK(i,j,bi,bj) + 1.
83       &                          +hFacC(i,j,k,bi,bj)  Crg  &                          +hFacC(i,j,k,bi,bj)
84            ENDDO            ENDDO
85           ENDDO           ENDDO
86          ENDDO          ENDDO
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22