Changeset 1119 for trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

Timestamp:

2008-06-20T17:17:41+02:00 (16 years ago)

Author:

cetlod

Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:

• trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

@@ -14 +14 @@
    !!----------------------------------------------------------------------
    USE oce_trc             ! ocean dynamics and active tracers variables
-   USE trc                 ! ocean passive tracers variables
+   USE trp_trc                 ! ocean passive tracers variables
    USE lbclnk              ! ocean lateral boundary conditions (or mpp link)
    USE trcbbl              ! advective passive tracers in the BBL
@@ -342 +342 @@
       INTEGER ::   ikm1
       REAL(wp), DIMENSION (jpi,jpj,jpk) ::   zbetup, zbetdo
-      REAL(wp) ::   zpos, zneg, zbt, za, zb, zc, zbig, zrtrn, z2dtt
+      REAL(wp) ::   zpos, zneg, zbt, za, zb, zc, zbig, z2dtt
       !!----------------------------------------------------------------------
 
       zbig = 1.e+40
-      zrtrn = 1.e-15
       zbetup(:,:,:) = 0.e0   ;   zbetdo(:,:,:) = 0.e0
 
@@ -410 +409 @@
                ! up & down beta terms
                zbt = e1t(ji,jj) * e2t(ji,jj) * fse3t(ji,jj,jk) / z2dtt
-               zbetup(ji,jj,jk) = ( zbetup(ji,jj,jk) - paft(ji,jj,jk) ) / (zpos+zrtrn) * zbt
-               zbetdo(ji,jj,jk) = ( paft(ji,jj,jk) - zbetdo(ji,jj,jk) ) / (zneg+zrtrn) * zbt
+               zbetup(ji,jj,jk) = ( zbetup(ji,jj,jk) - paft(ji,jj,jk) ) / (zpos+rtrn) * zbt
+               zbetdo(ji,jj,jk) = ( paft(ji,jj,jk) - zbetdo(ji,jj,jk) ) / (zneg+rtrn) * zbt
             END DO
          END DO