Changeset 8970 for branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/STO
- Timestamp:
- 2017-12-11T10:01:56+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_CNRS_2017/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90
r5571 r8970 159 159 INTEGER :: ji, jj, jk, jsto, jflt 160 160 REAL(wp) :: stomax 161 161 !!---------------------------------------------------------------------- 162 162 ! 163 163 ! Update 2D stochastic arrays … … 235 235 CALL lbc_lnk( sto3d(:,:,:,jsto), sto3d_typ(jsto), sto3d_sgn(jsto) ) 236 236 END DO 237 237 ! 238 238 END SUBROUTINE sto_par 239 239 … … 267 267 REWIND( numnam_cfg ) ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme 268 268 READ ( numnam_cfg, namsto, IOSTAT = ios, ERR = 902 ) 269 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwp )269 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsto in configuration namelist', lwp ) 270 270 IF(lwm) WRITE ( numond, namsto ) 271 272 IF( .NOT.ln_rststo ) THEN ! no use of stochastic parameterization 273 IF(lwp) THEN 274 WRITE(numout,*) 275 WRITE(numout,*) 'sto_par_init : NO use of stochastic parameterization' 276 WRITE(numout,*) '~~~~~~~~~~~~' 277 ENDIF 278 RETURN 279 ENDIF 271 280 272 281 !IF(ln_ens_rst_in) cn_storst_in = cn_mem//cn_storst_in … … 673 682 !! *** ROUTINE sto_rst_read *** 674 683 !! 675 676 684 !! ** Purpose : read stochastic parameters from restart file 677 685 !!---------------------------------------------------------------------- 678 679 686 INTEGER :: jsto, jseed 680 687 INTEGER(KIND=8) :: ziseed(4) ! RNG seeds in integer type … … 683 690 CHARACTER(LEN=9) :: clsto3d='sto3d_000' ! stochastic parameter variable name 684 691 CHARACTER(LEN=10) :: clseed='seed0_0000' ! seed variable name 692 !!---------------------------------------------------------------------- 685 693 686 694 IF ( jpsto2d > 0 .OR. jpsto3d > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.