- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LDF
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90
r3634 r3875 63 63 !!---------------------------------------------------------------------- 64 64 INTEGER :: ioptio ! ??? 65 INTEGER :: ios ! Local : output status for namelist read 65 66 LOGICAL :: ll_print = .FALSE. ! Logical flag for printing viscosity coef. 66 67 !! … … 73 74 !!---------------------------------------------------------------------- 74 75 75 REWIND( numnam ) ! Read Namelist namdyn_ldf : Lateral physics 76 READ ( numnam, namdyn_ldf ) 76 REWIND( numnam_ref ) ! Namelist namdyn_ldf in reference namelist : Lateral physics 77 READ ( numnam_ref, namdyn_ldf, IOSTAT = ios, ERR = 901) 78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in reference namelist', lwp ) 79 80 REWIND( numnam_cfg ) ! Namelist namdyn_ldf in configuration namelist : Lateral physics 81 READ ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 82 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 83 WRITE ( numond, namdyn_ldf ) 77 84 78 85 IF(lwp) THEN ! Parameter print … … 80 87 WRITE(numout,*) 'ldf_dyn : lateral momentum physics' 81 88 WRITE(numout,*) '~~~~~~~' 82 WRITE(numout,*) ' Namelist nam _dynldf : set lateral mixing parameters'89 WRITE(numout,*) ' Namelist namdyn_ldf : set lateral mixing parameters' 83 90 WRITE(numout,*) ' laplacian operator ln_dynldf_lap = ', ln_dynldf_lap 84 91 WRITE(numout,*) ' bilaplacian operator ln_dynldf_bilap = ', ln_dynldf_bilap -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90
r3634 r3875 62 62 !!---------------------------------------------------------------------- 63 63 INTEGER :: ioptio ! temporary integer 64 INTEGER :: ios ! temporary integer 64 65 LOGICAL :: ll_print = .FALSE. ! =T print eddy coef. in numout 65 66 !! … … 76 77 ! ============================================= 77 78 78 REWIND( numnam ) ! Read Namelist namtra_ldf : Lateral physics on tracers 79 READ ( numnam, namtra_ldf ) 79 80 REWIND( numnam_ref ) ! Namelist namtra_ldf in reference namelist : Lateral physics on tracers 81 READ ( numnam_ref, namtra_ldf, IOSTAT = ios, ERR = 901) 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist', lwp ) 83 84 REWIND( numnam_cfg ) ! Namelist namtra_ldf in configuration namelist : Lateral physics on tracers 85 READ ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 86 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 87 WRITE ( numond, namtra_ldf ) 80 88 81 89 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.