New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2027 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/cla.F90 – NEMO

Ignore:
Timestamp:
2010-07-29T13:33:05+02:00 (14 years ago)
Author:
cetlod
Message:

Reorganisation of the initialisation phase, see ticket:695

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/cla.F90

    r2000 r2027  
    2929   !! * Routine accessibility 
    3030   PUBLIC tra_cla        ! routine called by step.F90 
     31   PUBLIC tra_cla_init   ! routine called by opa.F90 
    3132 
    3233   !! * Modules variables    
     
    7677      !!---------------------------------------------------------------------- 
    7778  
    78       ! cross land advection for straits 
    79  
    80       ! Initialization 
    81       IF( kt == nit000 )   CALL tra_cla_init 
    82  
    83  
    8479      ! Bab el Mandeb strait horizontal advection 
    8580 
Note: See TracChangeset for help on using the changeset viewer.