hs94.1x64x5/code_ad/cost_test.F

21b3d503d8 Jean*0001 #include "COST_OPTIONS.h"
40b98c0285 Patr*0002
0524b7d1ff Mart*0003 CBOP
                0004 C     !ROUTINE: COST_TEST
                0005 C     !INTERFACE:
                0006       SUBROUTINE COST_TEST( myThid )
21b3d503d8 Jean*0007 C     *==========================================================*
0524b7d1ff Mart*0008 C     | SUBROUTINE COST_TEST
21b3d503d8 Jean*0009 C     | o this routine computes the cost function for the tiles
                0010 C     |   of this processor
                0011 C     *==========================================================*
                0012 C     | Notes
                0013 C     *==========================================================*
0524b7d1ff Mart*0014 C     !USES:
                0015        IMPLICIT NONE
40b98c0285 Patr*0016 C     == Global variables ===
                0017 #include "SIZE.h"
                0018 #include "EEPARAMS.h"
                0019 #include "PARAMS.h"
                0020 #include "DYNVARS.h"
                0021 #include "GRID.h"
                0022 #include "cost.h"
                0023
0524b7d1ff Mart*0024 C !INPUT/OUTPUT PARAMETERS:
40b98c0285 Patr*0025 C     myThid - Thread number for this instance of the routine.
0524b7d1ff Mart*0026       INTEGER myThid
                0027 CEOP
40b98c0285 Patr*0028
                0029 #ifdef ALLOW_COST_TEST
0524b7d1ff Mart*0030 C     Abuse this routine as driver to call a free-format function and
                0031 C     pass all variables normally imported by include statements.
                0032       CALL COST_TEST_LOCAL (
                0033      I     sNx, sNy, nSx, nSy, OLx, OLy, Nr,
                0034      I     myBxLo(myThid), myBxHi(myThid),
                0035      I     myByLo(myThid), myByHi(myThid),
                0036      I     myXGlobalLo, myYGlobalLo,
                0037      I     theta,
                0038      U     objf_test,
                0039      I     myThid )
21b3d503d8 Jean*0040 #endif  /* ALLOW_COST_TEST */
40b98c0285 Patr*0041
21b3d503d8 Jean*0042       RETURN
40b98c0285 Patr*0043       END