Changeset 719 for trunk/NEMO/OPA_SRC/ZDF
- Timestamp:
- 2007-10-16T16:59:56+02:00 (17 years ago)
- Location:
- trunk/NEMO/OPA_SRC/ZDF
- Files:
-
- 12 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/ZDF/zdf.matrixsolver.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 25 25 !!---------------------------------------------------------------------- 26 26 !! OPA 9.0 , LOCEAN-IPSL (2005) 27 !! $ Id$27 !! $Header$ 28 28 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 29 29 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdf_oce.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 6 6 !!---------------------------------------------------------------------- 7 7 !! OPA 9.0 , LOCEAN-IPSL (2005) 8 !! $ Id$8 !! $Header$ 9 9 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 10 10 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdfbfr.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$39 !! $Header$ 40 40 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 41 41 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdfddm.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 40 40 !!---------------------------------------------------------------------- 41 41 !! OPA 9.0 , LOCEAN-IPSL (2005) 42 !! $ Id$42 !! $Header$ 43 43 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 44 44 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdfddm_substitute.h90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 7 7 !!---------------------------------------------------------------------- 8 8 !! OPA 9.0 , LOCEAN-IPSL (2005) 9 !! $ Id$9 !! $Header$ 10 10 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 11 11 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdfevd.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 29 29 !!---------------------------------------------------------------------- 30 30 !! OPA 9.0 , LOCEAN-IPSL (2005) 31 !! $ Id$31 !! $Header$ 32 32 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 33 33 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdfini.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$34 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)35 33 !!---------------------------------------------------------------------- 36 34 -
trunk/NEMO/OPA_SRC/ZDF/zdfkpp.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r714 r719 21 21 USE dom_oce ! ocean space and time domain 22 22 USE zdf_oce ! ocean vertical physics 23 USE sbc_oce ! surface boundary condition: ocean24 23 USE phycst ! physical constants 24 USE taumod ! surface stress 25 25 USE eosbn2 ! equation of state 26 USE ocesbc ! thermohaline fluxes 26 27 USE zdfddm ! double diffusion mixing 27 28 USE in_out_manager ! I/O manager … … 147 148 !!---------------------------------------------------------------------- 148 149 !! OPA 9.0 , LOCEAN-IPSL (2005) 149 !! $ Id$150 !! $Header$ 150 151 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 151 152 !!---------------------------------------------------------------------- … … 459 460 zBosol(ji,jj) = grav * zthermal * qsr(ji,jj) 460 461 ! Non radiative surface buoyancy force 461 zBo (ji,jj) = grav * zthermal * qns(ji,jj) - grav * zhalin * emp(ji,jj)462 zBo (ji,jj) = grav * zthermal * ( qt(ji,jj) - qsr(ji,jj) ) - grav * zhalin * emp(ji,jj) 462 463 ! Surface Temperature flux for non-local term 463 wt0(ji,jj) = - ( qsr(ji,jj) + qns(ji,jj) )* ro0cpr * tmask(ji,jj,1)464 wt0(ji,jj) = - qt(ji,jj) * ro0cpr * tmask(ji,jj,1) 464 465 ! Surface salinity flux for non-local term 465 466 ws0(ji,jj) = - ( emp(ji,jj) * sn(ji,jj,1) * rcs ) * tmask(ji,jj,1) … … 475 476 zrhos = rhop(ji,jj,1) + zflageos * rau0 * ( 1. - tmask(ji,jj,1) ) 476 477 ! Friction velocity (zustar), at T-point : LMD94 eq. 2 477 ztx = 0.5 * ( utau(ji,jj) + utau(ji - 1, jj ) )478 zty = 0.5 * ( vtau(ji,jj) + vtau(ji , jj - 1) )478 ztx = 0.5 * ( taux(ji,jj) + taux(ji - 1, jj ) ) 479 zty = 0.5 * ( tauy(ji,jj) + tauy(ji , jj - 1) ) 479 480 ztau = SQRT( ztx * ztx + zty * zty ) 480 481 zustar(ji,jj) = SQRT( ztau / ( zrhos + epsln ) ) -
trunk/NEMO/OPA_SRC/ZDF/zdfmxl.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$ 42 42 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 43 43 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdfric.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r699 r719 44 44 !!---------------------------------------------------------------------- 45 45 !! OPA 9.0 , LOCEAN-IPSL (2005) 46 !! $ Id$46 !! $Header$ 47 47 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 48 48 !!---------------------------------------------------------------------- -
trunk/NEMO/OPA_SRC/ZDF/zdftke.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r710 r719 31 31 USE dom_oce ! ocean space and time domain 32 32 USE zdf_oce ! ocean vertical physics 33 USE sbc_oce ! surface boundary condition: ocean34 33 USE phycst ! physical constants 34 USE taumod ! surface stress 35 35 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 36 36 USE prtctl ! Print control … … 81 81 !!---------------------------------------------------------------------- 82 82 !! OPA 9.0 , LOCEAN-IPSL (2006) 83 !! $ Id$83 !! $Header: /home/opalod/NEMOCVSROOT/NEMO/OPA_SRC/ZDF/zdftke.F90,v 1.16 2007/06/05 10:39:27 opalod Exp $ 84 84 !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 85 85 !!---------------------------------------------------------------------- … … 101 101 !! - ediss / emxl en**(2/3) ! dissipation 102 102 !! with the boundary conditions: 103 !! surface: en = max( emin0,ebb sqrt( utau^2 + vtau^2) )103 !! surface: en = max( emin0,ebb sqrt(taux^2 + tauy^2) ) 104 104 !! bottom : en = emin 105 105 !! -1- The dissipation and mixing turbulent lengh scales are computed … … 301 301 ! 2. Surface boundary condition on tke and its eddy viscosity (zmxlm) 302 302 ! ------------------------------------------------- 303 ! en(1) = ebb sqrt( utau^2+vtau^2) / rau0 (min value emin0)303 ! en(1) = ebb sqrt(taux^2+tauy^2) / rau0 (min value emin0) 304 304 ! zmxlm(1) = avmb(1) and zmxlm(jpk) = 0. 305 305 !CDIR NOVERRCHK … … 307 307 !CDIR NOVERRCHK 308 308 DO ji = fs_2, fs_jpim1 ! vector opt. 309 ztx2 = utau(ji-1,jj ) + utau(ji,jj)310 zty2 = vtau(ji ,jj-1) + vtau(ji,jj)309 ztx2 = taux(ji-1,jj ) + taux(ji,jj) 310 zty2 = tauy(ji ,jj-1) + tauy(ji,jj) 311 311 zesurf = zbbrau * SQRT( ztx2 * ztx2 + zty2 * zty2 ) 312 312 en (ji,jj,1) = MAX( zesurf, emin0 ) * tmask(ji,jj,1) -
trunk/NEMO/OPA_SRC/ZDF/zdftke_jki.F90
- Property svn:keywords changed from Id to Author Date Id Revision
r710 r719 20 20 USE dom_oce ! ocean space and time domain 21 21 USE zdf_oce ! ocean vertical physics 22 USE sbc_oce ! surface boundary condition: ocean23 22 USE zdftke ! ??? 24 USE phycst ! physical constants25 23 USE in_out_manager ! I/O manager 26 24 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 25 USE phycst ! physical constants 26 USE taumod ! surface stress 27 27 USE prtctl ! Print control 28 28 USE restart ! only for lrst_oce … … 57 57 !! - ediss / emxl en**(2/3) ! dissipation 58 58 !! with the boundary conditions: 59 !! surface: en = max( emin0,ebb sqrt( utau^2 + vtau^2) )59 !! surface: en = max( emin0,ebb sqrt(taux^2 + tauy^2) ) 60 60 !! bottom : en = emin 61 61 !! -1- The dissipation and mixing turbulent lengh scales are computed … … 124 124 !!-------------------------------------------------------------------- 125 125 !! OPA 9.0 , LOCEAN-IPSL (2005) 126 !! $ Id$126 !! $Header$ 127 127 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 128 128 !!-------------------------------------------------------------------- … … 253 253 ! 2. Surface boundary condition on tke and its eddy viscosity (zmxlm) 254 254 ! ------------------------------------------------- 255 ! en(1) = ebb sqrt( utau^2+vtau^2) / rau0 (min value emin0)255 ! en(1) = ebb sqrt(taux^2+tauy^2) / rau0 (min value emin0) 256 256 ! zmxlm(1) = avmb(1) and zmxlm(jpk) = 0. 257 257 !CDIR NOVERRCHK 258 258 DO ji = 2, jpim1 259 ztx2 = utau(ji-1,jj ) + utau(ji,jj)260 zty2 = vtau(ji ,jj-1) + vtau(ji,jj)259 ztx2 = taux(ji-1,jj ) + taux(ji,jj) 260 zty2 = tauy(ji ,jj-1) + tauy(ji,jj) 261 261 zesurf = zbbrau * SQRT( ztx2 * ztx2 + zty2 * zty2 ) 262 262 en (ji,jj,1) = MAX( zesurf, emin0 ) * tmask(ji,jj,1)
Note: See TracChangeset
for help on using the changeset viewer.