/[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.15 by edhill, Sat Sep 10 18:30:06 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
102          CALL MNC_CW_SET_UDIM(bfname, 0, myThid)          CALL MNC_CW_SET_UDIM(bfname, 0, myThid)
103          CALL MNC_CW_SET_CITER(bfname, 2, -1, -1, -1, myThid)          CALL MNC_CW_SET_CITER(bfname, 2, -1, -1, -1, myThid)
104            CALL MNC_CW_SET_UDIM(bfname, 1, myThid)
105          CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)
106          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)
107          CALL MNC_CW_RL_W('D',bfname,0,0,'RU',rF(2),myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RU',rF(2),myThid)
# Line 134  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.15  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22