/[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.23 by jmc, Sun Jun 1 03:48:32 2008 UTC revision 1.24 by mlosch, Sat Oct 25 20:39:30 2008 UTC
# Line 140  C       Write the GRID.h variables to a Line 140  C       Write the GRID.h variables to a
140          CALL MNC_CW_SET_UDIM(bfname, 0, myThid)          CALL MNC_CW_SET_UDIM(bfname, 0, myThid)
141          CALL MNC_CW_SET_CITER(bfname, 2, -1, -1, -1, myThid)          CALL MNC_CW_SET_CITER(bfname, 2, -1, -1, -1, myThid)
142          CALL MNC_CW_SET_UDIM(bfname, 1, myThid)          CALL MNC_CW_SET_UDIM(bfname, 1, myThid)
143    #ifdef REAL4_IS_SLOW
144          CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)
145          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)
146          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 178  c       CALL MNC_CW_RL_W('D',bfname,0,0, Line 179  c       CALL MNC_CW_RL_W('D',bfname,0,0,
179          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacC',HFacC,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacC',HFacC,myThid)
180          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacW',HFacW,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacW',HFacW,myThid)
181          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacS',HFacS,myThid)          CALL MNC_CW_RL_W('D',bfname,0,0,'HFacS',HFacS,myThid)
182    #else
183    C     everything become real*4
184            CALL MNC_CW_RS_W('D',bfname,0,0,'RC',rC,myThid)
185            CALL MNC_CW_RS_W('D',bfname,0,0,'RF',rF,myThid)
186            CALL MNC_CW_RS_W('D',bfname,0,0,'RU',rF(2),myThid)
187            CALL MNC_CW_RS_W('D',bfname,0,0,'RL',rF,myThid)
188            CALL MNC_CW_RS_W('D',bfname,0,0,'drC',drC,myThid)
189            CALL MNC_CW_RS_W('D',bfname,0,0,'drF',drF,myThid)
190            CALL MNC_CW_RS_W('D',bfname,0,0,'XC',xC,myThid)
191            CALL MNC_CW_RS_W('D',bfname,0,0,'YC',yC,myThid)
192    c       CALL MNC_CW_RS_W('D',bfname,0,0,'XU',xG,myThid)
193    c       CALL MNC_CW_RS_W('D',bfname,0,0,'YU',yC,myThid)
194    c       CALL MNC_CW_RS_W('D',bfname,0,0,'XV',xC,myThid)
195    c       CALL MNC_CW_RS_W('D',bfname,0,0,'YV',yG,myThid)
196            CALL MNC_CW_RS_W('D',bfname,0,0,'XG',xG,myThid)
197            CALL MNC_CW_RS_W('D',bfname,0,0,'YG',yG,myThid)
198            CALL MNC_CW_RS_W('D',bfname,0,0,'dxC',dxC,myThid)
199            CALL MNC_CW_RS_W('D',bfname,0,0,'dyC',dyC,myThid)
200            CALL MNC_CW_RS_W('D',bfname,0,0,'dxF',dxF,myThid)
201            CALL MNC_CW_RS_W('D',bfname,0,0,'dyF',dyF,myThid)
202            CALL MNC_CW_RS_W('D',bfname,0,0,'dxG',dxG,myThid)
203            CALL MNC_CW_RS_W('D',bfname,0,0,'dyG',dyG,myThid)
204            CALL MNC_CW_RS_W('D',bfname,0,0,'dxV',dxV,myThid)
205            CALL MNC_CW_RS_W('D',bfname,0,0,'dyU',dyU,myThid)
206            CALL MNC_CW_RS_W('D',bfname,0,0,'rA',rA,myThid)
207            CALL MNC_CW_RS_W('D',bfname,0,0,'rAw',rAw,myThid)
208            CALL MNC_CW_RS_W('D',bfname,0,0,'rAs',rAs,myThid)
209            CALL MNC_CW_RS_W('D',bfname,0,0,'rAz',rAz,myThid)
210            IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN
211              CALL MNC_CW_RS_W('D',bfname,0,0,'AngleCS',angleCosC,myThid)
212              CALL MNC_CW_RS_W('D',bfname,0,0,'AngleSN',angleSinC,myThid)
213            ENDIF
214            CALL MNC_CW_RS_W('D',bfname,0,0,'fCori',fCori,myThid)
215            CALL MNC_CW_RS_W('D',bfname,0,0,'fCoriG',fCoriG,myThid)
216            CALL MNC_CW_RS_W('D',bfname,0,0,'R_low',R_low,myThid)
217            CALL MNC_CW_RS_W('D',bfname,0,0,'Ro_surf',Ro_surf,myThid)
218            CALL MNC_CW_RS_W('D',bfname,0,0,'Depth',tmpfld,myThid)
219            CALL MNC_CW_RS_W('D',bfname,0,0,'HFacC',HFacC,myThid)
220            CALL MNC_CW_RS_W('D',bfname,0,0,'HFacW',HFacW,myThid)
221            CALL MNC_CW_RS_W('D',bfname,0,0,'HFacS',HFacS,myThid)
222    #endif /* REAL4_IS_SLOW */
223    
224          _END_MASTER(myThid)          _END_MASTER(myThid)
225    
Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24
  ViewVC Help
Powered by ViewVC 1.1.22