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 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90 – NEMO

Ignore:
Timestamp:
2012-01-28T17:44:18+01:00 (12 years ago)
Author:
rblod
Message:

Merge of 3.4beta into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_exp.F90

    r2715 r3294  
    2121   USE phycst          ! physical constants 
    2222   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) 
    2424   USE in_out_manager  ! I/O manager 
    2525   USE lib_mpp         ! distributed memory computing library 
     
    2828   USE iom             ! I/O library 
    2929   USE restart         ! only for lrst_oce 
     30   USE timing          ! Timing 
     31 
    3032 
    3133   IMPLICIT NONE 
     
    6567      INTEGER ::   ji, jj, jk   ! dummy loop indices 
    6668      !!---------------------------------------------------------------------- 
    67  
     69      ! 
     70      IF( nn_timing == 1 )  CALL timing_start('dyn_spg_exp') 
     71      ! 
    6872      IF( kt == nit000 ) THEN 
    6973         IF(lwp) WRITE(numout,*) 
     
    100104      ENDIF 
    101105      ! 
     106      IF( nn_timing == 1 )  CALL timing_stop('dyn_spg_exp') 
     107      ! 
    102108   END SUBROUTINE dyn_spg_exp 
    103109 
Note: See TracChangeset for help on using the changeset viewer.