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

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

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

revision 1.27 by jmc, Tue Feb 3 22:59:39 2009 UTC revision 1.28 by jmc, Mon Jun 8 03:40:42 2009 UTC
# Line 41  C     !LOCAL VARIABLES: Line 41  C     !LOCAL VARIABLES:
41  C     tmpfld :: Temporary array used to compute & write Total Depth ;  C     tmpfld :: Temporary array used to compute & write Total Depth ;
42  C               loaded in multi-threaded way but written by single (master)  C               loaded in multi-threaded way but written by single (master)
43  C               thread => needs to be in common to be shared by all threads  C               thread => needs to be in common to be shared by all threads
44        COMMON / LOCAL_WRITE_GRID / tmpfld  C     no longer needed since MDSIO now allows (2009/06/07) to write local arrays
45    c     COMMON / LOCAL_WRITE_GRID / tmpfld
46        _RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS tmpfld(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47        _RS tmpVar(Nr+1)        _RS tmpVar(Nr+1)
48        INTEGER i,j,k,bi,bj        INTEGER i,j,k,bi,bj
# Line 64  C     Total fluid column thickness (r_un Line 65  C     Total fluid column thickness (r_un
65           ENDDO           ENDDO
66         ENDDO         ENDDO
67        ENDDO        ENDDO
68        _BARRIER  c     _BARRIER
69    
70        writegrid_mdsio = .TRUE.        writegrid_mdsio = .TRUE.
71  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22