/[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.15 by gforget, Sat Feb 2 02:35:26 2008 UTC revision 1.16 by mlosch, Thu Oct 8 08:22:52 2009 UTC
# Line 320  c Line 320  c
320  c  c
321  #endif  #endif
322    
323  C     Write coordinates to "adstate" file  CC     Write coordinates to "adstate" file
324        CALL MNC_CW_SET_UDIM('adstate', 0, myThid)  C      CALL MNC_CW_SET_UDIM('adstate', 0, myThid)
325        CALL MNC_CW_RS_W('R','adstate',0,0,'XC',xC, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'XC',xC, myThid)
326        CALL MNC_CW_RS_W('R','adstate',0,0,'YC',yC, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'YC',yC, myThid)
327        CALL MNC_CW_RS_W('R','adstate',0,0,'XU',xG, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'XU',xG, myThid)
328        CALL MNC_CW_RS_W('R','adstate',0,0,'YU',yC, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'YU',yC, myThid)
329        CALL MNC_CW_RS_W('R','adstate',0,0,'XV',xC, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'XV',xC, myThid)
330        CALL MNC_CW_RS_W('R','adstate',0,0,'YV',yG, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'YV',yG, myThid)
331        CALL MNC_CW_RS_W('R','adstate',0,0,'XG',xG, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'XG',xG, myThid)
332        CALL MNC_CW_RS_W('R','adstate',0,0,'YG',yG, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'YG',yG, myThid)
333        CALL MNC_CW_RS_W('R','adstate',0,0,'RC',rC, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'RC',rC, myThid)
334        CALL MNC_CW_RS_W('R','adstate',0,0,'RF',rF, myThid)  C      CALL MNC_CW_RS_W('R','adstate',0,0,'RF',rF, myThid)
335    C
336  #ifdef ALLOW_EXF  C#ifdef ALLOW_EXF
337        CALL MNC_CW_SET_UDIM('adexf', 0, myThid)  C      CALL MNC_CW_SET_UDIM('adexf', 0, myThid)
338        CALL MNC_CW_RS_W('R','adexf',0,0,'XC',xC, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'XC',xC, myThid)
339        CALL MNC_CW_RS_W('R','adexf',0,0,'YC',yC, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'YC',yC, myThid)
340        CALL MNC_CW_RS_W('R','adexf',0,0,'XU',xG, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'XU',xG, myThid)
341        CALL MNC_CW_RS_W('R','adexf',0,0,'YU',yC, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'YU',yC, myThid)
342        CALL MNC_CW_RS_W('R','adexf',0,0,'XV',xC, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'XV',xC, myThid)
343        CALL MNC_CW_RS_W('R','adexf',0,0,'YV',yG, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'YV',yG, myThid)
344        CALL MNC_CW_RS_W('R','adexf',0,0,'XG',xG, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'XG',xG, myThid)
345        CALL MNC_CW_RS_W('R','adexf',0,0,'YG',yG, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'YG',yG, myThid)
346        CALL MNC_CW_RS_W('R','adexf',0,0,'RC',rC, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'RC',rC, myThid)
347        CALL MNC_CW_RS_W('R','adexf',0,0,'RF',rF, myThid)  C      CALL MNC_CW_RS_W('R','adexf',0,0,'RF',rF, myThid)
348  #endif  C#endif
349    C
350  #ifdef ALLOW_SEAICE  C#ifdef ALLOW_SEAICE
351        CALL MNC_CW_SET_UDIM('adseaice', 0, myThid)  C      CALL MNC_CW_SET_UDIM('adseaice', 0, myThid)
352        CALL MNC_CW_RS_W('R','adseaice',0,0,'XC',xC, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'XC',xC, myThid)
353        CALL MNC_CW_RS_W('R','adseaice',0,0,'YC',yC, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'YC',yC, myThid)
354        CALL MNC_CW_RS_W('R','adseaice',0,0,'XU',xG, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'XU',xG, myThid)
355        CALL MNC_CW_RS_W('R','adseaice',0,0,'YU',yC, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'YU',yC, myThid)
356        CALL MNC_CW_RS_W('R','adseaice',0,0,'XV',xC, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'XV',xC, myThid)
357        CALL MNC_CW_RS_W('R','adseaice',0,0,'YV',yG, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'YV',yG, myThid)
358        CALL MNC_CW_RS_W('R','adseaice',0,0,'XG',xG, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'XG',xG, myThid)
359        CALL MNC_CW_RS_W('R','adseaice',0,0,'YG',yG, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'YG',yG, myThid)
360        CALL MNC_CW_RS_W('R','adseaice',0,0,'RC',rC, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'RC',rC, myThid)
361        CALL MNC_CW_RS_W('R','adseaice',0,0,'RF',rF, myThid)  C      CALL MNC_CW_RS_W('R','adseaice',0,0,'RF',rF, myThid)
362  #endif  C#endif
363    
364        ENDIF        ENDIF
365  #endif  #endif
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22