/[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.24 by mlosch, Sat Oct 25 20:39:30 2008 UTC revision 1.25 by mlosch, Sun Oct 26 11:09:46 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)
 #ifdef REAL4_IS_SLOW  
         CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'RU',rF(2),myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'RL',rF,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'drC',drC,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'drF',drF,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'XC',xC,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'YC',yC,myThid)  
 c       CALL MNC_CW_RL_W('D',bfname,0,0,'XU',xG,myThid)  
 c       CALL MNC_CW_RL_W('D',bfname,0,0,'YU',yC,myThid)  
 c       CALL MNC_CW_RL_W('D',bfname,0,0,'XV',xC,myThid)  
 c       CALL MNC_CW_RL_W('D',bfname,0,0,'YV',yG,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'XG',xG,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'YG',yG,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dxC',dxC,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dyC',dyC,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dxF',dxF,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dyF',dyF,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dxG',dxG,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dyG',dyG,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dxV',dxV,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'dyU',dyU,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'rA',rA,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'rAw',rAw,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'rAs',rAs,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'rAz',rAz,myThid)  
         IF ( usingCurvilinearGrid .OR. rotateGrid ) THEN  
           CALL MNC_CW_RL_W('D',bfname,0,0,'AngleCS',angleCosC,myThid)  
           CALL MNC_CW_RL_W('D',bfname,0,0,'AngleSN',angleSinC,myThid)  
         ENDIF  
         CALL MNC_CW_RL_W('D',bfname,0,0,'fCori',fCori,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'fCoriG',fCoriG,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'R_low',R_low,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'Ro_surf',Ro_surf,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'Depth',tmpfld,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'HFacC',HFacC,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'HFacW',HFacW,myThid)  
         CALL MNC_CW_RL_W('D',bfname,0,0,'HFacS',HFacS,myThid)  
 #else  
 C     everything become real*4  
143          CALL MNC_CW_RS_W('D',bfname,0,0,'RC',rC,myThid)          CALL MNC_CW_RS_W('D',bfname,0,0,'RC',rC,myThid)
144          CALL MNC_CW_RS_W('D',bfname,0,0,'RF',rF,myThid)          CALL MNC_CW_RS_W('D',bfname,0,0,'RF',rF,myThid)
145          CALL MNC_CW_RS_W('D',bfname,0,0,'RU',rF(2),myThid)          CALL MNC_CW_RS_W('D',bfname,0,0,'RU',rF(2),myThid)
# Line 219  c       CALL MNC_CW_RS_W('D',bfname,0,0, Line 178  c       CALL MNC_CW_RS_W('D',bfname,0,0,
178          CALL MNC_CW_RS_W('D',bfname,0,0,'HFacC',HFacC,myThid)          CALL MNC_CW_RS_W('D',bfname,0,0,'HFacC',HFacC,myThid)
179          CALL MNC_CW_RS_W('D',bfname,0,0,'HFacW',HFacW,myThid)          CALL MNC_CW_RS_W('D',bfname,0,0,'HFacW',HFacW,myThid)
180          CALL MNC_CW_RS_W('D',bfname,0,0,'HFacS',HFacS,myThid)          CALL MNC_CW_RS_W('D',bfname,0,0,'HFacS',HFacS,myThid)
 #endif /* REAL4_IS_SLOW */  
181    
182          _END_MASTER(myThid)          _END_MASTER(myThid)
183    
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22