Changeset 6225 for branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
- Timestamp:
- 2016-01-08T10:35:19+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4704_NOC5_MPP_BDY_UPDATE/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
- Property svn:keywords set to Id
r2409 r6225 11 11 !! 'key_c1d' 1D Configuration 12 12 !!---------------------------------------------------------------------- 13 !! cor_c1d : Coriolis factor at T-point (1D configuration)14 !! dyn_cor_c1d : vorticity trend due to Coriolis at T-point13 !! cor_c1d : Coriolis factor at T-point (1D configuration) 14 !! dyn_cor_c1d : vorticity trend due to Coriolis at T-point 15 15 !!---------------------------------------------------------------------- 16 USE oce ! ocean dynamics and tracers 17 USE dom_oce ! ocean space and time domain 18 USE phycst ! physical constants 19 USE in_out_manager ! I/O manager 20 USE prtctl ! Print control 16 USE oce ! ocean dynamics and tracers 17 USE dom_oce ! ocean space and time domain 18 USE phycst ! physical constants 19 ! 20 USE in_out_manager ! I/O manager 21 USE prtctl ! Print control 21 22 22 23 IMPLICIT NONE 23 24 PRIVATE 24 25 25 PUBLIC cor_c1d ! routine called by OPA.F9026 PUBLIC dyn_cor_c1d ! routinecalled by step1d.F9026 PUBLIC cor_c1d ! called by nemogcm.F90 27 PUBLIC dyn_cor_c1d ! called by step1d.F90 27 28 28 29 !! * Substitutions 29 30 # include "vectopt_loop_substitute.h90" 30 31 !!---------------------------------------------------------------------- 31 !! NEMO/C1D 3. 3 , NEMO Consortium (2010)32 !! $Id : dyncor_c1d.F90 2382 2010-11-13 13:08:12Z gm$32 !! NEMO/C1D 3.7 , NEMO Consortium (2015) 33 !! $Id$ 33 34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 34 35 !!---------------------------------------------------------------------- … … 41 42 !! ** Purpose : set the Coriolis factor at T-point 42 43 !!---------------------------------------------------------------------- 43 REAL(wp) :: zphi0, zbeta, zf0 ! temporaryscalars44 REAL(wp) :: zphi0, zbeta, zf0 ! local scalars 44 45 !!---------------------------------------------------------------------- 45 46 … … 87 88 INTEGER, INTENT( in ) :: kt ! ocean time-step index 88 89 !! 89 INTEGER :: ji, jj, jk 90 INTEGER :: ji, jj, jk ! dummy loop indices 90 91 !!---------------------------------------------------------------------- 91 92 !
Note: See TracChangeset
for help on using the changeset viewer.