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 1749 for trunk/NEMO/OFF_SRC/opa.F90 – NEMO

Ignore:
Timestamp:
2009-11-23T11:52:11+01:00 (15 years ago)
Author:
cetlod
Message:

update opa.F90 and step.F90 modules, see ticket:609

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OFF_SRC/opa.F90

    r1715 r1749  
    216216       
    217217      CALL phy_cst                          ! Physical constants 
    218  
    219218      CALL eos_init                         ! Equation of state 
    220  
    221219      CALL dom_cfg                          ! Domain configuration 
    222  
    223220      CALL dom_init                         ! Domain 
    224  
    225221      CALL istate_init                      ! ocean initial state (Dynamics and tracers) 
    226        
     222      CALL trc_ini                           ! Passive tracers 
    227223      CALL dta_dyn( nit000 )                 ! Initialization for the dynamics 
    228        
    229       CALL trc_ini                           ! Passive tracers 
    230       !                                     ! Ocean physics 
    231224      CALL tra_qsr_init                         ! Solar radiation penetration 
    232  
    233225#if ! defined key_off_degrad 
    234226      CALL ldf_tra_init                         ! Lateral ocean tracer physics 
    235227#endif  
    236       CALL iom_init( fjulday - adatrj )     ! iom_put initialization 
    237       !                                     ! =============== ! 
    238       !                                     !  time stepping  ! 
    239       !                                     ! =============== ! 
     228      CALL iom_init                         ! iom_put initialization 
    240229 
    241230      IF(lwp) WRITE(numout,cform_aaa)       ! Flag AAAAAAA 
Note: See TracChangeset for help on using the changeset viewer.