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/OPA_SRC/TRA/trazdf_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/OPA_SRC/TRA/trazdf_iso_vopt.F90

    r216 r247  
    4747#  include "vectopt_loop_substitute.h90" 
    4848   !!---------------------------------------------------------------------- 
    49  
     49   !!---------------------------------------------------------------------- 
     50   !!  OPA 9.0 , LOCEAN-IPSL (2005)  
     51   !! $Header$  
     52   !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt  
     53   !!---------------------------------------------------------------------- 
    5054CONTAINS 
    5155    
    … …  
    6670      !! * Local variables 
    6771      REAL(wp) :: zta, zsa               ! temporary scalars 
    68       !!--------------------------------------------------------------------- 
    69       !!  OPA 8.5, LODYC-IPSL (2002) 
    70       !!--------------------------------------------------------------------- 
    7172 
    7273      IF( kt == nit000 ) THEN 
    … …  
    174175      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   & 
    175176         zwi, zwt, zavsi                     ! temporary workspace arrays 
    176       !!--------------------------------------------------------------------- 
    177       !!  OPA 8.5, LODYC-IPSL (2002) 
    178       !!--------------------------------------------------------------------- 
     177 
    179178 
    180179 
    … …  
    500499      REAL(wp), DIMENSION(jpi,jpj,jpk) ::   & 
    501500         zwz, zwt, ztfw, zsfw       ! temporary workspace arrays 
    502       !!--------------------------------------------------------------------- 
    503       !!  OPA 8.5, LODYC-IPSL (2002) 
    504       !!--------------------------------------------------------------------- 
    505501 
    506502 
Note: See TracChangeset for help on using the changeset viewer.