New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8187 – NEMO

Changeset 8187


Ignore:
Timestamp:
2017-06-19T15:46:10+02:00 (7 years ago)
Author:
nicolasmartin
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DIA/diaar5.F90

    r8084 r8187  
    8181      ! 
    8282      REAL(wp), POINTER, DIMENSION(:,:)     :: zarea_ssh , zbotpres       ! 2D workspace  
    83       REAL(wp), POINTER, DIMENSION(:,:)     :: pe                         ! 2D workspace  
     83      REAL(wp), POINTER, DIMENSION(:,:)     :: zpe                        ! 2D workspace  
    8484      REAL(wp), POINTER, DIMENSION(:,:,:)   :: zrhd , zrhop               ! 3D workspace 
    8585      REAL(wp), POINTER, DIMENSION(:,:,:,:) :: ztsn                       ! 4D workspace 
     
    9191      IF( kt == nit000 )     CALL dia_ar5_init 
    9292  
    93       CALL wrk_alloc( jpi , jpj              , zarea_ssh , zbotpres, pe ) 
    94       CALL wrk_alloc( jpi , jpj , jpk        , zrhd      , zrhop    ) 
    95       CALL wrk_alloc( jpi , jpj , jpk , jpts , ztsn                 ) 
     93      CALL wrk_alloc( jpi , jpj              , zarea_ssh , zbotpres, zpe ) 
     94      CALL wrk_alloc( jpi , jpj , jpk        , zrhd      , zrhop         ) 
     95      CALL wrk_alloc( jpi , jpj , jpk , jpts , ztsn                      ) 
    9696 
    9797      zarea_ssh(:,:) = area(:,:) * sshn(:,:) 
     
    206206      ! Exclude points where rn2 is negative as convection kicks in here and 
    207207      ! work is not being done against stratification 
    208          pe(:,:) = 0._wp 
     208         zpe(:,:) = 0._wp 
    209209         IF( lk_zdfddm ) THEN 
    210210            DO jk = 2, jpk 
     
    234234            END DO 
    235235         ENDIF 
    236          CALL lbc_lnk(pe, 'T', 1._wp)          
    237          CALL iom_put( 'tnpeo', pe ) 
     236         CALL lbc_lnk(zpe, 'T', 1._wp)          
     237         CALL iom_put( 'tnpeo', zpe ) 
    238238      ENDIF 
    239239      ! 
    240       CALL wrk_dealloc( jpi , jpj              , zarea_ssh , zbotpres, pe ) 
    241       CALL wrk_dealloc( jpi , jpj , jpk        , zrhd      , zrhop    ) 
    242       CALL wrk_dealloc( jpi , jpj , jpk , jpts , ztsn                 ) 
     240      CALL wrk_dealloc( jpi , jpj              , zarea_ssh , zbotpres, zpe ) 
     241      CALL wrk_dealloc( jpi , jpj , jpk        , zrhd      , zrhop         ) 
     242      CALL wrk_dealloc( jpi , jpj , jpk , jpts , ztsn                      ) 
    243243      ! 
    244244      IF( nn_timing == 1 )   CALL timing_stop('dia_ar5') 
Note: See TracChangeset for help on using the changeset viewer.