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 5535 for branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90 – NEMO

Ignore:
Timestamp:
2015-07-02T16:00:36+02:00 (9 years ago)
Author:
davestorkey
Message:

Update UKMO/dev_r5107_eorca025_closea branch to rev 5518 of trunk
(= branching point of NEMO 3.6_stable).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90

    r5451 r5535  
    112112   INTEGER         :: nn_trc_ord = 1          ! order of autoregressive processes 
    113113 
    114    ! Public array with density correction 
    115    REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE :: drho_ran 
    116  
    117114   !!---------------------------------------------------------------------- 
    118115   !! NEMO/OPA 3.3 , NEMO Consortium (2010) 
     
    263260      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    264261 
    265       IF ( lk_agrif ) CALL ctl_stop('EOS stochastic parametrization is not compatible with AGRIF') 
    266262      ! Read namsto namelist : stochastic parameterization 
    267263      REWIND( numnam_ref )              ! Namelist namdyn_adv in reference namelist : Momentum advection scheme 
     
    341337      ENDIF 
    342338      IF( ln_sto_eos ) THEN 
     339         IF ( lk_agrif ) CALL ctl_stop('EOS stochastic parametrization is not compatible with AGRIF') 
    343340         IF(lwp) WRITE(numout,*) '       - stochastic equation of state' 
    344341         ALLOCATE(jsto_eosi(nn_sto_eos)) 
     
    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.