New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3318 for branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/TRP/trdmod_trc_oce.F90 – NEMO

Ignore:
Timestamp:
2012-02-25T16:50:01+01:00 (12 years ago)
Author:
gm
Message:

Ediag branche: #927 split TRA/DYN trd computation

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/TRP/trdmod_trc_oce.F90

    r2715 r3318  
    3838 
    3939   INTEGER, PARAMETER ::            & !: mixed layer trends indices 
    40         jpmld_trc_xad     =  1,     & !:     zonal      \ 
    41         jpmld_trc_yad     =  2,     & !:     meridonal   > advection 
    42         jpmld_trc_zad     =  3,     & !:     vertical   / 
    43         jpmld_trc_ldf     =  4,     & !:     lateral diffusion (geopot. or iso-neutral) 
    44         jpmld_trc_zdf     =  5,     & !:     vertical diffusion (TKE) 
    45         jpmld_trc_bbl     =  6,     & !:     bottom boundary layer (advective/diffusive) 
    46         jpmld_trc_dmp     =  7,     & !:     internal restoring trend 
    47         jpmld_trc_sbc     =  8,     & !:     forcing  
    48         jpmld_trc_sms     =  9,     & !:     sources minus sinks trend 
    49   !     jpmld_trc_xxx     = xx,     & !:     add here any additional trend    (** AND UPDATE JPLTRD_TRC BELOW **) 
    50         jpmld_trc_radn    = 10,     & !:     corr. trn<0 in trcrad 
    51         jpmld_trc_radb    = 11,     & !:     corr. trb<0 in trcrad (like atf) (** MUST BE BEFORE THE LAST ONE **) 
    52         jpmld_trc_atf     = 12        !:     asselin trend                    (** MUST BE    THE      LAST ONE**) 
     40        jpmld_trc_xad     =  1,     & !: zonal     advection 
     41        jpmld_trc_yad     =  2,     & !: meridonal advection 
     42        jpmld_trc_zad     =  3,     & !: vertical  advection 
     43        jpmld_trc_ldf     =  4,     & !: lateral diffusion (geopot. or iso-neutral) 
     44        jpmld_trc_zdf     =  5,     & !: vertical diffusion (TKE) 
     45        jpmld_trc_bbl     =  6,     & !: bottom boundary layer (advective/diffusive) 
     46        jpmld_trc_dmp     =  7,     & !: internal restoring trend 
     47        jpmld_trc_sbc     =  8,     & !: forcing  
     48        jpmld_trc_sms     =  9,     & !: sources minus sinks trend 
     49  !     jpmld_trc_xxx     = xx,     & !: add here any additional trend    (** AND UPDATE JPLTRD_TRC BELOW **) 
     50        jpmld_trc_radn    = 10,     & !: corr. trn<0 in trcrad 
     51        jpmld_trc_radb    = 11,     & !: corr. trb<0 in trcrad (like atf) (** MUST BE BEFORE THE LAST ONE **) 
     52        jpmld_trc_atf     = 12        !: asselin trend                    (** MUST BE    THE      LAST ONE**) 
    5353 
    5454   !! Trends diagnostics parameters 
    … …  
    7373 
    7474   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  & 
    75       tml_trc    ,                        &      !: \ "now" mixed layer temperature/salinity 
    76       tmlb_trc   ,                        &      !: / and associated "before" fields 
    77       tmlbb_trc  ,                        &      !: \ idem, but valid at the 1rst time step of the 
    78       tmlbn_trc  ,                        &      !: / current analysis window 
     75      tml_trc    ,                        &      !: "now" mixed layer temperature/salinity 
     76      tmlb_trc   ,                        &      !: and associated "before" fields 
     77      tmlbb_trc  ,                        &      !: idem, but valid at the 1rst time step of the 
     78      tmlbn_trc  ,                        &      !: current analysis window 
    7979      tml_sum_trc,                        &      !: mixed layer T, summed over the current analysis period 
    8080      tml_sumb_trc,                       &      !: idem, but from the previous analysis period 
    … …  
    9393 
    9494   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:,:) ::  & 
    95       tmltrd_trc,                         &      !: \ physical contributions to the total trend (for T/S), 
    96                                                  !: / cumulated over the current analysis window 
     95      tmltrd_trc,                         &      !: physical contributions to the total trend (for T/S), 
     96                                                 !: cumulated over the current analysis window 
    9797      tmltrd_sum_trc,                     &      !: sum of these trends over the analysis period 
    9898      tmltrd_csum_ln_trc,                 &      !: now cumulated sum of trends over the "lower triangle" 
    … …  
    109109   CHARACTER(LEN=80) :: clname_bio, ctrd_bio(jpdiabio,2) 
    110110   REAL(wp), ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::  & 
    111       tmltrd_bio,                         &      !: \ biological contributions to the total trend , 
    112                                                  !: / cumulated over the current analysis window 
     111      tmltrd_bio,                         &      !: biological contributions to the total trend , 
     112                                                 !: cumulated over the current analysis window 
    113113      tmltrd_sum_bio,                     &      !: sum of these trends over the analysis period 
    114114      tmltrd_csum_ln_bio,                 &      !: now cumulated sum of trends over the "lower triangle" 
Note: See TracChangeset for help on using the changeset viewer.