Changeset 4706


Ignore:
Timestamp:
2014-07-04T15:20:50+02:00 (6 years ago)
Author:
timgraham
Message:

Added diacfl.F90 (copied from a vn3.4 local branch)
Modified step and step_oce to call it.
Currently uses a CPP key - this will be replaced by namelist control

Location:
branches/2014/dev_r4650_UKMO12_CFL_diagnostic/NEMOGCM/NEMO/OPA_SRC
Files:
1 added
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2014/dev_r4650_UKMO12_CFL_diagnostic/NEMOGCM/NEMO/OPA_SRC/step.F90

    r4624 r4706  
    202202      !<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< 
    203203      IF( lk_floats  )   CALL flo_stp( kstp )         ! drifting Floats 
     204      IF( lk_diacfl  )   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_diagnostic/NEMOGCM/NEMO/OPA_SRC/step_oce.F90

    r4328 r4706  
    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.