/[MITgcm]/MITgcm/pkg/autodiff/autodiff_ini_model_io.F
ViewVC logotype

Diff of /MITgcm/pkg/autodiff/autodiff_ini_model_io.F

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

revision 1.8 by heimbach, Tue Aug 30 22:28:50 2005 UTC revision 1.9 by heimbach, Wed Aug 31 00:04:32 2005 UTC
# Line 279  C     Write coordinates to "adstate" fil Line 279  C     Write coordinates to "adstate" fil
279        CALL MNC_CW_RS_W('R','adstate',0,0,'RC',rC, myThid)        CALL MNC_CW_RS_W('R','adstate',0,0,'RC',rC, myThid)
280        CALL MNC_CW_RS_W('R','adstate',0,0,'RF',rF, myThid)        CALL MNC_CW_RS_W('R','adstate',0,0,'RF',rF, myThid)
281    
282    #ifdef ALLOW_EXF
283          CALL MNC_CW_SET_UDIM('adexf', 0, myThid)
284          CALL MNC_CW_RS_W('R','adexf',0,0,'XC',xC, myThid)
285          CALL MNC_CW_RS_W('R','adexf',0,0,'YC',yC, myThid)
286          CALL MNC_CW_RS_W('R','adexf',0,0,'XU',xG, myThid)
287          CALL MNC_CW_RS_W('R','adexf',0,0,'YU',yC, myThid)
288          CALL MNC_CW_RS_W('R','adexf',0,0,'XV',xC, myThid)
289          CALL MNC_CW_RS_W('R','adexf',0,0,'YV',yG, myThid)
290          CALL MNC_CW_RS_W('R','adexf',0,0,'XG',xG, myThid)
291          CALL MNC_CW_RS_W('R','adexf',0,0,'YG',yG, myThid)
292          CALL MNC_CW_RS_W('R','adexf',0,0,'RC',rC, myThid)
293          CALL MNC_CW_RS_W('R','adexf',0,0,'RF',rF, myThid)
294    #endif
295    
296    #ifdef ALLOW_SEAICE
297          CALL MNC_CW_SET_UDIM('adseaice', 0, myThid)
298          CALL MNC_CW_RS_W('R','adseaice',0,0,'XC',xC, myThid)
299          CALL MNC_CW_RS_W('R','adseaice',0,0,'YC',yC, myThid)
300          CALL MNC_CW_RS_W('R','adseaice',0,0,'XU',xG, myThid)
301          CALL MNC_CW_RS_W('R','adseaice',0,0,'YU',yC, myThid)
302          CALL MNC_CW_RS_W('R','adseaice',0,0,'XV',xC, myThid)
303          CALL MNC_CW_RS_W('R','adseaice',0,0,'YV',yG, myThid)
304          CALL MNC_CW_RS_W('R','adseaice',0,0,'XG',xG, myThid)
305          CALL MNC_CW_RS_W('R','adseaice',0,0,'YG',yG, myThid)
306          CALL MNC_CW_RS_W('R','adseaice',0,0,'RC',rC, myThid)
307          CALL MNC_CW_RS_W('R','adseaice',0,0,'RF',rF, myThid)
308    #endif
309    
310        ENDIF        ENDIF
311  #endif  #endif
312    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22