Changeset 6226 for branches/NERC
- Timestamp:
- 2016-01-08T13:04:47+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/trcrst.F90
r6223 r6226 652 652 653 653 654 SUBROUTINE trc_rst_dia_stat 654 SUBROUTINE trc_rst_dia_stat( dgtr, names) 655 655 !!---------------------------------------------------------------------- 656 656 !! *** trc_rst_dia_stat *** … … 658 658 !! ** purpose : Compute tracers statistics 659 659 !!---------------------------------------------------------------------- 660 REAL(wp), DIMENSION(jpi,jpj) , INTENT(in) :: dgtr ! ocean time-step661 CHARACTER(len=*) , INTENT(in) :: names ! "READ"/"WRITE" flag660 REAL(wp), DIMENSION(jpi,jpj) , INTENT(in) :: dgtr ! 2D diag var 661 CHARACTER(len=*) , INTENT(in) :: names ! 2D diag name 662 662 !!--------------------------------------------------------------------- 663 663 INTEGER :: jk, jn
Note: See TracChangeset
for help on using the changeset viewer.