Changeset 4018 for branches/2013/dev_r3853_CNRS9_ConfSetting
- Timestamp:
- 2013-09-09T15:43:56+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/ARCH/CNRS/arch-macport_osx.fcm
r3993 r4018 27 27 %NCDF_INC -I/opt/local/include 28 28 %NCDF_LIB -L/opt/local/lib -lnetcdf -lnetcdff 29 %XIOS_ROOT /Users/cl elod/Documents/WORK/XIOS29 %XIOS_ROOT /Users/clairelevy/Documents/WORK/XIOS 30 30 %FC mpif90 31 %FCFLAGS -fdefault-real-8 -O3 -funroll-all-loops -fcray-pointer 31 %FCFLAGS -fdefault-real-8 -O3 -funroll-all-loops -fcray-pointer -ffree-line-length-none 32 32 %FFLAGS %FCFLAGS 33 33 %LD %FC -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM/EXP00/1_namelist_cfg
r3973 r4018 9 9 nn_stock = 10950 ! frequency of creation of a restart file (modulo referenced to 1) 10 10 nn_write = 10950 ! frequency of write in the output file (modulo referenced to nn_it000) 11 ln_clobber = .true. ! clobber (overwrite) an existing file 11 12 / 12 13 !----------------------------------------------------------------------- 13 14 &namcfg ! parameters of the configuration 14 15 !----------------------------------------------------------------------- 15 cp_cfg = " orca" ! name of the configuration16 cp_cfg = "default" ! name of the configuration 16 17 jp_cfg = -1 ! resolution of the configuration 17 18 jpidta = 182 ! 1st lateral dimension ( >= jpi ) … … 22 23 jpizoom = 1 ! left bottom (i,j) indices of the zoom 23 24 jpjzoom = 1 ! in data domain indices 24 jperio = 4! lateral cond. type (between 0 and 6)25 jperio = 0 ! lateral cond. type (between 0 and 6) 25 26 jphgr_msh = 0 ! type of horizontal mesh 26 27 ppglam0 = 999999.0 ! longitude of first raw and column T-point (jphgr_msh = 1) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/SHARED/1_namelist_ref
r3973 r4018 48 48 &namcfg ! parameters of the configuration 49 49 !----------------------------------------------------------------------- 50 cp_cfg = "default" ! name of the configuration 50 cp_cfg = "Agu" ! name of the configuration 51 cp_cfz = "Agulhas" ! name of the zoom of configuration 51 52 jp_cfg = 0 ! resolution of the configuration 52 53 jpidta = 10 ! 1st lateral dimension ( >= jpi ) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r3973 r4018 31 31 jpi = ( jpiglo-2*jpreci + (jpni-1+0) ) / jpni + 2*jpreci 32 32 jpj = ( jpjglo-2*jprecj + (jpnj-1+0) ) / jpnj + 2*jprecj 33 jpk = jpkdta34 jpim1 = jpi-135 jpjm1 = jpj-136 jpkm1 = jpk-137 jpij = jpi*jpj38 33 jpidta = jpiglo 39 34 jpjdta = jpjglo … … 63 58 IMPLICIT NONE 64 59 !!---------------------------------------------------------------------- 65 66 60 ! 0. Initializations 67 61 !------------------- 68 IF( cp_cfg == 'orca' .AND. jp_cfg == 2 .OR. jp_cfg == 025 .OR. jp_cfg == 05 & 62 IF( cp_cfg == 'orca' ) then 63 IF ( jp_cfg == 2 .OR. jp_cfg == 025 .OR. jp_cfg == 05 & 69 64 & .OR. jp_cfg == 4 ) THEN 70 jp_cfg = -1 ! set special value for jp_cfg on fine grids 71 cp_cfg = "default" 65 jp_cfg = -1 ! set special value for jp_cfg on fine grids 66 cp_cfg = "default" 67 ENDIF 72 68 ENDIF 73 69 ! Specific fine grid Initializations … … 78 74 lk_bdy = .FALSE. 79 75 76 80 77 CALL nemo_init ! Initializations of each fine grid 78 81 79 CALL agrif_nemo_init 82 80 CALL Agrif_InitValues_cont_dom -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domhgr.F90
r3973 r4018 519 519 520 520 #if defined key_agrif 521 IF cp_cfg == 'eel' .AND. jp_cfg == 6 ) THEN ! for EEL6 configuration only521 IF ( cp_cfg == 'eel' .AND. jp_cfg == 6 ) THEN ! for EEL6 configuration only 522 522 IF( .NOT. Agrif_Root() ) THEN 523 523 zphi0 = ppgphi0 - FLOAT( Agrif_Parent(jpjglo)/2)*Agrif_Parent(ppe2_m) / (ra * rad) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r3989 r4018 366 366 IF(lwp) WRITE(numout,*) ' zgr_bat : defines level and meter bathymetry' 367 367 IF(lwp) WRITE(numout,*) ' ~~~~~~~' 368 369 368 ! ! ================== ! 370 369 IF( ntopo == 0 .OR. ntopo == -1 ) THEN ! defined by hand ! … … 613 612 INTEGER :: icompt, ibtest, ikmax ! temporary integers 614 613 REAL(wp), POINTER, DIMENSION(:,:) :: zbathy 614 615 615 !!---------------------------------------------------------------------- 616 616 ! … … 622 622 IF(lwp) WRITE(numout,*) ' zgr_bat_ctl : check the bathymetry' 623 623 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 624 625 624 ! ! Suppress isolated ocean grid points 626 625 IF(lwp) WRITE(numout,*) … … 656 655 mbathy(:,:) = INT( zbathy(:,:) ) 657 656 ENDIF 658 659 657 ! ! East-west cyclic boundary conditions 660 658 IF( nperio == 0 ) THEN … … 687 685 ! STOP 'dom_mba' 688 686 ENDIF 689 690 687 ! Boundary condition on mbathy 691 688 IF( .NOT.lk_mpp ) THEN … … 696 693 mbathy(:,:) = INT( zbathy(:,:) ) 697 694 ENDIF 698 699 695 ! Number of ocean level inferior or equal to jpkm1 700 696 ikmax = 0 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r3954 r4018 370 370 WRITE(numout,*) ' namelist namberg not read' 371 371 ENDIF 372 ln_iceberg =.false.372 ln_icebergs = .false. 373 373 #endif 374 374 IF( .NOT. ln_icebergs ) THEN ! no icebergs -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3993 r4018 229 229 & nn_bench, nn_timing 230 230 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 231 & jpizoom, jpjzoom, jperio 231 & jpizoom, jpjzoom, jperio, jphgr_msh, & 232 & ppglam0, ppgphi0, ppe1_deg, ppe2_deg, ppe1_m, ppe2_m, & 233 & ppsur, ppa0, ppa1, ppkth, ppacr, ppdzmin, pphmax, ldbletanh, & 234 & ppa2, ppkth2, ppacr2 232 235 !!---------------------------------------------------------------------- 233 236 ! … … 257 260 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp ) 258 261 WRITE( numond, namcfg ) 262 ! Force values for AGRIF zoom (cf. agrif_user.F90) 263 #if defined key_agrif 264 IF( .NOT. Agrif_Root() ) THEN 265 jpiglo = nbcellsx + 2 + 2*nbghostcells 266 jpjglo = nbcellsy + 2 + 2*nbghostcells 267 jpi = ( jpiglo-2*jpreci + (jpni-1+0) ) / jpni + 2*jpreci 268 jpj = ( jpjglo-2*jprecj + (jpnj-1+0) ) / jpnj + 2*jprecj 269 jpidta = jpiglo 270 jpjdta = jpjglo 271 jpizoom = 1 272 jpjzoom = 1 273 nperio = 0 274 jperio = 0 275 ENDIF 276 #endif 259 277 ! 260 278 ! !--------------------------------------------! … … 309 327 jpj = ( jpjglo-2*jprecj + (jpnj-1) ) / jpnj + 2*jprecj ! second dim. 310 328 #endif 329 ENDIF 311 330 jpk = jpkdta ! third dim 312 331 jpim1 = jpi-1 ! inner domain indices … … 314 333 jpkm1 = jpk-1 ! " " 315 334 jpij = jpi*jpj ! jpi x j 316 ENDIF317 335 318 336 IF(lwp) THEN ! open listing units … … 489 507 WRITE(numout,*) ' left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 490 508 WRITE(numout,*) ' lateral cond. type (between 0 and 6) jperio = ', jperio 491 509 WRITE(numout,*) ' type of horizontal mesh jphgr_msh = ', jphgr_msh 510 WRITE(numout,*) ' longitude of first raw and column T-point ppglam0 = ', ppglam0 511 WRITE(numout,*) ' latitude of first raw and column T-point ppgphi0 = ', ppgphi0 512 WRITE(numout,*) ' zonal grid-spacing (degrees) ppe1_deg = ', ppe1_deg 513 WRITE(numout,*) ' meridional grid-spacing (degrees) ppe2_deg = ', ppe2_deg 514 WRITE(numout,*) ' zonal grid-spacing (degrees) ppe1_m = ', ppe1_m 515 WRITE(numout,*) ' meridional grid-spacing (degrees) ppe2_m = ', ppe2_m 516 WRITE(numout,*) ' ORCA r4, r2 and r05 coefficients ppsur = ', ppsur 517 WRITE(numout,*) ' ppa0 = ', ppa0 518 WRITE(numout,*) ' ppa1 = ', ppa1 519 WRITE(numout,*) ' ppkth = ', ppkth 520 WRITE(numout,*) ' ppacr = ', ppacr 521 WRITE(numout,*) ' Minimum vertical spacing ppdzmin = ', ppdzmin 522 WRITE(numout,*) ' Maximum depth pphmax = ', pphmax 523 WRITE(numout,*) ' Use double tanf function for vertical coordinates ldbletanh = ', ldbletanh 524 WRITE(numout,*) ' Double tanh function parameters ppa2 = ', ppa2 525 WRITE(numout,*) ' ppkth2 = ', ppkth2 526 WRITE(numout,*) ' ppacr2 = ', ppacr2 492 527 ENDIF 493 528 ! ! Parameter control
Note: See TracChangeset
for help on using the changeset viewer.