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/trcadv.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/trcadv.F90

    r3294 r3318  
    4949   INTEGER FUNCTION trc_adv_alloc() 
    5050      !!---------------------------------------------------------------------- 
    51       !!                  ***  ROUTINE trc_adv_alloc  *** 
    52       !!---------------------------------------------------------------------- 
    53  
     51      !!                  ***  FUNDCTION trc_adv_alloc  *** 
     52      !!---------------------------------------------------------------------- 
    5453      ALLOCATE( r2dt(jpk), STAT=trc_adv_alloc ) 
    55  
    5654      IF( trc_adv_alloc /= 0 ) CALL ctl_warn('trc_adv_alloc : failed to allocate array.') 
    57  
    5855   END FUNCTION trc_adv_alloc 
    5956 
     
    6764      !! ** Method  : - Update the tracer with the advection term following nadv 
    6865      !!---------------------------------------------------------------------- 
    69       !! 
    7066      INTEGER, INTENT(in) ::   kt   ! ocean time-step index 
    7167      ! 
    7268      INTEGER ::   jk  
    7369      CHARACTER (len=22) ::   charout 
    74       REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn  ! effective velocity 
     70      REAL(wp), POINTER, DIMENSION(:,:,:) ::   zun, zvn, zwn  ! effective velocity 
    7571      !!---------------------------------------------------------------------- 
    7672      ! 
Note: See TracChangeset for help on using the changeset viewer.