- Timestamp:
- 2013-11-20T16:33:46+01:00 (10 years ago)
- Location:
- branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r4230 r4290 150 150 & jpizoom, jpjzoom, jperio 151 151 !!---------------------------------------------------------------------- 152 !153 152 cltxt = '' 154 153 ! … … 156 155 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 157 156 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 158 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea ) 159 ! 157 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 160 158 ! 161 159 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 162 160 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp)161 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 164 162 165 163 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 166 164 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 167 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp)165 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 168 166 WRITE( numond, namctl ) 167 169 168 ! 170 169 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist : Control prints & Benchmark 171 170 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 172 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp)171 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 173 172 174 173 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist : Control prints & Benchmark 175 174 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 176 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp)175 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 177 176 WRITE( numond, namcfg ) 177 178 ! 178 179 ! !--------------------------------------------! 179 180 ! ! set communicator & select the local node ! -
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/OOO_SRC/nemogcm.F90
r4120 r4290 129 129 CHARACTER(len=80), DIMENSION(16) :: cltxt 130 130 !! 131 NAMELIST/namctl/ ln_ctl 131 NAMELIST/namctl/ ln_ctl, nn_print, nn_ictls, nn_ictle, & 132 132 & nn_isplt, nn_jsplt, nn_jctls, nn_jctle, & 133 133 & nn_bench, nn_timing 134 NAMELIST/namcfg/ cp_cfg, cp_cfz, jp_cfg, jpidta, jpjdta, jpkdta, jpiglo, jpjglo, & 135 & jpizoom, jpjzoom, jperio 134 136 !!---------------------------------------------------------------------- 135 137 ! 136 138 cltxt = '' 137 139 ! 138 ! ! open Namelist file 139 CALL ctl_opn( numnam, 'namelist', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 140 ! 141 READ( numnam, namctl ) ! Namelist namctl : Control prints & Benchmark 142 ! 140 ! ! Open reference namelist and configuration namelist files 141 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 142 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 143 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 144 ! 145 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 146 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 147 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 148 149 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 150 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 151 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 152 WRITE( numond, namctl ) 153 154 ! 155 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist : Control prints & Benchmark 156 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 157 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 158 159 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist : Control prints & Benchmark 160 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 161 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 162 WRITE( numond, namcfg ) 163 143 164 ! !--------------------------------------------! 144 165 ! ! set communicator & select the local node ! -
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r4232 r4290 163 163 & jpizoom, jpjzoom, jperio 164 164 !!---------------------------------------------------------------------- 165 !166 cltxt = ''!165 cltxt = '' 166 ! 167 167 ! ! Open reference namelist and configuration namelist files 168 168 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 169 169 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 170 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. )170 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 171 171 ! 172 172 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 173 173 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 174 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp)174 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', .TRUE. ) 175 175 176 176 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 177 177 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 178 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp)178 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 179 179 WRITE( numond, namctl ) 180 180 181 ! 181 182 REWIND( numnam_ref ) ! Namelist namcfg in reference namelist : Control prints & Benchmark 182 183 READ ( numnam_ref, namcfg, IOSTAT = ios, ERR = 903 ) 183 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', lwp)184 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in reference namelist', .TRUE. ) 184 185 185 186 REWIND( numnam_cfg ) ! Namelist namcfg in confguration namelist : Control prints & Benchmark 186 187 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 187 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', lwp)188 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 188 189 WRITE( numond, namcfg ) 190 189 191 ! !--------------------------------------------! 190 192 ! ! set communicator & select the local node ! -
branches/2013/dev_LOCEAN_CMCC_INGV_MERC_UKMO_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r4159 r4290 185 185 IF(lwp) WRITE(numout,*) '~~~~~~~' 186 186 187 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. )188 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. )189 CALL ctl_opn( numont , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE.)187 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 188 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 189 CALL ctl_opn( numont , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 190 190 191 191 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables
Note: See TracChangeset
for help on using the changeset viewer.