Changeset 13478 for NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/DYN/dynnxt.F90

Timestamp:

2020-09-16T18:37:46+02:00 (4 years ago)

Author:

dancopsey

Message:

Undo last change.

File:

• NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/DYN/dynnxt.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.1_FKOSM_m11715/src/OCE/DYN/dynnxt.F90

@@ -48 +48 @@
    USE prtctl         ! Print control
    USE timing         ! Timing
-   USE zdfdrg, ONLY: ln_drgice_imp, rCdU_top
 #if defined key_agrif
    USE agrif_oce_interp
@@ -100 +99 @@
       REAL(wp) ::   zve3a, zve3n, zve3b, zvf, z1_2dt   !   -      -
       REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   zue, zve
-      REAL(wp), ALLOCATABLE, DIMENSION(:,:)   ::   zutau, zvtau
       REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) ::   ze3u_f, ze3v_f, zua, zva 
       !!----------------------------------------------------------------------
@@ -370 +368 @@
       ENDIF
       !
-      IF ( iom_use("utau") ) THEN
-         IF ( ln_drgice_imp.OR.ln_isfcav ) THEN
-            ALLOCATE(zutau(jpi,jpj)) 
-            DO jj = 2, jpjm1
-               DO ji = 2, jpim1
-                  jk = miku(ji,jj) 
-                  zutau(ji,jj) = utau(ji,jj) & 
-                  &  + 0.5_wp * rau0 * (rCdU_top(ji+1,jj)+rCdU_top(ji,jj)) * ua(ji,jj,jk) 
-               END DO
-            END DO
-            CALL lbc_lnk( 'dynnxt' , zutau, 'U', -1.)
-            CALL iom_put(  "utau", zutau(:,:) )
-            DEALLOCATE(zutau)
-         ELSE
-            CALL iom_put(  "utau", utau(:,:) )
-         ENDIF
-      ENDIF
-      !
-      IF ( iom_use("vtau") ) THEN
-         IF ( ln_drgice_imp.OR.ln_isfcav ) THEN
-            ALLOCATE(zvtau(jpi,jpj))
-            DO jj = 2, jpjm1
-               DO ji = 2, jpim1
-                  jk = mikv(ji,jj)
-                  zvtau(ji,jj) = vtau(ji,jj) &
-                  &  + 0.5_wp * rau0 * (rCdU_top(ji,jj+1)+rCdU_top(ji,jj)) * va(ji,jj,jk)
-               END DO
-            END DO
-            CALL lbc_lnk( 'dynnxt' , zvtau, 'V', -1.)
-            CALL iom_put(  "vtau", zvtau(:,:) )
-            DEALLOCATE(zvtau)
-         ELSE
-            CALL iom_put(  "vtau", vtau(:,:) )
-         ENDIF
-      ENDIF
-      !
       IF(ln_ctl)   CALL prt_ctl( tab3d_1=un, clinfo1=' nxt  - Un: ', mask1=umask,   &
          &                       tab3d_2=vn, clinfo2=' Vn: '       , mask2=vmask )