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 34 for trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90 – NEMO

Ignore:
Timestamp:
2004-02-17T16:07:07+01:00 (20 years ago)
Author:
opalod
Message:

CT : BUGFIX016 : Compilation error is solved

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/NEMO/OPA_SRC/TRA/trazdf_iso.F90

    r32 r34  
    126126         ztavg, zsavg,          &  ! ??? 
    127127         zcoef0, zcoef3,        &  ! ??? 
    128          zcoef4, zcoeg3, zavi,  &  ! ??? 
     128         zcoef4, zavi,          &  ! ??? 
    129129         zbtr, zmku, zmkv,      &  ! 
    130          zuwki, zvwki, zuwk,    &  ! 
    131          zvwk, ztav, zsav 
     130         ztav, zsav 
    132131      REAL(wp), DIMENSION(jpi,jpk) ::   & 
    133132         zwd, zws, zwi,         &  ! ??? 
    … …  
    136135         ztfw, zdit, zdjt, zdj1t,   & 
    137136         zsfw, zdis, zdjs, zdj1s,   & 
    138          zavt, zavs 
     137         zavt 
    139138#if defined key_traldf_eiv   ||   defined key_esopa 
    140139      REAL(wp), DIMENSION(jpi,jpk) ::   & 
    141          ztfwg, zsfwg 
     140         ztfwg, zsfwg, zcoeg3,          & 
     141         zuwk, zvwk,                    & 
     142         zuwki, zvwki, zavs 
    142143#endif 
    143144      !!--------------------------------------------------------------------- 
    … …  
    219220         ztfw(:,jpk) = 0.e0 
    220221         zsfw(:,jpk) = 0.e0 
    221          IF( lk_traldf_eiv ) THEN 
    222             ztfwg(:, 1 ) = 0.e0 
    223             zsfwg(:, 1 ) = 0.e0 
    224             ztfwg(:,jpk) = 0.e0 
    225             zsfwg(:,jpk) = 0.e0 
    226          ENDIF 
     222#if defined key_traldf_eiv 
     223         ztfwg(:, 1 ) = 0.e0 
     224         zsfwg(:, 1 ) = 0.e0 
     225         ztfwg(:,jpk) = 0.e0 
     226         zsfwg(:,jpk) = 0.e0 
     227#endif 
    227228 
    228229         ! interior (2=<jk=<jpk-1) 
    … …  
    276277         END DO 
    277278 
     279#if defined key_traldf_eiv 
    278280         !                              ! ---------------------------------------! 
    279          IF( lk_traldf_eiv ) THEN       ! Eddy induced vertical advective fluxes ! 
    280             !                           ! ---------------------------------------! 
     281         !                              ! Eddy induced vertical advective fluxes ! 
     282         !                              ! ---------------------------------------! 
    281283#if defined key_traldf_c2d || defined key_traldf_c3d 
    282284            DO jk = 2, jpkm1 
    … …  
    330332            END DO 
    331333#endif 
    332          ENDIF 
     334 
     335#endif 
    333336 
    334337         ! I.5 Divergence of vertical fluxes added to the general tracer trend 
Note: See TracChangeset for help on using the changeset viewer.