- Timestamp:
- 2017-12-19T09:26:25+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90
r7646 r9124 35 35 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 36 36 !!---------------------------------------------------------------------- 37 38 37 CONTAINS 39 38 … … 56 55 !! trend of passive tracers is saved for futher diagnostics. 57 56 !!--------------------------------------------------------------------- 58 !!59 57 INTEGER, INTENT( in ) :: kt ! ocean time-step index 60 ! !58 ! 61 59 INTEGER :: ji, jj, jk, jl, ierr 62 60 CHARACTER (len=25) :: charout … … 65 63 !!--------------------------------------------------------------------- 66 64 ! 67 IF( nn_timing == 1 )CALL timing_start('p2z_sed')65 IF( ln_timing ) CALL timing_start('p2z_sed') 68 66 ! 69 67 IF( kt == nittrc000 ) THEN … … 119 117 ENDIF 120 118 ! 121 IF( nn_timing == 1 )CALL timing_stop('p2z_sed')119 IF( ln_timing ) CALL timing_stop('p2z_sed') 122 120 ! 123 121 END SUBROUTINE p2z_sed 122 124 123 125 124 SUBROUTINE p2z_sed_init
Note: See TracChangeset
for help on using the changeset viewer.