Changeset 5960 for branches/2015/dev_MetOffice_merge_2015/NEMOGCM
- Timestamp:
- 2015-12-01T11:31:27+01:00 (9 years ago)
- Location:
- branches/2015/dev_MetOffice_merge_2015/NEMOGCM
- Files:
-
- 8 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/CONFIG/SHARED/namelist_ref
- Property svn:keywords set to Id
r5930 r5960 1028 1028 ! (no physical validity of the results) 1029 1029 nn_timing = 0 ! timing by routine activated (=1) creates timing.output file, or not (=0) 1030 nn_diacfl = 0 ! Write out cfl diagnostics (=1) in cfl_diagnostics.ascii, or not (=0) 1030 1031 / 1031 1032 !----------------------------------------------------------------------- -
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r5836 r5960 148 148 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 149 149 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 150 & nn_bench, nn_timing 150 & nn_bench, nn_timing, nn_diacfl 151 151 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 152 152 & jpizoom, jpjzoom, jperio, ln_use_jattr -
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OOO_SRC/nemogcm.F90
r5407 r5960 127 127 NAMELIST/namctl/ ln_ctl, nn_print, nn_ictls, nn_ictle, & 128 128 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 129 & nn_bench, nn_timing 129 & nn_bench, nn_timing, nn_diacfl 130 130 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 131 131 & jpizoom, jpjzoom, jperio, ln_use_jattr -
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r5518 r5960 99 99 LOGICAL :: ln_ctl !: run control for debugging 100 100 INTEGER :: nn_timing !: run control for timing 101 INTEGER :: nn_diacfl !: flag whether to create CFL diagnostics 101 102 INTEGER :: nn_print !: level of print (0 no print) 102 103 INTEGER :: nn_ictls !: Start i indice for the SUM control -
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5836 r5960 66 66 USE diadct ! sections transports (dia_dct_init routine) 67 67 USE diaobs ! Observation diagnostics (dia_obs_init routine) 68 USE diacfl ! CFL diagnostics (dia_cfl_init routine) 68 69 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 69 70 USE step ! NEMO time-stepping (stp routine) … … 231 232 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 232 233 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 233 & nn_bench, nn_timing 234 & nn_bench, nn_timing, nn_diacfl 234 235 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 235 236 & jpizoom, jpjzoom, jperio, ln_use_jattr … … 458 459 ! ! Diagnostics 459 460 IF( lk_floats ) CALL flo_init ! drifting Floats 461 CALL dia_cfl_init ! Initialise CFL diagnostics 460 462 IF( lk_diaar5 ) CALL dia_ar5_init ! ar5 diag 461 463 CALL dia_ptr_init ! Poleward TRansports initialization -
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/step.F90
r5930 r5960 234 234 ! diagnostics and outputs 235 235 !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 236 IF( lk_floats ) CALL flo_stp ( kstp ) ! drifting Floats 237 IF( lk_diahth ) CALL dia_hth ( kstp ) ! Thermocline depth (20 degres isotherm depth) 238 IF(.NOT.ln_cpl ) CALL dia_fwb ( kstp ) ! Fresh water budget diagnostics 239 IF( lk_diadct ) CALL dia_dct ( kstp ) ! Transports 240 IF( lk_diaar5 ) CALL dia_ar5 ( kstp ) ! ar5 diag 241 IF( lk_diaharm ) CALL dia_harm ( kstp ) ! Tidal harmonic analysis 242 CALL dia_wri ( kstp ) ! ocean model: outputs 236 IF( lk_floats ) CALL flo_stp( kstp ) ! drifting Floats 237 IF( nn_diacfl == 1 ) CALL dia_cfl( kstp ) ! Courant number diagnostics 238 IF( lk_diahth ) CALL dia_hth( kstp ) ! Thermocline depth (20 degres isotherm depth) 239 IF(.NOT.ln_cpl ) CALL dia_fwb( kstp ) ! Fresh water budget diagnostics 240 IF( lk_diadct ) CALL dia_dct( kstp ) ! Transports 241 IF( lk_diaar5 ) CALL dia_ar5( kstp ) ! ar5 diag 242 IF( lk_diaharm ) CALL dia_harm( kstp ) ! Tidal harmonic analysis 243 CALL dia_wri( kstp ) ! ocean model: outputs 243 244 ! 244 245 IF( ln_crs ) CALL crs_fld ( kstp ) ! ocean model: online field coarsening & output -
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/OPA_SRC/step_oce.F90
r5930 r5960 82 82 USE diahsb ! heat, salt and volume budgets (dia_hsb routine) 83 83 USE diaharm 84 USE diacfl 84 85 USE flo_oce ! floats variables 85 86 USE floats ! floats computation (flo_stp routine) -
branches/2015/dev_MetOffice_merge_2015/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r5510 r5960 184 184 NAMELIST/namctl/ ln_ctl , nn_print, nn_ictls, nn_ictle, & 185 185 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 186 & nn_bench, nn_timing 186 & nn_bench, nn_timing, nn_diacfl 187 187 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 188 188 & jpizoom, jpjzoom, jperio, ln_use_jattr
Note: See TracChangeset
for help on using the changeset viewer.