Changeset 2027 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/DIA

Timestamp:

2010-07-29T13:33:05+02:00 (14 years ago)

Author:

cetlod

Message:

Reorganisation of the initialisation phase, see ticket:695

File:

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

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

@@ -23 +23 @@
    PRIVATE
 
-   PUBLIC   dia_ar5   ! routine called in step.F90 module
+   PUBLIC   dia_ar5        ! routine called in step.F90 module
+   PUBLIC   dia_ar5_init   ! routine called in opa.F90 module
 
    LOGICAL, PUBLIC, PARAMETER :: lk_diaar5 = .TRUE.   ! coupled flag
@@ -67 +68 @@
       REAL(wp), DIMENSION(jpi,jpj,jpk) ::   zrhd, zrhop
       !!--------------------------------------------------------------------
-
-      IF( kt == nit000  )   CALL dia_ar5_init   ! Initialization (first time-step only)
 
       CALL iom_put( 'cellthc', fse3t(:,:,:) )