/[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.4 by edhill, Fri Mar 19 03:55:16 2004 UTC revision 1.8 by edhill, Fri Apr 2 16:12:48 2004 UTC
# Line 4  C $Name$ Line 4  C $Name$
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
8    C !ROUTINE: MNC_CW_WRITE_GRID_INFO
9    
10    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:
16    C     This subroutine writes all the grid information (\textit{eg.}
17    C     locations, spacings, areas, \textit{etc.}) to one grid file
18    C     (\texttt{grid.xxxxx.nc}) per tile.
19          
20    C     !USES:
21        implicit none        implicit none
22  #include "mnc_common.h"  #include "mnc_common.h"
   
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "EESUPPORT.h"  #include "EESUPPORT.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "GRID.h"  #include "GRID.h"
28    
29  C     Arguments  C     !INPUT PARAMETERS:
30        integer myThid        integer myThid
31        character*(*) bfname        character*(*) bfname
32    CEOP
33    
34    C     !LOCAL VARIABLES:
35          integer nf,nl
36    
37  C     Functions  C     Functions
38        integer IFNBLNK, ILNBLNK        integer IFNBLNK, ILNBLNK
39    
 C     Local Variables  
       integer nf,nl  
   
40        nf = IFNBLNK(bfname)        nf = IFNBLNK(bfname)
41        nl = ILNBLNK(bfname)        nl = ILNBLNK(bfname)
42    
# Line 120  C     Create MNC definitions for GRID.h Line 129  C     Create MNC definitions for GRID.h
129       &     'S-facing vertical fraction of open cell',myThid)       &     'S-facing vertical fraction of open cell',myThid)
130    
131  C     Write the GRID.h variables  C     Write the GRID.h variables
132        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rC',0,rC,myThid)        CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid)
133        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rF',0,rF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rC',rC,myThid)
134        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drC',0,drC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid)
135        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drF',0,drF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid)
136        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'saFac',0,saFac,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)
137        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xC',0,xC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'saFac',saFac,myThid)
138        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yC',0,yC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid)
139        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xG',0,xG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid)
140        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yG',0,yG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid)
141        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxC',0,dxC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yG',yG,myThid)
142        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyC',0,dyC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid)
143        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxF',0,dxF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid)
144        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyF',0,dyF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid)
145        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxG',0,dxG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid)
146        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyG',0,dyG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid)
147        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxV',0,dxV,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid)
148        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyU',0,dyU,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid)
149        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rA',0,rA,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid)
150        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAw',0,rAw,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rA',rA,myThid)
151        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAs',0,rAs,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid)
152        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAz',0,rAz,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid)
153        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCori',0,fCori,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid)
154        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCoriG',0,fCoriG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid)
155        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'R_low',0,R_low,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid)
156        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'Ro_surf',0,Ro_surf,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid)
157        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacC',0,HFacC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid)
158        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacW',0,HFacW,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid)
159        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacS',0,HFacS,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid)
160          CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid)
161    
162    
163        RETURN        RETURN
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22