Compilation issue due to typo in diaar5

[nicolasmartin]

Context

ORCA1_LIM3_PISCES cfg. monitored by ​trusting tool is down since 27th of May with rev. 8084.
The follow-up of ORCA2_LIM_PISCES cfg. didn't detect an issue.

Analysis

Compilation stops and complains about [ZPE] variable not declared, actually 'pe' is declared and initialised but it is 'zpe' which is used in the loop.

Extract of diaar5.F90
IncludeSource(/branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90, start=208, end=238, rev=8084, line_numbers=0)?

Fix

Correct the typos

NEMO/OPA_SRC/DIA/diaar5.F90

@@ -80 +80 @@
       REAL(wp) ::   zaw, zbw, zrw
       !
       REAL(wp), POINTER, DIMENSION(:,:)     :: zarea_ssh , zbotpres       ! 2D workspace 
-      REAL(wp), POINTER, DIMENSION(:,:)     :: pe                         ! 2D workspace 
+      REAL(wp), POINTER, DIMENSION(:,:)     :: zpe                         ! 2D workspace 
       REAL(wp), POINTER, DIMENSION(:,:,:)   :: zrhd , zrhop               ! 3D workspace
       REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztsn                       ! 4D workspace
       !!--------------------------------------------------------------------
@@ -90 +90 @@
       !initialisation
       IF( kt == nit000 )     CALL dia_ar5_init
  
-      CALL wrk_alloc( jpi , jpj              , zarea_ssh , zbotpres, pe )
+      CALL wrk_alloc( jpi , jpj              , zarea_ssh , zbotpres, zpe )
       CALL wrk_alloc( jpi , jpj , jpk        , zrhd      , zrhop    )
       CALL wrk_alloc( jpi , jpj , jpk , jpts , ztsn                 )
 
@@ -205 +205 @@
       ! Work done against stratification by vertical mixing
       ! Exclude points where rn2 is negative as convection kicks in here and
       ! work is not being done against stratification
-         pe(:,:) = 0._wp
+         zpe(:,:) = 0._wp
          IF( lk_zdfddm ) THEN
             DO jk = 2, jpk
                DO jj = 1, jpj
@@ -233 +233 @@
                END DO
             END DO
          ENDIF
-         CALL lbc_lnk(pe, 'T', 1._wp)         
-         CALL iom_put( 'tnpeo', pe )
+         CALL lbc_lnk(zpe, 'T', 1._wp)         
+         CALL iom_put( 'tnpeo', zpe )
       ENDIF
       !
-      CALL wrk_dealloc( jpi , jpj              , zarea_ssh , zbotpres, pe )
+      CALL wrk_dealloc( jpi , jpj              , zarea_ssh , zbotpres, zpe )
       CALL wrk_dealloc( jpi , jpj , jpk        , zrhd      , zrhop    )
       CALL wrk_dealloc( jpi , jpj , jpk , jpts , ztsn                 )
       !

[nicolasmartin]

Fix in r8187