/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_init_vari.F

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

revision 1.6 by jahn, Wed Dec 4 21:21:49 2013 UTC revision 1.7 by jahn, Wed Dec 4 21:27:54 2013 UTC
# Line 40  c seed randomization Line 40  c seed randomization
40        _END_MASTER( myThid )        _END_MASTER( myThid )
41        _BARRIER        _BARRIER
42    
43          DO bj = myByLo(myThid), myByHi(myThid)
44           DO bi = myBxLo(myThid), myBxHi(myThid)
45            DO j=1-Oly,sNy+Oly
46             DO i=1-Olx,sNx+Olx
47               FIce(i,j,bi,bj) = 0. _d 0
48             ENDDO
49            ENDDO
50           ENDDO
51          ENDDO
52    
53  #ifdef ALLOW_QUOTA  #ifdef ALLOW_QUOTA
54        call QUOTA_INIT_VARI(myThid )        call QUOTA_INIT_VARI(myThid )
55  #endif  #endif
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22