Changeset 2104 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DIA/diaar5.F90

Timestamp:

2010-09-17T14:35:46+02:00 (14 years ago)

Author:

cetlod

Message:

update DEV_r2006_merge_TRA_TRC according to review

File:

• branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DIA/diaar5.F90 (modified) (6 diffs)

branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DIA/diaar5.F90

@@ -4 +4 @@
    !! AR5 diagnostics
    !!======================================================================
-   !! History : 3.2  !  2009-11  (S. Masson)  Original code
+   !! History :  3.2  !  2009-11  (S. Masson)  Original code
+   !!            3.3  !  2010-10  (C. Ethe, G. Madec) reorganisation of initialisation phase + merge TRC-TRA
    !!----------------------------------------------------------------------
 #if defined key_diaar5
@@ -10 +11 @@
    !!   'key_diaar5'  :                           activate ar5 diagnotics
    !!----------------------------------------------------------------------
-   !!   exa_mpl       : liste of module subroutine (caution, never use the
-   !!   exa_mpl_init  : name of the module for a routine)
-   !!   exa_mpl_stp   : Please try to use 3 letter block for routine names
+   !!   dia_ar5       : AR5 diagnostics
+   !!   dia_ar5_init  : initialisation of AR5 diagnostics
    !!----------------------------------------------------------------------
    USE oce            ! ocean dynamics and active tracers 
@@ -37 +37 @@
 #  include "domzgr_substitute.h90"
    !!----------------------------------------------------------------------
-   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
-   !! $Id$ 
+   !! NEMO/OPA 3.3 , LOCEAN-IPSL (2010) 
+   !! $Id$
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
    !!----------------------------------------------------------------------
@@ -48 +48 @@
       !!                    ***  ROUTINE dia_ar5  ***
       !!
-      !! ** Purpose :   Brief description of the routine
-      !!
-      !! ** Method  :   description of the methodoloy used to achieve the
-      !!                objectives of the routine. Be as clear as possible!
-      !!
-      !! ** Action  : - first action (share memory array/varible modified
-      !!                in this routine
-      !!              - second action .....
-      !!              - .....
-      !!
-      !! References :   Author et al., Short_name_review, Year
-      !!                Give references if exist otherwise suppress these lines
+      !! ** Purpose :   compute and output some AR5 diagnostics
+      !!
       !!----------------------------------------------------------------------
       INTEGER, INTENT( in ) ::   kt   ! ocean time-step index
@@ -155 +145 @@
       !!                  ***  ROUTINE dia_ar5_init  ***
       !!                   
-      !! ** Purpose :   initialization of ....
-      !!
-      !! ** Method  :   blah blah blah ...
-      !!
-      !! ** input   :   Namlist namexa
-      !!
-      !! ** Action  :   ...  
+      !! ** Purpose :   initialization for AR5 diagnostic computation
+      !!
       !!----------------------------------------------------------------------
       INTEGER  ::   inum
@@ -206 +191 @@
    !!   Default option :                                         NO diaar5
    !!----------------------------------------------------------------------
-
    LOGICAL, PUBLIC, PARAMETER :: lk_diaar5 = .FALSE.   ! coupled flag
-
 CONTAINS
-
+   SUBROUTINE dia_ar5_init    ! Dummy routine
+   END SUBROUTINE dia_ar5_init
    SUBROUTINE dia_ar5( kt )   ! Empty routine
-      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index
+      INTEGER ::   kt
       WRITE(*,*) 'dia_ar5: You should not have seen this print! error?', kt
    END SUBROUTINE dia_ar5