Changeset 2027 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/cla.F90

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/cla.F90 (modified) (2 diffs)

branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/cla.F90

@@ -29 +29 @@
    !! * Routine accessibility
    PUBLIC tra_cla        ! routine called by step.F90
+   PUBLIC tra_cla_init   ! routine called by opa.F90
 
    !! * Modules variables   
@@ -76 +77 @@
       !!----------------------------------------------------------------------
  
-      ! cross land advection for straits
-
-      ! Initialization
-      IF( kt == nit000 )   CALL tra_cla_init
-
-
       ! Bab el Mandeb strait horizontal advection