/[MITgcm]/MITgcm/verification/hs94.1x64x5/adcode/cost_test.F
ViewVC logotype

Contents of /MITgcm/verification/hs94.1x64x5/adcode/cost_test.F

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

Revision 1.1.4.1 - (show annotations) (download)
Tue Feb 26 16:05:22 2002 UTC (21 years, 9 months ago) by adcroft
Branch: release1
CVS Tags: release1_p12, release1_p13, release1_p10, release1_p16, release1_p17, release1_p14, release1_p15, release1_p11, release1_p13_pre, release1_p12_pre, release1_p8, release1_p9, release1_p2, release1_p3, release1_p4, release1_p6, release1_p7, release1_p1, release1_p5, release1_chkpt44d_post
Branch point for: release1_50yr
Changes since 1.1: +1 -1 lines 
Merging changes on MAIN between checkpoint43 and checkpoint43a-release1mods
Command: cvs -q update -jcheckpoint43 -jcheckpoint43a-release1mods -d -P

These changes are most of the changes between c43 and c44 except those
that occured after "12:45 11 Jan 2002". As far as I can tell it is
checkpoint43 with the following mods:

  o fix bug in mom_vi_del2uv
  o select when filters are applied ; add options to zonal_filter (data.zonfilt)  o gmredi: fix Pb in the adiabatic form ; add options (.e.g. Bolus advection)
  o update AIM experiments (NCEP input files)
  o improve and extend diagnostics (Monitor, TimeAve with NonLin-FrSurf)
  o added some stuff for AD
  o Jamar wet-points

This update does not contain the following mods that are in checkpoint44

  o bug fix in pkg/generic_advdiff/
    - thread related bug, bi,bj arguments in vertical advection routines
  o some changes to pkg/autodiff, pkg/cost, pkg/exf, pkg/ecco,
    verification/carbon and model/src/ related to adjoint
  o some new Matlab scripts for diagnosing model density
    - utils/matlab/dens_poly3.m and ini_poly3.m

The list of exclusions is accurate based on a "cvs diff". The list of
inclusions is based on the record in doc/tag-index which may not be complete.
1 C $Header: /u/gcmpack/MITgcm/verification/hs94.1x64x5/adcode/cost_test.F,v 1.1 2001/11/20 20:44:24 heimbach Exp $
2
3 #include "CPP_OPTIONS.h"
4
5 subroutine cost_test( myThid )
6 C /==========================================================\
7 C | subroutine cost_test |
8 C | o this routine computes the cost function for the tiles |
9 C | of this processor |
10 C |==========================================================|
11 C | |
12 C | Notes |
13 C | ===== |
14 C \==========================================================/
15 IMPLICIT NONE
16
17 C == Global variables ===
18 #include "SIZE.h"
19 #include "EEPARAMS.h"
20 #include "PARAMS.h"
21 #include "DYNVARS.h"
22 #include "GRID.h"
23 #ifdef ALLOW_PASSIVE_TRACER
24 # include "TR1.h"
25 #endif
26
27 #include "cost.h"
28
29 C == Routine arguments ==
30 C myThid - Thread number for this instance of the routine.
31 integer bi, bj
32 integer myThid
33
34 #ifdef ALLOW_COST_TEST
35 C == Local variables
36 _RL thetaRef
37
38 integer i, j, k
39 integer ig, jg
40 integer itlo,ithi
41 integer jtlo,jthi
42
43 jtlo = mybylo(mythid)
44 jthi = mybyhi(mythid)
45 itlo = mybxlo(mythid)
46 ithi = mybxhi(mythid)
47
48 iLocOut = 1
49 jLocOut = 32
50 kLocOut = 1
51
52 do bj = jtlo,jthi
53 do bi = itlo,ithi
54 objf_test(bi,bj)= 0. _d 0
55 enddo
56 enddo
57
58 ce some reference temperature
59 thetaRef = 24.0D0
60 C-- Calculate mask for tracer cells (0 => land, 1 => water)
61 k=1
62
63 C-- Calculate cost function on tile of this instance
64 do bj = jtlo,jthi
65 do bi = itlo,ithi
66 c
67 do j=1,sNy
68 jg = myYGlobalLo-1+(bj-1)*sNy+j
69 do i=1,sNx
70 ig = myXGlobalLo-1+(bi-1)*sNx+i
71
72 if ((jg .gt.30) .and. (jg .lt.40)) then
73 objf_test(bi,bj) = objf_test(bi,bj) +
74 & theta(i,j,kLocOut,bi,bj)
75 write(*,'(a,F10.1,3(x,i4),a,4(x,i4))')
76 & 'objf_test ', objf_test(bi,bj),
77 & ig,jg,kLocOut,' TILE ',i,j,bi,bj
78 endif
79
80 end do
81 end do
82 c
83 objf_test(bi,bj) = objf_test(bi,bj) / 9. _d 0
84 c
85 end do
86 end do
87
88 #endif
89
90 END
  ViewVC Help
Powered by ViewVC 1.1.22