/[MITgcm]/MITgcm/model/src/checkpoint.F
ViewVC logotype

Diff of /MITgcm/model/src/checkpoint.F

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

revision 1.16 by cheisey, Fri Nov 15 19:58:21 2002 UTC revision 1.17 by cheisey, Thu Nov 21 19:11:42 2002 UTC
# Line 257  C     == Global variables === Line 257  C     == Global variables ===
257  #include "PARAMS.h"  #include "PARAMS.h"
258  #include "DYNVARS.h"  #include "DYNVARS.h"
259  cswdice -- add ---  cswdice -- add ---
260  #ifdef ALLOW_TSEAICE  #ifdef ALLOW_THERM_SEAICE
261  #include "ICE.h"  #include "ICE.h"
262  #endif  #endif
263  cswdice -- end add --  cswdice -- end add --
# Line 356  C       Raw fields Line 356  C       Raw fields
356          CALL WRITE_REC_XYZ_RL(  'vNM1',  vNM1,  1,myIter, myThid)          CALL WRITE_REC_XYZ_RL(  'vNM1',  vNM1,  1,myIter, myThid)
357          CALL WRITE_REC_XYZ_RL(  'guCD',  guCD,  1,myIter, myThid)          CALL WRITE_REC_XYZ_RL(  'guCD',  guCD,  1,myIter, myThid)
358          CALL WRITE_REC_XYZ_RL(  'gvCD',  gvCD,  1,myIter, myThid)          CALL WRITE_REC_XYZ_RL(  'gvCD',  gvCD,  1,myIter, myThid)
359    #endif
360  cswdice - add --  cswdice - add --
361  #ifdef ALLOW_SEAICE  #ifdef ALLOW_THERM_SEAICE
362          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
363          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,
364       &                                               myIter,myThid)       &                                               myIter,myThid)
# Line 370  cswdice - add -- Line 371  cswdice - add --
371          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2,6,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2,6,myIter,myThid)
372          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1,7,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1,7,myIter,myThid)
373          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,8,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,8,myIter,myThid)
374  #endif          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sage ,9,myIter,myThid)
375  cswdice -- end add ---  cswdice -- end add ---
376  #endif  #endif
377    
378    
379    
380  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
381          IF ( nonHydrostatic ) THEN          IF ( nonHydrostatic ) THEN
382           CALL WRITE_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid)           CALL WRITE_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid)
# Line 439  c        CALL MDSWRITEFIELD(fn,prec,lgf, Line 443  c        CALL MDSWRITEFIELD(fn,prec,lgf,
443          ENDIF          ENDIF
444  #endif  #endif
445  cswdice - add --  cswdice - add --
446  #ifdef ALLOW_SEAICE  #ifdef ALLOW_THERM_SEAICE
447          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter          WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
448          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,
449       &                                               myIter,myThid)       &                                               myIter,myThid)
# Line 452  cswdice - add -- Line 456  cswdice - add --
456          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2,6,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2,6,myIter,myThid)
457          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1,7,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1,7,myIter,myThid)
458          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,8,myIter,myThid)          CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,8,myIter,myThid)
459            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sage ,9,myIter,myThid)
460  #endif  #endif
461  cswdice -- end add ---  cswdice -- end add ---
462    
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22