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 7881 for trunk/NEMOGCM/NEMO – NEMO

Changeset 7881 for trunk/NEMOGCM/NEMO


Ignore:
Timestamp:
2017-04-07T10:33:13+02:00 (7 years ago)
Author:
cetlod
Message:

trunk: minor corrections to be able to compile and run ORCA2_LIM3 configuration referenced to ORCA2_LIM3_PISCES

Location:
trunk/NEMOGCM/NEMO/TOP_SRC
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90

    r7872 r7881  
    4444   PUBLIC   trc_nxt          ! routine called by step.F90 
    4545 
    46    REAL(wp) ::   r2dttrc, rfact1, rfact2 
     46   REAL(wp) ::   rfact1, rfact2 
    4747 
    4848   !!---------------------------------------------------------------------- 
    … …  
    113113         END DO 
    114114      ELSE      
    115          IF( .NOT. lk_offline ) THEN ! Leap-Frog + Asselin filter time stepping 
     115         IF( .NOT. l_offline ) THEN ! Leap-Frog + Asselin filter time stepping 
    116116            IF( ln_linssh ) THEN   ;   CALL tra_nxt_fix( kt, nittrc000,         'TRC', trb, trn, tra, jptra )  !     linear ssh 
    117117            ELSE                   ;   CALL tra_nxt_vvl( kt, nittrc000, rdttrc, 'TRC', trb, trn, tra,      & 

  • trunk/NEMOGCM/NEMO/TOP_SRC/oce_trc.F90

    r7646 r7881  
    77   !!             2.0  !  2007-12 (C. Ethe, G. Madec)  rewritting 
    88   !!---------------------------------------------------------------------- 
    9 #if defined key_top 
    10    !!---------------------------------------------------------------------- 
    11    !!   'key_top'                                                TOP models 
    12    !!---------------------------------------------------------------------- 
    13    ! 
    149   !                                            !* Domain size * 
    1510   USE par_oce , ONLY :   jpi      =>   jpi        !: first  dimension of grid --> i  
    … …  
    117112   USE zdfmxl , ONLY :   hmlpt       =>   hmlpt       !: mixed layer depth at t-points (m) 
    118113 
    119 #else 
    120    !!---------------------------------------------------------------------- 
    121    !!  Empty module :                                     No passive tracer 
    122    !!---------------------------------------------------------------------- 
    123 #endif 
    124  
    125    !!---------------------------------------------------------------------- 
    126    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    127    !! $Id$ 
    128    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    129    !!====================================================================== 
    130114END MODULE oce_trc 

  • trunk/NEMOGCM/NEMO/TOP_SRC/prtctl_trc.F90

    r7646 r7881  
    66   !! History :    -   !  2005-07  (C. Talandier) original code for OPA 
    77   !!             1.0  !  2005-10  (C. Ethe     ) adapted to passive tracer 
    8    !!---------------------------------------------------------------------- 
    9 #if defined key_top 
    10    !!---------------------------------------------------------------------- 
    11    !!   'key_top'                                                TOP models 
    128   !!---------------------------------------------------------------------- 
    139   !!   prt_ctl_trc      :   control print in mpp for passive tracers 
    … …  
    299295   END SUBROUTINE prt_ctl_trc_init 
    300296 
    301 #else 
    302    !!---------------------------------------------------------------------- 
    303    !!   Dummy module :                                    NO passive tracer 
    304    !!---------------------------------------------------------------------- 
    305 #endif 
    306   
    307    !!---------------------------------------------------------------------- 
    308    !! NEMO/TOP 3.3 , NEMO Consortium (2010) 
    309    !! $Id$  
    310    !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 
    311    !!======================================================================    
    312297END MODULE prtctl_trc 

  • trunk/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r7646 r7881  
    77   !!              -   !  2000-04  (O. Aumont, M.A. Foujols)  HAMOCC3 and P3ZD 
    88   !!   NEMO      1.0  !  2004-03  (C. Ethe)  Free form and module 
    9    !!---------------------------------------------------------------------- 
    10 #if defined key_top 
    11    !!---------------------------------------------------------------------- 
    12    !!   'key_top'                                                TOP models 
    139   !!---------------------------------------------------------------------- 
    1410   USE par_oce 
    … …  
    224220   END FUNCTION trc_alloc 
    225221 
    226 #else 
    227    !!---------------------------------------------------------------------- 
    228    !!  Empty module :                                     No passive tracer 
    229    !!---------------------------------------------------------------------- 
    230 #endif 
    231  
    232222   !!====================================================================== 
    233223END MODULE trc 
Note: See TracChangeset for help on using the changeset viewer.