Changeset 1124


Ignore:
Timestamp:
2008-06-20T23:22:18+02:00 (12 years ago)
Author:
cetlod
Message:

style of all top namelist has been modified ; update modules to take it into account, see ticket:196

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OFF_SRC/LDF/ldftra.F90

    r719 r1124  
    6969      LOGICAL ::   ll_print = .FALSE.   ! =T print eddy coef. in numout 
    7070        
    71       NAMELIST/nam_traldf/ ln_traldf_lap  , ln_traldf_bilap,                & 
     71      NAMELIST/namtraldf/ ln_traldf_lap  , ln_traldf_bilap,                & 
    7272         &                 ln_traldf_level, ln_traldf_hor, ln_traldf_iso,   & 
    7373         &                 aht0, ahtb0, aeiv0 
     
    7777      ! ============================================= 
    7878     
    79       ! Read Namelist nam_traldf : Lateral physics on tracers 
     79      ! Read Namelist namtraldf : Lateral physics on tracers 
    8080      REWIND( numnam ) 
    81       READ  ( numnam, nam_traldf ) 
     81      READ  ( numnam, namtraldf ) 
    8282 
    8383      IF(lwp) THEN 
     
    8585         WRITE(numout,*) 'ldf_tra_init : lateral tracer physics' 
    8686         WRITE(numout,*) '~~~~~~~~~~~~ ' 
    87          WRITE(numout,*) '          Namelist nam_traldf : lateral mixing coefficients' 
     87         WRITE(numout,*) '          Namelist namtraldf : lateral mixing coefficients' 
    8888         WRITE(numout,*) '             laplacian operator          ln_traldf_lap   = ', ln_traldf_lap 
    8989         WRITE(numout,*) '             bilaplacian operator        ln_traldf_bilap = ', ln_traldf_bilap 
Note: See TracChangeset for help on using the changeset viewer.