Changeset 5488
- Timestamp:
- 2015-06-25T12:44:52+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90
r5458 r5488 260 260 INTEGER :: ios ! Local integer output status for namelist read 261 261 262 IF ( lk_agrif ) CALL ctl_stop('EOS stochastic parametrization is not compatible with AGRIF')263 262 ! Read namsto namelist : stochastic parameterization 264 263 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme … … 338 337 ENDIF 339 338 IF( ln_sto_eos ) THEN 339 IF ( lk_agrif ) CALL ctl_stop('EOS stochastic parametrization is not compatible with AGRIF') 340 340 IF(lwp) WRITE(numout,*) ' - stochastic equation of state' 341 341 ALLOCATE(jsto_eosi(nn_sto_eos))
Note: See TracChangeset
for help on using the changeset viewer.