- Timestamp:
- 2020-04-11T15:38:38+02:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r12558_HPC-08_epico_Extra_Halo/src/OCE/STO/stopar.F90
r12377 r12738 707 707 DO jsto = 1 , jpsto2d 708 708 WRITE(clsto2d(7:9),'(i3.3)') jsto 709 CALL iom_get( numstor, jpdom_auto glo, clsto2d , sto2d(:,:,jsto) )709 CALL iom_get( numstor, jpdom_auto, clsto2d, sto2d(:,:, jsto) ) 710 710 END DO 711 711 ! 3D stochastic parameters 712 712 DO jsto = 1 , jpsto3d 713 713 WRITE(clsto3d(7:9),'(i3.3)') jsto 714 CALL iom_get( numstor, jpdom_auto glo, clsto3d, sto3d(:,:,:,jsto) )714 CALL iom_get( numstor, jpdom_auto, clsto3d, sto3d(:,:,:,jsto) ) 715 715 END DO 716 716
Note: See TracChangeset
for help on using the changeset viewer.