pkg/longstep/longstep_init_varia.F

4e66ab0b67 Oliv*0001 #include "LONGSTEP_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: LONGSTEP_INIT_VARIA
                0005 C     !INTERFACE:
                0006       SUBROUTINE LONGSTEP_INIT_VARIA( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE LONGSTEP_INIT_VARIA
                0011 C     | o Initialize LONGSTEP data structures
                0012 C     *==========================================================*
                0013 C     \ev
                0014
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017 C     == Global variables ===
                0018 #include "SIZE.h"
                0019 #include "EEPARAMS.h"
                0020 #include "PARAMS.h"
                0021 #include "DYNVARS.h"
                0022 #include "LONGSTEP.h"
                0023
                0024 C     !INPUT/OUTPUT PARAMETERS:
                0025 C     == Routine arguments ==
                0026 C     myThid     :: my Thread Id number
                0027       INTEGER myThid
                0028
                0029 #ifdef ALLOW_LONGSTEP
                0030 C     !LOCAL VARIABLES:
                0031 C     == Local variables ==
                0032 CEOP
                0033
7b3defa94d Jean*0034 C     Initialise LS_doTimeStep
                0035       _BARRIER
                0036       _BEGIN_MASTER(myThid)
                0037       LS_doTimeStep = .FALSE.
                0038       _END_MASTER(myThid)
                0039       _BARRIER
                0040
4e66ab0b67 Oliv*0041 C     initialize longstep averages to zero
                0042
                0043       CALL LONGSTEP_RESET_3D(LS_uVelCount, LS_uVel, Nr, myThid)
                0044       CALL LONGSTEP_RESET_3D(LS_vVelCount, LS_vVel, Nr, myThid)
                0045       CALL LONGSTEP_RESET_3D(LS_wVelCount, LS_wVel, Nr, myThid)
                0046       CALL LONGSTEP_RESET_3D(LS_thetaCount,LS_theta,Nr, myThid)
                0047       CALL LONGSTEP_RESET_3D(LS_saltCount, LS_salt, Nr, myThid)
                0048       IF ( ivdc_kappa .NE. 0. _d 0 )
                0049      & CALL LONGSTEP_RESET_3D(LS_IVDConvCountCount,
                0050      &                       LS_IVDConvCount, Nr, myThid)
                0051 #ifdef SHORTWAVE_HEATING
                0052       CALL LONGSTEP_RESET_3D(LS_QswCount, LS_Qsw, 1, myThid)
                0053 #endif
cc9097e522 Oliv*0054       CALL LONGSTEP_RESET_3D(LS_fwFluxCount,LS_fwFlux,1,myThid)
4e66ab0b67 Oliv*0055 #ifdef ALLOW_GMREDI
                0056       IF ( useGMRedi ) THEN
                0057        CALL LONGSTEP_RESET_3D(LS_KwxCount, LS_Kwx, Nr, myThid)
                0058        CALL LONGSTEP_RESET_3D(LS_KwyCount, LS_Kwy, Nr, myThid)
                0059        CALL LONGSTEP_RESET_3D(LS_KwzCount, LS_Kwz, Nr, myThid)
6a6c83f9ac Hajo*0060        CALL LONGSTEP_RESET_3D(LS_KuxCount, LS_Kux, Nr, myThid)
                0061        CALL LONGSTEP_RESET_3D(LS_KvyCount, LS_Kvy, Nr, myThid)
                0062        CALL LONGSTEP_RESET_3D(LS_KuzCount, LS_Kuz, Nr, myThid)
                0063        CALL LONGSTEP_RESET_3D(LS_KvzCount, LS_Kvz, Nr, myThid)
                0064        CALL LONGSTEP_RESET_3D(LS_PsiXCount, LS_PsiX, Nr, myThid)
                0065        CALL LONGSTEP_RESET_3D(LS_PsiYCount, LS_PsiY, Nr, myThid)
4e66ab0b67 Oliv*0066       ENDIF
                0067 #endif
                0068 #ifdef ALLOW_KPP
                0069       IF ( useKPP ) THEN
                0070        CALL LONGSTEP_RESET_3D(LS_KPPdiffKzSCount,
                0071      &                        LS_KPPdiffKzS, Nr, myThid)
                0072        CALL LONGSTEP_RESET_3D(LS_KPPghatCount,
                0073      &                        LS_KPPghat, Nr, myThid)
                0074       ENDIF
                0075 #endif
                0076
                0077 #endif /* ALLOW_LONGSTEP */
                0078
                0079       RETURN
                0080       END