Changeset 3995 for branches/2013/dev_r3948_NOC_FK/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

Timestamp:

2013-07-31T14:27:58+02:00 (11 years ago)

Author:

gm

Message:

dev_r3406_CNRS_LIM3: fix a bug on zpsim_v and remove unnecessary print

File:

• branches/2013/dev_r3948_NOC_FK/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90 (modified) (2 diffs)

branches/2013/dev_r3948_NOC_FK/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

@@ -22 +22 @@
    USE traadv_qck      ! QUICKEST scheme           (tra_adv_qck    routine)
    USE traadv_eiv      ! eddy induced velocity     (tra_adv_eiv    routine)
-   USE traadv_mle      ! ML eddy induced velocity  (tra_adv_eiv    routine)
+   USE traadv_mle      ! ML eddy induced velocity  (tra_adv_mle    routine)
    USE cla             ! cross land advection      (cla_traadv     routine)
    USE ldftra_oce      ! lateral diffusion coefficient on tracers
@@ -139 +139 @@
          &                       tab3d_2=tsa(:,:,:,jp_sal), clinfo2=       ' Sa: ', mask2=tmask, clinfo3='tra' )
       !
-      IF( nn_timing == 1 )  CALL timing_stop('tra_adv')
+      IF( nn_timing == 1 )  CALL timing_stop( 'tra_adv' )
       !
       CALL wrk_dealloc( jpi, jpj, jpk, zun, zvn, zwn )