Changeset 10110


Ignore:
Timestamp:
2018-09-10T10:37:14+02:00 (22 months ago)
Author:
cbricaud
Message:

remove from namelist coarsening factors in NEMO_3.6 coarsening branch; only a factor of 3 in x and y direction is available

Location:
NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/CONFIG/SHARED/namelist_ref

    r7269 r10110  
    178178               !   passive tracer coarsened online simulations 
    179179!----------------------------------------------------------------------- 
    180    nn_factx    = 3         !  Reduction factor of x-direction 
    181    nn_facty    = 3         !  Reduction factor of y-direction 
    182180   nn_msh_crs  = 1         !  create (=1) a mesh file or not (=0) 
    183181   nn_crs_kz   = 0         ! 0, MEAN of volume boxes 
  • NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90

    r10107 r10110  
    7474      REAL(wp), DIMENSION(:,:,:), POINTER :: zfse3t, zfse3u, zfse3v, zfse3w 
    7575 
    76       NAMELIST/namcrs/ nn_factx, nn_facty, nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top 
     76      NAMELIST/namcrs/ nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top 
    7777      !!---------------------------------------------------------------------- 
    7878      ! 
     
    103103        WRITE(numout,*) 
    104104        WRITE(numout,*) 'crs_init: Namelist namcrs ' 
    105         WRITE(numout,*) '   coarsening factor in i-direction      nn_factx   = ', nn_factx 
    106         WRITE(numout,*) '   coarsening factor in j-direction      nn_facty   = ', nn_facty 
    107105        WRITE(numout,*) '   create (=1) a mesh file or not (=0)   nn_msh_crs = ', nn_msh_crs 
    108106        WRITE(numout,*) '   type of Kz coarsening (0,1,2)         nn_crs_kz  = ', nn_crs_kz 
     
    126124           CASE ( 3 ) ; WRITE(numout,*) '   coarsene KZ with MEANLOG(KZ)' 
    127125           CASE ( 4 ) ; WRITE(numout,*) '   coarsene KZ with MEDIANE(KZ)' 
    128        END SELECT 
    129  
     126        END SELECT 
     127 
     128        WRITE(numout,*) ' ' 
     129        WRITE(numout,*) 'Coarsening factor in i-direction and j-direction: ' 
     130        WRITE(numout,*) 'Be carefull: only nn_factx=nn_facty=3 available' 
    130131     ENDIF 
     132 
    131133               
    132134     rfactx_r = 1. / nn_factx 
Note: See TracChangeset for help on using the changeset viewer.