- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90
r5836 r9124 7 7 !! NEMO 1.0 ! 2002-06 (A. Bozec) F90, Free form and module 8 8 !!---------------------------------------------------------------------- 9 #if defined key_floats9 #if defined key_floats 10 10 !!---------------------------------------------------------------------- 11 11 !! 'key_floats' float trajectories … … 22 22 USE flo4rk ! Trajectories, Runge Kutta scheme (flo_4rk routine) 23 23 USE floblk ! Trajectories, Blanke scheme (flo_blk routine) 24 ! 24 25 USE in_out_manager ! I/O manager 25 26 USE timing ! preformance summary … … 52 53 !!---------------------------------------------------------------------- 53 54 ! 54 IF( nn_timing == 1) CALL timing_start('flo_stp')55 IF( ln_timing ) CALL timing_start('flo_stp') 55 56 ! 56 57 IF( ln_flork4 ) THEN ; CALL flo_4rk( kt ) ! Trajectories using a 4th order Runge Kutta scheme … … 66 67 wb(:,:,:) = wn(:,:,:) ! Save the old vertical velocity field 67 68 ! 68 IF( nn_timing == 1) CALL timing_stop('flo_stp')69 IF( ln_timing ) CALL timing_stop('flo_stp') 69 70 ! 70 71 END SUBROUTINE flo_stp … … 77 78 !! ** Purpose : Read the namelist of floats 78 79 !!---------------------------------------------------------------------- 79 INTEGER :: jfl80 INTEGER :: ios ! Local integer output status for namelist read80 INTEGER :: jfl 81 INTEGER :: ios ! Local integer output status for namelist read 81 82 ! 82 83 NAMELIST/namflo/ jpnfl, jpnnewflo, ln_rstflo, nn_writefl, nn_stockfl, ln_argo, ln_flork4, ln_ariane, ln_flo_ascii 83 84 !!--------------------------------------------------------------------- 84 !85 IF( nn_timing == 1 ) CALL timing_start('flo_init')86 85 ! 87 86 IF(lwp) WRITE(numout,*) … … 125 124 IF( flo_rst_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'flo_rst : unable to allocate arrays' ) 126 125 ! 127 !memory allocation 128 jpnrstflo = jpnfl-jpnnewflo 129 130 !vertical axe for netcdf IOM ouput 131 DO jfl=1,jpnfl ; nfloat(jfl)=jfl ; ENDDO 132 126 jpnrstflo = jpnfl-jpnnewflo ! memory allocation 127 ! 128 DO jfl = 1, jpnfl ! vertical axe for netcdf IOM ouput 129 nfloat(jfl) = jfl 130 END DO 133 131 ! 134 132 CALL flo_dom ! compute/read initial position of floats 135 133 ! 136 134 wb(:,:,:) = wn(:,:,:) ! set wb for computation of floats trajectories at the first time step 137 !138 IF( nn_timing == 1 ) CALL timing_stop('flo_init')139 135 ! 140 136 END SUBROUTINE flo_init
Note: See TracChangeset
for help on using the changeset viewer.