/[MITgcm]/MITgcm/pkg/offline/offline_model_io.F
ViewVC logotype

Contents of /MITgcm/pkg/offline/offline_model_io.F

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

Revision 1.7 - (show annotations) (download)
Thu Aug 18 18:22:00 2005 UTC (18 years, 8 months ago) by stephd
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint58e_post, checkpoint57r_post, checkpoint57s_post, checkpoint58b_post, checkpoint58m_post, checkpoint60, checkpoint61, checkpoint58r_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint58n_post, checkpoint58x_post, checkpoint61l, checkpoint58h_post, checkpoint58w_post, checkpoint58j_post, checkpoint57y_pre, checkpoint58q_post, checkpoint57v_post, checkpoint59q, checkpoint59p, checkpoint59r, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59m, checkpoint59l, checkpoint59o, checkpoint59n, checkpoint59i, checkpoint59h, checkpoint59k, checkpoint59j, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint58d_post, checkpoint57w_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58o_post, checkpoint57z_post, checkpoint58c_post, checkpoint58k_post, checkpoint58u_post, checkpoint58y_post, checkpoint58v_post, checkpoint58s_post, checkpoint61f, checkpoint61g, checkpoint61d, checkpoint61e, checkpoint61b, checkpoint61c, checkpoint58p_post, checkpoint61a, checkpoint61n, checkpoint61o, checkpoint58t_post, checkpoint61m, checkpoint61j, checkpoint61k, checkpoint61h, checkpoint61i, checkpoint61p
Changes since 1.6: +13 -13 lines 
o state and timeave dumps were done twice (since ptracers_output.F
  now contains all output). Changed to only output once.
1 C $Header: /u/gcmpack/MITgcm/pkg/offline/offline_model_io.F,v 1.6 2005/05/06 19:02:41 stephd Exp $
2 C $Name: $
3
4 #include "OFFLINE_OPTIONS.h"
5
6 CBOP
7 C !ROUTINE: OFFLINE_MODEL_IO
8 C !INTERFACE:
9 SUBROUTINE OFFLINE_MODEL_IO( myTime, myIter, myThid )
10 C !DESCRIPTION: \bv
11 C *==========================================================*
12 C | SUBROUTINE OFFLINE_MODEL_IO
13 C | o Controlling routine for IO in offline model time-stepping
14 C | loop.
15 C *==========================================================*
16 C \ev
17
18 C !USES:
19 IMPLICIT NONE
20 C == Global variables ===
21 #include "SIZE.h"
22 #include "EEPARAMS.h"
23 #include "PARAMS.h"
24 #include "DYNVARS.h"
25
26
27 C !INPUT/OUTPUT PARAMETERS:
28 C == Routine arguments ==
29 C myThid - Thread number for this instance of the routine.
30 C myIter - Iteration number
31 C myTime - Current time of simulation ( s )
32 INTEGER myThid
33 INTEGER myIter
34 _RL myTime
35
36 CEOP
37
38 C-- Write model state to binary file
39 c CALL OFFLINE_STATE( myTime, myIter, myThid )
40 c
41 c#ifdef ALLOW_TIMEAVE
42 cC-- Do time averages
43 c IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN
44 cc CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid )
45 c#ifdef ALLOW_PTRACERS
46 c IF ( usePTRACERS )
47 c & CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid )
48 c#endif
49 c ENDIF
50 c#endif
51
52 #ifdef ALLOW_GCHEM
53 C-- Do gchem diagnostics.
54 IF ( useGCHEM )
55 & CALL GCHEM_DIAGS( myTime, myIter, myThid )
56 #endif
57
58 #ifdef ALLOW_PTRACERS
59 C-- Do ptracer output.
60 IF ( usePTRACERS )
61 & CALL PTRACERS_OUTPUT( myTime, myIter, myThid )
62 #endif
63
64 RETURN
65 END
  ViewVC Help
Powered by ViewVC 1.1.22