Changeset 719 for trunk/NEMO/OPA_SRC/DYN
- Timestamp:
- 2007-10-16T16:59:56+02:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/DYN
- Files:
-
- 29 edited
-
divcur.F90 (modified) (1 diff, 1 prop)
-
dynadv.F90 (modified) (1 diff, 1 prop)
-
dynadv_cen2.F90 (modified) (1 diff, 1 prop)
-
dynadv_ubs.F90 (modified) (1 diff, 1 prop)
-
dynhpg.F90 (modified) (1 diff, 1 prop)
-
dynhpg_jki.F90 (modified) (1 diff, 1 prop)
-
dynkeg.F90 (modified) (1 diff, 1 prop)
-
dynldf.F90 (modified) (1 diff, 1 prop)
-
dynldf_bilap.F90 (modified) (1 diff, 1 prop)
-
dynldf_bilapg.F90 (modified) (1 diff, 1 prop)
-
dynldf_iso.F90 (modified) (1 diff, 1 prop)
-
dynldf_lap.F90 (modified) (1 diff, 1 prop)
-
dynnxt.F90 (modified) (1 diff, 1 prop)
-
dynspg.F90 (modified) (1 diff, 1 prop)
-
dynspg_exp.F90 (modified) (2 diffs, 1 prop)
-
dynspg_exp_jki.F90 (modified) (2 diffs, 1 prop)
-
dynspg_flt.F90 (modified) (3 diffs, 1 prop)
-
dynspg_flt_jki.F90 (modified) (4 diffs, 1 prop)
-
dynspg_oce.F90 (modified) (1 diff, 1 prop)
-
dynspg_rl.F90 (modified) (1 diff, 1 prop)
-
dynspg_ts.F90 (modified) (3 diffs, 1 prop)
-
dynspg_ts_jki.F90 (modified) (2 diffs, 1 prop)
-
dynvor.F90 (modified) (1 diff, 1 prop)
-
dynzad.F90 (modified) (2 diffs, 1 prop)
-
dynzdf.F90 (modified) (1 diff, 1 prop)
-
dynzdf_exp.F90 (modified) (3 diffs, 1 prop)
-
dynzdf_imp.F90 (modified) (5 diffs, 1 prop)
-
dynzdf_imp_jki.F90 (modified) (4 diffs, 1 prop)
-
wzvmod.F90 (modified) (2 diffs, 1 prop)
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/DYN/divcur.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 27 27 !!---------------------------------------------------------------------- 28 28 !! OPA 9.0 , LOCEAN-IPSL (2005) 29 !! $ Id$29 !! $Header$ 30 30 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 31 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynadv.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 35 35 !!---------------------------------------------------------------------- 36 36 !! OPA 9.0 , LOCEAN-IPSL (2006) 37 !! $ Id$37 !! $Header$ 38 38 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 39 39 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynadv_cen2.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 29 29 !!---------------------------------------------------------------------- 30 30 !! OPA 9.0 , LODYC-IPSL (2006) 31 !! $ Id$31 !! $Header$ 32 32 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 33 33 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynadv_ubs.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 34 34 !!---------------------------------------------------------------------- 35 35 !! OPA 9.0 , LODYC-IPSL (2006) 36 !! $ Id$36 !! $Header$ 37 37 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 38 38 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynhpg.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 75 75 !!---------------------------------------------------------------------- 76 76 !! OPA 9.0 , LOCEAN-IPSL (2005) 77 !! $ Id$77 !! $Header$ 78 78 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 79 79 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynhpg_jki.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 33 33 !!---------------------------------------------------------------------- 34 34 !! OPA 9.0 , LOCEAN-IPSL (2005) 35 !! $ Id$35 !! $Header$ 36 36 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 37 37 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynkeg.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 28 28 !!---------------------------------------------------------------------- 29 29 !! OPA 9.0 , LOCEAN-IPSL (2005) 30 !! $ Id$30 !! $Header$ 31 31 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 32 32 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynldf.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 39 39 !!--------------------------------------------------------------------------------- 40 40 !! OPA 9.0 , LOCEAN-IPSL (2005) 41 !! $ Id$41 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynldf.F90,v 1.4 2007/06/05 11:02:08 opalod Exp $ 42 42 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 43 43 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynldf_bilap.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 30 30 !!---------------------------------------------------------------------- 31 31 !! OPA 9.0 , LOCEAN-IPSL (2005) 32 !! $ Id$32 !! $Header$ 33 33 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 34 34 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynldf_bilapg.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 35 35 !!---------------------------------------------------------------------- 36 36 !! OPA 9.0 , LOCEAN-IPSL (2005) 37 !! $ Id$37 !! $Header$ 38 38 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 39 39 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynldf_iso.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 37 37 !!---------------------------------------------------------------------- 38 38 !! OPA 9.0 , LOCEAN-IPSL (2005) 39 !! $Id$40 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)41 39 !!---------------------------------------------------------------------- 42 40 -
trunk/NEMO/OPA_SRC/DYN/dynldf_lap.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 31 31 !!---------------------------------------------------------------------- 32 32 !! OPA 9.0 , LOCEAN-IPSL (2005) 33 !! $ Id$33 !! $Header$ 34 34 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 35 35 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynnxt.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 83 83 !!---------------------------------------------------------------------- 84 84 !! OPA 9.0 , LOCEAN-IPSL (2005) 85 !! $ Id$85 !! $Header$ 86 86 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 87 87 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 41 41 !!---------------------------------------------------------------------- 42 42 !! OPA 9.0 , LOCEAN-IPSL (2005) 43 !! $ Id$43 !! $Header$ 44 44 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 45 45 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_exp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 16 16 USE oce ! ocean dynamics and tracers 17 17 USE dom_oce ! ocean space and time domain 18 USE sbc_oce ! surface boundary condition: ocean 18 USE in_out_manager ! I/O manager 19 USE phycst ! physical constants 20 USE ocesbc ! ocean surface boundary condition 19 21 USE obc_oce ! Lateral open boundary condition 20 USE phycst ! physical constants21 22 USE obc_par ! open boundary condition parameters 22 23 USE obcdta ! open boundary condition data (obc_dta_bt routine) 23 USE in_out_manager ! I/O manager24 24 USE lib_mpp ! distributed memory computing library 25 25 USE lbclnk ! ocean lateral boundary conditions (or mpp link) … … 40 40 !!---------------------------------------------------------------------- 41 41 !! OPA 9.0 , LOCEAN-IPSL (2005) 42 !! $ Id$42 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_exp.F90,v 1.9 2007/06/05 10:38:27 opalod Exp $ 43 43 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 44 44 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_exp_jki.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 15 15 USE oce ! ocean dynamics and tracers 16 16 USE dom_oce ! ocean space and time domain 17 USE sbc_oce ! surface boundary condition: ocean 17 USE in_out_manager ! I/O manager 18 USE phycst ! physical constants 19 USE ocesbc ! ocean surface boundary condition 18 20 USE obc_oce ! Lateral open boundary condition 19 USE phycst ! physical constants20 21 USE obc_par ! open boundary condition parameters 21 22 USE obcdta ! open boundary condition data (obc_dta_bt routine) 22 USE in_out_manager ! I/O manager23 23 USE lib_mpp ! distributed memory computing library 24 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) … … 38 38 !!---------------------------------------------------------------------- 39 39 !! OPA 9.0 , LOCEAN-IPSL (2005) 40 !! $ Id$40 !! $Header$ 41 41 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 42 42 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_flt.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 25 25 USE dom_oce ! ocean space and time domain 26 26 USE zdf_oce ! ocean vertical physics 27 USE sbc_oce ! surface boundary condition: ocean 28 USE obc_oce ! Lateral open boundary condition 27 USE phycst ! physical constants 28 USE ocesbc ! ocean surface boundary condition 29 USE flxrnf ! ocean runoffs 29 30 USE sol_oce ! ocean elliptic solver 30 USE phycst ! physical constants31 USE domvvl ! variable volume32 31 USE solver ! solver initialization 33 32 USE solpcg ! preconditionned conjugate gradient solver … … 35 34 USE solfet ! FETI solver 36 35 USE solsor_e ! Successive Over-relaxation solver with MPP optimization 36 USE obc_oce ! Lateral open boundary condition 37 37 USE obcdyn ! ocean open boundary condition (obc_dyn routines) 38 38 USE obcvol ! ocean open boundary condition (obc_vol routines) 39 USE cla_dynspg ! cross land advection40 USE in_out_manager ! I/O manager41 39 USE lib_mpp ! distributed memory computing library 42 40 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 41 USE cla_dynspg ! cross land advection 43 42 USE prtctl ! Print control 44 43 USE solmat ! matrix construction for elliptic solvers 45 44 USE agrif_opa_interp 45 USE in_out_manager ! I/O manager 46 46 USE iom 47 47 USE restart ! only for lrst_oce 48 USE domvvl ! variable volume 48 49 49 50 IMPLICIT NONE … … 58 59 !!---------------------------------------------------------------------- 59 60 !! OPA 9.0 , LOCEAN-IPSL (2005) 60 !! $ Id$61 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_flt.F90,v 1.14 2007/06/05 10:38:27 opalod Exp $ 61 62 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 62 63 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_flt_jki.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 16 16 USE dom_oce ! ocean space and time domain 17 17 USE zdf_oce ! ocean vertical physics 18 USE sbc_oce ! surface boundary condition: ocean 18 USE phycst ! physical constant 19 USE ocesbc ! Ocean Surface Boundary condition 20 USE flxrnf ! ocean runoffs 19 21 USE sol_oce ! ocean elliptic solver 20 USE obc_oce ! Lateral open boundary condition21 USE phycst ! physical constant22 USE dynspg_flt ! surface pressure gradient23 22 USE solpcg ! preconditionned conjugate gradient solver 24 23 USE solsor ! Successive Over-relaxation solver … … 26 25 USE solsor_e ! Successive Over-relaxation solver with MPP optimization 27 26 USE solver 27 USE obc_oce ! Lateral open boundary condition 28 28 USE obcdyn ! ocean open boundary condition (obc_dyn routines) 29 29 USE obcvol ! ocean open boundary condition (obc_vol routines) … … 31 31 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 32 32 USE cla_dynspg ! cross land advection 33 USE prtctl ! Print control 33 34 USE in_out_manager ! I/O manager 34 USE prtctl ! Print control35 35 USE solmat ! matrix construction for elliptic solvers 36 36 USE agrif_opa_interp 37 37 USE restart ! only for lrst_oce 38 38 USE iom ! I/O library 39 USE dynspg_flt ! surface pressure gradient 39 40 40 41 IMPLICIT NONE … … 48 49 !!---------------------------------------------------------------------- 49 50 !! OPA 9.0 , LOCEAN-IPSL (2005) 50 !! $ Id$51 !! $Header$ 51 52 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 52 53 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 12 12 !!---------------------------------------------------------------------- 13 13 !! OPA 9.0 , LOCEAN-IPSL (2005) 14 !! $ Id$14 !! $Header$ 15 15 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 16 16 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_rl.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 56 56 !!---------------------------------------------------------------------- 57 57 !! OPA 9.0 , LOCEAN-IPSL (2005) 58 !! $ Id$58 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_rl.F90,v 1.11 2007/06/05 10:38:27 opalod Exp $ 59 59 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 60 60 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_ts.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 20 20 USE oce ! ocean dynamics and tracers 21 21 USE dom_oce ! ocean space and time domain 22 USE sbc_oce ! surface boundary condition: ocean23 USE dynspg_oce ! surface pressure gradient variables24 22 USE phycst ! physical constants 25 USE domvvl ! variable volume23 USE ocesbc ! ocean surface boundary condition 26 24 USE obcdta ! open boundary condition data 27 25 USE obcfla ! Flather open boundary condition … … 32 30 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 33 31 USE prtctl ! Print control 32 USE dynspg_oce ! surface pressure gradient variables 34 33 USE in_out_manager ! I/O manager 35 34 USE iom 36 35 USE restart ! only for lrst_oce 36 USE domvvl ! variable volume 37 37 38 38 IMPLICIT NONE … … 51 51 !!---------------------------------------------------------------------- 52 52 !! OPA 9.0 , LOCEAN-IPSL (2005) 53 !! $ Id$53 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynspg_ts.F90,v 1.16 2007/06/05 10:38:27 opalod Exp $ 54 54 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 55 55 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynspg_ts_jki.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 14 14 USE oce ! ocean dynamics and tracers 15 15 USE dom_oce ! ocean space and time domain 16 USE sbc_oce ! surface boundary condition: ocean17 USE obc_oce ! Lateral open boundary condition18 USE obc_par ! open boundary condition parameters19 USE dynspg_oce ! surface pressure gradient variables20 USE dynspg_ts ! surface pressure gradient21 16 USE phycst ! physical constants 17 USE ocesbc ! ocean surface boundary condition 22 18 USE obcdta ! open boundary condition data 23 19 USE obcfla ! Flather open boundary condition 24 20 USE dynvor ! vorticity term 21 USE obc_oce ! Lateral open boundary condition 22 USE obc_par ! open boundary condition parameters 25 23 USE lib_mpp ! distributed memory computing library 26 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 27 25 USE prtctl ! Print control 26 USE dynspg_oce ! surface pressure gradient variables 27 USE dynspg_ts ! surface pressure gradient 28 28 USE in_out_manager ! I/O manager 29 29 USE iom ! I/O library … … 41 41 !!---------------------------------------------------------------------- 42 42 !! OPA 9.0 , LODYC-IPSL (2005) 43 !! $ Id$43 !! $Header$ 44 44 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 45 45 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynvor.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 53 53 !!---------------------------------------------------------------------- 54 54 !! OPA 9.0 , LOCEAN-IPSL (2006) 55 !! $ Id$55 !! $Header$ 56 56 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 57 57 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynzad.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 16 16 USE oce ! ocean dynamics and tracers 17 17 USE dom_oce ! ocean space and time domain 18 USE sbc_oce ! surface boundary condition: ocean 18 USE in_out_manager ! I/O manager 19 USE trdmod ! ocean dynamics trends 19 20 USE trdmod_oce ! ocean variables trends 20 USE trdmod ! ocean dynamics trends 21 USE in_out_manager ! I/O manager 21 USE flxrnf ! ocean runoffs 22 22 USE prtctl ! Print control 23 23 … … 32 32 !!---------------------------------------------------------------------- 33 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $ Id$34 !! $Header$ 35 35 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynzdf.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 42 42 !!---------------------------------------------------------------------- 43 43 !! OPA 9.0 , LOCEAN-IPSL (2005) 44 !! $ Id$44 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/DYN/dynzdf.F90,v 1.3 2007/06/05 11:00:28 opalod Exp $ 45 45 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 46 46 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/DYN/dynzdf_exp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r710 r719 18 18 USE phycst ! physical constants 19 19 USE zdf_oce ! ocean vertical physics 20 USE sbc_oce ! surface boundary condition: ocean21 20 USE in_out_manager ! I/O manager 21 USE taumod ! surface ocean stress 22 22 23 23 IMPLICIT NONE … … 32 32 !!---------------------------------------------------------------------- 33 33 !! OPA 9.0 , LOCEAN-IPSL (2005) 34 !! $ Id$34 !! $Header$ 35 35 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- … … 81 81 ! Surface boundary condition 82 82 DO ji = 2, jpim1 83 zwy(ji,1) = utau(ji,jj) * zrau0r84 zww(ji,1) = vtau(ji,jj) * zrau0r83 zwy(ji,1) = taux(ji,jj) * zrau0r 84 zww(ji,1) = tauy(ji,jj) * zrau0r 85 85 END DO 86 86 -
trunk/NEMO/OPA_SRC/DYN/dynzdf_imp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r710 r719 14 14 !!---------------------------------------------------------------------- 15 15 !! OPA 9.0 , LOCEAN-IPSL (2005) 16 !! $ Id$16 !! $Header$ 17 17 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 18 18 !!---------------------------------------------------------------------- … … 20 20 USE oce ! ocean dynamics and tracers 21 21 USE dom_oce ! ocean space and time domain 22 USE sbc_oce ! surface boundary condition: ocean22 USE phycst ! physical constants 23 23 USE zdf_oce ! ocean vertical physics 24 USE phycst ! physical constants25 24 USE in_out_manager ! I/O manager 25 USE taumod ! surface ocean stress 26 26 27 27 IMPLICIT NONE … … 36 36 !!---------------------------------------------------------------------- 37 37 !! OPA 9.0 , LOCEAN-IPSL (2005) 38 !! $ Id$38 !! $Header$ 39 39 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 40 40 !!---------------------------------------------------------------------- … … 141 141 !!! change les resultats (derniers digit, pas significativement + rapide 1* de moins) 142 142 !!! ua(ji,jj,1) = ub(ji,jj,1) & 143 !!! + p2dt * ( ua(ji,jj,1) + utau(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) )143 !!! + p2dt * ( ua(ji,jj,1) + taux(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) ) 144 144 z2dtf = p2dt / ( fse3u(ji,jj,1)*rau0 ) 145 145 ua(ji,jj,1) = ub(ji,jj,1) & 146 + p2dt * ua(ji,jj,1) + z2dtf * utau(ji,jj)146 + p2dt * ua(ji,jj,1) + z2dtf * taux(ji,jj) 147 147 END DO 148 148 END DO … … 236 236 !!! change les resultats (derniers digit, pas significativement + rapide 1* de moins) 237 237 !!! va(ji,jj,1) = vb(ji,jj,1) & 238 !!! + p2dt * ( va(ji,jj,1) + vtau(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) )238 !!! + p2dt * ( va(ji,jj,1) + tauy(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) ) 239 239 z2dtf = p2dt / ( fse3v(ji,jj,1)*rau0 ) 240 240 va(ji,jj,1) = vb(ji,jj,1) & 241 + p2dt * va(ji,jj,1) + z2dtf * vtau(ji,jj)241 + p2dt * va(ji,jj,1) + z2dtf * tauy(ji,jj) 242 242 END DO 243 243 END DO -
trunk/NEMO/OPA_SRC/DYN/dynzdf_imp_jki.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r710 r719 15 15 USE oce ! ocean dynamics and tracers 16 16 USE dom_oce ! ocean space and time domain 17 USE phycst ! physical constants 17 18 USE zdf_oce ! ocean vertical physics 18 USE sbc_oce ! surface boundary condition: ocean19 USE phycst ! physical constants20 19 USE in_out_manager ! I/O manager 20 USE taumod ! surface ocean stress 21 21 22 22 IMPLICIT NONE … … 31 31 !!---------------------------------------------------------------------- 32 32 !! OPA 9.0 , LOCEAN-IPSL (2005) 33 !! $ Id$33 !! $Header$ 34 34 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 35 35 !!---------------------------------------------------------------------- … … 105 105 zwi(ji,1) = 0. 106 106 zwd(ji,1) = 1. - zws(ji,1) 107 zwy(ji,1) = zwy(ji,1) + z2dtf * utau(ji,jj)107 zwy(ji,1) = zwy(ji,1) + z2dtf * taux(ji,jj) 108 108 END DO 109 109 … … 192 192 zwi(ji,1) = 0.e0 193 193 zwd(ji,1) = 1. - zws(ji,1) 194 zwy(ji,1) = zwy(ji,1) + z2dtf * vtau(ji,jj)194 zwy(ji,1) = zwy(ji,1) + z2dtf * tauy(ji,jj) 195 195 END DO 196 196 -
trunk/NEMO/OPA_SRC/DYN/wzvmod.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r708 r719 13 13 USE oce ! ocean dynamics and tracers variables 14 14 USE dom_oce ! ocean space and time domain variables 15 USE sbc_oce ! surface boundary condition: ocean16 USE domvvl ! Variable volume17 15 USE in_out_manager ! I/O manager 18 16 USE prtctl ! Print control 17 18 USE domvvl ! Variable volume 19 19 USE phycst 20 USE ocesbc ! ocean surface boundary condition 20 21 USE lbclnk ! ocean lateral boundary condition (or mpp link) 21 22 … … 30 31 !!---------------------------------------------------------------------- 31 32 !! OPA 9.0 , LOCEAN-IPSL (2005) 32 !! $ Id$33 !! $Header$ 33 34 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 34 35 !!----------------------------------------------------------------------
Note: See TracChangeset
for help on using the changeset viewer.
