Changeset 5458 for trunk/NEMOGCM/NEMO/OPA_SRC/STO

Timestamp:

2015-06-22T12:41:26+02:00 (9 years ago)

Author:

pabouttier

Message:

Remove unnecessary variable in STO/stopar.F90

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90 (modified) (3 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

@@ -111 +111 @@
    INTEGER         :: nn_trc_flt = 0          ! number of passes of Laplacian filter
    INTEGER         :: nn_trc_ord = 1          ! order of autoregressive processes
-
-   ! Public array with density correction
-   REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE :: drho_ran
 
    !!----------------------------------------------------------------------
@@ -668 +665 @@
       ! ------------------------------------------
       IF( ln_rststo ) CALL sto_rst_read
-
-      ! Allocate drho_ran
-      ALLOCATE(drho_ran(jpi,jpj,jpk))
 
    END SUBROUTINE sto_par_init
@@ -781 +775 @@
                CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) )
             END DO
-            ! Save drho_ran in restart file
-            CALL iom_rstput( kt, nitrst, numstow, 'drho' , drho_ran(:,:,:) )
             ! close the restart file
             CALL iom_close( numstow )