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 2025 for branches/DEV_r2006_merge_TRA_TRC – NEMO

Ignore:
Timestamp:
2010-07-29T13:00:46+02:00 (14 years ago)
Author:
cetlod
Message:

Define 4D T/S arrays and tracer index, see ticket:693

Location:
branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/oce.F90

    r1601 r2025  
    4949   REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   sshf_b ,  sshf_n  ,  sshf_a  !: sea surface height at f-point [m] 
    5050 
     51   REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jpts) ::  tsb, tsn, tsa         !: 4D array for T & S  
     52   !                                                                       !: ( tb, sb),  (tn, sn ),  (ta, sa ) 
     53 
    5154   !!---------------------------------------------------------------------- 
    5255   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2008)  

  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/par_oce.F90

    r1647 r2025  
    178178#endif 
    179179 
     180   INTEGER, PUBLIC, PARAMETER :: jpts   = 2    !: Number of active tracers ( T & S ) 
     181   INTEGER, PUBLIC, PARAMETER :: jp_tem = 1    !: indice for temperature 
     182   INTEGER, PUBLIC, PARAMETER :: jp_sal = 2    !: indice for salinity 
     183 
    180184   !!--------------------------------------------------------------------- 
    181185   !! Domain Matrix size 
Note: See TracChangeset for help on using the changeset viewer.