File indexing completed on 2023-03-29 05:10:01 UTC
view on githubraw file Latest commit cda1c18f on 2023-03-28 22:31:47 UTC
5ed655852f Jean*0001 #include "COST_OPTIONS.h"
2dcaa8b9a5 Patr*0002
29f6025d09 Jean*0003 SUBROUTINE COST_INIT_VARIA( mythid )
2dcaa8b9a5 Patr*0004
0005
869864d4b6 Patr*0006
2dcaa8b9a5 Patr*0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
869864d4b6 Patr*0019
2dcaa8b9a5 Patr*0020
0021
0022 implicit none
0023
0024
0025
0026 #include "EEPARAMS.h"
0027 #include "SIZE.h"
0028 #include "cost.h"
0029
0030
0031 integer mythid
0032
0033
720be40b89 Patr*0034 integer i,j,k
2dcaa8b9a5 Patr*0035 integer bi,bj
0036
0037
0038
cda1c18f72 Jean*0039 DO bj=myByLo(myThid),myByHi(myThid)
0040 DO bi=myBxLo(myThid),myBxHi(myThid)
29f6025d09 Jean*0041 tile_fc(bi,bj) = 0. _d 0
2dcaa8b9a5 Patr*0042 objf_atl(bi,bj) = 0. _d 0
0043 objf_test(bi,bj) = 0. _d 0
bbf42b7711 Patr*0044 objf_tracer(bi,bj) = 0. _d 0
616600b8d2 Patr*0045 #ifdef ALLOW_COST_DEPTH
0046 objf_depth(bi,bj) = 0. _d 0
0047 #endif
720be40b89 Patr*0048 #ifdef ALLOW_COST_VECTOR
0049 do i=1,sNx
0050 objf_vector(i,bi,bj) = 0. _d 0
0051 end do
0052 #endif
449f3c105b Patr*0053
4a2a8da507 Davi*0054 #ifdef ALLOW_COST
29f6025d09 Jean*0055 do k=1,Nr
449f3c105b Patr*0056 do j=1,sNy
0057 do i=1,sNx
0058 cMeanTheta(i,j,k,bi,bj) = 0. _d 0
0059 cMeanUVel(i,j,k,bi,bj) = 0. _d 0
0060 cMeanVVel(i,j,k,bi,bj) = 0. _d 0
781d8676b2 Patr*0061 cMeanThetaUVel(i,j,k,bi,bj) = 0. _d 0
0062 cMeanThetaVVel(i,j,k,bi,bj) = 0. _d 0
449f3c105b Patr*0063 end do
0064 end do
0065 end do
0066 #endif
0067
9eb96e5404 Patr*0068 #ifdef ALLOW_COST_STATE_FINAL
0069 do j=1,sNy
f8659cb5d2 Patr*0070 do i=1,sNx
0071 do k=1,4*Nr
0072 objf_state_final(i,j,bi,bj,k) = 0. _d 0
0073 enddo
0074 objf_state_final(i,j,bi,bj,4*Nr+1) = 0. _d 0
9eb96e5404 Patr*0075
0076
0077 end do
0078 end do
0079 #endif
cda1c18f72 Jean*0080 ENDDO
0081 ENDDO
2dcaa8b9a5 Patr*0082
869864d4b6 Patr*0083 #ifdef ALLOW_SEAICE
0084 call seaice_cost_init_varia( mythid )
0085 #endif
0086
6c747cb1b2 Patr*0087 #ifdef ALLOW_THSICE
0088 call thsice_cost_init_varia( mythid )
0089 #endif
0090
2dcaa8b9a5 Patr*0091
0092 _BEGIN_MASTER( mythid )
0093 fc = 0. _d 0
8a270036d8 Gael*0094 glofc = 0. _d 0
2dcaa8b9a5 Patr*0095 _END_MASTER( mythid )
0096
0097 _BARRIER
0098
29f6025d09 Jean*0099 RETURN
0100 END