/[MITgcm]/MITgcm/pkg/mnc/mnc_cw_write_grid_info.F
ViewVC logotype

Diff of /MITgcm/pkg/mnc/mnc_cw_write_grid_info.F

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

revision 1.11 by mlosch, Thu May 22 12:21:19 2008 UTC revision 1.12 by jmc, Fri Aug 28 19:48:07 2009 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3          
4  #include "MNC_OPTIONS.h"  #include "MNC_OPTIONS.h"
5          
6  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
7  CBOP 1  CBOP 1
8  C !ROUTINE: MNC_CW_WRITE_GRID_INFO  C !ROUTINE: MNC_CW_WRITE_GRID_INFO
9    
10  C !INTERFACE:  C !INTERFACE:
11        SUBROUTINE MNC_CW_WRITE_GRID_INFO(        SUBROUTINE MNC_CW_WRITE_GRID_INFO(
12       I     bfname,         I     bfname,
13       I     myThid )       I     myThid )
14    
15  C     !DESCRIPTION:  C     !DESCRIPTION:
16  C     This subroutine writes all the grid information (\textit{eg.}  C     This subroutine writes all the grid information (\textit{eg.}
17  C     locations, spacings, areas, \textit{etc.}) to one grid file  C     locations, spacings, areas, \textit{etc.}) to one grid file
18  C     (\texttt{grid.xxxxx.nc}) per tile.  C     (\texttt{grid.xxxxx.nc}) per tile.
19          
20  C     !USES:  C     !USES:
21        implicit none        implicit none
22  #include "MNC_COMMON.h"  #include "MNC_COMMON.h"
# Line 127  C     Create MNC definitions for GRID.h Line 127  C     Create MNC definitions for GRID.h
127    
128  C     Write the GRID.h variables  C     Write the GRID.h variables
129        CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid)        CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid)
130        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rC',rC,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rC',rC,myThid)
131        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rF',rF,myThid)
132        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drC',drC,myThid)
133        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)
134        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xC',xC,myThid)
135        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yC',yC,myThid)
136        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'xG',xG,myThid)
137        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yG',yG,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'yG',yG,myThid)
138        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid)
139        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid)
140        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid)
141        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid)
142        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid)
143        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid)
144        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid)
145        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid)
146        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rA',rA,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rA',rA,myThid)
147        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid)
148        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid)
149        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid)
150        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid)
151        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid)
152        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid)
153        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid)
154        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid)
155        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid)
156        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid)        CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid)
   
157    
158        RETURN        RETURN
159        END        END
160    
161  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
   
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22