File indexing completed on 2025-06-05 05:08:28 UTC
view on githubraw file Latest commit 6a6c83f9 on 2025-06-04 22:00:11 UTC
4e66ab0b67 Oliv*0001 #include "LONGSTEP_OPTIONS.h"
0002
0003
0004
0005
0006 SUBROUTINE LONGSTEP_INIT_VARIA( myThid )
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016 IMPLICIT NONE
0017
0018 #include "SIZE.h"
0019 #include "EEPARAMS.h"
0020 #include "PARAMS.h"
0021 #include "DYNVARS.h"
0022 #include "LONGSTEP.h"
0023
0024
0025
0026
0027 INTEGER myThid
0028
0029 #ifdef ALLOW_LONGSTEP
0030
0031
0032
0033
7b3defa94d Jean*0034
0035 _BARRIER
0036 _BEGIN_MASTER(myThid)
0037 LS_doTimeStep = .FALSE.
0038 _END_MASTER(myThid)
0039 _BARRIER
0040
4e66ab0b67 Oliv*0041
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