- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90
r3294 r3875 89 89 !!---------------------------------------------------------------------- 90 90 INTEGER :: ioptio 91 INTEGER :: ios ! Local integer output status for namelist read 91 92 !! 92 93 NAMELIST/namdyn_adv/ ln_dynadv_vec, ln_dynadv_cen2 , ln_dynadv_ubs 93 94 !!---------------------------------------------------------------------- 94 95 95 REWIND ( numnam ) ! Read Namelist namdyn_adv : momentum advection scheme 96 READ ( numnam, namdyn_adv ) 96 REWIND( numnam_ref ) ! Namelist namdyn_adv in reference namelist : Momentum advection scheme 97 READ ( numnam_ref, namdyn_adv, IOSTAT = ios, ERR = 901) 98 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist', lwp ) 99 100 REWIND( numnam_cfg ) ! Namelist namdyn_adv in configuration namelist : Momentum advection scheme 101 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 102 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 103 WRITE ( numond, namdyn_adv ) 97 104 98 105 IF(lwp) THEN ! Namelist print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r3764 r3875 122 122 !!---------------------------------------------------------------------- 123 123 INTEGER :: ioptio = 0 ! temporary integer 124 INTEGER :: ios ! Local integer output status for namelist read 124 125 !! 125 126 NAMELIST/namdyn_hpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco, & … … 127 128 !!---------------------------------------------------------------------- 128 129 ! 129 REWIND( numnam ) ! Read Namelist namdyn_hpg 130 READ ( numnam, namdyn_hpg ) 130 REWIND( numnam_ref ) ! Namelist namdyn_hpg in reference namelist : Hydrostatic pressure gradient 131 READ ( numnam_ref, namdyn_hpg, IOSTAT = ios, ERR = 901) 132 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in reference namelist', lwp ) 133 134 REWIND( numnam_cfg ) ! Namelist namdyn_hpg in configuration namelist : Hydrostatic pressure gradient 135 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 136 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 137 WRITE ( numond, namdyn_hpg ) 131 138 ! 132 139 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r3723 r3875 114 114 NAMELIST/namdyn_nept/ ln_neptsimp, ln_smooth_neptvel, rn_tslse, rn_tslsp, & 115 115 ln_neptramp, rn_htrmin, rn_htrmax 116 INTEGER :: ios 116 117 !!---------------------------------------------------------------------- 117 118 ! Define the (simplified) Neptune parameters 118 119 ! ========================================== 119 120 120 REWIND( numnam ) ! Read Namelist namdyn_nept: Simplified Neptune 121 READ ( numnam, namdyn_nept ) 121 REWIND( numnam_ref ) ! Namelist namdyn_nept in reference namelist : Simplified Neptune 122 READ ( numnam_ref, namdyn_nept, IOSTAT = ios, ERR = 901) 123 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in reference namelist', lwp ) 124 125 REWIND( numnam_cfg ) ! Namelist namdyn_nept in reference namelist : Simplified Neptune 126 READ ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 ) 127 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 128 WRITE ( numond, namdyn_nept ) 122 129 123 130 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r3802 r3875 710 710 INTEGER :: ioptio ! local integer 711 711 INTEGER :: ji, jj, jk ! dummy loop indices 712 INTEGER :: ios ! Local integer output status for namelist read 712 713 !! 713 714 NAMELIST/namdyn_vor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een 714 715 !!---------------------------------------------------------------------- 715 716 716 REWIND ( numnam ) ! Read Namelist namdyn_vor : Vorticity scheme options 717 READ ( numnam, namdyn_vor ) 717 REWIND( numnam_ref ) ! Namelist namdyn_vor in reference namelist : Vorticity scheme options 718 READ ( numnam_ref, namdyn_vor, IOSTAT = ios, ERR = 901) 719 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in reference namelist', lwp ) 720 721 REWIND( numnam_cfg ) ! Namelist namdyn_vor in configuration namelist : Vorticity scheme options 722 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 723 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 724 WRITE ( numond, namdyn_vor ) 718 725 719 726 IF(lwp) THEN ! Namelist print … … 721 728 WRITE(numout,*) 'dyn_vor_init : vorticity term : read namelist and control the consistency' 722 729 WRITE(numout,*) '~~~~~~~~~~~~' 723 WRITE(numout,*) ' Namelist namdyn_vor : oice of the vorticity term scheme'730 WRITE(numout,*) ' Namelist namdyn_vor : choice of the vorticity term scheme' 724 731 WRITE(numout,*) ' energy conserving scheme ln_dynvor_ene = ', ln_dynvor_ene 725 732 WRITE(numout,*) ' enstrophy conserving scheme ln_dynvor_ens = ', ln_dynvor_ens
Note: See TracChangeset
for help on using the changeset viewer.