pkg/dic/dic_biotic_init.F

e8625f0081 Step*0001 #include "DIC_OPTIONS.h"
29ad036528 Step*0002
08536d17ba Step*0003 CBOP
                0004 C !ROUTINE: DIC_BIOTIC_INIT
                0005
                0006 C !INTERFACE: ==========================================================
29ad036528 Step*0007       SUBROUTINE DIC_BIOTIC_INIT( myThid )
                0008
08536d17ba Step*0009 C !DESCRIPTION:
3c9c51750e Jean*0010 C  DIC diagnostic initialization
08536d17ba Step*0011
                0012 C !USES: ===============================================================
                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 c!INPUT PARAMETERS: ===================================================
                0020 C  myThid               :: thread number
29ad036528 Step*0021       INTEGER myThid
08536d17ba Step*0022 CEOP
29ad036528 Step*0023
                0024 #ifdef DIC_BIOTIC
                0025 #ifdef ALLOW_TIMEAVE
                0026
6bf15b6a7c Jean*0027 C !LOCAL VARIABLES: ====================================================
                0028       INTEGER bi, bj
                0029 c     CHARACTER*(MAX_LEN_MBUF) suff
                0030
                0031 C set arrays to zero if first timestep
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 c         print*,'QQ start timeave'
                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