pkg/exf/exf_adjoint_snapshots.F

C $Header: /u/gcmpack/MITgcm/pkg/exf/exf_adjoint_snapshots.F,v 1.1 2007/06/05 21:51:22 heimbach Exp $

#include "EXF_OPTIONS.h"

      subroutine EXF_ADJOINT_SNAPSHOTS( iwhen, mytime, myiter, myThid )
      IMPLICIT NONE
C     /==========================================================\
C     | SUBROUTINE EXF_ADJOINT_SNAPSHOTS                         |
C     |==========================================================|
C     == Global variables ===

#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
      integer iwhen
      integer myThid
      integer myiter
      _RL     mytime 

      call TIMER_START('I/O (WRITE)        [ADJOINT LOOP]', myThid )

      call TIMER_STOP( 'I/O (WRITE)        [ADJOINT LOOP]', myThid )

      end


1	heimbach	1.2	C $Header: /u/gcmpack/MITgcm/pkg/exf/exf_adjoint_snapshots.F,v 1.1 2007/06/05 21:51:22 heimbach Exp $
2	heimbach	1.1
3	heimbach	1.2	#include "EXF_OPTIONS.h"
4	heimbach	1.1
5	heimbach	1.2	subroutine EXF_ADJOINT_SNAPSHOTS( iwhen, mytime, myiter, myThid )
6	heimbach	1.1	IMPLICIT NONE
7			C /==========================================================\
8	heimbach	1.2	C \| SUBROUTINE EXF_ADJOINT_SNAPSHOTS \|
9	heimbach	1.1	C \|==========================================================\|
10			C == Global variables ===
11
12			#include "SIZE.h"
13			#include "EEPARAMS.h"
14			#include "PARAMS.h"
15
16			C == Routine arguments ==
17			C myThid - Thread number for this instance of the routine.
18			integer iwhen
19			integer myThid
20			integer myiter
21			_RL mytime
22
23			call TIMER_START('I/O (WRITE) [ADJOINT LOOP]', myThid )
24
25			call TIMER_STOP( 'I/O (WRITE) [ADJOINT LOOP]', myThid )
26
27			end
28
29
30
31
32
33
34
35
36