Ignore:
Timestamp:
2020-02-28T16:55:11+01:00 (14 months ago)
Author:
davestorkey
Message:

Preparation for new timestepping scheme #2390.
Main changes:

  1. Initial euler timestep now handled in stp and not in TRA/DYN routines.
  2. Renaming of all timestep parameters. In summary, the namelist parameter is now rn_Dt and the current timestep is rDt (and rDt_ice, rDt_trc etc).
  3. Renaming of a few miscellaneous parameters, eg. atfp → rn_atfp (namelist parameter used everywhere) and rau0 → rho0.

This version gives bit-comparable results to the previous version of the trunk.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/ABL/sbcabl.F90

    r12353 r12489  
    202202 
    203203      ! ABL timestep 
    204       rdt_abl = nn_fsbc * rdt 
     204      rDt_abl = nn_fsbc * rn_Dt 
    205205 
    206206      ! Check parameters for dynamics 
    207207      zcff  = ( jp_alp3_dyn * jp_bmin**3 + jp_alp2_dyn * jp_bmin**2   & 
    208          &    + jp_alp1_dyn * jp_bmin    + jp_alp0_dyn ) * rdt_abl 
     208         &    + jp_alp1_dyn * jp_bmin    + jp_alp0_dyn ) * rDt_abl 
    209209      zcff1 = ( jp_alp3_dyn * jp_bmax**3 + jp_alp2_dyn * jp_bmax**2   & 
    210          &    + jp_alp1_dyn * jp_bmax    + jp_alp0_dyn ) * rdt_abl 
     210         &    + jp_alp1_dyn * jp_bmax    + jp_alp0_dyn ) * rDt_abl 
    211211      IF(lwp) THEN 
    212212         IF(nn_dyn_restore > 0) THEN 
     
    225225      ! Check parameters for active tracers 
    226226      zcff  = ( jp_alp3_tra * jp_bmin**3 + jp_alp2_tra * jp_bmin**2   & 
    227          &    + jp_alp1_tra * jp_bmin    + jp_alp0_tra ) * rdt_abl 
     227         &    + jp_alp1_tra * jp_bmin    + jp_alp0_tra ) * rDt_abl 
    228228      zcff1 = ( jp_alp3_tra * jp_bmax**3 + jp_alp2_tra * jp_bmax**2   & 
    229          &    + jp_alp1_tra * jp_bmax    + jp_alp0_tra ) * rdt_abl 
     229         &    + jp_alp1_tra * jp_bmax    + jp_alp0_tra ) * rDt_abl 
    230230      IF(lwp) THEN 
    231231         WRITE(numout,*) ' ABL Minimum value for tracers restoring = ',zcff 
Note: See TracChangeset for help on using the changeset viewer.