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 247 for trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90 – NEMO

Ignore:
Timestamp:
2005-03-27T20:35:47+02:00 (19 years ago)
Author:
opalod
Message:

CL : Add CVS Header and CeCILL licence information

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/TOP_SRC/TRP/trczdf_iso_vopt.F90

    r202 r247  
    3434#  include "passivetrc_substitute.h90" 
    3535   !!---------------------------------------------------------------------- 
    36  
     36   !!---------------------------------------------------------------------- 
     37   !!  TOP 1.0 , LOCEAN-IPSL (2005) 
     38   !! $Header$ 
     39   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
     40   !!---------------------------------------------------------------------- 
    3741CONTAINS 
    3842    
    … …  
    5155      !! * Arguments 
    5256      INTEGER, INTENT( in ) ::   kt      ! ocean time-step index 
    53       !!--------------------------------------------------------------------- 
    54       !!  OPA 8.5, LODYC-IPSL (2002) 
    55       !!--------------------------------------------------------------------- 
    5657 
    5758      IF( kt == nittrc000 ) THEN 
    … …  
    150151         zwi, zwt, zavsi                     ! temporary workspace arrays 
    151152      REAL(wp) ::    ztra              !temporary scalars 
    152       !!--------------------------------------------------------------------- 
    153       !!  OPA 8.5, LODYC-IPSL (2002) 
    154       !!--------------------------------------------------------------------- 
    155153 
    156154 
    … …  
    402400         zwz, zwt, ztfw             ! temporary workspace arrays 
    403401      REAL(wp) ::    ztra              !temporary scalars 
    404       !!--------------------------------------------------------------------- 
    405       !!  OPA 8.5, LODYC-IPSL (2002) 
    406       !!--------------------------------------------------------------------- 
     402 
    407403 
    408404      DO jn = 1, jptra 
Note: See TracChangeset for help on using the changeset viewer.