Changeset 5313 for branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
- Timestamp:
- 2015-05-29T11:46:03+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO11_restart_functionality/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r5312 r5313 222 222 & nn_bench, nn_timing 223 223 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 224 & jpizoom, jpjzoom, jperio 224 & jpizoom, jpjzoom, jperio, ln_use_jattr 225 225 !!---------------------------------------------------------------------- 226 226 ! … … 261 261 nperio = 0 262 262 jperio = 0 263 ln_use_jattr = .false. 263 264 ENDIF 264 265 #endif … … 341 342 WRITE(numout,*) ' NEMO team' 342 343 WRITE(numout,*) ' Ocean General Circulation Model' 343 WRITE(numout,*) ' version 3. 4 (2011) '344 WRITE(numout,*) ' version 3.6 (2015) ' 344 345 WRITE(numout,*) 345 346 WRITE(numout,*) … … 383 384 IF( lk_tide ) CALL tide_init( nit000 ) ! Initialisation of the tidal harmonics 384 385 386 CALL sbc_init ! Forcings : surface module (clem: moved here for bdy purpose) 387 385 388 IF( lk_bdy ) CALL bdy_init ! Open boundaries initialisation 386 389 IF( lk_bdy ) CALL bdy_dta_init ! Open boundaries initialisation of external data arrays … … 389 392 390 393 CALL dyn_nept_init ! simplified form of Neptune effect 391 392 394 ! 393 395 IF( ln_crs ) CALL crs_init ! Domain initialization of coarsened grid 394 396 ! 395 397 ! Ocean physics 396 CALL sbc_init ! Forcings : surface module397 398 ! ! Vertical physics 398 399 CALL zdf_init ! namelist read … … 506 507 WRITE(numout,*) ' left bottom j index of the zoom (in data domain) jpizoom = ', jpjzoom 507 508 WRITE(numout,*) ' lateral cond. type (between 0 and 6) jperio = ', jperio 509 WRITE(numout,*) ' use file attribute if exists as i/p j-start ln_use_jattr = ', ln_use_jattr 508 510 ENDIF 509 511 ! ! Parameter control
Note: See TracChangeset
for help on using the changeset viewer.