- Timestamp:
- 2019-10-09T15:02:14+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE
- Files:
-
- 15 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icealb.F90
r11536 r11671 190 190 !!---------------------------------------------------------------------- 191 191 ! 192 REWIND( numnam_ice_ref ) ! Namelist namalb in reference namelist : Albedo parameters193 192 READ ( numnam_ice_ref, namalb, IOSTAT = ios, ERR = 901) 194 193 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namalb in reference namelist' ) 195 REWIND( numnam_ice_cfg ) ! Namelist namalb in configuration namelist : Albedo parameters196 194 READ ( numnam_ice_cfg, namalb, IOSTAT = ios, ERR = 902 ) 197 195 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namalb in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icedia.F90
r11536 r11671 178 178 !!---------------------------------------------------------------------- 179 179 ! 180 REWIND( numnam_ice_ref ) ! Namelist namdia in reference namelist : Parameters for ice181 180 READ ( numnam_ice_ref, namdia, IOSTAT = ios, ERR = 901) 182 181 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdia in reference namelist' ) 183 REWIND( numnam_ice_cfg ) ! Namelist namdia in configuration namelist : Parameters for ice184 182 READ ( numnam_ice_cfg, namdia, IOSTAT = ios, ERR = 902 ) 185 183 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdia in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icedyn.F90
r11536 r11671 224 224 !!------------------------------------------------------------------- 225 225 ! 226 REWIND( numnam_ice_ref ) ! Namelist namdyn in reference namelist : Ice dynamics227 226 READ ( numnam_ice_ref, namdyn, IOSTAT = ios, ERR = 901) 228 227 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn in reference namelist' ) 229 REWIND( numnam_ice_cfg ) ! Namelist namdyn in configuration namelist : Ice dynamics230 228 READ ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 231 229 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icedyn_adv.F90
r11536 r11671 131 131 !!------------------------------------------------------------------- 132 132 ! 133 REWIND( numnam_ice_ref ) ! Namelist namdyn_adv in reference namelist : Ice dynamics134 133 READ ( numnam_ice_ref, namdyn_adv, IOSTAT = ios, ERR = 901) 135 134 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in reference namelist' ) 136 REWIND( numnam_ice_cfg ) ! Namelist namdyn_adv in configuration namelist : Ice dynamics137 135 READ ( numnam_ice_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 138 136 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icedyn_rdgrft.F90
r11560 r11671 917 917 !!------------------------------------------------------------------- 918 918 ! 919 REWIND( numnam_ice_ref ) ! Namelist namicetdme in reference namelist : Ice mechanical ice redistribution920 919 READ ( numnam_ice_ref, namdyn_rdgrft, IOSTAT = ios, ERR = 901) 921 920 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rdgrft in reference namelist' ) 922 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rdgrft in configuration namelist : Ice mechanical ice redistribution923 921 READ ( numnam_ice_cfg, namdyn_rdgrft, IOSTAT = ios, ERR = 902 ) 924 922 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rdgrft in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icedyn_rhg.F90
r11536 r11671 113 113 !!------------------------------------------------------------------- 114 114 ! 115 REWIND( numnam_ice_ref ) ! Namelist namdyn_rhg in reference namelist : Ice dynamics116 115 READ ( numnam_ice_ref, namdyn_rhg, IOSTAT = ios, ERR = 901) 117 116 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in reference namelist' ) 118 REWIND( numnam_ice_cfg ) ! Namelist namdyn_rhg in configuration namelist : Ice dynamics119 117 READ ( numnam_ice_cfg, namdyn_rhg, IOSTAT = ios, ERR = 902 ) 120 118 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn_rhg in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/iceistate.F90
r11536 r11671 474 474 !!----------------------------------------------------------------------------- 475 475 ! 476 REWIND( numnam_ice_ref ) ! Namelist namini in reference namelist : Ice initial state477 476 READ ( numnam_ice_ref, namini, IOSTAT = ios, ERR = 901) 478 477 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namini in reference namelist' ) 479 REWIND( numnam_ice_cfg ) ! Namelist namini in configuration namelist : Ice initial state480 478 READ ( numnam_ice_cfg, namini, IOSTAT = ios, ERR = 902 ) 481 479 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namini in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/iceitd.F90
r11536 r11671 687 687 !!------------------------------------------------------------------ 688 688 ! 689 REWIND( numnam_ice_ref ) ! Namelist namitd in reference namelist : Parameters for ice690 689 READ ( numnam_ice_ref, namitd, IOSTAT = ios, ERR = 901) 691 690 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namitd in reference namelist' ) 692 REWIND( numnam_ice_cfg ) ! Namelist namitd in configuration namelist : Parameters for ice693 691 READ ( numnam_ice_cfg, namitd, IOSTAT = ios, ERR = 902 ) 694 692 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namitd in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icesbc.F90
r11575 r11671 284 284 !!------------------------------------------------------------------- 285 285 ! 286 REWIND( numnam_ice_ref ) ! Namelist namsbc in reference namelist : Ice dynamics287 286 READ ( numnam_ice_ref, namsbc, IOSTAT = ios, ERR = 901) 288 287 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist' ) 289 REWIND( numnam_ice_cfg ) ! Namelist namsbc in configuration namelist : Ice dynamics290 288 READ ( numnam_ice_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 291 289 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icethd.F90
r11536 r11671 539 539 !!------------------------------------------------------------------- 540 540 ! 541 REWIND( numnam_ice_ref ) ! Namelist namthd in reference namelist : Ice thermodynamics542 541 READ ( numnam_ice_ref, namthd, IOSTAT = ios, ERR = 901) 543 542 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd in reference namelist' ) 544 REWIND( numnam_ice_cfg ) ! Namelist namthd in configuration namelist : Ice thermodynamics545 543 READ ( numnam_ice_cfg, namthd, IOSTAT = ios, ERR = 902 ) 546 544 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icethd_da.F90
r11536 r11671 177 177 !!------------------------------------------------------------------- 178 178 ! 179 REWIND( numnam_ice_ref ) ! Namelist namthd_da in reference namelist : Ice thermodynamics180 179 READ ( numnam_ice_ref, namthd_da, IOSTAT = ios, ERR = 901) 181 180 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_da in reference namelist' ) 182 REWIND( numnam_ice_cfg ) ! Namelist namthd_da in configuration namelist : Ice thermodynamics183 181 READ ( numnam_ice_cfg, namthd_da, IOSTAT = ios, ERR = 902 ) 184 182 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_da in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icethd_do.F90
r11536 r11671 443 443 !!------------------------------------------------------------------- 444 444 ! 445 REWIND( numnam_ice_ref ) ! Namelist namthd_do in reference namelist : Ice thermodynamics446 445 READ ( numnam_ice_ref, namthd_do, IOSTAT = ios, ERR = 901) 447 446 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_do in reference namelist' ) 448 REWIND( numnam_ice_cfg ) ! Namelist namthd_do in configuration namelist : Ice thermodynamics449 447 READ ( numnam_ice_cfg, namthd_do, IOSTAT = ios, ERR = 902 ) 450 448 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_do in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icethd_pnd.F90
r11536 r11671 208 208 !!------------------------------------------------------------------- 209 209 ! 210 REWIND( numnam_ice_ref ) ! Namelist namthd_pnd in reference namelist : Melt Ponds211 210 READ ( numnam_ice_ref, namthd_pnd, IOSTAT = ios, ERR = 901) 212 211 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_pnd in reference namelist' ) 213 REWIND( numnam_ice_cfg ) ! Namelist namthd_pnd in configuration namelist : Melt Ponds214 212 READ ( numnam_ice_cfg, namthd_pnd, IOSTAT = ios, ERR = 902 ) 215 213 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_pnd in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icethd_sal.F90
r11536 r11671 132 132 !!------------------------------------------------------------------- 133 133 ! 134 REWIND( numnam_ice_ref ) ! Namelist namthd_sal in reference namelist : Ice salinity135 134 READ ( numnam_ice_ref, namthd_sal, IOSTAT = ios, ERR = 901) 136 135 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_sal in reference namelist' ) 137 REWIND( numnam_ice_cfg ) ! Namelist namthd_sal in configuration namelist : Ice salinity138 136 READ ( numnam_ice_cfg, namthd_sal, IOSTAT = ios, ERR = 902 ) 139 137 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_sal in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/src/ICE/icethd_zdf.F90
r11536 r11671 88 88 !!------------------------------------------------------------------- 89 89 ! 90 REWIND( numnam_ice_ref ) ! Namelist namthd_zdf in reference namelist : Ice thermodynamics91 90 READ ( numnam_ice_ref, namthd_zdf, IOSTAT = ios, ERR = 901) 92 91 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namthd_zdf in reference namelist' ) 93 REWIND( numnam_ice_cfg ) ! Namelist namthd_zdf in configuration namelist : Ice thermodynamics94 92 READ ( numnam_ice_cfg, namthd_zdf, IOSTAT = ios, ERR = 902 ) 95 93 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namthd_zdf in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.