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 281 for trunk/NEMO/TOP_SRC – NEMO

Changeset 281 for trunk/NEMO/TOP_SRC


Ignore:
Timestamp:
2005-09-22T12:17:53+02:00 (19 years ago)
Author:
opalod
Message:

nemo_v1_compil_001 : CT : passive tracers compilation error correction

Location:
trunk/NEMO/TOP_SRC
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/TOP_SRC/SMS/sms_age.h90

    r274 r281  
    2424      REAL tauage1, tauage2 
    2525 
    26       COMMON/cotage/  tauage1, tauage2 
    2726!! 
    2827#endif 
  • trunk/NEMO/TOP_SRC/TRP/trctrp_ctl.F90

    r274 r281  
    312312      l_trczdf_imp = .TRUE.  
    313313#else 
    314       IF( ln_zdfexp  ) THEN   
     314      IF( l_trazdf_exp  ) THEN   
    315315         l_trczdf_exp = .TRUE.           ! use explicit scheme 
    316316         l_trczdf_imp = .FALSE. 
  • trunk/NEMO/TOP_SRC/oce_trc.F90

    r274 r281  
    118118      lk_dynspg_fsc_tsk   =>  lk_dynspg_fsc_tsk      !: free surface constant volume flag 
    119119 
    120    USE zdf_oce,    ONLY :          & 
    121       ln_zdfnpc   =>   ln_zdfnpc      !: convection: non-penetrative convection flag 
    122  
    123120#if defined key_partial_steps 
    124121   !! Partial steps ('key_partial_steps') 
     
    234231   !! vertical diffusion 
    235232   USE zdf_oce , ONLY :      &     
    236       avt     =>   avt    ,  & !: vert. diffusivity coef. at w-point for temp   
    237       avt0    =>   avt0        !: vertical eddy diffusivity for tracers (m2/s) 
     233      avt            =>   avt          ,  & !: vert. diffusivity coef. at w-point for temp   
     234      avt0           =>   avt0         ,  & !: vertical eddy diffusivity for tracers (m2/s) 
     235      ln_zdfnpc      =>   ln_zdfnpc    ,  & !: convection: non-penetrative convection flag 
     236      l_trazdf_exp   =>   l_trazdf_exp      !: explicit vertical diffusion scheme flag 
     237 
    238238 
    239239#if defined key_zdfddm 
Note: See TracChangeset for help on using the changeset viewer.