Ignore:
Timestamp:
2011-01-25T10:36:27+01:00 (10 years ago)
Author:
cetlod
Message:

rename nwritedia to nn_writedia, see ticket #791

Location:
trunk/NEMOGCM/NEMO/TOP_SRC
Files:
7 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcnam_c14b.F90

    r2528 r2567  
    5959      NAMELIST/namc14date/ ndate_beg_b, nyear_res_b 
    6060#if defined key_diatrc && ! defined key_iomput 
    61       NAMELIST/namc14dia/nwritedia, c14dia2d, c14dia3d     ! additional diagnostics 
     61      NAMELIST/namc14dia/nn_writedia, c14dia2d, c14dia3d     ! additional diagnostics 
    6262#endif 
    6363      !!------------------------------------------------------------------- 
     
    8585      ! Namelist namc14dia 
    8686      ! ------------------- 
    87       nwritedia = 10                   ! default values 
     87      nn_writedia = 10                   ! default values 
    8888 
    8989      DO jl = 1, jp_c14b_2d 
     
    121121         WRITE(numout,*) 
    122122         WRITE(numout,*) ' Namelist : natadd' 
    123          WRITE(numout,*) '    frequency of outputs for additional arrays nwritedia = ', nwritedia 
     123         WRITE(numout,*) '    frequency of outputs for additional arrays nn_writedia = ', nn_writedia 
    124124         DO jl = 1, jp_c14b_3d 
    125125            jn = jp_c14b0_3d + jl - 1 
  • trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

    r2528 r2567  
    5757      NAMELIST/namcfcdate/ ndate_beg, nyear_res 
    5858#if defined key_diatrc && ! defined key_iomput 
    59       NAMELIST/namcfcdia/nwritedia, cfcdia2d     ! additional diagnostics 
     59      NAMELIST/namcfcdia/nn_writedia, cfcdia2d     ! additional diagnostics 
    6060#endif 
    6161      !!------------------------------------------------------------------- 
     
    8383      ! Namelist namcfcdia 
    8484      ! ------------------- 
    85       nwritedia = 10                   ! default values 
     85      nn_writedia = 10                   ! default values 
    8686 
    8787      DO jl = 1, jp_cfc_2d 
     
    106106         WRITE(numout,*) 
    107107         WRITE(numout,*) ' Namelist : natadd' 
    108          WRITE(numout,*) '    frequency of outputs for additional arrays nwritedia = ', nwritedia 
     108         WRITE(numout,*) '    frequency of outputs for additional arrays nn_writedia = ', nn_writedia 
    109109         DO jl = 1, jp_cfc_2d 
    110110            jn = jp_cfc0_2d + jl - 1 
  • trunk/NEMOGCM/NEMO/TOP_SRC/LOBSTER/trcnam_lobster.F90

    r2528 r2567  
    7979      NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 
    8080#if defined key_diatrc && ! defined key_iomput 
    81       NAMELIST/namlobdia/nwritedia, lobdia3d, lobdia2d     ! additional diagnostics 
     81      NAMELIST/namlobdia/nn_writedia, lobdia3d, lobdia2d     ! additional diagnostics 
    8282#endif 
    8383#if defined key_diabio || defined key_trdmld_trc 
     
    283283      ! Namelist namlobdia 
    284284      ! ------------------- 
    285       nwritedia = 10                   ! default values 
     285      nn_writedia = 10                   ! default values 
    286286 
    287287      DO jl = 1, jp_lobster_2d 
     
    319319         WRITE(numout,*) 
    320320         WRITE(numout,*) ' Namelist : natadd' 
    321          WRITE(numout,*) '    frequency of outputs for additional arrays nwritedia = ', nwritedia 
     321         WRITE(numout,*) '    frequency of outputs for additional arrays nn_writedia = ', nn_writedia 
    322322         DO jl = 1, jp_lobster_3d 
    323323            jn = jp_lob0_3d + jl - 1 
  • trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90

    r2528 r2567  
    6565#endif 
    6666#if defined key_diatrc && ! defined key_iomput 
    67       NAMELIST/nampisdia/ nwritedia, pisdia3d, pisdia2d     ! additional diagnostics 
     67      NAMELIST/nampisdia/ nn_writedia, pisdia3d, pisdia2d     ! additional diagnostics 
    6868#endif 
    6969      NAMELIST/nampisdmp/ ln_pisdmp, ln_pisclo 
     
    125125      ! Namelist namlobdia 
    126126      ! ------------------- 
    127       nwritedia = 10                   ! default values 
     127      nn_writedia = 10                   ! default values 
    128128 
    129129      DO jl = 1, jp_pisces_2d 
     
    161161         WRITE(numout,*) 
    162162         WRITE(numout,*) ' Namelist : natadd' 
    163          WRITE(numout,*) '    frequency of outputs for additional arrays nwritedia = ', nwritedia 
     163         WRITE(numout,*) '    frequency of outputs for additional arrays nn_writedia = ', nn_writedia 
    164164         DO jl = 1, jp_pisces_3d 
    165165            jn = jp_pcs0_3d + jl - 1 
  • trunk/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r2528 r2567  
    8181#if defined key_diabio || defined key_trdmld_trc 
    8282   !                                                              !!*  namtop_XXX namelist * 
    83    INTEGER , PUBLIC                               ::   nwritebio   !: time step frequency for biological outputs  
     83   INTEGER , PUBLIC                               ::   nn_writebio   !: time step frequency for biological outputs  
    8484   CHARACTER(len=8 ), PUBLIC, DIMENSION(jpdiabio) ::   ctrbio      !: biological trends name       
    8585   CHARACTER(len=20), PUBLIC, DIMENSION(jpdiabio) ::   ctrbiu      !: biological trends unit    
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcdia.F90

    r2528 r2567  
    231231      !! 
    232232      !!        At each time step call histdef to compute the mean if necessary 
    233       !!        Each nwritedia time step, output the instantaneous or mean fields 
     233      !!        Each nn_writedia time step, output the instantaneous or mean fields 
    234234      !! 
    235235      !!        IF kindic <0, output of fields before the model interruption. 
     
    380380      !! 
    381381      !!        At each time step call histdef to compute the mean if necessary 
    382       !!        Each nwritebio time step, output the instantaneous or mean fields 
     382      !!        Each nn_writebio time step, output the instantaneous or mean fields 
    383383      !! 
    384384      !!        IF kindic <0, output of fields before the model interruption. 
  • trunk/NEMOGCM/NEMO/TOP_SRC/trcwri.F90

    r2528 r2567  
    6666      ! --------------------------------------- 
    6767      DO jn = 1, jptra 
    68          cltra = ctrcnm(jn)                   ! short title for tracer 
     68         cltra = TRIM( ctrcnm(jn) )                  ! short title for tracer 
    6969         CALL iom_put( cltra, trn(:,:,:,jn) ) 
    7070      END DO 
Note: See TracChangeset for help on using the changeset viewer.