Changes between Version 38 and Version 39 of ticket/0927_Energy_diag


Ignore:
Timestamp:
2012-03-22T16:21:22+01:00 (9 years ago)
Author:
fabien.roquet
Comment:

Legend:

Unmodified
Added
Removed
Modified
  • ticket/0927_Energy_diag

    v38 v39  
    1515'''     Motivation: '''    output 3D trends of tracers, momentum, kinetic energy and potential energy.[[BR]] '''     Status :''' the extraction of trends terms exists, but not the 3D output of the trends   [[BR]] '''     Main tasks :'''         [[BR]] 
    1616 
    17   (1) implement the 3D output of tracers and momentum trends using iom_put [[BR]]             (2) compute and output the 3D trends of PE and KE [[BR]]                  (3) validatation + documentation  [[BR]] 
     17  (1) implement the 3D output of tracers and momentum trends using iom_put [[BR]]              (2) compute and output the 3D trends of PE and KE [[BR]]                   (3) validatation + documentation  [[BR]] 
    1818 
    1919'''     Science Reviewer:''' NOCS guy?     [[BR]]     '''     System Reviewer:'''  NOCS guy?     [[BR]]    '''     Deadline:'''   spring 2012   [[BR]] '''     Priority:'''      high    [[BR]] '''     Depends on:'''    gurvan disponibilities   [[BR]] '''     Principal Investigator : '''      Gurvan Madec and Simona Flavoni (simona.flavoni@locean-ipsl.upmc.fr)  [[BR]] [[BR]] 
     
    2525see [https://forge.ipsl.jussieu.fr/nemo/log/branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC?rev=3316 revision 3316] 
    2626 
    27   '''             trdmod_oce'''              module and '''             namtrd namelist'''              [[BR]] 
     27  '''              trdmod_oce'''               module and '''              namtrd namelist'''               [[BR]] 
    2828 
    2929logical flags added in namlist namtrd which now controls what is done with the trends. [[BR]] All the types of treatment of a given trend are available at the same time. The memory requirement will only increase due to the time averaged arrays defined in IOM. 
     
    4141Add these new logical in the namelist. '''==>>> CAUTION only in the ORCA2_LIM directory''' [[BR]] NB: here is the new name set in revision number 3318[[BR]] 
    4242 
    43   '''             trdtra'''              module[[BR]] 
     43  '''              trdtra'''               module[[BR]] 
    4444 
    4545Add a systematic mask of the trend.[[BR]] Change the comments to better describe the purpose of this module. Its purpose is: [[BR]] 
    4646 
    47   'TRA' case:  to regroup T & S trends and send them to trd_mod, with, in case of advection, transform the incoming advective fluxes into advctive trend (U.grad[T])[[BR]]             'TRC' case:  send trend to ted_mod_trc, with,  in case of advection,  transform the incoming advective fluxes into advective trend [[BR]]             all cases  : mask the trend    ('''             ===>>>   PROBABLY add in the module a lbc_lnk so that the trend is defined everywhere'''             ) 
    48  
    49   '''             dynadv_cen2 and _ubs'''              modules[[BR]] 
     47  'TRA' case:  to regroup T & S trends and send them to trd_mod, with, in case of advection, transform the incoming advective fluxes into advctive trend (U.grad[T])[[BR]]              'TRC' case:  send trend to ted_mod_trc, with,  in case of advection,  transform the incoming advective fluxes into advective trend [[BR]]              all cases  : mask the trend    ('''              ===>>>   PROBABLY add in the module a lbc_lnk so that the trend is defined everywhere'''              ) 
     48 
     49  '''              dynadv_cen2 and _ubs'''               modules[[BR]] 
    5050 
    5151change jpdyn_trd_had  into jpdyn_trd_keg. Now in flux form _keg corresponds to the horizontal advection trends and _rvo to the metric terms[[BR]] [[BR]] 
    5252 
    53   '''             dynnxt'''              module[[BR]] 
     53  '''              dynnxt'''               module[[BR]] 
    5454 
    5555add the output using mom of the total den trend (except asselin time filter) ("utrd_tot", "vtrd_tot") and of the asselin time filter trend ("utrd_atf", "vtrd_atf") but with a shift by one time step[[BR]] [[BR]] 
    5656 
    57   '''             dynvor, trdvor and trdmod_oce'''              modules[[BR]] 
     57  '''              dynvor, trdvor and trdmod_oce'''               modules[[BR]] 
    5858 
    5959suppress the call to trd_mod in the jpdyn_trd_dat case (computation of beta.V) add add the calculation of beta.V term in 'trdvor' in jpvor_pvo case. And obviously suppress jpdyn_trd_dat from trdmod_oce [[BR]] Also suppress the jpdyn_trd_had case  horizontal advection for the dynamics is 'keg' + 'vor'  ; in case of flux form,  'had' is put in 'keg' and the metric terms is put in 'vor' [[BR]] there is now only 10 trends on the dynamics instead of 12[[BR]] [[BR]] 
    6060 
    61   '''             trdmod'''              module[[BR]] 
     61  '''              trdmod'''               module[[BR]] 
    6262 
    63631- introduce the new logical namelist parameters[[BR]] 2- introduce new subroutines : '''trd_budget''' : computation of the domain averaged T,T^2^, PE, KE trends formerly computes in trd_mod routine)[[BR]] ''' trd_3Diom''': output of the 3D trends using IOM [[BR]] [[BR]] 
    6464 
    65   '''             trdicp'''              module[[BR]] 
     65  '''              trdicp'''               module[[BR]] 
    6666 
    6767add in trd_twr routine the computation of the vertical diffusive trend on T & S in case of iso-neutral diffusion (ln_traldf_iso=T). These trends ("ttrd_zdfp", "strd_zdfp")  name zdfp for "PURE" vertical diffusion trends are output so that by difference with "zdf" trends we can access to the vertical contribution of the iso-neutral operator [[BR]] [[BR]] 
    6868 
    69   '''             iodef.xml'''              file[[BR]] 
     69  '''              iodef.xml'''               file[[BR]] 
    7070 
    7171add all the trends nick name : '''==>>> CAUTION only in the ORCA2_LIM directory''' [[BR]] [[BR]] 
     
    7373---- 
    7474=== ''' Step II : simplification of the structure ''' === 
    75   '''             trdicp and trdicp_oce'''              modules[[BR]] 
     75  '''              trdicp and trdicp_oce'''               modules[[BR]] 
    7676 
    7777see [https://forge.ipsl.jussieu.fr/nemo/log/branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC?rev=3317 revision 3317] 
     
    79791- suppress trdicp_oce module (put required variables in trdmod_oce parameters)[[BR]] 2- use the jptra_trd_...  instead of jpicp_...  3- move trd_budget subroutine from trdmod to trdicp.F90. Suppress trd_icp routine (i.e. trd_2d, trd_3d) as the work is now simply done in trd_budget.[[BR]] 4- rescan all dyn/tra trend indices. add jptra_trd_zdfp for "PURE Kz dissusive trend when ln_traldf_iso=T (see also changes in tranxt where a call to trd_tra is done just before the swap, so that PURE Kz trends can be diagnosed in tra_trd. See also xml file).  5- jptra_trd_nsr and jptra_trd_cdt are 3D trends as their incorporate both surface forcing AND runoff, the later being possibly spread in depth ('''==>>> probably to be changed''')[[BR]] 6- suppress the key_trddyn key trdtra  from trdicp[[BR]] 
    8080 
    81   '''             trdtra - trddyn - trdmod - trdvor'''              modules : impact on '''             TRA'''             , '''             DYN'''             , '''             TRD'''              and almost all '''             TOP_SRC'''              modules[[BR]] 
     81  '''              trdtra - trddyn - trdmod - trdvor'''               modules : impact on '''              TRA'''              , '''              DYN'''              , '''              TRD'''               and almost all '''              TOP_SRC'''               modules[[BR]] 
    8282 
    8383see [https://forge.ipsl.jussieu.fr/nemo/log/branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC?rev=3318 revision 3318] 
     
    9393---- 
    9494=== ''' Step III : addition of 3D KE diagnostics ''' === 
    95   '''             trdken'''              module[[BR]] 
     95  '''              trdken'''               module[[BR]] 
    9696 
    9797see [https://forge.ipsl.jussieu.fr/nemo/log/branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC?rev=3325 revision 3325] 
     
    107107---- 
    108108=== ''' Step IV : addition of 3D PE diagnostics ''' === 
    109   '''             trdpen'''              module[[BR]] 
     109  '''              trdpen'''               module[[BR]] 
    110110 
    111111see [https://forge.ipsl.jussieu.fr/nemo/log/branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC?rev=3326 revision 3326] and [https://forge.ipsl.jussieu.fr/nemo/log/branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/OPA_SRC?rev=3327 revision 3327] 0- correct a bug in trdtra and trdken 
     
    123123[[BR]] [[BR]] [[BR]] [[BR]] [[BR]] [[BR]] [[BR]] [[BR]] [[BR]] '''Pending issues''' : 
    124124 
    125   atmospheric pressure gradient trend not taken into account (see dynspg.F90  '''             To be done !!!!'''             [[BR]]            ''' 
    126  
    127   kpp non-local trend put in zdf trends !!!  this will not work ! a additional trend term should be add '''             To be done !!!!'''             [[BR]]            ''' 
     125  atmospheric pressure gradient trend not taken into account (see dynspg.F90  '''              To be done !!!!'''              [[BR]]             ''' 
     126 
     127  kpp non-local trend put in zdf trends !!!  this will not work ! a additional trend term should be add '''              To be done !!!!'''              [[BR]]             ''' 
    128128 
    129129  problems to be solved: vvl case for tracer sad trends ; flux form case for had (keg) and zad momentum trends[[BR]] 
     
    160160 * What is the test: "pressure gradient u2 = - 1/rau0 u.dz(rhop)" ? Identity is not verified in my configuration! 
    161161 * Wind stress is always zero (although not in the 3d diag provided in trddyn.F90) 
     162 * TODO: Once trddyn and trdtra are ready, use them for trdglo computations... 
    162163 
    163164In trd_oce.F90 
    164165 
    165166{{{ 
    166    INTEGER, PUBLIC, PARAMETER ::   jptot_dyn  = 12     !: Total trend nb: change it when adding/removing one indice below 
    167    !                               ===============     !   
    168    INTEGER, PUBLIC, PARAMETER ::   jpdyn_hpg  =  1     !: hydrostatic pressure gradient  
    169    INTEGER, PUBLIC, PARAMETER ::   jpdyn_spg  =  2     !: surface     pressure gradient 
    170    INTEGER, PUBLIC, PARAMETER ::   jpdyn_keg  =  3     !: kinetic energy gradient  or horizontal advection 
    171    INTEGER, PUBLIC, PARAMETER ::   jpdyn_rvo  =  4     !: relative  vorticity      or metric term 
    172    INTEGER, PUBLIC, PARAMETER ::   jpdyn_pvo  =  5     !: planetary vorticity 
    173    INTEGER, PUBLIC, PARAMETER ::   jpdyn_zad  =  6     !: vertical advection 
    174    INTEGER, PUBLIC, PARAMETER ::   jpdyn_ldf  =  7     !: horizontal diffusion    
    175    INTEGER, PUBLIC, PARAMETER ::   jpdyn_zdf  =  8     !: vertical   diffusion 
    176    INTEGER, PUBLIC, PARAMETER ::   jpdyn_bfr  =  9     !: bottom  stress  
    177    INTEGER, PUBLIC, PARAMETER ::   jpdyn_atf  = 10     !: Asselin time filter 
    178    INTEGER, PUBLIC, PARAMETER ::   jpdyn_tau  = 11     !: surface stress 
    179    INTEGER, PUBLIC, PARAMETER ::   jpdyn_bfri = 12     !: implicit bottom friction (ln_bfrimp=.TRUE.) 
     167   INTEGER, PUBLIC, PARAMETER ::   jptot_dyn  = 13     !: Total trend nb: change it when adding/removing one indice below 
     168   !                               ===============     !   
     169   INTEGER, PUBLIC, PARAMETER ::   jpdyn_hpg  =  1     !: hydrostatic pressure gradient  
     170   INTEGER, PUBLIC, PARAMETER ::   jpdyn_spg  =  2     !: surface     pressure gradient 
     171   INTEGER, PUBLIC, PARAMETER ::   jpdyn_keg  =  3     !: kinetic energy gradient  or horizontal advection 
     172   INTEGER, PUBLIC, PARAMETER ::   jpdyn_rvo  =  4     !: relative  vorticity      or metric term 
     173   INTEGER, PUBLIC, PARAMETER ::   jpdyn_pvo  =  5     !: planetary vorticity 
     174   INTEGER, PUBLIC, PARAMETER ::   jpdyn_zad  =  6     !: vertical advection 
     175   INTEGER, PUBLIC, PARAMETER ::   jpdyn_ldf  =  7     !: horizontal diffusion    
     176   INTEGER, PUBLIC, PARAMETER ::   jpdyn_zdf  =  8     !: vertical   diffusion 
     177   INTEGER, PUBLIC, PARAMETER ::   jpdyn_bfr  =  9     !: bottom  stress  
     178   INTEGER, PUBLIC, PARAMETER ::   jpdyn_atf  = 10     !: Asselin time filter 
     179   INTEGER, PUBLIC, PARAMETER ::   jpdyn_tau  = 11     !: surface stress 
     180   INTEGER, PUBLIC, PARAMETER ::   jpdyn_bfri = 12     !: implicit bottom friction (ln_bfrimp=.TRUE.) 
     181   INTEGER, PUBLIC, PARAMETER ::   jpdyn_ken  = 13     !: use for calculation of KE 
    180182 
    181183 
    182184}}} 
    183 where jpdyn_tau and jpdyn_bfri are diagnostics of surface and bottom stress, respectively. 
     185 * where jpdyn_tau and jpdyn_bfri are diagnostics of surface and bottom stress, respectively. 
     186 * jpdyn_ken has been added for the calculation of KE in dynnxt.F90 (done just before the swap) 
    184187 
    185188In trd_ken.F90: 
     
    188191 * Same in l133, l152 and l178. 
    189192 * In l183, replaced "ketrd_bfr" by "ketrd_bfri" to avoid confusion with "ketrd_bfr". 
    190  * Important: contribution from atf is calculated with un and vn, after they have been updated.[[BR]]A small error is made: the work of ATF term is taken one timestep too late. 
     193 * Important: contribution from atf is calculated with un and vn, after they have been updated.[[BR]]  A small error is made: the contribution of ATF term at time t is recorded with trends taken at t-1. 
    191194 * In trd_ken_init, the 3 variables fse3x_n were replaced by their constant value fse3x for the non-vvl case. 
    192  * Definition of KE at time t+1/2: KE(t+1/2)=u(t)*u(t+1)/2, calculated during dynnxt.F90. 
     195 * Definition of KE at time t+1/2: KE(t+1/2)=u(t)*u(t+1)/2, calculated during dynnxt.F90, using ktrd=jpdyn_ken. 
    193196 
    194197In dynnxt.F90 
    195198 
    196199 * rn_atfp=0.1 in the GYRE configuration, but in the Documentation 6.9, rn_atfp (not nn_atfp!!) is said to be typically equal to 0.001. Is it normal? 
    197  * sign error in the expression to retrieve ATF trend: put zua(:,:,:) = ( zua(:,:,:) - ub(:,:,:) ) * z1_2dt instead (same for v) 
     200 * Sign error in the expression to retrieve ATF trend: put zua(:,:,:) = ( zua(:,:,:) - ub(:,:,:) ) * z1_2dt instead (same for v) 
    198201 
    199202----