Changeset 3139 for branches/2011/dev_NEMO_MERGE_2011
- Timestamp:
- 2011-11-16T17:11:51+01:00 (13 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r3104 r3139 87 87 !!---------------------------------------------------------------------- 88 88 LOGICAL :: ln_ctl = .FALSE. !: run control for debugging 89 INTEGER :: nn_timing = 0 !: 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 … … 106 107 !!---------------------------------------------------------------------- 107 108 INTEGER :: numstp = -1 !: logical unit for time step 109 INTEGER :: numtime = -1 !: logical unit for timing 108 110 INTEGER :: numout = 6 !: logical unit for output print 109 111 INTEGER :: numnam = -1 !: logical unit for namelist -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3116 r3139 176 176 ENDIF 177 177 ! 178 IF( nn_timing == 1 ) CALL timing_finalize 179 ! 178 180 CALL nemo_closefile 179 181 #if defined key_oasis3 || defined key_oasis4 … … 197 199 !! 198 200 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 199 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, nn_bench 201 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 202 & nn_bench, nn_timing 200 203 !!---------------------------------------------------------------------- 201 204 ! … … 294 297 ELSE ; CALL mpp_init2 ! eliminate land processors 295 298 ENDIF 299 ! 300 IF( nn_timing == 1 ) CALL timing_init 296 301 ! 297 302 ! ! General initialization -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/step.F90
r3116 r3139 266 266 IF( lk_cpl ) CALL sbc_cpl_snd( kstp ) ! coupled mode : field exchanges 267 267 ! 268 IF( nn_timing == 1 .AND. kstp == nit000 ) CALL timing_reset 268 269 ! 269 270 END SUBROUTINE stp -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r3116 r3139 95 95 USE diaobs ! Observation operator 96 96 97 USE timing ! Timing 98 97 99 #if defined key_agrif 98 100 USE agrif_opa_sponge ! Momemtum and tracers sponges
Note: See TracChangeset
for help on using the changeset viewer.