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)
                0060       ENDIF
                0061 #endif
                0062 #ifdef ALLOW_KPP
                0063       IF ( useKPP ) THEN
                0064        CALL LONGSTEP_RESET_3D(LS_KPPdiffKzSCount,
                0065      &                        LS_KPPdiffKzS, Nr, myThid)
                0066        CALL LONGSTEP_RESET_3D(LS_KPPghatCount,
                0067      &                        LS_KPPghat, Nr, myThid)
                0068       ENDIF
                0069 #endif
                0070
                0071 #endif /* ALLOW_LONGSTEP */
                0072
                0073       RETURN
                0074       END