pkg/thsice/thsice_cost_driver.F

6c747cb1b2 Patr*0001 #include "THSICE_OPTIONS.h"
6b47d550f4 Mart*0002 c#ifdef ALLOW_AUTODIFF
                0003 c# include "AUTODIFF_OPTIONS.h"
                0004 c#endif
                0005 #ifdef ALLOW_COST
                0006 # include "COST_OPTIONS.h"
                0007 #endif
6c747cb1b2 Patr*0008
6b47d550f4 Mart*0009       SUBROUTINE THSICE_COST_DRIVER( myTime, myIter, myThid )
6c747cb1b2 Patr*0010
                0011 c     ==================================================================
                0012 c     SUBROUTINE thsice_cost_driver
                0013 c     ==================================================================
                0014 c
                0015 c     o Evaluate cost function contributions of
                0016 c       thsice observations
                0017 c
                0018 c     ==================================================================
                0019 c     SUBROUTINE thsice_cost_driver
                0020 c     ==================================================================
                0021
6b47d550f4 Mart*0022       IMPLICIT NONE
6c747cb1b2 Patr*0023
                0024 c     == global variables ==
                0025 #include "EEPARAMS.h"
                0026 #include "SIZE.h"
                0027 #include "PARAMS.h"
6b47d550f4 Mart*0028 c#include "GRID.h"
6c747cb1b2 Patr*0029
6b47d550f4 Mart*0030 c#ifdef ALLOW_COST
                0031 c# include "CTRL_SIZE.h"
4d72283393 Mart*0032 c# include "CTRL.h"
edcd27be69 Mart*0033 c# include "CTRL_DUMMY.h"
6b47d550f4 Mart*0034 c#endif
6c747cb1b2 Patr*0035
                0036 c     == routine arguments ==
6b47d550f4 Mart*0037       _RL     myTime
                0038       INTEGER myIter
                0039       INTEGER myThid
6c747cb1b2 Patr*0040
                0041 c     == end of interface ==
                0042
                0043 #ifdef ALLOW_THSICE_COST_TEST
6b47d550f4 Mart*0044        CALL THSICE_COST_TEST( myTime, myIter, myThid )
6c747cb1b2 Patr*0045 #endif
                0046
6b47d550f4 Mart*0047       RETURN
                0048       END