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 2960 for branches – NEMO

Changeset 2960 for branches


Ignore:
Timestamp:
2011-10-19T11:26:30+02:00 (13 years ago)
Author:
cetlod
Message:

dev_r2787_PISCES_improvment:minor corrections

Location:
branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO/TOP_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO/TOP_SRC/PISCES/trcsms_pisces.F90

    r2959 r2960  
    143143      REAL(wp) ::  no3mean = 30.90     ! mean value of nitrate 
    144144      REAL(wp) ::  silmean = 91.51     ! mean value of silicate 
    145  
     145      ! 
     146      INTEGER  :: jk 
    146147      REAL(wp) :: zarea, zalksum, zpo4sum, zno3sum, zsilsum 
    147148      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zvolume     ! volume of ocean 

  • branches/2011/dev_r2787_PISCES_improvment/NEMOGCM/NEMO/TOP_SRC/trcrst.F90

    r2959 r2960  
    283283      !! ** purpose  :   Compute tracers statistics 
    284284      !!---------------------------------------------------------------------- 
    285  
    286       INTEGER  :: jn 
     285      INTEGER  :: jk, jn 
    287286      REAL(wp) :: zdiag_var, zdiag_varmin, zdiag_varmax, zdiag_tot 
    288287      REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: zvolume     ! volume of ocean 
    289288      REAL(wp) :: zareatot, zder 
    290289      !!---------------------------------------------------------------------- 
    291  
    292290 
    293291      IF( lwp ) THEN 
Note: See TracChangeset for help on using the changeset viewer.