Changeset 12124 for NEMO/branches/2019/dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags/src/OCE/DIA

Timestamp:

2019-12-09T15:36:08+01:00 (5 years ago)

Author:

clem

Message:

cosmetics

Location:

NEMO/branches/2019/dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags/src/OCE/DIA

Files:

• diaar5.F90 (modified) (2 diffs)
• diahth.F90 (modified) (2 diffs)

NEMO/branches/2019/dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags/src/OCE/DIA/diaar5.F90

@@ -30 +30 @@
    PUBLIC   dia_ar5_hst    ! heat/salt transport
 
-   REAL(wp)                         ::   vol0         ! ocean volume (interior domain)
-   REAL(wp)                         ::   area_tot     ! total ocean surface (interior domain)
+   REAL(wp) ::   vol0         ! ocean volume (interior domain)
+   REAL(wp) ::   area_tot     ! total ocean surface (interior domain)
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:  ) ::   area         ! cell surface (interior domain)
    REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:  ) ::   thick0       ! ocean thickness (interior domain)
@@ -327 +327 @@
       !! Called from all advection and/or diffusion routines
       !!----------------------------------------------------------------------
-      INTEGER                         , INTENT(in )  :: ktra  ! tracer index
-      CHARACTER(len=3)                , INTENT(in)   :: cptr  ! transport type  'adv'/'ldf'
-      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in)   :: pua   ! 3D input array of advection/diffusion
-      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in)   :: pva   ! 3D input array of advection/diffusion
-      !
-      INTEGER    ::  ji, jj, jk
-      REAL(wp), DIMENSION(jpi,jpj)  :: z2d
+      INTEGER                         , INTENT(in) ::   ktra  ! tracer index
+      CHARACTER(len=3)                , INTENT(in) ::   cptr  ! transport type  'adv'/'ldf'
+      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) ::   pua   ! 3D input array of advection/diffusion
+      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) ::   pva   ! 3D input array of advection/diffusion
+      !
+      INTEGER ::  ji, jj, jk
+      REAL(wp), DIMENSION(jpi,jpj) ::   z2d
 
     

NEMO/branches/2019/dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags/src/OCE/DIA/diahth.F90

@@ -303 +303 @@
    SUBROUTINE dia_hth_dep( ptem, pdept )
       !
-      REAL(wp), INTENT(in) :: ptem
-      REAL(wp), DIMENSION(jpi,jpj), INTENT(out) :: pdept     
-      !
-      INTEGER  :: ji, jj, jk, iid
-      REAL(wp) :: zztmp, zzdep
-      INTEGER, DIMENSION(jpi,jpj) :: iktem
+      REAL(wp),                     INTENT(in)  ::   ptem
+      REAL(wp), DIMENSION(jpi,jpj), INTENT(out) ::   pdept     
+      !
+      INTEGER  ::   ji, jj, jk, iid
+      REAL(wp) ::   zztmp, zzdep
+      INTEGER, DIMENSION(jpi,jpj) ::   iktem
       
       ! --------------------------------------- !
@@ -349 +349 @@
    SUBROUTINE dia_hth_htc( pdep, ptn, phtc )
       !
-      REAL(wp), INTENT(in) :: pdep     ! depth over the heat content
-      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in) :: ptn   
-      REAL(wp), DIMENSION(jpi,jpj), INTENT(inout) :: phtc  
-      !
-      INTEGER  :: ji, jj, jk, ik
-      REAL(wp), DIMENSION(jpi,jpj) :: zthick
-      INTEGER , DIMENSION(jpi,jpj) :: ilevel
+      REAL(wp),                         INTENT(in)    ::   pdep     ! depth over the heat content
+      REAL(wp), DIMENSION(jpi,jpj,jpk), INTENT(in)    ::   ptn   
+      REAL(wp), DIMENSION(jpi,jpj)    , INTENT(inout) ::   phtc  
+      !
+      INTEGER  ::   ji, jj, jk, ik
+      REAL(wp), DIMENSION(jpi,jpj) ::   zthick
+      INTEGER , DIMENSION(jpi,jpj) ::   ilevel