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 5458 – NEMO

Changeset 5458


Ignore:
Timestamp:
2015-06-22T12:41:26+02:00 (9 years ago)
Author:
pabouttier
Message:

Remove unnecessary variable in STO/stopar.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

    r5404 r5458  
    111111   INTEGER         :: nn_trc_flt = 0          ! number of passes of Laplacian filter 
    112112   INTEGER         :: nn_trc_ord = 1          ! order of autoregressive processes 
    113  
    114    ! Public array with density correction 
    115    REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE :: drho_ran 
    116113 
    117114   !!---------------------------------------------------------------------- 
     
    668665      ! ------------------------------------------ 
    669666      IF( ln_rststo ) CALL sto_rst_read 
    670  
    671       ! Allocate drho_ran 
    672       ALLOCATE(drho_ran(jpi,jpj,jpk)) 
    673667 
    674668   END SUBROUTINE sto_par_init 
     
    781775               CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 
    782776            END DO 
    783             ! Save drho_ran in restart file 
    784             CALL iom_rstput( kt, nitrst, numstow, 'drho' , drho_ran(:,:,:) ) 
    785777            ! close the restart file 
    786778            CALL iom_close( numstow ) 
Note: See TracChangeset for help on using the changeset viewer.