Changeset 3168 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

Timestamp:

2011-11-22T10:48:38+01:00 (12 years ago)

Author:

cbricaud

Message:

add timing, change dynamical allocation and correct small bugs

File:

• branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90 (modified) (3 diffs)

branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/DIA/diafwb.F90

@@ -22 +22 @@
    USE in_out_manager  ! I/O manager
    USE lib_mpp         ! distributed memory computing library
+   USE timing          ! preformance summary
 
    IMPLICIT NONE
@@ -61 +62 @@
       REAL(wp) ::  zsm0, zfwfnew
       !!----------------------------------------------------------------------
+      IF( nn_timing == 1 )   CALL timing_start('dia_fwb')
 
       ! Mean global salinity
@@ -438 +440 @@
       ENDIF
 
+      IF( nn_timing == 1 )   CALL timing_start('dia_fwb')
+
  9005 FORMAT(1X,A,ES24.16)
  9010 FORMAT(1X,A,ES12.5,A,F10.5,A)