/[MITgcm]/MITgcm/pkg/therm_seaice/ice_checkpoint.F
ViewVC logotype

Contents of /MITgcm/pkg/therm_seaice/ice_checkpoint.F

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

Revision 1.1 - (show annotations) (download)
Wed Dec 11 14:24:30 2002 UTC (21 years, 5 months ago) by cheisey
Branch: MAIN
CVS Tags: checkpoint51f_post, checkpoint48i_post, checkpoint51l_post, checkpoint51k_post, checkpoint48d_post, checkpoint50b_post, checkpoint47i_post, checkpoint51o_post, checkpoint48g_post, branchpoint-genmake2, checkpoint50c_pre, checkpoint50, checkpoint51j_post, branch-exfmods-tag, checkpoint51q_post, checkpoint47e_post, checkpoint50f_post, checkpoint50a_post, checkpoint48e_post, checkpoint47c_post, checkpoint50f_pre, checkpoint52a_pre, checkpoint48b_post, checkpoint47j_post, checkpoint47d_pre, checkpoint50d_pre, checkpoint47h_post, checkpoint51d_post, checkpoint51, checkpoint51r_post, checkpoint48c_pre, checkpoint52, checkpoint52b_pre, checkpoint48c_post, checkpoint50d_post, checkpoint51o_pre, checkpoint47f_post, checkpoint51t_post, checkpoint51b_pre, checkpoint52a_post, checkpoint51i_post, checkpoint50e_post, checkpoint47g_post, checkpoint50h_post, checkpoint50c_post, checkpoint51a_post, checkpoint51n_pre, checkpoint47d_post, checkpoint50e_pre, checkpoint50b_pre, checkpoint48d_pre, checkpoint50i_post, checkpoint51p_post, checkpoint51n_post, checkpoint51e_post, checkpoint51b_post, checkpoint48a_post, checkpoint51h_pre, checkpoint48f_post, checkpoint51i_pre, checkpoint51l_pre, checkpoint50g_post, checkpoint51u_post, checkpoint51c_post, checkpoint51g_post, checkpoint51m_post, ecco_c52_e35, checkpoint48, checkpoint49, checkpoint51f_pre, checkpoint51s_post, checkpoint48h_post
Branch point for: checkpoint51n_branch, branch-nonh, tg2-branch, branch-genmake2, branch-exfmods-curt 
Moving the therm_seaice checkpoint fields from model/src/checkpoint.F
into pkg/therm_seaice/ice_checkpoint.F .
1 C $Header:
2 C $Name:
3
4 #include "CPP_OPTIONS.h"
5
6 CStartofinterface
7 SUBROUTINE ICE_READ_CHECKPOINT( prec, myIter, myThid )
8 C /==========================================================\
9 C | SUBROUTINE ICE_READ_CHECKPOINT |
10 C | o Read ice checkpoint arrays |
11 C |==========================================================|
12 C | |
13 C \==========================================================/
14 IMPLICIT NONE
15
16 C === Global variables ===
17 #include "SIZE.h"
18 #include "EEPARAMS.h"
19 #include "PARAMS.h"
20 #include "ICE.h"
21
22 C == Routine arguments ==
23 INTEGER prec
24 INTEGER myIter
25 INTEGER myThid
26 CEndofinterface
27
28
29 #ifdef ALLOW_THERM_SEAICE
30
31 C == Local variables ==
32 CHARACTER*(MAX_LEN_FNAM) fn
33
34 WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
35 CALL MDSREADFIELD(fn,prec,'RL',1,iceMask, 1,myThid)
36 CALL MDSREADFIELD(fn,prec,'RL',1,iceHeight, 2,myThid)
37 CALL MDSREADFIELD(fn,prec,'RL',1,snowHeight,3,myThid)
38 CALL MDSREADFIELD(fn,prec,'RL',1,Tsrf, 4,myThid)
39 CALL MDSREADFIELD(fn,prec,'RL',1,Tice1, 5,myThid)
40 CALL MDSREADFIELD(fn,prec,'RL',1,Tice2, 6,myThid)
41 CALL MDSREADFIELD(fn,prec,'RL',1,Qice1, 7,myThid)
42 CALL MDSREADFIELD(fn,prec,'RL',1,Qice2, 8,myThid)
43 CALL MDSREADFIELD(fn,prec,'RL',1,sage, 9,myThid)
44
45 #endif /* ALLOW_THERM_SEAICE */
46 RETURN
47 END
48
49
50 CStartofinterface
51 SUBROUTINE ICE_WRITE_CHECKPOINT( prec, lgf, permCheckPoint,
52 & myIter, myThid )
53 C /==========================================================\
54 C | SUBROUTINE ICE_WRITE_CHECKPOINT |
55 C | o Write ice checkpoint arrays |
56 C |==========================================================|
57 C | |
58 C \==========================================================/
59 IMPLICIT NONE
60
61 C === Global variables ===
62 #include "SIZE.h"
63 #include "EEPARAMS.h"
64 #include "PARAMS.h"
65 #include "ICE.h"
66
67 C == Common blocks ==
68 COMMON /PCKP_GBLFLS/ globalFile
69 LOGICAL globalFile
70
71 C == Routine arguments ==
72 INTEGER prec
73 LOGICAL lgf
74 LOGICAL permCheckPoint
75 INTEGER myIter
76 INTEGER myThid
77 CEndofinterface
78
79 #ifdef ALLOW_THERM_SEAICE
80
81 C == Local variables ==
82 CHARACTER*(MAX_LEN_FNAM) fn
83
84 WRITE(fn,'(A,I10.10)') 'pickup_ic.',myIter
85 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceMask, 1,
86 & myIter,myThid)
87 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,iceHeight, 2,
88 & myIter,myThid)
89 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,snowHeight,3,
90 & myIter,myThid)
91 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tsrf, 4,myIter,myThid)
92 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice1,5,myIter,myThid)
93 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Tice2,6,myIter,myThid)
94 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice1,7,myIter,myThid)
95 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,Qice2,8,myIter,myThid)
96 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',1,sage ,9,myIter,myThid)
97
98 #endif /* ALLOW_THERM_SEAICE */
99 RETURN
100 END
101
  ViewVC Help
Powered by ViewVC 1.1.22