- Timestamp:
- 2016-05-22T20:11:06+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6409_SIMPLIF_2_usrdef/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r6165 r6596 185 185 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 186 186 & nn_bench, nn_timing, nn_diacfl 187 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo,&188 & jp izoom, jpjzoom, jperio, ln_use_jattr187 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, & 188 & jperio, ln_use_jattr 189 189 !!---------------------------------------------------------------------- 190 190 ! … … 230 230 jpidta = jpiglo 231 231 jpjdta = jpjglo 232 jpizoom = 1233 jpjzoom = 1234 232 nperio = 0 235 233 jperio = 0 … … 414 412 WRITE(numout,*) ' configuration zoom name cp_cfz = ', TRIM(cp_cfz) 415 413 WRITE(numout,*) ' configuration resolution jp_cfg = ', jp_cfg 416 WRITE(numout,*) ' 1st lateral dimension ( >= jpi ) jpidta = ', jpidta417 WRITE(numout,*) ' 2nd " " ( >= jpj ) jpjdta = ', jpjdta418 WRITE(numout,*) ' 3nd " " jpkdta = ', jpkdta419 WRITE(numout,*) ' 1st dimension of global domain in i jpiglo = ', jpiglo420 WRITE(numout,*) ' 2nd - - in j jpjglo = ', jpjglo421 WRITE(numout,*) ' left bottom i index of the zoom (in data domain) jpizoom = ', jpizoom422 WRITE(numout,*) ' left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom423 414 WRITE(numout,*) ' lateral cond. type (between 0 and 6) jperio = ', jperio 424 415 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr … … 463 454 ENDIF 464 455 ! 465 IF( nbench == 1 ) THEN ! Benchmark466 SELECT CASE ( cp_cfg )467 CASE ( 'gyre' ) ; CALL ctl_warn( ' The Benchmark is activated ' )468 CASE DEFAULT ; CALL ctl_stop( ' The Benchmark is based on the GYRE configuration:', &469 & ' cp_cfg="gyre" in namelist &namcfg or set nbench = 0' )470 END SELECT471 ENDIF472 !473 456 IF( 1_wp /= SIGN(1._wp,-0._wp) ) CALL ctl_stop( 'nemo_ctl: The intrinsec SIGN function follows ', & 474 457 & 'f2003 standard. ' , &
Note: See TracChangeset
for help on using the changeset viewer.