- Timestamp:
- 2011-05-31T17:05:34+02:00 (13 years ago)
- Location:
- branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM
- Files:
-
- 1 added
- 9 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/GYRE/EXP00/namelist
r2715 r2771 703 703 !----------------------------------------------------------------------- 704 704 ln_ctl = .false. ! trends control print (expensive!) 705 ln_timing = .false. ! timing output 705 706 nn_print = 0 ! level of print (0 no extra print) 706 707 nn_ictls = 0 ! start i indice of control sum (use to compare mono versus -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist
r2735 r2771 708 708 !----------------------------------------------------------------------- 709 709 ln_ctl = .false. ! trends control print (expensive!) 710 ln_timing = .false. ! timing output 710 711 nn_print = 0 ! level of print (0 no extra print) 711 712 nn_ictls = 0 ! start i indice of control sum (use to compare mono versus -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/namelist
r2715 r2771 703 703 !----------------------------------------------------------------------- 704 704 ln_ctl = .false. ! trends control print (expensive!) 705 ln_timing = .false. ! timing output 705 706 nn_print = 0 ! level of print (0 no extra print) 706 707 nn_ictls = 0 ! start i indice of control sum (use to compare mono versus -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/CONFIG/POMME/EXP00/namelist
r2650 r2771 708 708 !----------------------------------------------------------------------- 709 709 ln_ctl = .false. ! trends control print (expensive!) 710 ln_timing = .false. ! timing output 710 711 nn_print = 0 ! level of print (0 no extra print) 711 712 nn_ictls = 0 ! start i indice of control sum (use to compare mono versus -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r2715 r2771 87 87 !!---------------------------------------------------------------------- 88 88 LOGICAL :: ln_ctl = .FALSE. !: run control for debugging 89 LOGICAL :: ln_timing = .FALSE. !: run control for timing 89 90 INTEGER :: nn_print = 0 !: level of print (0 no print) 90 91 INTEGER :: nn_ictls = 0 !: Start i indice for the SUM control … … 111 112 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 112 113 INTEGER :: numsol = -1 !: logical unit for solver statistics 114 INTEGER :: numtime = -1 !: logical unit for timing statistics 113 115 114 116 !!---------------------------------------------------------------------- -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_tvd.F90
r2715 r2771 32 32 USE diaptr ! poleward transport diagnostics 33 33 USE trc_oce ! share passive tracers/Ocean variables 34 34 USE timing ! preformance summary 35 35 36 36 IMPLICIT NONE … … 84 84 REAL(wp), DIMENSION (:,:,:), ALLOCATABLE :: ztrdx, ztrdy, ztrdz 85 85 !!---------------------------------------------------------------------- 86 87 IF( ln_timing ) CALL timing_start('traadv_tvd') 86 88 87 89 IF( wrk_in_use(3, 12,13) ) THEN … … 247 249 IF( wrk_not_released(3, 12,13) ) CALL ctl_stop('tra_adv_tvd: failed to release workspace arrays') 248 250 ! 251 IF( ln_timing ) CALL timing_stop('traadv_tvd') 252 ! 249 253 END SUBROUTINE tra_adv_tvd 250 254 … … 277 281 !!---------------------------------------------------------------------- 278 282 283 IF( ln_timing ) CALL timing_start('nonosc') 284 279 285 IF( wrk_in_use(3, 8,9,10,11) ) THEN 280 286 CALL ctl_stop('nonosc: requested workspace array unavailable') ; RETURN … … 361 367 IF( wrk_not_released(3, 8,9,10,11) ) CALL ctl_stop('nonosc: failed to release workspace arrays') 362 368 ! 369 IF( ln_timing ) CALL timing_stop('nonosc') 370 ! 363 371 END SUBROUTINE nonosc 364 372 -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r2715 r2771 171 171 ENDIF 172 172 ! 173 IF( ln_timing ) CALL timing_finalize 174 ! 173 175 CALL nemo_closefile 174 176 #if defined key_oasis3 || defined key_oasis4 … … 191 193 CHARACTER(len=80), DIMENSION(16) :: cltxt 192 194 !! 193 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 194 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench 195 NAMELIST/namctl/ ln_ctl , ln_timing, nn_ictls, nn_ictle, & 196 & nn_isplt, nn_jsplt , nn_jctls, nn_jctle, & 197 & nn_bench, nn_print 195 198 !!---------------------------------------------------------------------- 196 199 ! … … 286 289 ENDIF 287 290 ! 291 IF( ln_timing ) CALL timing_init 292 ! 288 293 ! ! General initialization 289 294 CALL phy_cst ! Physical constants … … 373 378 WRITE(numout,*) ' Namelist namctl' 374 379 WRITE(numout,*) ' run control (for debugging) ln_ctl = ', ln_ctl 380 WRITE(numout,*) ' run timing ln_timing = ', ln_timing 375 381 WRITE(numout,*) ' level of print nn_print = ', nn_print 376 382 WRITE(numout,*) ' Start i indice for SUM control nn_ictls = ', nn_ictls -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/step.F90
r2715 r2771 264 264 IF( lk_cpl ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 265 265 ! 266 IF( kstp == nit000 .AND. ln_timing ) CALL timing_reset 266 267 ! 267 268 END SUBROUTINE stp -
branches/2011/dev_r2769_LOCEAN_dynamic_mem/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r2528 r2771 96 96 USE diaobs ! Observation operator 97 97 98 USE timing ! Timing 99 98 100 #if defined key_agrif 99 101 USE agrif_opa_sponge ! Momemtum and tracers sponges
Note: See TracChangeset
for help on using the changeset viewer.