- Timestamp:
- 2018-11-13T18:21:16+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_FOAMv14/NEMOGCM/NEMO/OPA_SRC/STO/stopar.F90
r6487 r10302 22 22 USE iom ! I/O module 23 23 USE lib_mpp 24 24 USE timing 25 25 26 26 IMPLICIT NONE … … 697 697 ! Get stochastic parameters from restart file: 698 698 ! 2D stochastic parameters 699 IF(nn_timing == 2) CALL timing_start('iom_rstget') 699 700 DO jsto = 1 , jpsto2d 700 701 WRITE(clsto2d(7:9),'(i3.3)') jsto … … 717 718 CALL kiss_seed( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 718 719 ENDIF 720 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 719 721 720 722 ! Close the restart file … … 760 762 CALL kiss_state( ziseed(1) , ziseed(2) , ziseed(3) , ziseed(4) ) 761 763 zrseed = TRANSFER( ziseed , zrseed) 764 IF(nn_timing == 2) CALL timing_start('iom_rstput') 762 765 DO jseed = 1 , 4 763 766 WRITE(clseed(5:5) ,'(i1.1)') jseed … … 775 778 CALL iom_rstput( kt, nitrst, numstow, clsto3d , sto3d(:,:,:,jsto) ) 776 779 END DO 780 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 777 781 ! close the restart file 778 782 CALL iom_close( numstow )
Note: See TracChangeset
for help on using the changeset viewer.