Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90
- Timestamp:
- 2012-01-28T17:44:18+01:00 (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90
r2715 r3294 21 21 USE phycst ! physical constants 22 22 USE obc_par ! open boundary condition parameters 23 USE obcdta ! open boundary condition data ( obc_dta_bt routine)23 USE obcdta ! open boundary condition data (bdy_dta_bt routine) 24 24 USE in_out_manager ! I/O manager 25 25 USE lib_mpp ! distributed memory computing library … … 28 28 USE iom ! I/O library 29 29 USE restart ! only for lrst_oce 30 USE timing ! Timing 31 30 32 31 33 IMPLICIT NONE … … 65 67 INTEGER :: ji, jj, jk ! dummy loop indices 66 68 !!---------------------------------------------------------------------- 67 69 ! 70 IF( nn_timing == 1 ) CALL timing_start('dyn_spg_exp') 71 ! 68 72 IF( kt == nit000 ) THEN 69 73 IF(lwp) WRITE(numout,*) … … 100 104 ENDIF 101 105 ! 106 IF( nn_timing == 1 ) CALL timing_stop('dyn_spg_exp') 107 ! 102 108 END SUBROUTINE dyn_spg_exp 103 109
Note: See TracChangeset
for help on using the changeset viewer.