Changeset 719 for trunk/NEMO/OPA_SRC/TRD
- Timestamp:
- 2007-10-16T16:59:56+02:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/TRD
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/TRD/trdicp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 49 49 !!---------------------------------------------------------------------- 50 50 !! OPA 9.0 , LOCEAN-IPSL (2005) 51 !! $ Id$51 !! $Header$ 52 52 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 53 53 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/TRD/trdicp_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 89 89 !!---------------------------------------------------------------------- 90 90 !! OPA 9.0 , LOCEAN-IPSL (2005) 91 !! $ Id$91 !! $Header$ 92 92 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 93 93 !!====================================================================== -
trunk/NEMO/OPA_SRC/TRD/trdmld.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 58 58 !!---------------------------------------------------------------------- 59 59 !! OPA 9.0 , LOCEAN-IPSL (2005) 60 !! $ Id$60 !! $Header$ 61 61 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 62 62 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/TRD/trdmld_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 84 84 !!---------------------------------------------------------------------- 85 85 !! OPA 9.0 , LOCEAN-IPSL (2005) 86 !! $ Id$86 !! $Header$ 87 87 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 88 88 !!====================================================================== -
trunk/NEMO/OPA_SRC/TRD/trdmld_rst.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 26 26 !!--------------------------------------------------------------------------------- 27 27 !! OPA 9.0 , LOCEAN-IPSL (2006) 28 !! $ Id$28 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/TRD/trdmld_rst.F90,v 1.7 2007/06/05 10:40:59 opalod Exp $ 29 29 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 30 30 !!--------------------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/TRD/trdmod.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r710 r719 12 12 !! trd_mod_init : Initialization step 13 13 !!---------------------------------------------------------------------- 14 USE phycst ! physical constants 14 15 USE oce ! ocean dynamics and tracers variables 15 16 USE dom_oce ! ocean space and time domain variables … … 17 18 USE trdmod_oce ! ocean variables trends 18 19 USE ldftra_oce ! ocean active tracers lateral physics 19 USE sbc_oce ! surface boundary condition: ocean20 USE phycst ! physical constants21 20 USE trdvor ! ocean vorticity trends 22 21 USE trdicp ! ocean bassin integral constraints properties 23 22 USE trdmld ! ocean active mixed layer tracers trends 24 23 USE in_out_manager ! I/O manager 24 USE taumod ! surface ocean stress 25 25 26 26 IMPLICIT NONE … … 37 37 !!---------------------------------------------------------------------- 38 38 !! OPA 9.0 , LOCEAN-IPSL (2005) 39 !! $ Id$39 !! $Header$ 40 40 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 41 41 !!---------------------------------------------------------------------- … … 124 124 DO ji = fs_2, fs_jpim1 ! vector opt. 125 125 ! save the surface forcing momentum fluxes 126 ztswu(ji,jj) = utau(ji,jj) / ( fse3u(ji,jj,1)*rau0 )127 ztswv(ji,jj) = vtau(ji,jj) / ( fse3v(ji,jj,1)*rau0 )126 ztswu(ji,jj) = taux(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) 127 ztswv(ji,jj) = tauy(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) 128 128 ! save bottom friction momentum fluxes 129 129 ikbu = MIN( mbathy(ji+1,jj ), mbathy(ji,jj) ) … … 175 175 DO ji = fs_2, fs_jpim1 ! vector opt. 176 176 ! save the surface forcing momentum fluxes 177 ztswu(ji,jj) = utau(ji,jj) / ( fse3u(ji,jj,1)*rau0 )178 ztswv(ji,jj) = vtau(ji,jj) / ( fse3v(ji,jj,1)*rau0 )177 ztswu(ji,jj) = taux(ji,jj) / ( fse3u(ji,jj,1)*rau0 ) 178 ztswv(ji,jj) = tauy(ji,jj) / ( fse3v(ji,jj,1)*rau0 ) 179 179 ! save bottom friction momentum fluxes 180 180 ikbu = MIN( mbathy(ji+1,jj ), mbathy(ji,jj) ) -
trunk/NEMO/OPA_SRC/TRD/trdmod_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 62 62 !!---------------------------------------------------------------------- 63 63 !! OPA 9.0 , LOCEAN-IPSL (2006) 64 !! $ Id$64 !! $Header$ 65 65 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 66 66 !!====================================================================== -
trunk/NEMO/OPA_SRC/TRD/trdvor.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 66 66 !!---------------------------------------------------------------------- 67 67 !! OPA 9.0 , LOCEAN-IPSL (2005) 68 !! $ Id$68 !! $Header$ 69 69 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 70 70 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/TRD/trdvor_oce.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 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 39 39 !!======================================================================
Note: See TracChangeset
for help on using the changeset viewer.