/[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.5 by edhill, Sun Mar 21 03:44:23 2004 UTC revision 1.6 by edhill, Wed Mar 24 15:29:33 2004 UTC
# Line 121  C     Create MNC definitions for GRID.h Line 121  C     Create MNC definitions for GRID.h
121    
122  C     Write the GRID.h variables  C     Write the GRID.h variables
123        CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid)        CALL MNC_CW_SET_UDIM(bfname(nf:nl), 0, myThid)
124        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rC',rC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rC',rC,myThid)
125        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rF',rF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid)
126        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drC',drC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drC',drC,myThid)
127        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'drF',drF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'drF',drF,myThid)
128        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'saFac',saFac,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'saFac',saFac,myThid)
129        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xC',xC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xC',xC,myThid)
130        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yC',yC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yC',yC,myThid)
131        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'xG',xG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'xG',xG,myThid)
132        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'yG',yG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'yG',yG,myThid)
133        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxC',dxC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxC',dxC,myThid)
134        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyC',dyC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyC',dyC,myThid)
135        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxF',dxF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxF',dxF,myThid)
136        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyF',dyF,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyF',dyF,myThid)
137        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxG',dxG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxG',dxG,myThid)
138        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyG',dyG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyG',dyG,myThid)
139        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dxV',dxV,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dxV',dxV,myThid)
140        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'dyU',dyU,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'dyU',dyU,myThid)
141        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rA',rA,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rA',rA,myThid)
142        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAw',rAw,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAw',rAw,myThid)
143        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAs',rAs,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAs',rAs,myThid)
144        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'rAz',rAz,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rAz',rAz,myThid)
145        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCori',fCori,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCori',fCori,myThid)
146        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'fCoriG',fCoriG,myThid)
147        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'R_low',R_low,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'R_low',R_low,myThid)
148        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid)
149        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacC',HFacC,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacC',HFacC,myThid)
150        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacW',HFacW,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacW',HFacW,myThid)
151        CALL MNC_CW_RL_W_D(bfname(nf:nl),0,0,'HFacS',HFacS,myThid)        CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'HFacS',HFacS,myThid)
152    
153    
154        RETURN        RETURN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22