- Timestamp:
- 2012-02-25T16:50:01+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3309_LOCEAN12_Ediag/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r3294 r3318 49 49 INTEGER FUNCTION trc_adv_alloc() 50 50 !!---------------------------------------------------------------------- 51 !! *** ROUTINE trc_adv_alloc *** 52 !!---------------------------------------------------------------------- 53 51 !! *** FUNDCTION trc_adv_alloc *** 52 !!---------------------------------------------------------------------- 54 53 ALLOCATE( r2dt(jpk), STAT=trc_adv_alloc ) 55 56 54 IF( trc_adv_alloc /= 0 ) CALL ctl_warn('trc_adv_alloc : failed to allocate array.') 57 58 55 END FUNCTION trc_adv_alloc 59 56 … … 67 64 !! ** Method : - Update the tracer with the advection term following nadv 68 65 !!---------------------------------------------------------------------- 69 !!70 66 INTEGER, INTENT(in) :: kt ! ocean time-step index 71 67 ! 72 68 INTEGER :: jk 73 69 CHARACTER (len=22) :: charout 74 REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn ! effective velocity70 REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn ! effective velocity 75 71 !!---------------------------------------------------------------------- 76 72 !
Note: See TracChangeset
for help on using the changeset viewer.