Changeset 14072 for NEMO/trunk/src/OCE/DYN/dynzad.F90

Timestamp:

2020-12-04T08:48:38+01:00 (3 years ago)

Author:

laurent

Message:

Merging branch "2020/dev_r13648_ASINTER-04_laurent_bulk_ice", ticket #2369

File:

• NEMO/trunk/src/OCE/DYN/dynzad.F90 (modified) (5 diffs)

NEMO/trunk/src/OCE/DYN/dynzad.F90

@@ -7 +7 @@
    !!   NEMO     0.5  ! 2002-07  (G. Madec) Free form, F90
    !!----------------------------------------------------------------------
-   
+
    !!----------------------------------------------------------------------
    !!   dyn_zad       : vertical advection momentum trend
@@ -25 +25 @@
    IMPLICIT NONE
    PRIVATE
-   
+
    PUBLIC   dyn_zad       ! routine called by dynadv.F90
 
@@ -41 +41 @@
       !!----------------------------------------------------------------------
       !!                  ***  ROUTINE dynzad  ***
-      !! 
-      !! ** Purpose :   Compute the now vertical momentum advection trend and 
+      !!
+      !! ** Purpose :   Compute the now vertical momentum advection trend and
       !!      add it to the general trend of momentum equation.
       !!
@@ -73 +73 @@
 
       IF( l_trddyn )   THEN           ! Save puu(:,:,:,Krhs) and pvv(:,:,:,Krhs) trends
-         ALLOCATE( ztrdu(jpi,jpj,jpk) , ztrdv(jpi,jpj,jpk) ) 
-         ztrdu(:,:,:) = puu(:,:,:,Krhs) 
-         ztrdv(:,:,:) = pvv(:,:,:,Krhs) 
+         ALLOCATE( ztrdu(jpi,jpj,jpk) , ztrdv(jpi,jpj,jpk) )
+         ztrdu(:,:,:) = puu(:,:,:,Krhs)
+         ztrdv(:,:,:) = pvv(:,:,:,Krhs)
       ENDIF
-      
+
       DO jk = 2, jpkm1                ! Vertical momentum advection at level w and u- and v- vertical
          DO_2D( 0, 1, 0, 1 )              ! vertical fluxes
@@ -111 +111 @@
          ztrdv(:,:,:) = pvv(:,:,:,Krhs) - ztrdv(:,:,:)
          CALL trd_dyn( ztrdu, ztrdv, jpdyn_zad, kt, Kmm )
-         DEALLOCATE( ztrdu, ztrdv ) 
+         DEALLOCATE( ztrdu, ztrdv )
       ENDIF
       !                               ! Control print