- Timestamp:
- 2018-09-10T10:37:14+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r5003_MERCATOR6_CRS/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90
r10107 r10110 74 74 REAL(wp), DIMENSION(:,:,:), POINTER :: zfse3t, zfse3u, zfse3v, zfse3w 75 75 76 NAMELIST/namcrs/ nn_ factx, nn_facty, nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top76 NAMELIST/namcrs/ nn_msh_crs, nn_crs_kz, ln_crs_wn, ln_crs_top 77 77 !!---------------------------------------------------------------------- 78 78 ! … … 103 103 WRITE(numout,*) 104 104 WRITE(numout,*) 'crs_init: Namelist namcrs ' 105 WRITE(numout,*) ' coarsening factor in i-direction nn_factx = ', nn_factx106 WRITE(numout,*) ' coarsening factor in j-direction nn_facty = ', nn_facty107 105 WRITE(numout,*) ' create (=1) a mesh file or not (=0) nn_msh_crs = ', nn_msh_crs 108 106 WRITE(numout,*) ' type of Kz coarsening (0,1,2) nn_crs_kz = ', nn_crs_kz … … 126 124 CASE ( 3 ) ; WRITE(numout,*) ' coarsene KZ with MEANLOG(KZ)' 127 125 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' 130 131 ENDIF 132 131 133 132 134 rfactx_r = 1. / nn_factx
Note: See TracChangeset
for help on using the changeset viewer.