Changeset 4205 for branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

Timestamp:

2013-11-14T18:02:06+01:00 (10 years ago)

Author:

clem

Message:

 

File:

• branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90 (modified) (2 diffs)

branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_3/limtrp.F90

@@ -74 +74 @@
       REAL(wp) ::   zindb  , zindsn , zindic, zindh, zinda      ! local scalar
       REAL(wp) ::   zusvosn, zusvoic, zbigval     !   -      -
-      REAL(wp) ::   zcfl , zusnit , zrtt          !   -      -
+      REAL(wp) ::   zcfl , zusnit                 !   -      -
       REAL(wp) ::   ze   , zsal   , zage          !   -      -
       !
@@ -450 +450 @@
                   zusvosn         = 1.0/MAX( v_s(ji,jj,jl) , epsi16 )
                   zusvoic         = 1.0/MAX( v_i(ji,jj,jl) , epsi16 )
-                  zrtt            = 173.15 * rone 
                   zindsn          = MAX( rzero, SIGN( rone, v_s(ji,jj,jl) - epsi10 ) )
                   zindic          = MAX( rzero, SIGN( rone, v_i(ji,jj,jl) - epsi10 ) )