/[MITgcm]/MITgcm/pkg/ggl90/ggl90_checkpoint.F
ViewVC logotype

Contents of /MITgcm/pkg/ggl90/ggl90_checkpoint.F

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

Revision 1.1 - (show annotations) (download)
Thu Sep 16 11:27:18 2004 UTC (19 years, 8 months ago) by mlosch
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, checkpoint57v_post, checkpoint58u_post, checkpoint57f_post, checkpoint55c_post, checkpoint57s_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint58r_post, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint57m_post, checkpoint55h_post, checkpoint58n_post, checkpoint58x_post, checkpoint57g_pre, checkpoint55b_post, checkpoint58t_post, checkpoint58h_post, checkpoint57e_post, checkpoint58w_post, checkpoint56c_post, checkpoint57y_pre, checkpoint55, checkpoint57f_pre, checkpoint57a_post, checkpoint58q_post, checkpoint54f_post, checkpoint55g_post, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint55f_post, checkpoint59c, checkpoint59b, checkpoint59h, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57h_done, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58o_post, checkpoint57z_post, checkpoint57c_post, checkpoint58y_post, checkpoint55e_post, checkpoint58k_post, checkpoint58v_post, checkpoint55a_post, checkpoint58s_post, checkpoint58p_post, checkpoint57j_post, checkpoint58b_post, checkpoint57h_pre, checkpoint58m_post, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post 
o initial check-in of TKE-model of Gaspar et al. 1990
1 C $Header: $
2 C $Name: $
3
4 #include "GGL90_OPTIONS.h"
5
6 SUBROUTINE GGL90_READ_CHECKPOINT( myIter, myThid )
7
8 IMPLICIT NONE
9 C === Global variables ===
10 #include "SIZE.h"
11 #include "EEPARAMS.h"
12 #include "PARAMS.h"
13 #include "GGL90.h"
14
15 C == Routine arguments ==
16 C myThid - Number of this instance of GGL90_READ_CHECKPOINT
17 INTEGER myIter
18 INTEGER myThid
19
20 #ifdef ALLOW_GGL90
21
22 C !LOCAL VARIABLES:
23 C == Local variables ==
24 CHARACTER*(MAX_LEN_FNAM) fn
25 CHARACTER*(10) suff
26 INTEGER prec
27 CEOP
28
29 C-- Suffix for pickup files
30 IF (pickupSuff.EQ.' ') THEN
31 WRITE(suff,'(I10.10)') myIter
32 ELSE
33 WRITE(suff,'(A10)') pickupSuff
34 ENDIF
35
36 _BARRIER
37 _BEGIN_MASTER( myThid )
38
39 prec = precFloat64
40
41 WRITE(fn,'(A,A10)') 'pickup_ggl90.',suff
42 CALL MDSREADFIELD(fn,prec,'RL',Nr,GGL90TKE,1,myThid)
43
44 _END_MASTER( myThid )
45 _BARRIER
46
47 _EXCH_XYZ_R8( GGL90TKE, myThid )
48
49 #endif /* ALLOW_GGL90 */
50
51 RETURN
52 END
53
54
55
56 SUBROUTINE GGL90_WRITE_CHECKPOINT(
57 & prec, lgf, permCheckPoint, myIter, myThid )
58
59 IMPLICIT NONE
60 C === Global variables ===
61 #include "SIZE.h"
62 #include "EEPARAMS.h"
63 #include "PARAMS.h"
64 #include "GGL90.h"
65
66 C == Routine arguments ==
67 C myThid - Number of this instance of GGL90_WRITE_CHECKPOINT
68 INTEGER prec
69 LOGICAL lgf
70 LOGICAL permCheckPoint
71 INTEGER myIter
72 INTEGER myThid
73
74 #ifdef ALLOW_GGL90
75
76 C !LOCAL VARIABLES:
77 C == Local variables ==
78 CHARACTER*(MAX_LEN_FNAM) fn
79 c CHARACTER*(MAX_LEN_MBUF) msgBuf
80 c CHARACTER*(10) suff
81 CEOP
82
83 IF ( permCheckPoint ) THEN
84 WRITE(fn,'(A,I10.10)') 'pickup_ggl90.',myIter
85 ELSE
86 WRITE(fn,'(A,A)') 'pickup_ggl90.',checkPtSuff(nCheckLev)
87 ENDIF
88 CALL MDSWRITEFIELD(fn,prec,lgf,'RL',Nr,GGL90TKE,1,myIter,myThid)
89
90 #endif /* ALLOW_GGL90 */
91
92 RETURN
93 END
  ViewVC Help
Powered by ViewVC 1.1.22