pkg/thsice/thsice_cost_init_varia.F

6c747cb1b2 Patr*0001 #include "THSICE_OPTIONS.h"
                0002
9f5240b52a Jean*0003       SUBROUTINE THSICE_COST_INIT_VARIA( myThid )
6c747cb1b2 Patr*0004
                0005 c     ==================================================================
9f5240b52a Jean*0006 c     SUBROUTINE THSICE_COST_INIT_VARIA
6c747cb1b2 Patr*0007 c     ==================================================================
                0008
9f5240b52a Jean*0009       IMPLICIT NONE
6c747cb1b2 Patr*0010
                0011 c     == global variables ==
                0012 #include "EEPARAMS.h"
                0013 #include "SIZE.h"
                0014 #include "GRID.h"
                0015 #ifdef ALLOW_COST
                0016 # include "THSICE_COST.h"
                0017 #endif
                0018
                0019 c     == routine arguments ==
9f5240b52a Jean*0020       INTEGER myThid
6c747cb1b2 Patr*0021
                0022 #ifdef ALLOW_COST
                0023 c     == local variables ==
9f5240b52a Jean*0024       INTEGER bi,bj
6c747cb1b2 Patr*0025
                0026 c     == end of interface ==
                0027
                0028 c--   Initialize the tiled cost function contributions.
9f5240b52a Jean*0029       DO bj = myByLo(myThid), myByHi(myThid)
                0030        DO bi = myBxLo(myThid), myBxHi(myThid)
                0031          objf_thsice(bi,bj) = 0. _d 0
                0032          num_thsice(bi,bj)  = 0. _d 0
                0033        ENDDO
                0034       ENDDO
6c747cb1b2 Patr*0035
9f5240b52a Jean*0036 #endif /* ALLOW_COST */
6c747cb1b2 Patr*0037
9f5240b52a Jean*0038       RETURN
                0039       END