- Timestamp:
- 2015-07-02T16:00:36+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5107_eorca025_closea/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90
r5451 r5535 112 112 INTEGER :: nn_trc_ord = 1 ! order of autoregressive processes 113 113 114 ! Public array with density correction115 REAL(wp), PUBLIC, DIMENSION(:,:,:), ALLOCATABLE :: drho_ran116 117 114 !!---------------------------------------------------------------------- 118 115 !! NEMO/OPA 3.3 , NEMO Consortium (2010) … … 263 260 INTEGER :: ios ! Local integer output status for namelist read 264 261 265 IF ( lk_agrif ) CALL ctl_stop('EOS stochastic parametrization is not compatible with AGRIF')266 262 ! Read namsto namelist : stochastic parameterization 267 263 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme … … 341 337 ENDIF 342 338 IF( ln_sto_eos ) THEN 339 IF ( lk_agrif ) CALL ctl_stop('EOS stochastic parametrization is not compatible with AGRIF') 343 340 IF(lwp) WRITE(numout,*) ' - stochastic equation of state' 344 341 ALLOCATE(jsto_eosi(nn_sto_eos)) … … 668 665 ! ------------------------------------------ 669 666 IF( ln_rststo ) CALL sto_rst_read 670 671 ! Allocate drho_ran672 ALLOCATE(drho_ran(jpi,jpj,jpk))673 667 674 668 END SUBROUTINE sto_par_init … … 781 775 CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 782 776 END DO 783 ! Save drho_ran in restart file784 CALL iom_rstput( kt, nitrst, numstow, 'drho' , drho_ran(:,:,:) )785 777 ! close the restart file 786 778 CALL iom_close( numstow )
Note: See TracChangeset
for help on using the changeset viewer.