/[MITgcm]/MITgcm/verification/bottom_ctrl_5x5/code_ad/cost_test.F
ViewVC logotype

Diff of /MITgcm/verification/bottom_ctrl_5x5/code_ad/cost_test.F

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

revision 1.2 by jmc, Tue Oct 9 02:36:41 2007 UTC revision 1.3 by jmc, Sun Aug 12 01:32:50 2012 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "COST_OPTIONS.h"
5    
6        subroutine cost_test( myThid )        subroutine cost_test( myThid )
7  C     /==========================================================\  C     *==========================================================*
8  C     | subroutine cost_test                                     |  C     | subroutine cost_test
9  C     | o this routine computes the cost function for the tiles  |  C     | o this routine computes the cost function for the tiles
10  C     |   of this processor                                      |  C     |   of this processor
11  C     |==========================================================|  C     *==========================================================*
12  C     |                                                          |  C     | Notes
13  C     | Notes                                                    |  C     *==========================================================*
 C     | =====                                                    |  
 C     \==========================================================/  
14        IMPLICIT NONE        IMPLICIT NONE
15    
16  C     == Global variables ===  C     == Global variables ===
# Line 26  C     == Global variables === Line 24  C     == Global variables ===
24    
25  C     == Routine arguments ==  C     == Routine arguments ==
26  C     myThid - Thread number for this instance of the routine.  C     myThid - Thread number for this instance of the routine.
       integer bi, bj  
27        integer myThid        integer myThid
28    
29  #ifdef ALLOW_COST_TEST  #ifdef ALLOW_COST_TEST
30  C     == Local variables  C     == Local variables
31          integer bi, bj
32        integer i, j, k        integer i, j, k
33        integer ig, jg        integer ig, jg
34        integer itlo,ithi        integer itlo,ithi
35        integer jtlo,jthi        integer jtlo,jthi
   
36        _RL vol_trans        _RL vol_trans
37  C--   index values at which the transport is to be calculated  C--   index values at which the transport is to be calculated
38        INTEGER iysecmin, iysecmax, ixsec        INTEGER iysecmin, iysecmax, ixsec
39        PARAMETER (ixsec = 4, iysecmin = 3, iysecmax = 3)        PARAMETER (ixsec = 4, iysecmin = 3, iysecmax = 3)
40    
 C  
41        jtlo = mybylo(mythid)        jtlo = mybylo(mythid)
42        jthi = mybyhi(mythid)        jthi = mybyhi(mythid)
43        itlo = mybxlo(mythid)        itlo = mybxlo(mythid)
# Line 66  C Line 62  C
62              ENDDO              ENDDO
63             ENDIF             ENDIF
64            ENDDO            ENDDO
65           ENDIF             ENDIF
66          ENDDO          ENDDO
67          objf_test(bi,bj) = vol_trans*1.0e-06          objf_test(bi,bj) = vol_trans*1.0e-06
68         END DO         END DO
# Line 77  Cml      jLocOut =  35 Line 73  Cml      jLocOut =  35
73  Cml      kLocOut =  1  Cml      kLocOut =  1
74  Cml  Cml
75  Cmlce    some reference temperature  Cmlce    some reference temperature
76  Cml      thetaRef = 24.0D0  Cml      thetaRef = 24.0 _d 0
77  Cml  Cml
78  CmlC--   Calculate cost function on tile of this instance  CmlC--   Calculate cost function on tile of this instance
79  Cml      do bj = jtlo,jthi  Cml      do bj = jtlo,jthi
# Line 93  Cml     &              'COST    ',ig,jg, Line 89  Cml     &              'COST    ',ig,jg,
89  Cml               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)  Cml               objf_test(bi,bj) = theta(i,j,kLocOut,bi,bj)
90  Cml            endif  Cml            endif
91  Cml  Cml
92  Cml            end do  Cml            enddo
93  Cml          end do  Cml          enddo
94  Cml        end do  Cml        enddo
95  Cml      end do  Cml      enddo
96    
97  #endif  #endif /* ALLOW_COST_TEST */
98    
99          RETURN
100        END        END
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22