- Timestamp:
- 2011-11-25T12:27:22+01:00 (13 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY
- Files:
-
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r3122 r3182 19 19 !! bdy_dta_init : initialise arrays etc for reading of external data 20 20 !!---------------------------------------------------------------------- 21 USE wrk_nemo_2 ! Memory Allocation 22 USE timing ! Timing 21 23 USE oce ! ocean dynamics and tracers 22 24 USE dom_oce ! ocean space and time domain … … 64 66 !! 65 67 !!---------------------------------------------------------------------- 66 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released67 USE wrk_nemo, ONLY: wrk_2d_22, wrk_2d_23 ! 2D workspace68 68 !! 69 69 INTEGER, INTENT( in ) :: kt ! ocean time-step index … … 81 81 !! 82 82 !!--------------------------------------------------------------------------- 83 84 IF(wrk_in_use(2, 22,23) ) THEN 85 CALL ctl_stop('bdy_dta: ERROR: requested workspace arrays are unavailable.') ; RETURN 86 END IF 83 !! 84 IF( nn_timing == 1 ) CALL timing_start('bdy_dta') 87 85 88 86 ! Initialise data arrays once for all from initial conditions where required … … 92 90 ! Calculate depth-mean currents 93 91 !----------------------------- 94 pu2d => wrk_2d_22 95 pv2d => wrk_2d_23 92 CALL wrk_alloc(jpi,jpj,pu2d,pv2d) 96 93 97 94 pu2d(:,:) = 0.e0 … … 196 193 197 194 ENDDO ! ib_bdy 195 196 CALL wrk_dealloc(jpi,jpj,pu2d,pv2d) 198 197 199 198 ENDIF ! kt .eq. nit000 … … 281 280 END DO ! ib_bdy 282 281 283 IF( wrk_not_released(2, 22,23) ) CALL ctl_stop('bdy_dta: ERROR: failed to release workspace arrays.')282 IF( nn_timing == 1 ) CALL timing_stop('bdy_dta') 284 283 285 284 END SUBROUTINE bdy_dta … … 322 321 NAMELIST/nambdy_dta/ ln_full_vel 323 322 !!--------------------------------------------------------------------------- 323 324 IF( nn_timing == 1 ) CALL timing_start('bdy_dta_init') 324 325 325 326 ! Set nn_dta … … 671 672 ENDDO ! ib_bdy 672 673 674 IF( nn_timing == 1 ) CALL timing_stop('bdy_dta_init') 675 673 676 END SUBROUTINE bdy_dta_init 674 677 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn.F90
r3116 r3182 18 18 !! bdy_dyn3d_frs : apply Flow Relaxation Scheme 19 19 !!---------------------------------------------------------------------- 20 USE wrk_nemo_2 ! Memory Allocation 21 USE timing ! Timing 20 22 USE oce ! ocean dynamics and tracers 21 23 USE dom_oce ! ocean space and time domain … … 48 50 !! 49 51 !!---------------------------------------------------------------------- 50 USE wrk_nemo, ONLY: wrk_in_use, wrk_not_released51 USE wrk_nemo, ONLY: wrk_2d_7, wrk_2d_8 ! 2D workspace52 52 !! 53 53 INTEGER, INTENT( in ) :: kt ! Main time step counter … … 58 58 !! 59 59 60 IF(wrk_in_use(2, 7,8) ) THEN 61 CALL ctl_stop('bdy_dyn: ERROR: requested workspace arrays are unavailable.') ; RETURN 62 END IF 60 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn') 63 61 64 62 ll_dyn2d = .true. … … 76 74 phur => hur 77 75 phvr => hvr 78 pu2d => wrk_2d_7 79 pv2d => wrk_2d_8 76 CALL wrk_alloc(jpi,jpj,pu2d,pv2d) 80 77 81 78 !------------------------------------------------------- … … 114 111 END DO 115 112 116 IF(wrk_not_released(2, 7,8) ) CALL ctl_stop('bdy_dyn: ERROR: failed to release workspace arrays.') 113 CALL wrk_dealloc(jpi,jpj,pu2d,pv2d) 114 115 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn') 117 116 118 117 END SUBROUTINE bdy_dyn -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn2d.F90
r3117 r3182 18 18 !! bdy_dyn2d_fla : Apply Flather condition 19 19 !!---------------------------------------------------------------------- 20 USE timing ! Timing 20 21 USE oce ! ocean dynamics and tracers 21 22 USE dom_oce ! ocean space and time domain … … 84 85 !!---------------------------------------------------------------------- 85 86 ! 87 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_frs') 86 88 ! 87 89 igrd = 2 ! Relaxation of zonal velocity … … 103 105 CALL lbc_lnk( pv2d, 'V', -1. ) ! Boundary points should be updated 104 106 ! 107 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_frs') 108 ! 105 109 106 110 END SUBROUTINE bdy_dyn2d_frs … … 134 138 REAL(wp) :: zforc ! temporary scalar 135 139 !!---------------------------------------------------------------------- 140 141 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn2d_fla') 136 142 137 143 ! ---------------------------------! … … 179 185 CALL lbc_lnk( pv2d, 'V', -1. ) ! 180 186 ! 187 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn2d_fla') 181 188 ! 182 189 END SUBROUTINE bdy_dyn2d_fla -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdydyn3d.F90
r3117 r3182 1 1 MODULE bdydyn3d 2 2 !!====================================================================== 3 !! *** MODULE bdydyn ***3 !! *** MODULE bdydyn3d *** 4 4 !! Unstructured Open Boundary Cond. : Flow relaxation scheme on velocities 5 5 !!====================================================================== … … 18 18 !! bdy_dyn3d_frs : apply Flow Relaxation Scheme 19 19 !!---------------------------------------------------------------------- 20 USE timing ! Timing 20 21 USE oce ! ocean dynamics and tracers 21 22 USE dom_oce ! ocean space and time domain … … 86 87 !!---------------------------------------------------------------------- 87 88 ! 89 IF( nn_timing == 1 ) CALL timing_start('bdy_dyn3d_frs') 88 90 ! 89 91 igrd = 2 ! Relaxation of zonal velocity … … 110 112 IF( kt .eq. nit000 ) CLOSE( unit = 102 ) 111 113 114 IF( nn_timing == 1 ) CALL timing_stop('bdy_dyn3d_frs') 115 112 116 END SUBROUTINE bdy_dyn3d_frs 113 117 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdyice_lim2.F90
r3117 r3182 14 14 !! bdy_ice_frs : Application of Flow Relaxation Scheme 15 15 !!---------------------------------------------------------------------- 16 USE timing ! Timing 16 17 USE oce ! ocean dynamics and tracers variables 17 18 USE ice_2 ! LIM_2 ice variables … … 77 78 !!------------------------------------------------------------------------------ 78 79 ! 80 IF( nn_timing == 1 ) CALL timing_start('bdy_ice_frs') 81 ! 79 82 jgrd = 1 ! Everything is at T-points here 80 83 ! … … 93 96 CALL lbc_lnk( hicif, 'T', 1. ) ; CALL lbc_lnk( hsnif, 'T', 1. ) 94 97 ! 98 IF( nn_timing == 1 ) CALL timing_stop('bdy_ice_frs') 99 ! 95 100 END SUBROUTINE bdy_ice_frs 96 101 #else -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r3116 r3182 19 19 !! bdy_init : Initialization of unstructured open boundaries 20 20 !!---------------------------------------------------------------------- 21 USE timing ! Timing 21 22 USE oce ! ocean dynamics and tracers variables 22 23 USE dom_oce ! ocean space and time domain … … 94 95 !!---------------------------------------------------------------------- 95 96 97 IF( nn_timing == 1 ) CALL timing_start('bdy_init') 98 96 99 IF( bdy_oce_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'bdy_init : unable to allocate oce arrays' ) 97 100 … … 806 809 DEALLOCATE(nbidta, nbjdta, nbrdta) 807 810 811 IF( nn_timing == 1 ) CALL timing_stop('bdy_init') 812 808 813 END SUBROUTINE bdy_init 809 814 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r3116 r3182 23 23 !! vset :/ 24 24 !!---------------------------------------------------------------------- 25 USE timing ! Timing 25 26 USE oce ! ocean dynamics and tracers 26 27 USE dom_oce ! ocean space and time domain … … 87 88 NAMELIST/nambdy_tide/ln_tide_date, filtide, tide_cpt, tide_speed 88 89 !!---------------------------------------------------------------------- 90 91 IF( nn_timing == 1 ) CALL timing_start('tide_init') 89 92 90 93 IF(lwp) WRITE(numout,*) … … 264 267 END DO ! loop on ib_bdy 265 268 269 IF( nn_timing == 1 ) CALL timing_stop('tide_init') 270 266 271 END SUBROUTINE tide_init 267 272 … … 292 297 REAL(wp), DIMENSION(jptides_max) :: z_sist, z_cost 293 298 !!---------------------------------------------------------------------- 299 300 IF( nn_timing == 1 ) CALL timing_start('tide_update') 294 301 295 302 time_add = 0 … … 329 336 END DO 330 337 END DO 338 ! 339 IF( nn_timing == 1 ) CALL timing_stop('tide_update') 331 340 ! 332 341 END SUBROUTINE tide_update -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdytra.F90
r3116 r3182 14 14 !! bdy_tra_frs : Apply Flow Relaxation Scheme 15 15 !!---------------------------------------------------------------------- 16 USE timing ! Timing 16 17 USE oce ! ocean dynamics and tracers variables 17 18 USE dom_oce ! ocean space and time domain variables … … 75 76 !!---------------------------------------------------------------------- 76 77 ! 78 IF( nn_timing == 1 ) CALL timing_start('bdy_tra_frs') 77 79 ! 78 80 igrd = 1 ! Everything is at T-points here … … 90 92 ! 91 93 IF( kt .eq. nit000 ) CLOSE( unit = 102 ) 92 ! 94 ! 95 IF( nn_timing == 1 ) CALL timing_stop('bdy_tra_frs') 96 ! 93 97 END SUBROUTINE bdy_tra_frs 94 98 -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/BDY/bdyvol.F90
r3116 r3182 14 14 !! 'key_dynspg_flt' filtered free surface 15 15 !!---------------------------------------------------------------------- 16 USE timing ! Timing 16 17 USE oce ! ocean dynamics and tracers 17 18 USE dom_oce ! ocean space and time domain … … 75 76 TYPE(OBC_INDEX), POINTER :: idx 76 77 !!----------------------------------------------------------------------------- 78 79 IF( nn_timing == 1 ) CALL timing_start('bdy_vol') 77 80 78 81 IF( ln_vol ) THEN … … 161 164 END IF 162 165 ! 166 IF( nn_timing == 1 ) CALL timing_stop('bdy_vol') 167 ! 163 168 END IF ! ln_vol 164 169
Note: See TracChangeset
for help on using the changeset viewer.