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

Timestamp:

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

Author:

clem

Message:

cosmetics

File:

• NEMO/branches/2019/dev_r11643_ENHANCE-11_CEthe_Shaconemo_diags/src/OCE/DIA/diahth.F90 (modified) (2 diffs)

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