Changeset 4714


Ignore:
Timestamp:
2014-07-15T12:25:14+02:00 (6 years ago)
Author:
timgraham
Message:

Added diacfl module and added a nn_diacfl to namctl to control it

Location:
branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/CONFIG/SHARED/namelist_ref

    r4384 r4714  
    957957                           !     (no physical validity of the results) 
    958958   nn_timing   =    0      !  timing by routine activated (=1) creates timing.output file, or not (=0) 
     959   nn_diacfl   =    0      !  Write out cfl diagnostics (=1) in cfl_diagnostics.ascii, or not (=0) 
    959960/ 
    960961!----------------------------------------------------------------------- 
  • branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r4624 r4714  
    9191   LOGICAL ::   ln_ctl       !: run control for debugging 
    9292   INTEGER ::   nn_timing    !: run control for timing 
     93   INTEGER ::   nn_diacfl    !: flag whether to create CFL diagnostics 
    9394   INTEGER ::   nn_print     !: level of print (0 no print) 
    9495   INTEGER ::   nn_ictls     !: Start i indice for the SUM control 
  • branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r4645 r4714  
    6565   USE diadct          ! sections transports           (dia_dct_init routine) 
    6666   USE diaobs          ! Observation diagnostics       (dia_obs_init routine) 
     67   USE diacfl          ! CFL diagnostics               (dia_cfl_init routine) 
    6768   USE lib_fortran     ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) 
    6869   USE step            ! NEMO time-stepping                 (stp     routine) 
     
    230231      NAMELIST/namctl/ ln_ctl, nn_print, nn_ictls, nn_ictle,   & 
    231232         &             nn_isplt, nn_jsplt, nn_jctls, nn_jctle,   & 
    232          &             nn_bench, nn_timing 
     233         &             nn_bench, nn_timing, nn_diacfl 
    233234      NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 
    234235         &             jpizoom, jpjzoom, jperio 
     
    453454                                            ! Diagnostics 
    454455      IF( lk_floats     )   CALL     flo_init   ! drifting Floats 
     456                            CALL dia_cfl_init   ! Initialise CFL diagnostics 
    455457      IF( lk_diaar5     )   CALL dia_ar5_init   ! ar5 diag 
    456458                            CALL dia_ptr_init   ! Poleward TRansports initialization 
  • branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/step.F90

    r4624 r4714  
    202202      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    203203      IF( lk_floats  )   CALL flo_stp( kstp )         ! drifting Floats 
     204      IF( nn_diacfl == 1 )   CALL dia_cfl( kstp )         ! Courant number diagnostics 
    204205      IF( lk_diahth  )   CALL dia_hth( kstp )         ! Thermocline depth (20 degres isotherm depth) 
    205206      IF( lk_diafwb  )   CALL dia_fwb( kstp )         ! Fresh water budget diagnostics 
  • branches/2014/dev_r4650_UKMO12_CFL_diags_take2/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r4328 r4714  
    9797   USE diahsb           ! heat, salt and volume budgets    (dia_hsb routine) 
    9898   USE diaharm 
     99   USE diacfl 
    99100   USE flo_oce          ! floats variables 
    100101   USE floats           ! floats computation               (flo_stp routine) 
Note: See TracChangeset for help on using the changeset viewer.