pkg/offline/offline_model_io.F

C $Header: /u/gcmpack/MITgcm/pkg/offline/offline_model_io.F,v 1.5 2005/05/03 17:01:22 stephd Exp $
C $Name:  $

#include "OFFLINE_OPTIONS.h"

CBOP
C     !ROUTINE: OFFLINE_MODEL_IO
C     !INTERFACE:
      SUBROUTINE OFFLINE_MODEL_IO( myTime, myIter, myThid )
C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE OFFLINE_MODEL_IO                                
C     | o Controlling routine for IO in offline model  time-stepping  
C     |   loop.                                                   
C     *==========================================================*
C     \ev

C     !USES:
      IMPLICIT NONE
C     == Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DYNVARS.h"


C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
C     myIter - Iteration number
C     myTime - Current time of simulation ( s )
      INTEGER myThid
      INTEGER myIter
      _RL     myTime

CEOP

C--   Write model state to binary file
      CALL OFFLINE_STATE( myTime, myIter, myThid )

#ifdef ALLOW_TIMEAVE
C--   Do time averages
      IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN
c       CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid )
#ifdef ALLOW_PTRACERS
       IF ( usePTRACERS )
     & CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid )
#endif
      ENDIF
#endif

#ifdef ALLOW_GCHEM
C--   Do gchem diagnostics.
      IF ( useGCHEM )
     & CALL GCHEM_DIAGS( myTime, myIter, myThid )
#endif

#ifdef ALLOW_PTRACERS
C--   Do ptracer output.
      IF ( usePTRACERS )
     & CALL PTRACERS_OUTPUT( myTime, myIter, myThid )
#endif

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/pkg/offline/offline_model_io.F,v 1.5 2005/05/03 17:01:22 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	CALL OFFLINE_STATE( myTime, myIter, myThid )
40
41	#ifdef ALLOW_TIMEAVE
42	C-- Do time averages
43	IF (taveFreq.GT.0. .AND. myIter.NE.nIter0 ) THEN
44	c CALL TIMEAVE_STATV_WRITE( myTime, myIter, myThid )
45	#ifdef ALLOW_PTRACERS
46	IF ( usePTRACERS )
47	& CALL PTRACERS_WRITE_TIMEAVE( myTime, myIter, myThid )
48	#endif
49	ENDIF
50	#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