1 |
C $Header: /u/gcmpack/MITgcm/pkg/seaice/seaice_cost_sensi.F,v 1.1 2007/09/28 00:52:18 heimbach Exp $ |
2 |
C $Name: $ |
3 |
|
4 |
#include "SEAICE_OPTIONS.h" |
5 |
|
6 |
subroutine seaice_cost_sensi( myTime, myIter, myThid ) |
7 |
C *==========================================================* |
8 |
C | subroutine seaice_cost_sensi |
9 |
C | o driver for seaice sensitivity cost functions |
10 |
C *==========================================================* |
11 |
|
12 |
IMPLICIT NONE |
13 |
|
14 |
C == Global variables === |
15 |
#include "SIZE.h" |
16 |
#include "EEPARAMS.h" |
17 |
#include "PARAMS.h" |
18 |
|
19 |
C == Routine arguments == |
20 |
C myThid - Thread number for this instance of the routine. |
21 |
_RL myTime |
22 |
integer myIter |
23 |
integer myThid |
24 |
|
25 |
#ifdef ALLOW_COST |
26 |
C == Local variables |
27 |
|
28 |
CALL COST_ICE_TEST ( myTime, myIter, myThid ) |
29 |
|
30 |
CALL SEAICE_COST_ACCUMULATE_MEAN ( |
31 |
& myTime, myIter, myThid) |
32 |
|
33 |
#endif |
34 |
|
35 |
END |