Changeset 4624 for trunk/NEMOGCM/NEMO/OPA_SRC
- Timestamp:
- 2014-04-28T14:09:03+02:00 (10 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 64 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r4313 r4624 154 154 READ ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 155 155 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 156 WRITE ( numond, nam_asminc )156 IF(lwm) WRITE ( numond, nam_asminc ) 157 157 158 158 ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r4608 r4624 532 532 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 533 533 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 534 WRITE ( numond, nambdy_dta )534 IF(lwm) WRITE ( numond, nambdy_dta ) 535 535 536 536 cn_dir_array(ib_bdy) = cn_dir -
trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r4354 r4624 132 132 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 133 133 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 134 WRITE ( numond, nambdy )134 IF(lwm) WRITE ( numond, nambdy ) 135 135 136 136 ! ----------------------------------------- … … 418 418 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 419 419 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 420 WRITE ( numond, nambdy_index )420 IF(lwm) WRITE ( numond, nambdy_index ) 421 421 422 422 SELECT CASE ( TRIM(ctypebdy) ) -
trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r4354 r4624 117 117 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 118 118 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 119 WRITE ( numond, nambdy_tide )119 IF(lwm) WRITE ( numond, nambdy_tide ) 120 120 ! ! Parameter control and print 121 121 IF(lwp) WRITE(numout,*) ' ' -
trunk/NEMOGCM/NEMO/OPA_SRC/C1D/c1d.F90
r4247 r4624 55 55 READ ( numnam_cfg, namc1d, IOSTAT = ios, ERR = 902 ) 56 56 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d in configuration namelist', lwp ) 57 WRITE ( numond, namc1d )57 IF(lwm) WRITE ( numond, namc1d ) 58 58 59 59 ! -
trunk/NEMOGCM/NEMO/OPA_SRC/C1D/dtauvd.F90
r4294 r4624 73 73 READ ( numnam_cfg, namc1d_uvd, IOSTAT = ios, ERR = 902 ) 74 74 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_uvd in configuration namelist', lwp ) 75 WRITE ( numond, namc1d_uvd )75 IF(lwm) WRITE ( numond, namc1d_uvd ) 76 76 77 77 ! ! force the initialization when dyndmp is used -
trunk/NEMOGCM/NEMO/OPA_SRC/C1D/dyndmp.F90
r4367 r4624 84 84 READ ( numnam_cfg, namc1d_dyndmp, IOSTAT = ios, ERR = 902 ) 85 85 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc1d_dyndmp in configuration namelist', lwp ) 86 WRITE ( numond, namc1d_dyndmp )86 IF(lwm) WRITE ( numond, namc1d_dyndmp ) 87 87 88 88 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/CRS/crsini.F90
r4294 r4624 92 92 READ ( numnam_cfg, namcrs, IOSTAT = ios, ERR = 902 ) 93 93 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcrs in configuration namelist', lwp ) 94 WRITE ( numond, namcrs )94 IF(lwm) WRITE ( numond, namcrs ) 95 95 96 96 IF(lwp) THEN -
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r4613 r4624 151 151 READ ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 152 152 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 153 WRITE ( numond, namdct )153 IF(lwm) WRITE ( numond, namdct ) 154 154 155 155 IF( lwp ) THEN -
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r4292 r4624 94 94 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 95 95 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 96 WRITE ( numond, nam_diaharm )96 IF(lwm) WRITE ( numond, nam_diaharm ) 97 97 ! 98 98 IF(lwp) THEN -
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r4558 r4624 221 221 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 222 222 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 223 WRITE ( numond, namhsb )223 IF(lwm) WRITE ( numond, namhsb ) 224 224 225 225 ! -
trunk/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r4292 r4624 467 467 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 468 468 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 469 WRITE ( numond, namptr )469 IF(lwm) WRITE ( numond, namptr ) 470 470 471 471 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r4490 r4624 159 159 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 160 160 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 161 WRITE ( numond, namrun )161 IF(lwm) WRITE ( numond, namrun ) 162 162 ! 163 163 IF(lwp) THEN ! control print … … 241 241 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 242 242 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 243 WRITE ( numond, namdom )243 IF(lwm) WRITE ( numond, namdom ) 244 244 245 245 IF(lwp) THEN … … 303 303 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 304 304 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 305 WRITE( numond, namcla )305 IF(lwm) WRITE( numond, namcla ) 306 306 307 307 IF(lwp) THEN … … 327 327 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 328 328 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 329 WRITE( numond, namnc4 )329 IF(lwm) WRITE( numond, namnc4 ) 330 330 331 331 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r4328 r4624 152 152 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 153 153 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 154 WRITE ( numond, namlbc )154 IF(lwm) WRITE ( numond, namlbc ) 155 155 156 156 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domvvl.F90
r4490 r4624 922 922 READ ( numnam_cfg, nam_vvl, IOSTAT = ios, ERR = 902 ) 923 923 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_vvl in configuration namelist', lwp ) 924 WRITE ( numond, nam_vvl )924 IF(lwm) WRITE ( numond, nam_vvl ) 925 925 926 926 IF(lwp) THEN ! Namelist print -
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r4292 r4624 113 113 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 114 114 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 115 WRITE ( numond, namzgr )115 IF(lwm) WRITE ( numond, namzgr ) 116 116 117 117 IF(lwp) THEN ! Control print … … 1140 1140 READ ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 1141 1141 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 1142 WRITE ( numond, namzgr_sco )1142 IF(lwm) WRITE ( numond, namzgr_sco ) 1143 1143 1144 1144 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r4292 r4624 77 77 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 78 78 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 79 WRITE ( numond, namtsd )79 IF(lwm) WRITE ( numond, namtsd ) 80 80 81 81 IF( PRESENT( ld_tradmp ) ) ln_tsd_tradmp = .TRUE. ! forces the initialization when tradmp is used -
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynadv.F90
r4147 r4624 101 101 READ ( numnam_cfg, namdyn_adv, IOSTAT = ios, ERR = 902 ) 102 102 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 103 WRITE ( numond, namdyn_adv )103 IF(lwm) WRITE ( numond, namdyn_adv ) 104 104 105 105 IF(lwp) THEN ! Namelist print -
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90
r4292 r4624 135 135 READ ( numnam_cfg, namdyn_hpg, IOSTAT = ios, ERR = 902 ) 136 136 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 137 WRITE ( numond, namdyn_hpg )137 IF(lwm) WRITE ( numond, namdyn_hpg ) 138 138 ! 139 139 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90
r4372 r4624 125 125 READ ( numnam_cfg, namdyn_nept, IOSTAT = ios, ERR = 902 ) 126 126 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 127 WRITE ( numond, namdyn_nept )127 IF(lwm) WRITE ( numond, namdyn_nept ) 128 128 129 129 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r4496 r4624 1062 1062 READ ( numnam_cfg, namsplit, IOSTAT = ios, ERR = 902 ) 1063 1063 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsplit in configuration namelist', lwp ) 1064 WRITE ( numond, namsplit )1064 IF(lwm) WRITE ( numond, namsplit ) 1065 1065 ! 1066 1066 ! ! Max courant number for ext. grav. waves -
trunk/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90
r4601 r4624 725 725 READ ( numnam_cfg, namdyn_vor, IOSTAT = ios, ERR = 902 ) 726 726 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 727 WRITE ( numond, namdyn_vor )727 IF(lwm) WRITE ( numond, namdyn_vor ) 728 728 729 729 IF(lwp) THEN ! Namelist print -
trunk/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90
r4147 r4624 96 96 READ ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 97 97 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist', lwp ) 98 WRITE ( numond, namflo )98 IF(lwm) WRITE ( numond, namflo ) 99 99 ! 100 100 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r4153 r4624 363 363 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 364 364 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 365 WRITE ( numond, namberg )365 IF(lwm) WRITE ( numond, namberg ) 366 366 #else 367 367 IF(lwp) THEN -
trunk/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r4147 r4624 138 138 CHARACTER(lc) :: cform_err = "(/,' ===>>> : E R R O R', /,' ===========',/)" !: 139 139 CHARACTER(lc) :: cform_war = "(/,' ===>>> : W A R N I N G', /,' ===============',/)" !: 140 LOGICAL :: lwp = .FALSE. !: boolean : true on the 1st processor only 140 LOGICAL :: lwm = .FALSE. !: boolean : true on the 1st processor only (always) 141 LOGICAL :: lwp = .FALSE. !: boolean : true on the 1st processor only .OR. ln_ctl 141 142 LOGICAL :: lsp_area = .TRUE. !: to make a control print over a specific area 142 143 -
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r4328 r4624 170 170 INTEGER , INTENT(in ) :: kumnam_ref ! logical unit for reference namelist 171 171 INTEGER , INTENT(in ) :: kumnam_cfg ! logical unit for configuration namelist 172 INTEGER , INTENT(in 172 INTEGER , INTENT(inout) :: kumond ! logical unit for namelist output 173 173 INTEGER , INTENT(inout) :: kstop ! stop indicator 174 174 INTEGER, OPTIONAL , INTENT(in ) :: localComm … … 193 193 READ ( kumnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 194 194 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist', lwp ) 195 WRITE(kumond, nammpp)196 195 197 196 ! ! control print … … 293 292 CALL mpi_comm_size( mpi_comm_opa, mppsize, ierr ) 294 293 mynode = mpprank 294 295 IF( mynode == 0 ) THEN 296 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 297 WRITE(kumond, nammpp) 298 ENDIF 295 299 ! 296 300 CALL MPI_OP_CREATE(DDPDD_MPI, .TRUE., MPI_SUMDD, ierr) … … 2924 2928 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 2925 2929 IF( .FALSE. ) ldtxt(:) = 'never done' 2930 CALL ctl_opn( kumond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 ) 2926 2931 END FUNCTION mynode 2927 2932 -
trunk/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r4153 r4624 86 86 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 87 87 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 88 WRITE ( numond, namzgr )88 IF(lwm) WRITE ( numond, namzgr ) 89 89 90 90 IF(lwp)WRITE(numout,*) -
trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90
r4292 r4624 81 81 READ ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 82 82 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 83 WRITE ( numond, namdyn_ldf )83 IF(lwm) WRITE ( numond, namdyn_ldf ) 84 84 85 85 IF(lwp) THEN ! Parameter print -
trunk/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90
r4147 r4624 85 85 READ ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 86 86 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 87 WRITE ( numond, namtra_ldf )87 IF(lwm) WRITE ( numond, namtra_ldf ) 88 88 89 89 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r4292 r4624 221 221 READ ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 222 222 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist', lwp ) 223 WRITE ( numond, namobs )223 IF(lwm) WRITE ( numond, namobs ) 224 224 225 225 ! Count number of files for each type -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r4147 r4624 212 212 READ ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 213 213 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 214 WRITE ( numond, namsbc_alb )214 IF(lwm) WRITE ( numond, namsbc_alb ) 215 215 ! 216 216 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90
r4604 r4624 81 81 READ ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 82 82 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 83 WRITE ( numond, namsbc_ana )83 IF(lwm) WRITE ( numond, namsbc_ana ) 84 84 ! 85 85 IF(lwp) WRITE(numout,*)' ' -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r4328 r4624 83 83 READ ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 84 84 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 85 WRITE ( numond, namsbc_apr )85 IF(lwm) WRITE ( numond, namsbc_apr ) 86 86 ! 87 87 ALLOCATE( sf_apr(1), STAT=ierror ) !* allocate and fill sf_sst (forcing structure) with sn_sst -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r4147 r4624 148 148 READ ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 149 149 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 150 WRITE ( numond, namsbc_clio )150 IF(lwm) WRITE ( numond, namsbc_clio ) 151 151 152 152 ! store namelist information in an array -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r4333 r4624 154 154 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 155 155 156 WRITE ( numond, namsbc_core )156 IF(lwm) WRITE ( numond, namsbc_core ) 157 157 ! ! check: do we plan to use ln_dm2dc with non-daily forcing? 158 158 IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 ) & -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
r4147 r4624 141 141 READ ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 142 142 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 143 WRITE ( numond, namsbc_mfs )143 IF(lwm) WRITE ( numond, namsbc_mfs ) 144 144 ! 145 145 ! store namelist information in an array -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r4393 r4624 244 244 READ ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 245 245 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 246 WRITE ( numond, namsbc_cpl )246 IF(lwm) WRITE ( numond, namsbc_cpl ) 247 247 248 248 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r4147 r4624 98 98 READ ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 99 99 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 100 WRITE ( numond, namsbc_flx )100 IF(lwm) WRITE ( numond, namsbc_flx ) 101 101 ! 102 102 ! ! check: do we plan to use ln_dm2dc with non-daily forcing? -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r4292 r4624 747 747 READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 748 748 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 749 WRITE ( numond, namsbc_cice )749 IF(lwm) WRITE ( numond, namsbc_cice ) 750 750 751 751 ! store namelist information in an array -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r4161 r4624 78 78 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 79 79 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 80 WRITE ( numond, namsbc_iif )80 IF(lwm) WRITE ( numond, namsbc_iif ) 81 81 82 82 ALLOCATE( sf_ice(1), STAT=ierror ) -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4607 r4624 101 101 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 102 102 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 103 WRITE ( numond, namsbc )103 IF(lwm) WRITE ( numond, namsbc ) 104 104 105 105 ! ! overwrite namelist parameter using CPP key information -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r4368 r4624 263 263 READ ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 264 264 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 265 WRITE ( numond, namsbc_rnf )265 IF(lwm) WRITE ( numond, namsbc_rnf ) 266 266 ! 267 267 ! ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r4147 r4624 174 174 READ ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 175 175 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 176 WRITE ( numond, namsbc_ssr )176 IF(lwm) WRITE ( numond, namsbc_ssr ) 177 177 178 178 IF(lwp) THEN !* control print -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r4292 r4624 90 90 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 91 91 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 92 WRITE ( numond, namsbc_wave )92 IF(lwm) WRITE ( numond, namsbc_wave ) 93 93 ! 94 94 -
trunk/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90
r4292 r4624 72 72 READ ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 73 73 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 74 WRITE ( numond, nam_tide )74 IF(lwm) WRITE ( numond, nam_tide ) 75 75 ! 76 76 nb_harmo=0 -
trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r4147 r4624 70 70 READ ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 71 71 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 72 WRITE ( numond, namsol )72 IF(lwm) WRITE ( numond, namsol ) 73 73 74 74 IF(lwp) THEN !* Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r4292 r4624 723 723 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 724 724 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 725 WRITE( numond, nameos )725 IF(lwm) WRITE( numond, nameos ) 726 726 ! 727 727 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r4292 r4624 176 176 READ ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 177 177 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 178 WRITE ( numond, namtra_adv )178 IF(lwm) WRITE ( numond, namtra_adv ) 179 179 180 180 IF(lwp) THEN ! Namelist print -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90
r4325 r4624 285 285 READ ( numnam_cfg, namtra_adv_mle, IOSTAT = ios, ERR = 902 ) 286 286 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv_mle in configuration namelist', lwp ) 287 WRITE ( numond, namtra_adv_mle )287 IF(lwm) WRITE ( numond, namtra_adv_mle ) 288 288 289 289 IF(lwp) THEN ! Namelist print -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r4147 r4624 141 141 READ ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 142 142 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 143 WRITE ( numond, nambbc )143 IF(lwm) WRITE ( numond, nambbc ) 144 144 145 145 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r4292 r4624 577 577 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 578 578 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 579 WRITE ( numond, nambbl )579 IF(lwm) WRITE ( numond, nambbl ) 580 580 ! 581 581 l_bbl = .TRUE. !* flag to compute bbl coef and transport -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r4292 r4624 205 205 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 206 206 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 207 WRITE ( numond, namtra_dmp )207 IF(lwm) WRITE ( numond, namtra_dmp ) 208 208 209 209 IF( lzoom .AND. .NOT. lk_c1d ) nn_zdmp = 0 ! restoring to climatology at closed north or south boundaries -
trunk/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r4333 r4624 399 399 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 400 400 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 401 WRITE ( numond, namtra_qsr )401 IF(lwm) WRITE ( numond, namtra_qsr ) 402 402 ! 403 403 IF(lwp) THEN ! control print -
trunk/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90
r4147 r4624 266 266 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 267 267 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 268 WRITE ( numond, namtrd )268 IF(lwm) WRITE ( numond, namtrd ) 269 269 270 270 IF(lwp) THEN -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r4381 r4624 203 203 READ ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 204 204 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 205 WRITE ( numond, nambfr )205 IF(lwm) WRITE ( numond, nambfr ) 206 206 IF(lwp) WRITE(numout,*) 207 207 IF(lwp) WRITE(numout,*) 'zdf_bfr_init : momentum bottom friction' -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r4147 r4624 223 223 READ ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 224 224 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 225 WRITE ( numond, namzdf_ddm )225 IF(lwm) WRITE ( numond, namzdf_ddm ) 226 226 ! 227 227 IF(lwp) THEN ! Parameter print -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r4147 r4624 948 948 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 949 949 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 950 WRITE ( numond, namzdf_gls )950 IF(lwm) WRITE ( numond, namzdf_gls ) 951 951 952 952 IF(lwp) THEN !* Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
r4292 r4624 64 64 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 65 65 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 66 WRITE ( numond, namzdf )66 IF(lwm) WRITE ( numond, namzdf ) 67 67 68 68 IF(lwp) THEN !* Parameter print -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r4147 r4624 1399 1399 READ ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 1400 1400 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 1401 WRITE ( numond, namzdf_kpp )1401 IF(lwm) WRITE ( numond, namzdf_kpp ) 1402 1402 1403 1403 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r4147 r4624 260 260 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 261 261 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 262 WRITE ( numond, namzdf_ric )262 IF(lwm) WRITE ( numond, namzdf_ric ) 263 263 ! 264 264 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r4147 r4624 707 707 READ ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 708 708 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 709 WRITE ( numond, namzdf_tke )709 IF(lwm) WRITE ( numond, namzdf_tke ) 710 710 ! 711 711 ri_cri = 2._wp / ( 2._wp + rn_ediss / rn_ediff ) ! resulting critical Richardson number -
trunk/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90
r4147 r4624 377 377 READ ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 378 378 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 379 WRITE ( numond, namzdf_tmx )379 IF(lwm) WRITE ( numond, namzdf_tmx ) 380 380 381 381 IF(lwp) THEN ! Control print -
trunk/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r4354 r4624 240 240 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 241 241 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 242 CALL ctl_opn( numond, 'output.namelist.dyn', 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. , 1 )243 242 ! 244 243 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark … … 249 248 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 250 249 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', .TRUE. ) 251 WRITE( numond, namctl )252 250 253 251 ! … … 259 257 READ ( numnam_cfg, namcfg, IOSTAT = ios, ERR = 904 ) 260 258 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. ) 261 WRITE( numond, namcfg )262 259 263 260 ! Force values for AGRIF zoom (cf. agrif_user.F90) … … 279 276 ! !--------------------------------------------! 280 277 ! ! set communicator & select the local node ! 278 ! ! NB: mynode also opens output.namelist.dyn ! 279 ! ! on unit number numond on first proc ! 281 280 ! !--------------------------------------------! 282 281 #if defined key_iomput … … 303 302 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) 304 303 304 lwm = (narea == 1) ! control of output namelists 305 305 lwp = (narea == 1) .OR. ln_ctl ! control of all listing output print 306 307 IF(lwm) THEN 308 ! write merged namelists from earlier to output namelist now that the 309 ! file has been opened in call to mynode. nammpp has already been 310 ! written in mynode (if lk_mpp_mpi) 311 WRITE( numond, namctl ) 312 WRITE( numond, namcfg ) 313 ENDIF 306 314 307 315 ! If dimensions of processor grid weren't specified in the namelist file … … 586 594 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist 587 595 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist 588 IF( numond/= -1 ) CLOSE( numond ) ! oce output namelist596 IF( lwm.AND.numond /= -1 ) CLOSE( numond ) ! oce output namelist 589 597 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist 590 598 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist 591 IF( numoni/= -1 ) CLOSE( numoni ) ! ice output namelist599 IF( lwm.AND.numoni /= -1 ) CLOSE( numoni ) ! ice output namelist 592 600 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 593 601 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file -
trunk/NEMOGCM/NEMO/OPA_SRC/step.F90
r4491 r4624 312 312 ENDIF 313 313 IF( kstp == nit000 ) THEN 314 CALL iom_close( numror ) ! close input ocean restart file315 CALL FLUSH ( numond ) ! flush output namelist oce316 CALL FLUSH ( numoni ) ! flush output namelist ice314 CALL iom_close( numror ) ! close input ocean restart file 315 IF(lwm) CALL FLUSH ( numond ) ! flush output namelist oce 316 IF(lwm) CALL FLUSH ( numoni ) ! flush output namelist ice 317 317 ENDIF 318 318 IF( lrst_oce ) CALL rst_write ( kstp ) ! write output ocean restart file
Note: See TracChangeset
for help on using the changeset viewer.