tutorial_global_oce_biogeo/code_oad/cost_tracer.F

C $Header$
C $Name$

#include "COST_OPTIONS.h"

      subroutine cost_tracer( bi, bj, myThid )
C     /==========================================================\
C     | subroutine cost_tracer                                   |
C     | o this routine computes the cost function for the tiles  |
C     |   of this processor                                      |
C     |==========================================================|
C     |                                                          |
C     | Notes                                                    |
C     | =====                                                    |
C     \==========================================================/
      IMPLICIT NONE

C     == Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DYNVARS.h"
#include "GRID.h"
#ifdef ALLOW_COST_TRACER
# ifdef ALLOW_PTRACERS
#  include "PTRACERS_SIZE.h"
#  include "PTRACERS_PARAMS.h"
#  include "PTRACERS_FIELDS.h"
# endif
#endif

#include "cost.h"

C     == Routine arguments ==
C     myThid - Thread number for this instance of the routine.
      integer bi, bj
      integer myThid

#ifdef ALLOW_COST_TRACER
C     == Local variables
      _RL thetaRef
      _RL locfc

      integer i, j, k
      integer ig, jg
ce    some reference temperature
      thetaRef = 24.0D0

      locfc = 0. _d 0

      k=1
      DO j=1,sNy
         DO i=1,sNx
#ifdef ALLOW_PTRACERS
            locfc = locfc + maskC(i,j,k,bi,bj)*
     &           ptracer(i,j,k,bi,bj,6)*
     &           rA(i,j,bi,bj)*drF(k)
#endif
         ENDDO
      ENDDO

      objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc

#ifdef ALLOW_PTRACERS
      print *, 'COST TRACER nach', objf_tracer(bi,bj),
     &     ptracer(83,33,1,1,1,1), ptracer(83,33,2,1,1,1)
#endif

#endif /* ALLOW_COST_TRACER */

      RETURN
      END
1	C $Header$
2	C $Name$
3
4	#include "COST_OPTIONS.h"
5
6	subroutine cost_tracer( bi, bj, myThid )
7	C /==========================================================\
8	C \| subroutine cost_tracer \|
9	C \| o this routine computes the cost function for the tiles \|
10	C \| of this processor \|
11	C \|==========================================================\|
12	C \| \|
13	C \| Notes \|
14	C \| ===== \|
15	C \==========================================================/
16	IMPLICIT NONE
17
18	C == Global variables ===
19	#include "SIZE.h"
20	#include "EEPARAMS.h"
21	#include "PARAMS.h"
22	#include "DYNVARS.h"
23	#include "GRID.h"
24	#ifdef ALLOW_COST_TRACER
25	# ifdef ALLOW_PTRACERS
26	# include "PTRACERS_SIZE.h"
27	# include "PTRACERS_PARAMS.h"
28	# include "PTRACERS_FIELDS.h"
29	# endif
30	#endif
31
32	#include "cost.h"
33
34	C == Routine arguments ==
35	C myThid - Thread number for this instance of the routine.
36	integer bi, bj
37	integer myThid
38
39	#ifdef ALLOW_COST_TRACER
40	C == Local variables
41	_RL thetaRef
42	_RL locfc
43
44	integer i, j, k
45	integer ig, jg
46	ce some reference temperature
47	thetaRef = 24.0D0
48
49	locfc = 0. _d 0
50
51	k=1
52	DO j=1,sNy
53	DO i=1,sNx
54	#ifdef ALLOW_PTRACERS
55	locfc = locfc + maskC(i,j,k,bi,bj)*
56	& ptracer(i,j,k,bi,bj,6)*
57	& rA(i,j,bi,bj)*drF(k)
58	#endif
59	ENDDO
60	ENDDO
61
62	objf_tracer(bi,bj) = objf_tracer(bi,bj) + locfc
63
64	#ifdef ALLOW_PTRACERS
65	print *, 'COST TRACER nach', objf_tracer(bi,bj),
66	& ptracer(83,33,1,1,1,1), ptracer(83,33,2,1,1,1)
67	#endif
68
69	#endif /* ALLOW_COST_TRACER */
70
71	RETURN
72	END