Changeset 4624 for trunk/NEMOGCM/NEMO/LIM_SRC_2
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM/NEMO/LIM_SRC_2
- Files:
-
- 8 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r4607 r4624 82 82 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 83 83 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 84 CALL ctl_opn( numoni,'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 )84 IF(lwm) CALL ctl_opn( numoni, 'output.namelist.ice', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 85 85 86 86 ! ! Open the namelist file … … 134 134 READ ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 135 135 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 136 WRITE ( numoni, namicerun )136 IF(lwm) WRITE ( numoni, namicerun ) 137 137 ! 138 138 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90
r4338 r4624 188 188 READ ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 189 189 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 190 WRITE ( numoni, namicedia )190 IF(lwm) WRITE ( numoni, namicedia ) 191 191 192 192 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limdmp_2.F90
r4147 r4624 118 118 READ ( numnam_ice_cfg, namice_dmp, IOSTAT = ios, ERR = 902 ) 119 119 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in configuration namelist', lwp ) 120 WRITE ( numoni, namice_dmp )120 IF(lwm) WRITE ( numoni, namice_dmp ) 121 121 ! 122 122 IF ( lwp ) THEN !* control print -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90
r4161 r4624 238 238 READ ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 239 239 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 240 WRITE ( numoni, namicedyn )240 IF(lwm) WRITE ( numoni, namicedyn ) 241 241 242 242 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90
r4147 r4624 176 176 READ ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 177 177 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 178 WRITE ( numoni, namiceini )178 IF(lwm) WRITE ( numoni, namiceini ) 179 179 ! 180 180 IF(lwp) THEN -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
r4306 r4624 550 550 READ ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 551 551 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 552 WRITE ( numoni, namicethd )552 IF(lwm) WRITE ( numoni, namicethd ) 553 553 554 554 IF( lk_cpl .AND. parsub /= 0.0 ) CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90
r4147 r4624 308 308 READ ( numnam_ice_cfg, namicetrp, IOSTAT = ios, ERR = 902 ) 309 309 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in configuration namelist', lwp ) 310 WRITE ( numoni, namicetrp )310 IF(lwm) WRITE ( numoni, namicetrp ) 311 311 312 312 IF(lwp) THEN -
trunk/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
r4251 r4624 264 264 READ ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 265 265 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 266 WRITE ( numoni, namiceout )266 IF(lwm) WRITE ( numoni, namiceout ) 267 267 268 268 zfield( 1) = field_1
Note: See TracChangeset
for help on using the changeset viewer.