- Timestamp:
- 2013-07-03T16:20:05+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r3901 r3954 355 355 !!---------------------------------------------------------------------- 356 356 357 #if !defined key_agrif 357 358 REWIND( numnam_ref ) ! Namelist namberg in reference namelist : Iceberg parameters 358 359 READ ( numnam_ref, namberg, IOSTAT = ios, ERR = 901) 359 360 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist', lwp ) 360 361 361 REWIND( numnam_cfg ) ! Namelist namberg in configuration namelist : Iceberg parameters 362 362 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 363 363 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 364 364 WRITE ( numond, namberg ) 365 365 #else 366 IF(lwp) THEN 367 WRITE(numout,*) 368 WRITE(numout,*) 'icbini : AGRIF is not compatible with namelist namberg : ' 369 WRITE(numout,*) ' definition of rn_initial_mass(nclasses) with nclasses as PARAMETER ' 370 WRITE(numout,*) ' namelist namberg not read' 371 ENDIF 372 ln_iceberg=.false. 373 #endif 366 374 IF( .NOT. ln_icebergs ) THEN ! no icebergs 367 375 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.