Changeset 8187 for branches/2015/nemo_v3_6_STABLE

Timestamp:

2017-06-19T15:46:10+02:00 (7 years ago)

Author:

nicolasmartin

Message:

Fix for typos in diaar5.F90 [close #1913]

File:

• branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90 (modified) (4 diffs)

branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

@@ -81 +81 @@
       !
       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
@@ -91 +91 @@
       IF( kt == nit000 )     CALL dia_ar5_init
  
-      CALL wrk_alloc( jpi , jpj              , zarea_ssh , zbotpres, pe )
-      CALL wrk_alloc( jpi , jpj , jpk        , zrhd      , zrhop    )
-      CALL wrk_alloc( jpi , jpj , jpk , jpts , ztsn                 )
+      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                      )
 
       zarea_ssh(:,:) = area(:,:) * sshn(:,:)
@@ -206 +206 @@
       ! 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
@@ -234 +234 @@
             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 , jpk        , zrhd      , zrhop    )
-      CALL wrk_dealloc( jpi , jpj , jpk , jpts , ztsn                 )
+      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                      )
       !
       IF( nn_timing == 1 )   CALL timing_stop('dia_ar5')