/[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.16 by edhill, Sat Sep 17 03:17:05 2005 UTC revision 1.17 by edhill, Thu Oct 20 20:23:15 2005 UTC
# Line 59  C             Total fluid column thickne Line 59  C             Total fluid column thickne
59          ENDDO          ENDDO
60        ENDDO        ENDDO
61    
62    #ifdef ALLOW_MNC
63          IF ( (.NOT. useMNC) .OR. (outputTypesInclusive) ) THEN
64    #endif /* ALLOW_MNC */
65    
66        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
67    
68  C     Write horizontal grid arrays  C     Write horizontal grid arrays
# Line 89  C     Write 3D geometry arrays Line 93  C     Write 3D geometry arrays
93        _END_MASTER(myThid)        _END_MASTER(myThid)
94    
95  #ifdef ALLOW_MNC  #ifdef ALLOW_MNC
96        _BEGIN_MASTER( myThid )        ELSE
97        IF (useMNC) THEN  
98            _BEGIN_MASTER( myThid )
99          bfname='grid'          bfname='grid'
100                    
101  C       Write the GRID.h variables to a file  C       Write the GRID.h variables to a file
# Line 135  c       CALL MNC_CW_RL_W('D',bfname,0,0, Line 140  c       CALL MNC_CW_RL_W('D',bfname,0,0,
140          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacC',HFacC,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacC',HFacC,myThid)
141          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacW',HFacW,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacW',HFacW,myThid)
142          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacS',HFacS,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacS',HFacS,myThid)
143            _END_MASTER(myThid)
144    
145        ENDIF        ENDIF
       _END_MASTER(myThid)  
146  #endif /* ALLOW_MNC */  #endif /* ALLOW_MNC */
147    
148        RETURN        RETURN
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22