- Timestamp:
- 2015-12-16T10:25:22+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_merge_2015/NEMOGCM/NEMO/OPA_SRC/C1D/dyncor_c1d.F90
r5215 r6060 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 !! NEMO/C1D 3.7 , NEMO Consortium (2015) 32 33 !! $Id$ 33 34 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) … … 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.