/[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.15 by adcroft, Mon Mar 4 17:26:40 2002 UTC revision 1.16 by cheisey, Fri Nov 15 19:58:21 2002 UTC
# Line 104  C       Raw fields Line 104  C       Raw fields
104          CALL READ_REC_XYZ_RL(  'guCD',  guCD, 1,myIter, myThid)          CALL READ_REC_XYZ_RL(  'guCD',  guCD, 1,myIter, myThid)
105          CALL READ_REC_XYZ_RL(  'gvCD',  gvCD, 1,myIter, myThid)          CALL READ_REC_XYZ_RL(  'gvCD',  gvCD, 1,myIter, myThid)
106  #endif  #endif
107    
108  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
109          IF ( nonHydrostatic ) THEN          IF ( nonHydrostatic ) THEN
110           CALL READ_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid)           CALL READ_REC_XYZ_RL('phi_nh',phi_nh,1,myIter,myThid)
# Line 154  c        CALL MDSREADFIELD(fn,prec,'RL', Line 155  c        CALL MDSREADFIELD(fn,prec,'RL',
155          ENDIF          ENDIF
156  #endif  #endif
157    
158    
159    
160  C Create suffix to pass on to package pickup routines  C Create suffix to pass on to package pickup routines
161          WRITE(fn,'(I10.10)') myIter          WRITE(fn,'(I10.10)') myIter
162    
# Line 253  C     == Global variables === Line 256  C     == Global variables ===
256  #include "EEPARAMS.h"  #include "EEPARAMS.h"
257  #include "PARAMS.h"  #include "PARAMS.h"
258  #include "DYNVARS.h"  #include "DYNVARS.h"
259    cswdice -- add ---
260    #ifdef ALLOW_TSEAICE
261    #include "ICE.h"
262    #endif
263    cswdice -- end add --
264  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
265  #include "GW.h"  #include "GW.h"
266  #include "SOLVE_FOR_PRESSURE3D.h"  #include "SOLVE_FOR_PRESSURE3D.h"
# Line 348  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    cswdice - add --
360    #ifdef ALLOW_SEAICE
361            WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
362            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,
363         &                                               myIter,myThid)
364            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2,
365         &                                               myIter,myThid)
366            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowHeight,3,
367         &                                               myIter,myThid)
368            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tsrf, 4,myIter,myThid)
369            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice1,5,myIter,myThid)
370            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2,6,myIter,myThid)
371            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1,7,myIter,myThid)
372            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,8,myIter,myThid)
373    #endif
374    cswdice -- end add ---
375  #endif  #endif
376  #ifdef ALLOW_NONHYDROSTATIC  #ifdef ALLOW_NONHYDROSTATIC
377          IF ( nonHydrostatic ) THEN          IF ( nonHydrostatic ) THEN
# Line 414  C--     Write model fields Line 438  C--     Write model fields
438  c        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gWnm1,3,myIter,myThid)  c        CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,gWnm1,3,myIter,myThid)
439          ENDIF          ENDIF
440  #endif  #endif
441    cswdice - add --
442    #ifdef ALLOW_SEAICE
443            WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
444            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask,   1,
445         &                                               myIter,myThid)
446            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2,
447         &                                               myIter,myThid)
448            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowHeight,3,
449         &                                               myIter,myThid)
450            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tsrf, 4,myIter,myThid)
451            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice1,5,myIter,myThid)
452            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2,6,myIter,myThid)
453            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1,7,myIter,myThid)
454            CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,8,myIter,myThid)
455    #endif
456    cswdice -- end add ---
457    
458    
459  C Create suffix to pass on to package pickup routines  C Create suffix to pass on to package pickup routines
460           IF ( permCheckPoint ) THEN           IF ( permCheckPoint ) THEN
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.16
  ViewVC Help
Powered by ViewVC 1.1.22