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 776 – NEMO

Changeset 776


Ignore:
Timestamp:
2007-12-19T15:10:14+01:00 (16 years ago)
Author:
gm
Message:

dev_001_GM - passivetrc_substitute.h90 renamed top_substitute.h90 - compilation OK

Location:
branches/dev_001_GM/NEMO/TOP_SRC
Files:
27 edited
1 moved

Legend:

Unmodified
Added
Removed

  • branches/dev_001_GM/NEMO/TOP_SRC/CFC/trccfc.F90

    r768 r776  
    4747 
    4848   !! * Substitutions 
    49 #  include "passivetrc_substitute.h90" 
     49#  include "top_substitute.h90" 
    5050   !!---------------------------------------------------------------------- 
    5151   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/dev_001_GM/NEMO/TOP_SRC/LOBSTER/trcini_lobster.F90

    r772 r776  
    2727 
    2828#  include "domzgr_substitute.h90" 
    29 #  include "passivetrc_substitute.h90" 
     29#  include "top_substitute.h90" 
    3030   !!---------------------------------------------------------------------- 
    3131   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/dev_001_GM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

    r773 r776  
    3030 
    3131#  include "domzgr_substitute.h90" 
    32 #  include "passivetrc_substitute.h90" 
     32#  include "top_substitute.h90" 
    3333   !!---------------------------------------------------------------------- 
    3434   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_cen2.F90

    r772 r776  
    2323 
    2424   !! * Substitutions 
    25 #  include "passivetrc_substitute.h90" 
     25#  include "top_substitute.h90" 
    2626   !!---------------------------------------------------------------------- 
    2727   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

    r772 r776  
    2626 
    2727   !! * Substitutions 
    28 #  include "passivetrc_substitute.h90" 
     28#  include "top_substitute.h90" 
    2929   !!---------------------------------------------------------------------- 
    3030   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_muscl2.F90

    r772 r776  
    2929 
    3030   !! * Substitutions 
    31 #  include "passivetrc_substitute.h90" 
     31#  include "top_substitute.h90" 
    3232   !!---------------------------------------------------------------------- 
    3333   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_smolar.F90

    r772 r776  
    1212   !!                  FCT scheme 
    1313   !!---------------------------------------------------------------------- 
    14    !! * Modules used 
    1514   USE oce_trc             ! ocean dynamics and active tracers variables 
    1615   USE trc                 ! ocean passive tracers variables 
    … …  
    2221   PRIVATE 
    2322 
    24    !! * Accessibility 
    2523   PUBLIC trc_adv_smolar    ! routine called by trcstp.F90 
    2624 
    27    !! * Module variable 
    28    REAL(wp), DIMENSION(jpk) ::   & 
    29       rdttrc                     ! vertical profile of tracer time-step 
     25   REAL(wp), DIMENSION(jpk) ::   rdttrc       ! vertical profile of tracer time-step 
    3026  
    3127   !! * Substitutions 
    32 #  include "passivetrc_substitute.h90" 
     28#  include "top_substitute.h90" 
    3329   !!---------------------------------------------------------------------- 
    3430   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_tvd.F90

    r773 r776  
    2626 
    2727   !! * Substitutions 
    28 #  include "passivetrc_substitute.h90" 
     28#  include "top_substitute.h90" 
    2929   !!---------------------------------------------------------------------- 
    3030   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcbbc.F90

    r772 r776  
    3838  
    3939   !! * Substitutions 
    40 #  include "passivetrc_substitute.h90" 
     40#  include "top_substitute.h90" 
    4141   !!---------------------------------------------------------------------- 
    4242   !!  TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcbbl.F90

    r772 r776  
    6060 
    6161   !! * Substitutions 
    62 #  include "passivetrc_substitute.h90" 
     62#  include "top_substitute.h90" 
    6363   !!---------------------------------------------------------------------- 
    6464   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcdmp.F90

    r772 r776  
    1515   !!   cofdis       : compute the distance to the coastline 
    1616   !!---------------------------------------------------------------------- 
    17    !! * Modules used 
    1817   USE oce_trc         ! ocean dynamics and tracers variables 
    1918   USE trc             ! ocean passive tracers variables 
    … …  
    3534 
    3635   !! * Substitutions 
    37 #  include "passivetrc_substitute.h90" 
     36#  include "top_substitute.h90" 
    3837   !!---------------------------------------------------------------------- 
    3938   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_bilap.F90

    r772 r776  
    2424 
    2525   !! * Substitutions 
    26 #  include "passivetrc_substitute.h90" 
     26#  include "top_substitute.h90" 
    2727   !!---------------------------------------------------------------------- 
    2828   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_bilapg.F90

    r772 r776  
    2626 
    2727   !! * Substitutions 
    28 #  include "passivetrc_substitute.h90" 
     28#  include "top_substitute.h90" 
    2929   !!---------------------------------------------------------------------- 
    3030   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_iso.F90

    r772 r776  
    2525 
    2626   !! * Substitutions 
    27 #  include "passivetrc_substitute.h90" 
     27#  include "top_substitute.h90" 
    2828   !!---------------------------------------------------------------------- 
    2929   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_iso_zps.F90

    r772 r776  
    2424 
    2525   !! * Substitutions 
    26 #  include "passivetrc_substitute.h90" 
     26#  include "top_substitute.h90" 
    2727   !!---------------------------------------------------------------------- 
    2828   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcldf_lap.F90

    r772 r776  
    1111   !!                 using a iso-level harmonic (laplacien) operator. 
    1212   !!---------------------------------------------------------------------- 
    13    !! * Modules used 
    1413   USE oce_trc             ! ocean dynamics and active tracers variables 
    1514   USE trc                 ! ocean passive tracers variables 
    … …  
    2322 
    2423   !! * Substitutions 
    25 #  include "passivetrc_substitute.h90" 
     24#  include "top_substitute.h90" 
    2625   !!---------------------------------------------------------------------- 
    2726   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcrad.F90

    r772 r776  
    2424 
    2525   !! * Substitutions 
    26 #  include "passivetrc_substitute.h90" 
     26#  include "top_substitute.h90" 
    2727   !!---------------------------------------------------------------------- 
    2828   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcsbc.F90

    r772 r776  
    2323 
    2424   !! * Substitutions 
    25 #  include "passivetrc_substitute.h90" 
     25#  include "top_substitute.h90" 
    2626   !!---------------------------------------------------------------------- 
    2727   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_exp.F90

    r772 r776  
    2929 
    3030   !! * Substitutions 
    31 #  include "passivetrc_substitute.h90" 
     31#  include "top_substitute.h90" 
    3232   !!---------------------------------------------------------------------- 
    3333   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_imp.F90

    r772 r776  
    2828 
    2929   !! * Substitutions 
    30 #  include "passivetrc_substitute.h90" 
     30#  include "top_substitute.h90" 
    3131   !!---------------------------------------------------------------------- 
    3232   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_iso.F90

    r772 r776  
    3131 
    3232   !! * Substitutions 
    33 #  include "passivetrc_substitute.h90" 
     33#  include "top_substitute.h90" 
    3434   !!---------------------------------------------------------------------- 
    3535   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

    r772 r776  
    3434 
    3535   !! * Substitutions 
    36 #  include "passivetrc_substitute.h90" 
     36#  include "top_substitute.h90" 
    3737   !!---------------------------------------------------------------------- 
    3838   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/TRP/zpshde_trc.F90

    r772 r776  
    2929 
    3030   !! * Substitutions 
    31 #  include "passivetrc_substitute.h90" 
     31#  include "top_substitute.h90" 
    3232   !!---------------------------------------------------------------------- 
    3333   !!   TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/top_substitute.h90

    r774 r776  
    11   !!---------------------------------------------------------------------- 
    2    !!                    ***  passivetrc_substitute.h90   *** 
     2   !!                    ***  top_substitute.h90   *** 
    33   !!---------------------------------------------------------------------- 
    44   !! ** purpose : Statement function file: to be include in all routines 
    … …  
    66   !!---------------------------------------------------------------------- 
    77   !! History :   1.0  !  2004-03 (C. Ethe) Original code 
     8   !!             2.0  !  2007-12 (C. Ethe, G. Madec) new architecture 
    89   !!---------------------------------------------------------------------- 
    9    !! NEMO/TOP 1.0 , LOCEAN-IPSL (2007)  
    10    !! $Header:$  
     10   !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)  
     11   !! $Id:$  
    1112   !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
    1213   !!---------------------------------------------------------------------- 

  • branches/dev_001_GM/NEMO/TOP_SRC/trcdit.F90

    r772 r776  
    5959 
    6060   !! * Substitutions 
    61 #  include "passivetrc_substitute.h90" 
     61#  include "top_substitute.h90" 
    6262   !!---------------------------------------------------------------------- 
    6363   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/trcdta.F90

    r772 r776  
    3333 
    3434   !! * Substitutions 
    35 #  include "passivetrc_substitute.h90" 
     35#  include "top_substitute.h90" 
    3636   !!---------------------------------------------------------------------- 
    3737   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/trclec.F90

    r772 r776  
    2929 
    3030   !! * Substitutions 
    31 #  include "passivetrc_substitute.h90" 
     31#  include "top_substitute.h90" 
    3232   !!---------------------------------------------------------------------- 
    3333   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  

  • branches/dev_001_GM/NEMO/TOP_SRC/trcrst.F90

    r772 r776  
    3333 
    3434   !! * Substitutions 
    35 #  include "passivetrc_substitute.h90" 
     35#  include "top_substitute.h90" 
    3636   !!---------------------------------------------------------------------- 
    3737   !! NEMO/TOP 1.0 , LOCEAN-IPSL (2005)  
Note: See TracChangeset for help on using the changeset viewer.