File indexing completed on 2023-02-04 06:09:49 UTC
view on githubraw file Latest commit 2e3e8c33 on 2023-02-03 17:26:01 UTC
e8625f0081 Step*0001 #include "DIC_OPTIONS.h"
29ad036528 Step*0002
08536d17ba Step*0003
0004
0005
0006
29ad036528 Step*0007 SUBROUTINE DIC_BIOTIC_INIT( myThid )
0008
08536d17ba Step*0009
3c9c51750e Jean*0010
08536d17ba Step*0011
0012
0013 IMPLICIT NONE
29ad036528 Step*0014 #include "SIZE.h"
0015 #include "EEPARAMS.h"
0016 #include "PARAMS.h"
2ef8966791 Davi*0017 #include "DIC_VARS.h"
29ad036528 Step*0018
08536d17ba Step*0019
0020
29ad036528 Step*0021 INTEGER myThid
08536d17ba Step*0022
29ad036528 Step*0023
0024 #ifdef DIC_BIOTIC
0025 #ifdef ALLOW_TIMEAVE
0026
6bf15b6a7c Jean*0027
0028 INTEGER bi, bj
0029
0030
0031
29ad036528 Step*0032 DO bj = myByLo(myThid), myByHi(myThid)
0033 DO bi = myBxLo(myThid), myBxHi(myThid)
0034 CALL TIMEAVE_RESET(BIOave, Nr, bi, bj, myThid)
0035 CALL TIMEAVE_RESET(CARave, Nr, bi, bj, myThid)
0036 CALL TIMEAVE_RESET(SURave, 1, bi, bj, myThid)
0037 CALL TIMEAVE_RESET(SUROave, 1, bi, bj, myThid)
0038 CALL TIMEAVE_RESET(pCO2ave, 1, bi, bj, myThid)
0039 CALL TIMEAVE_RESET(pHave, 1, bi, bj, myThid)
0040 CALL TIMEAVE_RESET(fluxCO2ave, 1, bi, bj, myThid)
65132eb687 Step*0041 CALL TIMEAVE_RESET(pfluxave, Nr, bi, bj, myThid)
0042 CALL TIMEAVE_RESET(epfluxave, Nr, bi, bj, myThid)
0043 CALL TIMEAVE_RESET(cfluxave, Nr, bi, bj, myThid)
6bf15b6a7c Jean*0044
0045 DIC_timeAve(bi,bj) = 0. _d 0
29ad036528 Step*0046 ENDDO
0047 ENDDO
0048
0049 #endif /* ALLOW_TIMEAVE */
0050 #endif /* DIC_BIOTIC */
3c9c51750e Jean*0051
29ad036528 Step*0052 RETURN
0053 END