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 2082 for branches/DEV_r2006_merge_TRA_TRC/NEMO/OPA_SRC/opa.F90 – NEMO

Ignore:
Timestamp:
2010-09-10T12:32:58+02:00 (14 years ago)
Author:
cetlod
Message:

Improve the merge of TRA-TRC, see ticket #717

File:
1 edited

Legend:

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

    r2052 r2082  
    3737   USE step_oce        ! Time stepping module definition 
    3838   USE sbc_oce         ! surface boundary condition: ocean 
    39    USE trdmod_oce      ! ocean variables trends 
    4039   USE domcfg          ! domain configuration               (dom_cfg routine) 
    4140   USE mppini          ! shared/distributed memory setting (mpp_init routine) 
     
    4847   USE zdfini 
    4948   USE phycst          ! physical constant                  (par_cst routine) 
    50    USE trdmod          ! momentum/tracers trends       (trd_mod_init routine) 
    5149   USE step            ! OPA time-stepping                  (stp     routine) 
    5250#if defined key_oasis3 
     
    160158      !! 
    161159      !!---------------------------------------------------------------------- 
    162 #if defined key_oasis3 || defined key_oasis4 || defined key_iomput 
    163160      INTEGER :: ilocal_comm 
    164 #endif 
    165161      CHARACTER(len=80),dimension(10) ::   cltxt = '' 
    166162      INTEGER                         ::   ji   ! local loop indices 
     
    192188      narea = mynode( cltxt, ilocal_comm )    ! Nodes selection (control print return in cltxt) 
    193189# else 
     190      ilocal_comm = 0 
    194191      narea = mynode( cltxt )                 ! Nodes selection (control print return in cltxt) 
    195192# endif 
     
    220217      !                             !--------------------------------! 
    221218 
    222       CALL opa_flg                          ! Control prints & Benchmark 
    223  
    224                                             ! Domain decomposition 
     219      CALL opa_flg                           ! Control prints & Benchmark 
     220 
     221      !                                      ! Domain decomposition 
    225222      IF( jpni*jpnj == jpnij ) THEN   ;   CALL mpp_init      ! standard cutting out 
    226223      ELSE                            ;   CALL mpp_init2     ! eliminate land processors 
     
    231228      
    232229 
     230      !                                      ! General initialization 
    233231                            CALL     phy_cst    ! Physical constants 
    234232                            CALL     eos_init   ! Equation of state 
     
    245243 
    246244      !                                     ! Ocean physics 
    247                             CALL     sbc_init   ! Read namsbc namelist : surface module (needed for iom_init) 
    248  
    249       !                                     ! Vertical physics 
    250                             CALL     zdf_init   ! namelist read 
    251                             CALL zdf_bfr_init   ! bottom friction 
    252       IF( lk_zdfric     )   CALL zdf_ric_init   ! Richardson number dependent Kz 
    253       IF( lk_zdftke_old )   CALL zdf_tke_init   ! TKE closure scheme for Kz (old scheme) 
    254       IF( lk_zdftke     )   CALL     tke_init   ! TKE closure scheme for Kz 
    255       IF( lk_zdfkpp     )   CALL zdf_kpp_init   ! KPP closure scheme for Kz 
    256       IF( lk_zdftmx     )   CALL zdf_tmx_init   ! tidal vertical mixing 
     245                            CALL     sbc_init   !  Forcings : surface module  
     246 
     247      !                                         ! Vertical physics 
     248                            CALL     zdf_init      ! namelist read 
     249                            CALL zdf_bfr_init      ! bottom friction 
     250      IF( lk_zdfric     )   CALL zdf_ric_init      ! Richardson number dependent Kz 
     251      IF( lk_zdftke_old )   CALL zdf_tke_init      ! TKE closure scheme for Kz (old scheme) 
     252      IF( lk_zdftke     )   CALL     tke_init      ! TKE closure scheme for Kz 
     253      IF( lk_zdfkpp     )   CALL zdf_kpp_init      ! KPP closure scheme for Kz 
     254      IF( lk_zdftmx     )   CALL zdf_tmx_init      ! tidal vertical mixing 
    257255      IF( lk_zdfddm .AND. .NOT. lk_zdfkpp )   &  
    258          &                  CALL zdf_ddm_init   ! double diffusive mixing 
    259       !                                     ! Lateral physics 
    260                             CALL ldf_tra_init   ! Lateral ocean tracer physics 
    261                             CALL ldf_dyn_init   ! Lateral ocean momentum physics 
    262       IF( lk_ldfslp )       CALL ldf_slp_init   ! slope of lateral mixing 
     256         &                  CALL zdf_ddm_init      ! double diffusive mixing 
     257      !                                         ! Lateral physics 
     258                            CALL ldf_tra_init      ! Lateral ocean tracer physics 
     259                            CALL ldf_dyn_init      ! Lateral ocean momentum physics 
     260      IF( lk_ldfslp )       CALL ldf_slp_init      ! slope of lateral mixing 
     261 
    263262      !                                     ! Active tracers 
    264263                            CALL tra_qsr_init   ! penetrative solar radiation qsr 
     
    280279#if defined key_top 
    281280      !                                     ! Passive tracers 
    282                             CALL     trc_ini 
    283 #endif 
    284  
     281                            CALL     trc_init 
     282#endif 
    285283      !                                     ! diagnostics 
    286284                            CALL     iom_init   ! iom_put initialization 
Note: See TracChangeset for help on using the changeset viewer.