File indexing completed on 2023-09-21 05:10:12 UTC
view on githubraw file Latest commit 96b00645 on 2023-09-20 15:15:14 UTC
5ed655852f Jean*0001 #include "COST_OPTIONS.h"
eaa2114d11 Jean*0002 #ifdef ALLOW_AUTODIFF
0003 # include "AUTODIFF_OPTIONS.h"
0004 #endif
bbf42b7711 Patr*0005
fc355c3e08 Patr*0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021
0022
0023
0024
0025
0026
0027
0028
0029
0030
0031
0032
0033
0034
0035
0036
0037
0038
0039
0040
0041
0042
0043
0044
0045
0046
0047
0048
0049
0050
0051
0052
0053
f855e1a625 Patr*0054
fc355c3e08 Patr*0055
0056
96b006450c dngo*0057
fc355c3e08 Patr*0058
96b006450c dngo*0059 SUBROUTINE COST_TILE( myTime, myIter, myThid )
fc355c3e08 Patr*0060
0061
0062
951926fb9b Jean*0063
fc355c3e08 Patr*0064
951926fb9b Jean*0065
fc355c3e08 Patr*0066
0067
0068
0069
96b006450c dngo*0070 IMPLICIT NONE
bbf42b7711 Patr*0071
0072
0073 #include "SIZE.h"
0074 #include "EEPARAMS.h"
0075 #include "PARAMS.h"
0076 #include "DYNVARS.h"
0077 #include "GRID.h"
449f3c105b Patr*0078 #include "cost.h"
eaa2114d11 Jean*0079 #ifdef ALLOW_AUTODIFF
7c50f07931 Mart*0080 # ifdef ALLOW_AUTODIFF_TAMC
0081 # include "tamc.h"
0082 # endif
ec6be1154b Patr*0083 # ifdef ALLOW_PTRACERS
0084 # include "PTRACERS_SIZE.h"
0085 # include "PTRACERS_FIELDS.h"
0086 # endif
616600b8d2 Patr*0087 #endif
bbf42b7711 Patr*0088
fc355c3e08 Patr*0089
96b006450c dngo*0090
449f3c105b Patr*0091 _RL myTime
96b006450c dngo*0092 INTEGER myIter
0093 INTEGER myThid
bbf42b7711 Patr*0094
0095 #ifdef ALLOW_COST
fc355c3e08 Patr*0096
96b006450c dngo*0097 #ifdef ALLOW_COST_TRACER
0098 INTEGER bi, bj
0099 #endif
fc355c3e08 Patr*0100
bbf42b7711 Patr*0101
781d8676b2 Patr*0102 #ifdef ALLOW_AUTODIFF_TAMC
95c72ef3a1 Patr*0103
0104
0105
0106
781d8676b2 Patr*0107 # ifdef ALLOW_DEPTH_CONTROL
95c72ef3a1 Patr*0108
0109
616600b8d2 Patr*0110 # endif
ec6be1154b Patr*0111 # ifdef ALLOW_PTRACERS
0112 # ifdef NONLIN_FRSURF
0113
0114
0115
0116
0117 # endif
0118 # endif
616600b8d2 Patr*0119 #endif
bbf42b7711 Patr*0120
96b006450c dngo*0121 IF ( myTime .GT. (endTime - lastinterval) ) THEN
1e22f5fc71 Patr*0122
913151f332 Davi*0123 #if (defined (ALLOW_COST_TEST) || defined (ALLOW_COST_ATLANTIC_HEAT) || defined (ALLOW_COST_TEMP) )
96b006450c dngo*0124 CALL COST_ACCUMULATE_MEAN (myThid)
1e22f5fc71 Patr*0125 #endif
0126
64c318b5ee Patr*0127 #ifdef ALLOW_COST_SHELFICE
96b006450c dngo*0128 CALL SHELFICE_COST_ACCUMULATE (myThid)
0129 #endif
0130
0131 #if ( defined(ALLOW_STREAMICE) && defined(ALLOW_COST_STREAMICE) )
0132 IF (useStreamIce) CALL STREAMICE_COST_ACCUM (myIter, myThid)
64c318b5ee Patr*0133 #endif
0134
65d2de27de Mart*0135 #if (defined ALLOW_THSICE && defined ALLOW_THSICE_COST_TEST)
96b006450c dngo*0136 IF (useThSIce) CALL THSICE_COST_DRIVER (myTime, myIter, myThid)
6c747cb1b2 Patr*0137 #endif
0138
1e22f5fc71 Patr*0139 ENDIF
0140
96b006450c dngo*0141 #ifdef ALLOW_COST_TRACER
bbf42b7711 Patr*0142 DO bj=myByLo(myThid),myByHi(myThid)
0143 DO bi=myBxLo(myThid),myBxHi(myThid)
449f3c105b Patr*0144 CALL COST_TRACER( bi, bj, myThid )
bbf42b7711 Patr*0145 ENDDO
0146 ENDDO
96b006450c dngo*0147 #endif
bbf42b7711 Patr*0148
0149 #endif /* ALLOW_COST */
0150
0151 RETURN
0152 END