pkg/seaice/seaice_cost_sensi.F

1e22f5fc71 Patr*0001 #include "SEAICE_OPTIONS.h"
                0002
2b959ba38e Mart*0003       SUBROUTINE SEAICE_COST_SENSI( myTime, myIter, myThid )
1e22f5fc71 Patr*0004 C     *==========================================================*
2b959ba38e Mart*0005 C     | SUBROUTINE SEAICE_COST_SENSI
1e22f5fc71 Patr*0006 C     | o driver for seaice sensitivity cost functions
                0007 C     *==========================================================*
                0008
                0009       IMPLICIT NONE
                0010
                0011 C     == Global variables ===
                0012 #include "SIZE.h"
                0013 #include "EEPARAMS.h"
                0014 #include "PARAMS.h"
                0015
                0016 C     == Routine arguments ==
                0017 C     myThid - Thread number for this instance of the routine.
                0018       _RL myTime
2b959ba38e Mart*0019       INTEGER myIter
                0020       INTEGER myThid
1e22f5fc71 Patr*0021
                0022 #ifdef ALLOW_COST
                0023 C     == Local variables
                0024
2b959ba38e Mart*0025       CALL SEAICE_COST_TEST ( myTime, myIter, myThid )
1e22f5fc71 Patr*0026
57867cd15e Patr*0027       CALL SEAICE_COST_ACCUMULATE_MEAN (
                0028      &    myTime, myIter, myThid)
1e22f5fc71 Patr*0029
                0030 #endif
                0031
2b959ba38e Mart*0032       RETURN
1e22f5fc71 Patr*0033       END