Changeset 719 for trunk/NEMO/OPA_SRC/TRD/trdmod.F90
- Timestamp:
- 2007-10-16T16:59:56+02:00 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
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) )
Note: See TracChangeset
for help on using the changeset viewer.