Changeset 990 for branches/dev_003_CPL/NEMO/OPA_SRC/TRA/tradmp.F90

Timestamp:

2008-05-23T16:38:21+02:00 (16 years ago)

Author:

smasson

Message:

dev_003_CPL: to the trunk , see ticket #155

File:

• branches/dev_003_CPL/NEMO/OPA_SRC/TRA/tradmp.F90 (modified) (5 diffs)

branches/dev_003_CPL/NEMO/OPA_SRC/TRA/tradmp.F90

@@ -47 +47 @@
    LOGICAL, PUBLIC            ::   lk_tradmp = .TRUE.     !: internal damping flag
 #endif
-   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   strdmp   !: damping salinity trend (psu/s)
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk) ::   resto    !: restoring coeff. on T and S (s-1)
    
@@ -121 +120 @@
                   sa(ji,jj,jk) = sa(ji,jj,jk) + zsa
                   ! save the salinity trend (used in flx to close the salt budget)
-                  strdmp(ji,jj,jk) = zsa
                END DO
             END DO
@@ -142 +140 @@
                   sa(ji,jj,jk) = sa(ji,jj,jk) + zsa
                   ! save the salinity trend (used in flx to close the salt budget)
-                  strdmp(ji,jj,jk) = zsa
                END DO
             END DO
@@ -162 +159 @@
                   sa(ji,jj,jk) = sa(ji,jj,jk) + zsa
                   ! save the salinity trend (used in flx to close the salt budget)
-                  strdmp(ji,jj,jk) = zsa
                END DO
             END DO
@@ -229 +225 @@
       IF( .NOT.lk_dtasal .OR. .NOT.lk_dtatem )   &
          &   CALL ctl_stop( 'no temperature and/or salinity data define key_dtatem and key_dtasal' )
-
-      strdmp(:,:,:) = 0.e0       ! internal damping salinity trend (used in ocesbc)
 
       !                          ! Damping coefficients initialization