Changeset 3875
- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- Location:
- branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM
- Files:
-
- 47 added
- 27 deleted
- 121 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/ARCH/CNRS/arch-macport_osx.fcm
r3756 r3875 27 27 %NCDF_INC -I/opt/local/include 28 28 %NCDF_LIB -L/opt/local/lib -lnetcdf -lnetcdff 29 %XIOS_ROOT /Users/ smasson/XIOS29 %XIOS_ROOT /Users/clairelevy/Documents/WORK/XIOS 30 30 %FC mpif90 31 31 %FCFLAGS -fdefault-real-8 -O3 -funroll-all-loops -fcray-pointer -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/AMM12/cpp_AMM12.fcm
r3833 r3875 1 bld::tool::fppkeys key_bdy key_tide key_vectopt_loop key_amm_12km key_dynspg_ts key_ldfslp key_zdfgls key_vvl key_diainstant key_mpp_mpi key_iomput 1 bld::tool::fppkeys key_bdy key_tide key_vectopt_loop key_amm_12km key_dynspg_ts key_ldfslp key_zdfgls key_vvl key_diainstant key_mpp_mpi key_iomput key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE/EXP00/iodef.xml
r3771 r3875 21 21 --> 22 22 23 <file_definition type=" one_file" sync_freq="1d" min_digits="4">23 <file_definition type="multiple_file" sync_freq="1d" min_digits="4"> 24 24 25 25 <file_group id="1h" output_freq="1h" output_level="10" enabled=".TRUE."/> <!-- 1h files --> … … 118 118 <variable id="buffer_server_factor_size" type="integer">2</variable> 119 119 <variable id="info_level" type="integer">0</variable> 120 <variable id="using_server" type="boolean"> true</variable>120 <variable id="using_server" type="boolean">false</variable> 121 121 <variable id="using_oasis" type="boolean">false</variable> 122 122 <variable id="oasis_codes_id" type="string" >oceanx</variable> -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE/cpp_GYRE.fcm
r3695 r3875 1 bld::tool::fppkeys key_gyre key_dynspg_flt key_ldfslp key_zdftke key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_gyre key_dynspg_flt key_ldfslp key_zdftke key_iomput key_mpp_mpi key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_BFM/EXP00/solver.stat
r3399 r3875 1 it: 1 iter: 230 r: 0.7440246784E-05 b: 0.1840836680E+00 2 it: 2 iter: 250 r: 0.9359445851E-05 b: 0.2352830875E+00 3 it: 3 iter: 230 r: 0.7006458826E-05 b: 0.3162751066E+00 4 it: 4 iter: 250 r: 0.7963375184E-05 b: 0.7600135454E+00 5 it: 5 iter: 230 r: 0.6853491637E-05 b: 0.8308380404E+00 6 it: 6 iter: 230 r: 0.7072073043E-05 b: 0.9601908004E+00 7 it: 7 iter: 230 r: 0.7993938546E-05 b: 0.8968937663E+00 8 it: 8 iter: 220 r: 0.9452523537E-05 b: 0.9286046333E+00 9 it: 9 iter: 220 r: 0.7643866533E-05 b: 0.8678317378E+00 10 it: 10 iter: 230 r: 0.6734816843E-05 b: 0.8320320445E+00 11 it: 11 iter: 230 r: 0.6555766837E-05 b: 0.7763847661E+00 12 it: 12 iter: 230 r: 0.7881189707E-05 b: 0.7649864886E+00 13 it: 13 iter: 230 r: 0.8218451842E-05 b: 0.7173828982E+00 14 it: 14 iter: 230 r: 0.6144547574E-05 b: 0.7251532602E+00 15 it: 15 iter: 230 r: 0.8895658888E-05 b: 0.7578256449E+00 16 it: 16 iter: 240 r: 0.6909441439E-05 b: 0.7022615898E+00 17 it: 17 iter: 230 r: 0.8711982405E-05 b: 0.7820485476E+00 18 it: 18 iter: 240 r: 0.5646937198E-05 b: 0.6278761617E+00 19 it: 19 iter: 220 r: 0.7750888632E-05 b: 0.7304352525E+00 20 it: 20 iter: 230 r: 0.7665403697E-05 b: 0.6090718109E+00 21 it: 21 iter: 220 r: 0.9206169267E-05 b: 0.6046990692E+00 22 it: 22 iter: 220 r: 0.7880544716E-05 b: 0.6708382256E+00 23 it: 23 iter: 240 r: 0.6805896028E-05 b: 0.6918136672E+00 24 it: 24 iter: 240 r: 0.5257969079E-05 b: 0.7100011136E+00 25 it: 25 iter: 230 r: 0.7255731129E-05 b: 0.6299497651E+00 26 it: 26 iter: 230 r: 0.7955511730E-05 b: 0.5981168369E+00 27 it: 27 iter: 230 r: 0.8723250269E-05 b: 0.7065752333E+00 28 it: 28 iter: 230 r: 0.9084870960E-05 b: 0.6811209792E+00 29 it: 29 iter: 240 r: 0.6265972753E-05 b: 0.6438025850E+00 30 it: 30 iter: 240 r: 0.6756411483E-05 b: 0.7380066457E+00 31 it: 31 iter: 240 r: 0.8267499945E-05 b: 0.5718579407E+00 32 it: 32 iter: 230 r: 0.7822761428E-05 b: 0.5468158515E+00 33 it: 33 iter: 230 r: 0.8554659234E-05 b: 0.5944574379E+00 34 it: 34 iter: 230 r: 0.9814944368E-05 b: 0.6066986782E+00 35 it: 35 iter: 230 r: 0.8281265862E-05 b: 0.6257082797E+00 36 it: 36 iter: 240 r: 0.6434775828E-05 b: 0.7161136630E+00 37 it: 37 iter: 240 r: 0.8493419909E-05 b: 0.6469647840E+00 38 it: 38 iter: 230 r: 0.9514775389E-05 b: 0.6252465293E+00 39 it: 39 iter: 230 r: 0.9696091963E-05 b: 0.6405217223E+00 40 it: 40 iter: 240 r: 0.7487372084E-05 b: 0.6986117635E+00 41 it: 41 iter: 240 r: 0.7147871952E-05 b: 0.7762620324E+00 42 it: 42 iter: 240 r: 0.7872673471E-05 b: 0.6105754302E+00 43 it: 43 iter: 240 r: 0.6699980937E-05 b: 0.5967819085E+00 44 it: 44 iter: 240 r: 0.6723050857E-05 b: 0.6588837375E+00 45 it: 45 iter: 240 r: 0.7533196699E-05 b: 0.5549833564E+00 46 it: 46 iter: 220 r: 0.6344734570E-05 b: 0.5860203472E+00 47 it: 47 iter: 230 r: 0.9878074607E-05 b: 0.6014543803E+00 48 it: 48 iter: 240 r: 0.7035058015E-05 b: 0.5783782087E+00 49 it: 49 iter: 220 r: 0.6529639860E-05 b: 0.7361370508E+00 50 it: 50 iter: 240 r: 0.7729340369E-05 b: 0.5842760800E+00 51 it: 51 iter: 240 r: 0.6788462114E-05 b: 0.6143198588E+00 52 it: 52 iter: 220 r: 0.9937168124E-05 b: 0.6243364139E+00 53 it: 53 iter: 240 r: 0.6534750798E-05 b: 0.5595607447E+00 54 it: 54 iter: 230 r: 0.8678988428E-05 b: 0.7792975280E+00 55 it: 55 iter: 250 r: 0.5709524264E-05 b: 0.5643273114E+00 56 it: 56 iter: 240 r: 0.6868924242E-05 b: 0.6748093667E+00 57 it: 57 iter: 220 r: 0.8802456851E-05 b: 0.4833796887E+00 58 it: 58 iter: 230 r: 0.7963865360E-05 b: 0.5811727569E+00 59 it: 59 iter: 240 r: 0.7604935477E-05 b: 0.6757019066E+00 60 it: 60 iter: 240 r: 0.8249974860E-05 b: 0.6491309310E+00 61 it: 61 iter: 240 r: 0.6962681203E-05 b: 0.5942964677E+00 62 it: 62 iter: 240 r: 0.7920516441E-05 b: 0.5333356047E+00 63 it: 63 iter: 230 r: 0.9979996401E-05 b: 0.5654869154E+00 64 it: 64 iter: 230 r: 0.9440808495E-05 b: 0.5511726149E+00 65 it: 65 iter: 230 r: 0.9721137141E-05 b: 0.6463726156E+00 66 it: 66 iter: 240 r: 0.8200359436E-05 b: 0.7128297479E+00 67 it: 67 iter: 240 r: 0.8549759019E-05 b: 0.7316743242E+00 68 it: 68 iter: 240 r: 0.9628430286E-05 b: 0.5951733959E+00 69 it: 69 iter: 240 r: 0.7366094543E-05 b: 0.6633287622E+00 70 it: 70 iter: 240 r: 0.8231034076E-05 b: 0.6088735400E+00 71 it: 71 iter: 220 r: 0.8624631868E-05 b: 0.5750411699E+00 72 it: 72 iter: 240 r: 0.6294860018E-05 b: 0.6310657497E+00 73 it: 73 iter: 240 r: 0.9365148279E-05 b: 0.7392710383E+00 74 it: 74 iter: 250 r: 0.5364158338E-05 b: 0.5537547290E+00 75 it: 75 iter: 230 r: 0.9773008643E-05 b: 0.6682402833E+00 76 it: 76 iter: 240 r: 0.8100467942E-05 b: 0.4151078256E+00 77 it: 77 iter: 230 r: 0.7799429163E-05 b: 0.7316424154E+00 78 it: 78 iter: 240 r: 0.7895404910E-05 b: 0.5546671882E+00 79 it: 79 iter: 240 r: 0.8022559953E-05 b: 0.6427847760E+00 80 it: 80 iter: 240 r: 0.7277566511E-05 b: 0.6194711553E+00 81 it: 81 iter: 240 r: 0.7281194538E-05 b: 0.5302877545E+00 82 it: 82 iter: 220 r: 0.9419193804E-05 b: 0.5830701993E+00 83 it: 83 iter: 240 r: 0.6201472391E-05 b: 0.5753005254E+00 84 it: 84 iter: 240 r: 0.8012278476E-05 b: 0.7371921321E+00 85 it: 85 iter: 250 r: 0.5491651366E-05 b: 0.5417053834E+00 86 it: 86 iter: 240 r: 0.5899673560E-05 b: 0.6119654171E+00 87 it: 87 iter: 230 r: 0.9885748439E-05 b: 0.4452258232E+00 88 it: 88 iter: 230 r: 0.8059891888E-05 b: 0.5150581792E+00 89 it: 89 iter: 240 r: 0.6474085695E-05 b: 0.7299448326E+00 90 it: 90 iter: 240 r: 0.9823416885E-05 b: 0.5900060073E+00 91 it: 91 iter: 230 r: 0.9877402224E-05 b: 0.5782497516E+00 92 it: 92 iter: 240 r: 0.7243880097E-05 b: 0.6371540604E+00 93 it: 93 iter: 250 r: 0.6636279056E-05 b: 0.6822048243E+00 94 it: 94 iter: 240 r: 0.7952782380E-05 b: 0.6007558897E+00 95 it: 95 iter: 230 r: 0.9479950980E-05 b: 0.4812863791E+00 96 it: 96 iter: 230 r: 0.9716970475E-05 b: 0.5460524242E+00 97 it: 97 iter: 240 r: 0.7071442197E-05 b: 0.7167370757E+00 98 it: 98 iter: 240 r: 0.9140383178E-05 b: 0.7007191239E+00 99 it: 99 iter: 240 r: 0.9325496852E-05 b: 0.5653204254E+00 100 it: 100 iter: 240 r: 0.7224897062E-05 b: 0.6429090388E+00 101 it: 101 iter: 250 r: 0.6076157518E-05 b: 0.5903397131E+00 102 it: 102 iter: 240 r: 0.7709458679E-05 b: 0.5631843117E+00 103 it: 103 iter: 230 r: 0.9483458449E-05 b: 0.4630274284E+00 104 it: 104 iter: 220 r: 0.9163801266E-05 b: 0.5297015960E+00 105 it: 105 iter: 240 r: 0.7057520098E-05 b: 0.6752365938E+00 106 it: 106 iter: 240 r: 0.8819884636E-05 b: 0.7966358545E+00 107 it: 107 iter: 250 r: 0.6716847991E-05 b: 0.5455663238E+00 108 it: 108 iter: 240 r: 0.6937130501E-05 b: 0.6438496359E+00 109 it: 109 iter: 240 r: 0.8127329934E-05 b: 0.4770795941E+00 110 it: 110 iter: 230 r: 0.9027417641E-05 b: 0.5278952315E+00 111 it: 111 iter: 240 r: 0.6025113978E-05 b: 0.5847697136E+00 112 it: 112 iter: 240 r: 0.8995445301E-05 b: 0.6485093354E+00 113 it: 113 iter: 240 r: 0.8035579774E-05 b: 0.5015333593E+00 114 it: 114 iter: 230 r: 0.9945631243E-05 b: 0.6028582927E+00 115 it: 115 iter: 240 r: 0.9530143332E-05 b: 0.5302317353E+00 116 it: 116 iter: 240 r: 0.7375366429E-05 b: 0.6999526779E+00 117 it: 117 iter: 240 r: 0.8084203070E-05 b: 0.5968685018E+00 118 it: 118 iter: 240 r: 0.9186455567E-05 b: 0.5347836484E+00 119 it: 119 iter: 240 r: 0.6828632897E-05 b: 0.6006343873E+00 120 it: 120 iter: 240 r: 0.8126692683E-05 b: 0.5644510961E+00 121 it: 121 iter: 240 r: 0.8506885049E-05 b: 0.5134367555E+00 122 it: 122 iter: 240 r: 0.6041055138E-05 b: 0.5791725527E+00 123 it: 123 iter: 240 r: 0.8966067574E-05 b: 0.5183401294E+00 124 it: 124 iter: 230 r: 0.9630371415E-05 b: 0.4865587842E+00 125 it: 125 iter: 230 r: 0.9901262506E-05 b: 0.5654058301E+00 126 it: 126 iter: 240 r: 0.9839887281E-05 b: 0.6406980159E+00 127 it: 127 iter: 240 r: 0.8660444831E-05 b: 0.6779025257E+00 128 it: 128 iter: 240 r: 0.7588719353E-05 b: 0.6064939748E+00 129 it: 129 iter: 240 r: 0.9979402524E-05 b: 0.5718319709E+00 130 it: 130 iter: 240 r: 0.7130939446E-05 b: 0.5808342373E+00 131 it: 131 iter: 240 r: 0.7794682727E-05 b: 0.6034740220E+00 132 it: 132 iter: 240 r: 0.9500862178E-05 b: 0.5277992927E+00 133 it: 133 iter: 240 r: 0.6528002864E-05 b: 0.5651071124E+00 134 it: 134 iter: 240 r: 0.9017936782E-05 b: 0.5644476204E+00 135 it: 135 iter: 240 r: 0.8436198587E-05 b: 0.4824425524E+00 136 it: 136 iter: 240 r: 0.5647234665E-05 b: 0.5667481086E+00 137 it: 137 iter: 240 r: 0.9586446435E-05 b: 0.5090651378E+00 138 it: 138 iter: 230 r: 0.9471783464E-05 b: 0.4579065362E+00 139 it: 139 iter: 230 r: 0.9087123846E-05 b: 0.5621798442E+00 140 it: 140 iter: 250 r: 0.6164278853E-05 b: 0.6400463775E+00 141 it: 141 iter: 240 r: 0.8405453366E-05 b: 0.6408662750E+00 142 it: 142 iter: 240 r: 0.7106874117E-05 b: 0.4394102239E+00 143 it: 143 iter: 230 r: 0.9492975149E-05 b: 0.5603112032E+00 144 it: 144 iter: 240 r: 0.7017532542E-05 b: 0.4947342810E+00 145 it: 145 iter: 230 r: 0.9625966339E-05 b: 0.6755118834E+00 146 it: 146 iter: 240 r: 0.9014760944E-05 b: 0.4974747733E+00 147 it: 147 iter: 240 r: 0.7186872796E-05 b: 0.6999869410E+00 148 it: 148 iter: 250 r: 0.6162130523E-05 b: 0.5810448777E+00 149 it: 149 iter: 240 r: 0.8121650155E-05 b: 0.5307579148E+00 150 it: 150 iter: 240 r: 0.5841702424E-05 b: 0.4475905272E+00 151 it: 151 iter: 220 r: 0.9300228120E-05 b: 0.5222786160E+00 152 it: 152 iter: 230 r: 0.9744052153E-05 b: 0.4525549979E+00 153 it: 153 iter: 230 r: 0.9273651310E-05 b: 0.8101635553E+00 154 it: 154 iter: 250 r: 0.7361411044E-05 b: 0.6602067514E+00 155 it: 155 iter: 240 r: 0.9034822204E-05 b: 0.7450641854E+00 156 it: 156 iter: 240 r: 0.9522222592E-05 b: 0.5221485717E+00 157 it: 157 iter: 240 r: 0.8452617503E-05 b: 0.5829628861E+00 158 it: 158 iter: 240 r: 0.7316529130E-05 b: 0.6265474727E+00 159 it: 159 iter: 240 r: 0.8853389481E-05 b: 0.5616413830E+00 160 it: 160 iter: 240 r: 0.7884514240E-05 b: 0.5455198798E+00 161 it: 161 iter: 240 r: 0.6296424346E-05 b: 0.5814948170E+00 162 it: 162 iter: 240 r: 0.9250432780E-05 b: 0.5206685079E+00 163 it: 163 iter: 230 r: 0.9972290864E-05 b: 0.5190431048E+00 164 it: 164 iter: 240 r: 0.6340621003E-05 b: 0.5620862805E+00 165 it: 165 iter: 240 r: 0.9368773786E-05 b: 0.6772619087E+00 166 it: 166 iter: 240 r: 0.8238385360E-05 b: 0.5066514750E+00 167 it: 167 iter: 230 r: 0.9946777196E-05 b: 0.6054272709E+00 168 it: 168 iter: 240 r: 0.9499294421E-05 b: 0.5244922683E+00 169 it: 169 iter: 240 r: 0.7113592963E-05 b: 0.7106784558E+00 170 it: 170 iter: 240 r: 0.9228364886E-05 b: 0.5905304516E+00 171 it: 171 iter: 240 r: 0.8746740247E-05 b: 0.5373804561E+00 172 it: 172 iter: 240 r: 0.6849933501E-05 b: 0.6218696094E+00 173 it: 173 iter: 250 r: 0.6035027619E-05 b: 0.5378961005E+00 174 it: 174 iter: 240 r: 0.7412329206E-05 b: 0.5297645900E+00 175 it: 175 iter: 230 r: 0.9615917480E-05 b: 0.4269978634E+00 176 it: 176 iter: 220 r: 0.9097078405E-05 b: 0.4851428437E+00 177 it: 177 iter: 240 r: 0.6753351497E-05 b: 0.6551058178E+00 178 it: 178 iter: 240 r: 0.8992624057E-05 b: 0.7759910549E+00 179 it: 179 iter: 240 r: 0.9910899945E-05 b: 0.5123581884E+00 180 it: 180 iter: 240 r: 0.6677946482E-05 b: 0.6326675073E+00 181 it: 181 iter: 240 r: 0.9345725231E-05 b: 0.6187279633E+00 182 it: 182 iter: 240 r: 0.9236700508E-05 b: 0.5015068284E+00 183 it: 183 iter: 240 r: 0.5895912167E-05 b: 0.6520692342E+00 184 it: 184 iter: 250 r: 0.6157986971E-05 b: 0.5409347688E+00 185 it: 185 iter: 240 r: 0.7743859030E-05 b: 0.4909818976E+00 186 it: 186 iter: 230 r: 0.8962161695E-05 b: 0.4552372908E+00 187 it: 187 iter: 220 r: 0.9705527833E-05 b: 0.4732608271E+00 188 it: 188 iter: 240 r: 0.6635165760E-05 b: 0.6111113062E+00 189 it: 189 iter: 240 r: 0.8751641668E-05 b: 0.8354887705E+00 190 it: 190 iter: 250 r: 0.7272106340E-05 b: 0.4686360906E+00 191 it: 191 iter: 230 r: 0.9998260643E-05 b: 0.6417323699E+00 192 it: 192 iter: 240 r: 0.8352764235E-05 b: 0.4649399091E+00 193 it: 193 iter: 240 r: 0.7693050177E-05 b: 0.6751386667E+00 194 it: 194 iter: 240 r: 0.7837567569E-05 b: 0.5896402728E+00 195 it: 195 iter: 240 r: 0.8298605400E-05 b: 0.5325820463E+00 196 it: 196 iter: 240 r: 0.7578099155E-05 b: 0.5453175304E+00 197 it: 197 iter: 240 r: 0.6203395717E-05 b: 0.5563993510E+00 198 it: 198 iter: 240 r: 0.8656046136E-05 b: 0.5160587698E+00 199 it: 199 iter: 240 r: 0.6870280862E-05 b: 0.5042090074E+00 200 it: 200 iter: 240 r: 0.6214822717E-05 b: 0.5353508505E+00 201 it: 201 iter: 220 r: 0.9806381626E-05 b: 0.4642334713E+00 202 it: 202 iter: 230 r: 0.9562177608E-05 b: 0.4913729447E+00 203 it: 203 iter: 240 r: 0.8077155329E-05 b: 0.8520973000E+00 204 it: 204 iter: 250 r: 0.7388277397E-05 b: 0.6191102859E+00 205 it: 205 iter: 240 r: 0.7485371726E-05 b: 0.6372750347E+00 206 it: 206 iter: 240 r: 0.8769830863E-05 b: 0.5000407239E+00 207 it: 207 iter: 240 r: 0.7912570954E-05 b: 0.4915069139E+00 208 it: 208 iter: 240 r: 0.5592815535E-05 b: 0.6046107420E+00 209 it: 209 iter: 240 r: 0.9006566098E-05 b: 0.5153272632E+00 210 it: 210 iter: 240 r: 0.7145306568E-05 b: 0.4604280214E+00 211 it: 211 iter: 230 r: 0.9176495722E-05 b: 0.5733940681E+00 212 it: 212 iter: 240 r: 0.9035218314E-05 b: 0.4540280089E+00 213 it: 213 iter: 240 r: 0.6528802051E-05 b: 0.6632050333E+00 214 it: 214 iter: 240 r: 0.8343957676E-05 b: 0.5438310607E+00 215 it: 215 iter: 240 r: 0.8628323766E-05 b: 0.4650558834E+00 216 it: 216 iter: 240 r: 0.6040918862E-05 b: 0.5784589612E+00 217 it: 217 iter: 240 r: 0.8276901507E-05 b: 0.5032676750E+00 218 it: 218 iter: 230 r: 0.9607985475E-05 b: 0.4584739098E+00 219 it: 219 iter: 230 r: 0.9822106038E-05 b: 0.5610157955E+00 220 it: 220 iter: 240 r: 0.9442636799E-05 b: 0.6225038684E+00 221 it: 221 iter: 240 r: 0.8561098712E-05 b: 0.6635010554E+00 222 it: 222 iter: 240 r: 0.7477402926E-05 b: 0.6009413263E+00 223 it: 223 iter: 240 r: 0.9987679875E-05 b: 0.5492499510E+00 224 it: 224 iter: 240 r: 0.7248148842E-05 b: 0.5634770560E+00 225 it: 225 iter: 240 r: 0.7133084535E-05 b: 0.5988824784E+00 226 it: 226 iter: 240 r: 0.9522823608E-05 b: 0.4996940676E+00 227 it: 227 iter: 240 r: 0.6193545299E-05 b: 0.5514029879E+00 228 it: 228 iter: 240 r: 0.8249961230E-05 b: 0.5585023455E+00 229 it: 229 iter: 240 r: 0.8774167477E-05 b: 0.4502157386E+00 230 it: 230 iter: 240 r: 0.5467874459E-05 b: 0.5559360104E+00 231 it: 231 iter: 240 r: 0.9140465089E-05 b: 0.5049968419E+00 232 it: 232 iter: 230 r: 0.9579902860E-05 b: 0.4279161802E+00 233 it: 233 iter: 230 r: 0.9202819655E-05 b: 0.5545415983E+00 234 it: 234 iter: 250 r: 0.6285138875E-05 b: 0.6304842881E+00 235 it: 235 iter: 240 r: 0.8343570272E-05 b: 0.6154112359E+00 236 it: 236 iter: 240 r: 0.6505122201E-05 b: 0.4400921324E+00 237 it: 237 iter: 220 r: 0.9310317421E-05 b: 0.5431094757E+00 238 it: 238 iter: 240 r: 0.6784936983E-05 b: 0.4669812808E+00 239 it: 239 iter: 230 r: 0.9368649385E-05 b: 0.8479074480E+00 240 it: 240 iter: 250 r: 0.7017894667E-05 b: 0.4686029721E+00 241 it: 241 iter: 240 r: 0.6868518574E-05 b: 0.7473331886E+00 242 it: 242 iter: 240 r: 0.9601335762E-05 b: 0.4644419933E+00 243 it: 243 iter: 240 r: 0.7403614387E-05 b: 0.4990407123E+00 244 it: 244 iter: 240 r: 0.6035952120E-05 b: 0.6348711003E+00 245 it: 245 iter: 240 r: 0.9543698964E-05 b: 0.4667730597E+00 246 it: 246 iter: 230 r: 0.9244068279E-05 b: 0.5106593689E+00 247 it: 247 iter: 230 r: 0.9675379433E-05 b: 0.5823567227E+00 248 it: 248 iter: 240 r: 0.9850007517E-05 b: 0.6032244784E+00 249 it: 249 iter: 240 r: 0.8414484256E-05 b: 0.7379488667E+00 250 it: 250 iter: 240 r: 0.9359864294E-05 b: 0.5992844742E+00 251 it: 251 iter: 240 r: 0.9805924128E-05 b: 0.5437868254E+00 252 it: 252 iter: 240 r: 0.7200118062E-05 b: 0.6431333476E+00 253 it: 253 iter: 240 r: 0.9497951929E-05 b: 0.5727311966E+00 254 it: 254 iter: 240 r: 0.8608618146E-05 b: 0.5247496678E+00 255 it: 255 iter: 240 r: 0.6477773688E-05 b: 0.6198132050E+00 256 it: 256 iter: 250 r: 0.6167985594E-05 b: 0.5147142200E+00 257 it: 257 iter: 230 r: 0.9873526591E-05 b: 0.5107478304E+00 258 it: 258 iter: 230 r: 0.9242400980E-05 b: 0.4175446613E+00 259 it: 259 iter: 220 r: 0.9628045476E-05 b: 0.6609339294E+00 260 it: 260 iter: 240 r: 0.9025707695E-05 b: 0.6319611640E+00 261 it: 261 iter: 240 r: 0.8795250954E-05 b: 0.8830745300E+00 262 it: 262 iter: 250 r: 0.7693624131E-05 b: 0.5665069240E+00 263 it: 263 iter: 240 r: 0.7726791671E-05 b: 0.6297963525E+00 264 it: 264 iter: 240 r: 0.8326853590E-05 b: 0.5189333421E+00 265 it: 265 iter: 240 r: 0.8199421374E-05 b: 0.5259497410E+00 266 it: 266 iter: 240 r: 0.6449113208E-05 b: 0.5886194174E+00 267 it: 267 iter: 240 r: 0.8675422182E-05 b: 0.5338163661E+00 268 it: 268 iter: 240 r: 0.7591974802E-05 b: 0.4720143198E+00 269 it: 269 iter: 230 r: 0.9997893412E-05 b: 0.5626420956E+00 270 it: 270 iter: 240 r: 0.8914510176E-05 b: 0.4817405806E+00 271 it: 271 iter: 240 r: 0.7291755721E-05 b: 0.6766204399E+00 272 it: 272 iter: 240 r: 0.8136831411E-05 b: 0.5450107949E+00 273 it: 273 iter: 240 r: 0.8786746638E-05 b: 0.5019283584E+00 274 it: 274 iter: 240 r: 0.6716926754E-05 b: 0.5685486814E+00 275 it: 275 iter: 240 r: 0.7767047962E-05 b: 0.5160557965E+00 276 it: 276 iter: 230 r: 0.9965265242E-05 b: 0.4854558213E+00 277 it: 277 iter: 240 r: 0.5982356324E-05 b: 0.5422752979E+00 278 it: 278 iter: 240 r: 0.9054533402E-05 b: 0.6510528018E+00 279 it: 279 iter: 240 r: 0.8480006691E-05 b: 0.4571427144E+00 280 it: 280 iter: 240 r: 0.5504541532E-05 b: 0.5922938569E+00 281 it: 281 iter: 240 r: 0.9844504652E-05 b: 0.5175970175E+00 282 it: 282 iter: 240 r: 0.7407536180E-05 b: 0.4525291246E+00 283 it: 283 iter: 230 r: 0.8579166437E-05 b: 0.6006559903E+00 284 it: 284 iter: 240 r: 0.9724668911E-05 b: 0.4354556592E+00 285 it: 285 iter: 240 r: 0.6023890176E-05 b: 0.6591813277E+00 286 it: 286 iter: 240 r: 0.8502411837E-05 b: 0.5651243431E+00 287 it: 287 iter: 240 r: 0.9512739362E-05 b: 0.4421835563E+00 288 it: 288 iter: 240 r: 0.5685678142E-05 b: 0.5911641339E+00 289 it: 289 iter: 240 r: 0.9268166632E-05 b: 0.5152137872E+00 290 it: 290 iter: 230 r: 0.9724484178E-05 b: 0.4423407239E+00 291 it: 291 iter: 230 r: 0.9396760769E-05 b: 0.5813430382E+00 292 it: 292 iter: 250 r: 0.6577516502E-05 b: 0.6288732492E+00 293 it: 293 iter: 240 r: 0.8451461695E-05 b: 0.6518149542E+00 294 it: 294 iter: 240 r: 0.6781848792E-05 b: 0.4501801403E+00 295 it: 295 iter: 220 r: 0.9959637262E-05 b: 0.5363171884E+00 296 it: 296 iter: 240 r: 0.6778822387E-05 b: 0.4825648186E+00 297 it: 297 iter: 240 r: 0.7594642927E-05 b: 0.8625428827E+00 298 it: 298 iter: 250 r: 0.7483566491E-05 b: 0.4695307145E+00 299 it: 299 iter: 240 r: 0.6253892640E-05 b: 0.5902785545E+00 300 it: 300 iter: 240 r: 0.8294760274E-05 b: 0.4798512636E+00 301 it: 301 iter: 230 r: 0.9687031296E-05 b: 0.4219920052E+00 302 it: 302 iter: 230 r: 0.9225592427E-05 b: 0.5648579003E+00 303 it: 303 iter: 240 r: 0.9388302120E-05 b: 0.6700980624E+00 304 it: 304 iter: 240 r: 0.9153470558E-05 b: 0.5937010051E+00 305 it: 305 iter: 240 r: 0.6806149190E-05 b: 0.6181465279E+00 306 it: 306 iter: 250 r: 0.6545420125E-05 b: 0.5756197731E+00 307 it: 307 iter: 240 r: 0.7744927602E-05 b: 0.5092369391E+00 308 it: 308 iter: 230 r: 0.8744916633E-05 b: 0.4573424476E+00 309 it: 309 iter: 230 r: 0.9442396183E-05 b: 0.5066584846E+00 310 it: 310 iter: 240 r: 0.7084839957E-05 b: 0.6300566890E+00 311 it: 311 iter: 240 r: 0.8618669529E-05 b: 0.6884236710E+00 312 it: 312 iter: 240 r: 0.9275503474E-05 b: 0.5036022021E+00 313 it: 313 iter: 240 r: 0.6919289411E-05 b: 0.5728547455E+00 314 it: 314 iter: 240 r: 0.8942676909E-05 b: 0.5844163973E+00 315 it: 315 iter: 240 r: 0.8388772295E-05 b: 0.4846939204E+00 316 it: 316 iter: 240 r: 0.5739100066E-05 b: 0.5831024730E+00 317 it: 317 iter: 240 r: 0.9434372940E-05 b: 0.5178686374E+00 318 it: 318 iter: 230 r: 0.9861691195E-05 b: 0.4656964406E+00 319 it: 319 iter: 230 r: 0.8971064070E-05 b: 0.5733799575E+00 320 it: 320 iter: 240 r: 0.9903829223E-05 b: 0.6593697397E+00 321 it: 321 iter: 240 r: 0.9014966680E-05 b: 0.6684955387E+00 322 it: 322 iter: 240 r: 0.8375983376E-05 b: 0.6251140670E+00 323 it: 323 iter: 250 r: 0.6447050802E-05 b: 0.5607851626E+00 324 it: 324 iter: 240 r: 0.7281354067E-05 b: 0.5898233933E+00 325 it: 325 iter: 240 r: 0.7891438283E-05 b: 0.4257134507E+00 326 it: 326 iter: 230 r: 0.9111914991E-05 b: 0.5140988199E+00 327 it: 327 iter: 240 r: 0.6421472217E-05 b: 0.5071089201E+00 328 it: 328 iter: 230 r: 0.9888393396E-05 b: 0.6476089032E+00 329 it: 329 iter: 240 r: 0.8199863171E-05 b: 0.4681191792E+00 330 it: 330 iter: 240 r: 0.6580117926E-05 b: 0.7135228391E+00 331 it: 331 iter: 250 r: 0.6961575827E-05 b: 0.5216087612E+00 332 it: 332 iter: 240 r: 0.6795216420E-05 b: 0.5342925318E+00 333 it: 333 iter: 230 r: 0.9272336578E-05 b: 0.4464092554E+00 334 it: 334 iter: 230 r: 0.9358211024E-05 b: 0.4543204929E+00 335 it: 335 iter: 240 r: 0.6494875853E-05 b: 0.6897801097E+00 336 it: 336 iter: 240 r: 0.9398593229E-05 b: 0.6483492695E+00 337 it: 337 iter: 240 r: 0.8970751734E-05 b: 0.4861260074E+00 338 it: 338 iter: 240 r: 0.6492204211E-05 b: 0.6283166015E+00 339 it: 339 iter: 250 r: 0.6282521245E-05 b: 0.5356801975E+00 340 it: 340 iter: 240 r: 0.7866565313E-05 b: 0.4963618785E+00 341 it: 341 iter: 230 r: 0.9110858297E-05 b: 0.4354634931E+00 342 it: 342 iter: 220 r: 0.9622046653E-05 b: 0.4655574988E+00 343 it: 343 iter: 240 r: 0.6678022741E-05 b: 0.6184513419E+00 344 it: 344 iter: 240 r: 0.8829474468E-05 b: 0.8104726331E+00 345 it: 345 iter: 250 r: 0.7157722604E-05 b: 0.4727655304E+00 346 it: 346 iter: 240 r: 0.6433293473E-05 b: 0.6331781769E+00 347 it: 347 iter: 240 r: 0.8376333111E-05 b: 0.4483322391E+00 348 it: 348 iter: 230 r: 0.9032626249E-05 b: 0.4573054905E+00 349 it: 349 iter: 230 r: 0.9923279836E-05 b: 0.5803391117E+00 350 it: 350 iter: 240 r: 0.9158589477E-05 b: 0.6182516123E+00 351 it: 351 iter: 240 r: 0.8742408528E-05 b: 0.6654006406E+00 352 it: 352 iter: 240 r: 0.7742233892E-05 b: 0.6065475129E+00 353 it: 353 iter: 240 r: 0.9911840287E-05 b: 0.5503476040E+00 354 it: 354 iter: 240 r: 0.7566892071E-05 b: 0.5592587298E+00 355 it: 355 iter: 240 r: 0.7058886898E-05 b: 0.6070216169E+00 356 it: 356 iter: 240 r: 0.9532244842E-05 b: 0.5021220588E+00 357 it: 357 iter: 240 r: 0.6581905373E-05 b: 0.5428098796E+00 358 it: 358 iter: 240 r: 0.7739991638E-05 b: 0.5710056940E+00 359 it: 359 iter: 240 r: 0.8758601072E-05 b: 0.4513770944E+00 360 it: 360 iter: 240 r: 0.5612180673E-05 b: 0.5456855029E+00 361 it: 361 iter: 240 r: 0.8818081887E-05 b: 0.5219130511E+00 362 it: 362 iter: 240 r: 0.7693135936E-05 b: 0.4230324205E+00 363 it: 363 iter: 230 r: 0.9330402960E-05 b: 0.5466741815E+00 364 it: 364 iter: 240 r: 0.9329723621E-05 b: 0.4571170068E+00 365 it: 365 iter: 230 r: 0.9597716286E-05 b: 0.6113816086E+00 366 it: 366 iter: 240 r: 0.6862418219E-05 b: 0.5346482659E+00 367 it: 367 iter: 240 r: 0.9579590312E-05 b: 0.6636934893E+00 368 it: 368 iter: 240 r: 0.8884686379E-05 b: 0.5200160853E+00 369 it: 369 iter: 240 r: 0.6925065330E-05 b: 0.5806576814E+00 370 it: 370 iter: 240 r: 0.9298083171E-05 b: 0.5320130285E+00 371 it: 371 iter: 240 r: 0.6729450195E-05 b: 0.5107096618E+00 372 it: 372 iter: 240 r: 0.8300216838E-05 b: 0.5725637345E+00 373 it: 373 iter: 240 r: 0.8463547174E-05 b: 0.4607061379E+00 374 it: 374 iter: 240 r: 0.5818753748E-05 b: 0.5183287506E+00 375 it: 375 iter: 240 r: 0.9023857877E-05 b: 0.5269511380E+00 376 it: 376 iter: 240 r: 0.7381909967E-05 b: 0.4197384345E+00 377 it: 377 iter: 230 r: 0.9174465056E-05 b: 0.5253456364E+00 378 it: 378 iter: 240 r: 0.9177801147E-05 b: 0.4661442161E+00 379 it: 379 iter: 240 r: 0.6739015755E-05 b: 0.5961511088E+00 380 it: 380 iter: 240 r: 0.7138913606E-05 b: 0.5186325957E+00 381 it: 381 iter: 220 r: 0.9957458341E-05 b: 0.4708350683E+00 382 it: 382 iter: 240 r: 0.6214118912E-05 b: 0.5084594626E+00 383 it: 383 iter: 240 r: 0.8884779870E-05 b: 0.8302238398E+00 384 it: 384 iter: 250 r: 0.6888254275E-05 b: 0.4363495398E+00 385 it: 385 iter: 230 r: 0.9720238700E-05 b: 0.6293956176E+00 386 it: 386 iter: 240 r: 0.9602391250E-05 b: 0.4306623454E+00 387 it: 387 iter: 240 r: 0.7496942815E-05 b: 0.6284278745E+00 388 it: 388 iter: 240 r: 0.7372637604E-05 b: 0.5847502653E+00 389 it: 389 iter: 240 r: 0.9468369013E-05 b: 0.4885956905E+00 390 it: 390 iter: 240 r: 0.7094294922E-05 b: 0.5274549895E+00 391 it: 391 iter: 240 r: 0.6769266082E-05 b: 0.5442979043E+00 392 it: 392 iter: 240 r: 0.8962624793E-05 b: 0.4623300794E+00 393 it: 393 iter: 230 r: 0.9990717937E-05 b: 0.5163570594E+00 394 it: 394 iter: 240 r: 0.7721915098E-05 b: 0.5096005808E+00 395 it: 395 iter: 240 r: 0.8505263053E-05 b: 0.6318946869E+00 396 it: 396 iter: 240 r: 0.8106982358E-05 b: 0.5139391077E+00 397 it: 397 iter: 240 r: 0.8482016367E-05 b: 0.5357793469E+00 398 it: 398 iter: 240 r: 0.7605386113E-05 b: 0.4951472641E+00 399 it: 399 iter: 240 r: 0.6418019887E-05 b: 0.5151271467E+00 400 it: 400 iter: 230 r: 0.9969223169E-05 b: 0.5131293456E+00 401 it: 401 iter: 230 r: 0.9992956814E-05 b: 0.4492217122E+00 402 it: 402 iter: 230 r: 0.9493837033E-05 b: 0.6823456869E+00 403 it: 403 iter: 250 r: 0.7125462203E-05 b: 0.6722935400E+00 404 it: 404 iter: 240 r: 0.9957566837E-05 b: 0.7253749806E+00 405 it: 405 iter: 240 r: 0.8891937286E-05 b: 0.4636747592E+00 406 it: 406 iter: 240 r: 0.8185325290E-05 b: 0.6021556031E+00 407 it: 407 iter: 240 r: 0.8514384324E-05 b: 0.5698450922E+00 408 it: 408 iter: 240 r: 0.8268173790E-05 b: 0.5223330648E+00 409 it: 409 iter: 230 r: 0.9915960192E-05 b: 0.5589034893E+00 410 it: 410 iter: 240 r: 0.7578172603E-05 b: 0.5145736742E+00 411 it: 411 iter: 240 r: 0.9362076096E-05 b: 0.7068986819E+00 412 it: 412 iter: 240 r: 0.8840618595E-05 b: 0.5057077629E+00 413 it: 413 iter: 240 r: 0.6776175784E-05 b: 0.5686641264E+00 414 it: 414 iter: 240 r: 0.9850784521E-05 b: 0.5733874559E+00 415 it: 415 iter: 240 r: 0.7719911188E-05 b: 0.4785166967E+00 416 it: 416 iter: 230 r: 0.9253049781E-05 b: 0.5869789134E+00 417 it: 417 iter: 240 r: 0.9727638040E-05 b: 0.4936785828E+00 418 it: 418 iter: 240 r: 0.7357747291E-05 b: 0.6731020200E+00 419 it: 419 iter: 240 r: 0.8864878948E-05 b: 0.5607498834E+00 420 it: 420 iter: 240 r: 0.9042773412E-05 b: 0.5081433387E+00 421 it: 421 iter: 240 r: 0.7122642675E-05 b: 0.5837552421E+00 422 it: 422 iter: 240 r: 0.9742336129E-05 b: 0.5209029834E+00 423 it: 423 iter: 240 r: 0.7562697089E-05 b: 0.4980639854E+00 424 it: 424 iter: 240 r: 0.6408566905E-05 b: 0.5642943617E+00 425 it: 425 iter: 240 r: 0.9824615815E-05 b: 0.4688218575E+00 426 it: 426 iter: 230 r: 0.9129894730E-05 b: 0.4883165764E+00 427 it: 427 iter: 230 r: 0.9232905961E-05 b: 0.5424591442E+00 428 it: 428 iter: 240 r: 0.9885656084E-05 b: 0.6080138351E+00 429 it: 429 iter: 240 r: 0.8684206709E-05 b: 0.6998539087E+00 430 it: 430 iter: 240 r: 0.9333254608E-05 b: 0.5672755834E+00 431 it: 431 iter: 240 r: 0.9584027329E-05 b: 0.5469060250E+00 432 it: 432 iter: 240 r: 0.7875190959E-05 b: 0.6072683806E+00 433 it: 433 iter: 250 r: 0.5683773505E-05 b: 0.5484402581E+00 434 it: 434 iter: 240 r: 0.8036333302E-05 b: 0.5256307673E+00 435 it: 435 iter: 240 r: 0.6285860484E-05 b: 0.3885253755E+00 436 it: 436 iter: 220 r: 0.9006940402E-05 b: 0.4995674972E+00 437 it: 437 iter: 230 r: 0.9768021627E-05 b: 0.4121814020E+00 438 it: 438 iter: 230 r: 0.8855905043E-05 b: 0.7424947274E+00 439 it: 439 iter: 250 r: 0.6999985699E-05 b: 0.6453379767E+00 440 it: 440 iter: 240 r: 0.9307017519E-05 b: 0.6903100806E+00 441 it: 441 iter: 240 r: 0.8981222548E-05 b: 0.4821343709E+00 442 it: 442 iter: 230 r: 0.9948547069E-05 b: 0.5717358533E+00 443 it: 443 iter: 240 r: 0.7786240736E-05 b: 0.5668128653E+00 444 it: 444 iter: 240 r: 0.8896388689E-05 b: 0.7276095222E+00 445 it: 445 iter: 240 r: 0.9285725823E-05 b: 0.5178496122E+00 446 it: 446 iter: 240 r: 0.7112559669E-05 b: 0.5962758277E+00 447 it: 447 iter: 250 r: 0.6208478821E-05 b: 0.6037386886E+00 448 it: 448 iter: 240 r: 0.8469099610E-05 b: 0.4830438756E+00 449 it: 449 iter: 230 r: 0.9201679690E-05 b: 0.4470009097E+00 450 it: 450 iter: 220 r: 0.9410464807E-05 b: 0.5274449367E+00 451 it: 451 iter: 240 r: 0.7766112732E-05 b: 0.6044952597E+00 452 it: 452 iter: 240 r: 0.8527821750E-05 b: 0.8504510693E+00 453 it: 453 iter: 250 r: 0.7240964669E-05 b: 0.5143883743E+00 454 it: 454 iter: 240 r: 0.7489859460E-05 b: 0.5922246735E+00 455 it: 455 iter: 240 r: 0.8150684278E-05 b: 0.4857339643E+00 456 it: 456 iter: 240 r: 0.7724457443E-05 b: 0.4876586048E+00 457 it: 457 iter: 240 r: 0.6042020297E-05 b: 0.5549232420E+00 458 it: 458 iter: 240 r: 0.8374412856E-05 b: 0.4953621744E+00 459 it: 459 iter: 230 r: 0.9573243419E-05 b: 0.4447831730E+00 460 it: 460 iter: 230 r: 0.9381329858E-05 b: 0.5309644787E+00 461 it: 461 iter: 240 r: 0.9096529844E-05 b: 0.6416171934E+00 462 it: 462 iter: 240 r: 0.9356532044E-05 b: 0.6327577836E+00 463 it: 463 iter: 240 r: 0.7628339945E-05 b: 0.5861280263E+00 464 it: 464 iter: 240 r: 0.9310552466E-05 b: 0.5580416643E+00 465 it: 465 iter: 240 r: 0.7485669403E-05 b: 0.5403008993E+00 466 it: 466 iter: 240 r: 0.7590805052E-05 b: 0.5849930918E+00 467 it: 467 iter: 240 r: 0.8711915552E-05 b: 0.5042455237E+00 468 it: 468 iter: 240 r: 0.6769849941E-05 b: 0.5298753819E+00 469 it: 469 iter: 240 r: 0.8625549459E-05 b: 0.5461276100E+00 470 it: 470 iter: 240 r: 0.7776347800E-05 b: 0.4534267118E+00 471 it: 471 iter: 240 r: 0.5593618373E-05 b: 0.5323264584E+00 472 it: 472 iter: 240 r: 0.8997664200E-05 b: 0.4923070869E+00 473 it: 473 iter: 230 r: 0.9508383995E-05 b: 0.4317418978E+00 474 it: 474 iter: 230 r: 0.8611632240E-05 b: 0.5294936990E+00 475 it: 475 iter: 240 r: 0.9258400228E-05 b: 0.6313671325E+00 476 it: 476 iter: 240 r: 0.8830978793E-05 b: 0.6126531403E+00 477 it: 477 iter: 240 r: 0.7799803557E-05 b: 0.5809797260E+00 478 it: 478 iter: 240 r: 0.9417847817E-05 b: 0.5402032508E+00 479 it: 479 iter: 240 r: 0.7268906785E-05 b: 0.5385576541E+00 480 it: 480 iter: 240 r: 0.8569757263E-05 b: 0.5725175500E+00 481 it: 481 iter: 240 r: 0.8475435149E-05 b: 0.4905396017E+00 482 it: 482 iter: 240 r: 0.6424251242E-05 b: 0.5364602675E+00 483 it: 483 iter: 240 r: 0.9134335064E-05 b: 0.5240236375E+00 484 it: 484 iter: 240 r: 0.7416399646E-05 b: 0.4484277866E+00 485 it: 485 iter: 230 r: 0.9218489387E-05 b: 0.5391608057E+00 486 it: 486 iter: 240 r: 0.9223369078E-05 b: 0.4644560614E+00 487 it: 487 iter: 240 r: 0.7005374647E-05 b: 0.6378454473E+00 488 it: 488 iter: 240 r: 0.7907276860E-05 b: 0.5260457717E+00 489 it: 489 iter: 240 r: 0.9134300298E-05 b: 0.4802181676E+00 490 it: 490 iter: 240 r: 0.6511731237E-05 b: 0.5403219967E+00 491 it: 491 iter: 240 r: 0.8293826991E-05 b: 0.5000780339E+00 492 it: 492 iter: 230 r: 0.9743260463E-05 b: 0.4640877349E+00 493 it: 493 iter: 240 r: 0.6066313601E-05 b: 0.5200489203E+00 494 it: 494 iter: 240 r: 0.9602688039E-05 b: 0.6348974306E+00 495 it: 495 iter: 240 r: 0.8320959887E-05 b: 0.4386132859E+00 496 it: 496 iter: 230 r: 0.9443219904E-05 b: 0.5712801852E+00 497 it: 497 iter: 250 r: 0.6223852704E-05 b: 0.4987189619E+00 498 it: 498 iter: 240 r: 0.7078328173E-05 b: 0.6403667777E+00 499 it: 499 iter: 240 r: 0.6915966497E-05 b: 0.4042775883E+00 500 it: 500 iter: 220 r: 0.8664600046E-05 b: 0.4916638907E+00 501 it: 501 iter: 240 r: 0.6711099272E-05 b: 0.4742347645E+00 502 it: 502 iter: 230 r: 0.9650599205E-05 b: 0.7509994968E+00 503 it: 503 iter: 240 r: 0.8934242190E-05 b: 0.4543437950E+00 504 it: 504 iter: 240 r: 0.7328752331E-05 b: 0.7420407966E+00 505 it: 505 iter: 250 r: 0.6598827075E-05 b: 0.5884958251E+00 506 it: 506 iter: 240 r: 0.8212692098E-05 b: 0.5053207308E+00 507 it: 507 iter: 230 r: 0.9641290906E-05 b: 0.4774920508E+00 508 it: 508 iter: 240 r: 0.8446481906E-05 b: 0.5142522888E+00 509 it: 509 iter: 240 r: 0.7764252095E-05 b: 0.6518201897E+00 510 it: 510 iter: 240 r: 0.7247433046E-05 b: 0.5365145975E+00 511 it: 511 iter: 240 r: 0.8753242134E-05 b: 0.5110914352E+00 512 it: 512 iter: 240 r: 0.7214231487E-05 b: 0.5192317487E+00 513 it: 513 iter: 240 r: 0.6794496960E-05 b: 0.5265835226E+00 514 it: 514 iter: 240 r: 0.8257783113E-05 b: 0.4778625755E+00 515 it: 515 iter: 240 r: 0.6438038030E-05 b: 0.5007288407E+00 516 it: 516 iter: 240 r: 0.7891620437E-05 b: 0.4941909213E+00 517 it: 517 iter: 230 r: 0.9681402627E-05 b: 0.4341059740E+00 518 it: 518 iter: 230 r: 0.9372592410E-05 b: 0.4966207185E+00 519 it: 519 iter: 240 r: 0.8916130859E-05 b: 0.6315138857E+00 520 it: 520 iter: 240 r: 0.9111939995E-05 b: 0.6113427916E+00 521 it: 521 iter: 240 r: 0.7566852609E-05 b: 0.5552510727E+00 522 it: 522 iter: 240 r: 0.9400566307E-05 b: 0.5644593327E+00 523 it: 523 iter: 240 r: 0.7735477877E-05 b: 0.5041612002E+00 524 it: 524 iter: 230 r: 0.9910217652E-05 b: 0.5639666282E+00 525 it: 525 iter: 240 r: 0.9020769555E-05 b: 0.5112527467E+00 526 it: 526 iter: 240 r: 0.7816155122E-05 b: 0.6997629593E+00 527 it: 527 iter: 240 r: 0.9073213369E-05 b: 0.5421948127E+00 528 it: 528 iter: 240 r: 0.8376702758E-05 b: 0.5392260510E+00 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_BFM/cpp_GYRE_BFM.fcm
r3695 r3875 1 bld::tool::fppkeys key_gyre key_dynspg_flt key_ldfslp key_zdftke key_vectopt_loop key_top key_my_trc key_mpp_mpi key_iomput 1 bld::tool::fppkeys key_gyre key_dynspg_flt key_ldfslp key_zdftke key_vectopt_loop key_top key_my_trc key_mpp_mpi key_iomput key_nosignedzero 2 2 inc $BFMDIR/src/nemo/bfm.fcm -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/GYRE_PISCES/cpp_GYRE_PISCES.fcm
r3695 r3875 1 bld::tool::fppkeys key_gyre key_dynspg_flt key_ldfslp key_zdftke key_top key_pisces_reduced key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_gyre key_dynspg_flt key_ldfslp key_zdftke key_top key_pisces_reduced key_iomput key_mpp_mpi key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM/cpp_ORCA2_LIM.fcm
r3695 r3875 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/EXP00/STRAIT.dat
r3567 r3875 1 1 2 2 Net freshwater budget 3 fwf = -3.43323E-06m3 = 0.00000 Sv4 3 fwf = 5.90515E-05 m3 = 0.00000 Sv 4 5 5 zarea = 3.57005E+14 6 6 zvol = 1.32653E+18 7 7 8 8 Mean sea level : 9 9 at nit000 = 0.00000E+00 m3 10 at nitend = -3. 24688E+12m311 diff = -3. 24688E+12 m3 = -1.25266Sv12 mean sea level elevation = -0.00 909m13 10 at nitend = -3.98438E-01 m3 11 diff = -3.98438E-01 m3 = -0.00000 Sv 12 mean sea level elevation = -0.00000 m 13 14 14 Anomaly of salinity content : 15 at nit000 = 5.65470E+14psu.m316 at nitend = - 3.35735E+13psu.m317 diff = -5. 99044E+14 psu.m318 15 at nit000 = -2.20495E+15 psu.m3 16 at nitend = -2.76348E+15 psu.m3 17 diff = -5.58530E+14 psu.m3 18 19 19 Mean salinity : 20 at nit000 = 34.72 697psu21 at nitend = 34.72 651psu22 diff = -0.0004 5psu23 S-SLevitus= -0.00 003psu24 20 at nit000 = 34.72488 psu 21 at nitend = 34.72446 psu 22 diff = -0.00042 psu 23 S-SLevitus= -0.00208 psu 24 25 25 Gibraltar : 26 Flux entrant (Sv) : 0. 403727 Flux sortant (Sv) : -0. 819628 T entrant (deg) : 1 3.192329 T sortant (deg) : 1 3.099430 S entrant (psu) : 3 1.381731 S sortant (psu) : 37. 712932 26 Flux entrant (Sv) : 0.5713 27 Flux sortant (Sv) : -0.5958 28 T entrant (deg) : 16.1815 29 T sortant (deg) : 12.6934 30 S entrant (psu) : 36.0673 31 S sortant (psu) : 37.8858 32 33 33 Cadiz : 34 Flux entrant (Sv) : 4.563335 Flux sortant (Sv) : - 4.989036 T entrant (deg) : 1 3.232837 T sortant (deg) : 11. 684138 S entrant (psu) : 3 5.892739 S sortant (psu) : 3 5.980040 34 Flux entrant (Sv) : 2.5583 35 Flux sortant (Sv) : -2.5828 36 T entrant (deg) : 14.3696 37 T sortant (deg) : 11.9981 38 S entrant (psu) : 36.0057 39 S sortant (psu) : 36.0549 40 41 41 Bab el Mandeb : 42 Flux entrant (Sv) : 0. 452643 Flux sortant (Sv) : -0. 437544 T entrant (deg) : 1 0.170245 T sortant (deg) : 2 5.059946 S entrant (psu) : 3 7.735347 S sortant (psu) : 36. 233848 42 Flux entrant (Sv) : 0.2526 43 Flux sortant (Sv) : -0.2675 44 T entrant (deg) : 15.8806 45 T sortant (deg) : 23.5775 46 S entrant (psu) : 36.9325 47 S sortant (psu) : 36.1224 48 49 49 Baltic : 50 Flux entrant (Sv) : 0.0 77551 Flux sortant (Sv) : -0.0 87652 T entrant (deg) : 1.546953 T sortant (deg) : 2.659554 S entrant (psu) : 8.147155 S sortant (psu) : 14.551050 Flux entrant (Sv) : 0.0457 51 Flux sortant (Sv) : -0.0617 52 T entrant (deg) : 3.8966 53 T sortant (deg) : 5.5943 54 S entrant (psu) : 7.0356 55 S sortant (psu) : 9.7869 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_CFC_C14b/cpp_ORCA2_LIM_CFC_C14b.fcm
r3695 r3875 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_cfc key_c14b key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_cfc key_c14b key_iomput key_mpp_mpi key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_LIM_PISCES/cpp_ORCA2_LIM_PISCES.fcm
r3695 r3875 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_pisces key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_top key_pisces key_iomput key_mpp_mpi key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_OFF_PISCES/cpp_ORCA2_OFF_PISCES.fcm
r3695 r3875 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_ldfslp key_traldf_c2d key_traldf_eiv key_top key_offline key_pisces key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_ldfslp key_traldf_c2d key_traldf_eiv key_top key_offline key_pisces key_iomput key_mpp_mpi key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/EXP00/opa
r3331 r3875 1 link / noc/msm/working/nemo/sga/NEMO/FORGE/SAS/NEMOGCM/CONFIG/ORCA2_SAS_LIM/BLD/bin/nemo.exe1 link /Users/clairelevy/Documents/WORK/CONFIG_SETTING2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/BLD/bin/nemo.exe -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/ORCA2_SAS_LIM/cpp_ORCA2_SAS_LIM.fcm
r3695 r3875 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi 1 bld::tool::fppkeys key_trabbl key_orca_r2 key_lim2 key_dynspg_flt key_diaeiv key_ldfslp key_traldf_c2d key_traldf_eiv key_dynldf_c3d key_zdftke key_zdfddm key_zdftmx key_iomput key_mpp_mpi key_nosignedzero -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/CONFIG/cfg.txt
r3769 r3875 1 ORCA2_LIM3 OPA_SRC LIM_SRC_3 2 ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC 3 ORCA2_LIM_PISCES OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 1 4 AMM12 OPA_SRC 5 GYRE_PISCES OPA_SRC TOP_SRC 2 6 GYRE OPA_SRC 3 7 GYRE_BFM OPA_SRC TOP_SRC 4 GYRE_PISCES OPA_SRC TOP_SRC 5 ORCA2_LIM3 OPA_SRC LIM_SRC_3 6 ORCA2_LIM_PISCES OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 8 O2L3 OPA_SRC LIM_SRC_3 TOP_SRC 7 9 ORCA2_OFF_PISCES OPA_SRC OFF_SRC TOP_SRC 8 10 ORCA2_SAS_LIM OPA_SRC SAS_SRC LIM_SRC_2 NST_SRC 9 11 ORCA2_LIM_CFC_C14b OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 10 ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r3625 r3875 72 72 & 'use more ocean levels or less ice layers/categories.' ) 73 73 74 ! ! Open the namelist file 75 CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 74 ! ! Open the reference and configuration namelist files and namelist output file 75 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 77 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 78 ! 77 79 CALL ice_run_2 ! read in namelist some run parameters … … 111 113 !!------------------------------------------------------------------- 112 114 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 115 INTEGER :: ios ! Local integer output status for namelist read 113 116 !!------------------------------------------------------------------- 114 117 ! 115 REWIND( numnam_ice ) ! Read Namelist namicerun 116 READ ( numnam_ice , namicerun ) 118 REWIND( numnam_ice_ref ) ! Namelist namicerun in reference namelist : Parameters for ice 119 READ ( numnam_ice_ref, namicerun, IOSTAT = ios, ERR = 901) 120 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in reference namelist', lwp ) 121 122 REWIND( numnam_ice_cfg ) ! Namelist namicerun in configuration namelist : Parameters for ice 123 READ ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 124 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 125 WRITE ( numoni, namicerun ) 117 126 ! 118 127 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90
r3625 r3875 176 176 INTEGER :: jv ! dummy loop indice 177 177 INTEGER :: ntot , ndeb, nv, ierr ! local integer 178 INTEGER :: ios ! Local integer output status for namelist read 178 179 REAL(wp) :: zxx0, zxx1 ! local scalars 179 180 180 181 NAMELIST/namicedia/fmtinf, nfrinf, ninfo, ntmoy 181 182 !!------------------------------------------------------------------- 182 183 REWIND( numnam_ice ) ! Read Namelist namicedia 184 READ ( numnam_ice , namicedia ) 183 184 REWIND( numnam_ice_ref ) ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 185 READ ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 186 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 187 188 REWIND( numnam_ice_cfg ) ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu 189 READ ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 190 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 191 WRITE ( numoni, namicedia ) 185 192 186 193 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdmp_2.F90
r3635 r3875 97 97 INTEGER :: ji, jj, jk ! dummy loop indices 98 98 INTEGER :: irelax, ierror ! error flag for allocation 99 INTEGER :: ios ! Local integer output status for namelist read 99 100 ! 100 101 REAL(wp) :: zdmpmax, zdmpmin, zfactor, zreltim ! temporary scalar … … 116 117 sn_hicif = FLD_N( 'ice_damping ', -1 , 'hicif' , .true. , .true. , 'yearly' , '' , '' ) 117 118 sn_frld = FLD_N( 'ice_damping ', -1 , 'frld' , .true. , .true. , 'yearly' , '' , '' ) 119 120 REWIND( numnam_ice_ref ) ! Namelist namice_dmp in reference namelist : Ice restoring 121 READ ( numnam_ice_ref, namice_dmp, IOSTAT = ios, ERR = 901) 122 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in reference namelist', lwp ) 118 123 119 REWIND( numnam_ice ) !* read in namelist_ice namicedmp 120 READ ( numnam_ice, namice_dmp ) 124 REWIND( numnam_ice_cfg ) ! Namelist namice_dmp in configuration namelist : Ice restoring 125 READ ( numnam_ice_cfg, namice_dmp, IOSTAT = ios, ERR = 902 ) 126 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in configuration namelist', lwp ) 127 WRITE ( numoni, namice_dmp ) 121 128 ! 122 129 IF ( lwp ) THEN !* control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90
r3625 r3875 224 224 !! ** input : Namelist namicedyn 225 225 !!------------------------------------------------------------------- 226 INTEGER :: ios ! Local integer output status for namelist read 226 227 NAMELIST/namicedyn/ epsd, alpha, & 227 228 & dm, nbiter, nbitdr, om, resl, cw, angvg, pstar, & … … 229 230 & nevp, telast,alphaevp 230 231 !!------------------------------------------------------------------- 231 232 REWIND ( numnam_ice ) ! Read Namelist namicedyn 233 READ ( numnam_ice , namicedyn ) 232 233 REWIND( numnam_ice_ref ) ! Namelist namicedyn in reference namelist : Ice dynamics 234 READ ( numnam_ice_ref, namicedyn, IOSTAT = ios, ERR = 901) 235 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in reference namelist', lwp ) 236 237 REWIND( numnam_ice_cfg ) ! Namelist namicedyn in configuration namelist : Ice dynamics 238 READ ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 239 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 240 WRITE ( numoni, namicedyn ) 234 241 235 242 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90
r3625 r3875 163 163 INTEGER :: inum_ice 164 164 INTEGER :: ji,jj 165 INTEGER :: ios ! Local integer output status for namelist read 165 166 166 167 NAMELIST/namiceini/ ln_limini, ttest, hninn, hginn, alinn, & 167 168 & hnins, hgins, alins 168 169 !!------------------------------------------------------------------- 169 ! 170 REWIND ( numnam_ice ) ! Read Namelist namiceini 171 READ ( numnam_ice , namiceini ) 170 171 REWIND( numnam_ice_ref ) ! Namelist namiceini in reference namelist : Ice initial state 172 READ ( numnam_ice_ref, namiceini, IOSTAT = ios, ERR = 901) 173 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in reference namelist', lwp ) 174 175 REWIND( numnam_ice_cfg ) ! Namelist namiceini in configuration namelist : Ice initial state 176 READ ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 177 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 178 WRITE ( numoni, namiceini ) 172 179 ! 173 180 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90
r3625 r3875 530 530 !! ** input : Namelist namicether 531 531 !!------------------------------------------------------------------- 532 INTEGER :: ios ! Local integer output status for namelist read 532 533 NAMELIST/namicethd/ hmelt , hiccrit, hicmin, hiclim, amax , & 533 534 & swiqst, sbeta , parlat, hakspl, hibspl, exld, & 534 535 & hakdif, hnzst , thth , parsub, alphs 535 536 !!------------------------------------------------------------------- 536 ! 537 REWIND( numnam_ice ) ! read namelist 538 READ ( numnam_ice , namicethd ) 537 538 REWIND( numnam_ice_ref ) ! Namelist namicethd in reference namelist : Ice thermodynamics 539 READ ( numnam_ice_ref, namicethd, IOSTAT = ios, ERR = 901) 540 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in reference namelist', lwp ) 541 542 REWIND( numnam_ice_cfg ) ! Namelist namicethd in configuration namelist : Ice thermodynamics 543 READ ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 544 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 545 WRITE ( numoni, namicethd ) 546 539 547 IF( lk_cpl .AND. parsub /= 0.0 ) CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) 540 548 ! -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90
r3764 r3875 297 297 !! ** input : Namelist namicetrp 298 298 !!------------------------------------------------------------------- 299 INTEGER :: ios ! Local integer output status for namelist read 299 300 NAMELIST/namicetrp/ bound 300 301 !!------------------------------------------------------------------- 301 ! 302 REWIND ( numnam_ice ) ! Read Namelist namicetrp 303 READ ( numnam_ice , namicetrp ) 302 303 REWIND( numnam_ice_ref ) ! Namelist namicetrp in reference namelist : Ice advection 304 READ ( numnam_ice_ref, namicetrp, IOSTAT = ios, ERR = 901) 305 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in reference namelist', lwp ) 306 307 REWIND( numnam_ice_cfg ) ! Namelist namicetrp in configuration namelist : Ice advection 308 READ ( numnam_ice_cfg, namicetrp, IOSTAT = ios, ERR = 902 ) 309 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in configuration namelist', lwp ) 310 WRITE ( numoni, namicetrp ) 311 304 312 IF(lwp) THEN 305 313 WRITE(numout,*) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90
r3764 r3875 230 230 !!------------------------------------------------------------------- 231 231 INTEGER :: nf ! ??? 232 INTEGER :: ios ! Local integer output status for namelist read 232 233 TYPE FIELD 233 234 CHARACTER(len = 35) :: ztitle … … 255 256 CALL ctl_stop( 'STOP', 'lim_wri_init_2 : unable to allocate standard arrays' ) ; RETURN 256 257 ENDIF 257 258 REWIND ( numnam_ice ) ! Read Namelist namicewri 259 READ ( numnam_ice , namiceout ) 258 259 REWIND( numnam_ice_ref ) ! Namelist namiceout in reference namelist : Ice outputs 260 READ ( numnam_ice_ref, namiceout, IOSTAT = ios, ERR = 901) 261 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in reference namelist', lwp ) 262 263 REWIND( numnam_ice_cfg ) ! Namelist namiceout in configuration namelist : Ice outputs 264 READ ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 265 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 266 WRITE ( numoni, namiceout ) 260 267 261 268 zfield( 1) = field_1 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90
r3625 r3875 71 71 & 'use more ocean levels or less ice/snow layers/categories.' ) 72 72 73 ! ! Open the namelist file 74 CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 73 ! Open the reference and configuration namelist files and namelist output file 74 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 75 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 75 77 ! 76 78 CALL ice_run ! set some ice run parameters … … 127 129 !!------------------------------------------------------------------- 128 130 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, acrit, hsndif, hicdif, cai, cao, ln_nicep 131 INTEGER :: ios ! Local integer output status for namelist read 129 132 !!------------------------------------------------------------------- 130 133 ! 131 REWIND( numnam_ice ) ! Read Namelist namicerun 132 READ ( numnam_ice , namicerun ) 134 REWIND( numnam_ice_ref ) ! Namelist namicerun in reference namelist : Parameters for ice 135 READ ( numnam_ice_ref, namicerun, IOSTAT = ios, ERR = 901) 136 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in reference namelist', lwp ) 137 138 REWIND( numnam_ice_cfg ) ! Namelist namicerun in configuration namelist : Parameters for ice 139 READ ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 140 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 141 WRITE ( numoni, namicerun ) 133 142 ! 134 143 IF( lk_mpp .AND. ln_nicep ) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limdia.F90
r3625 r3875 415 415 INTEGER :: jv ! dummy loop indice 416 416 INTEGER :: ierr, ntot , ndeb , irecl ! local integers 417 INTEGER :: ios ! Local integer output status for namelist read 417 418 REAL(wp) :: zxx0, zxx1 ! local scalars 418 419 CHARACTER(len=jpchinf) :: titinf … … 422 423 !!------------------------------------------------------------------- 423 424 ! 424 REWIND( numnam_ice ) ! read namicedia namelist 425 READ ( numnam_ice, namicedia ) 425 REWIND( numnam_ice_ref ) ! Namelist namicedia in reference namelist : Ice diagnostics in ice_evolu 426 READ ( numnam_ice_ref, namicedia, IOSTAT = ios, ERR = 901) 427 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in reference namelist', lwp ) 428 429 REWIND( numnam_ice_cfg ) ! Namelist namicedia in configuration namelist : Ice diagnostics in ice_evolu 430 READ ( numnam_ice_cfg, namicedia, IOSTAT = ios, ERR = 902 ) 431 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 432 WRITE ( numoni, namicedia ) 426 433 ! 427 434 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90
r3625 r3875 226 226 !! ** input : Namelist namicedyn 227 227 !!------------------------------------------------------------------- 228 INTEGER :: ios ! Local integer output status for namelist read 228 229 NAMELIST/namicedyn/ epsd, alpha, & 229 230 & dm, nbiter, nbitdr, om, resl, cw, angvg, pstar, & … … 232 233 !!------------------------------------------------------------------- 233 234 234 REWIND( numnam_ice ) ! Read Namelist namicedyn 235 READ ( numnam_ice , namicedyn ) 235 REWIND( numnam_ice_ref ) ! Namelist namicedyn in reference namelist : Ice dynamics 236 READ ( numnam_ice_ref, namicedyn, IOSTAT = ios, ERR = 901) 237 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in reference namelist', lwp ) 238 239 REWIND( numnam_ice_cfg ) ! Namelist namicedyn in configuration namelist : Ice dynamics 240 READ ( numnam_ice_cfg, namicedyn, IOSTAT = ios, ERR = 902 ) 241 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 242 WRITE ( numoni, namicedyn ) 236 243 237 244 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90
r3625 r3875 536 536 !! ** input : namelist namiceini 537 537 !!----------------------------------------------------------------------------- 538 INTEGER :: ios ! Local integer output status for namelist read 538 539 NAMELIST/namiceini/ ttest, hninn, hginn_u, aginn_u, hginn_d, aginn_d, hnins, & 539 540 & hgins_u, agins_u, hgins_d, agins_d, sinn, sins 540 541 !!----------------------------------------------------------------------------- 541 542 ! 542 REWIND ( numnam_ice ) ! Read Namelist namiceini 543 READ ( numnam_ice , namiceini ) 543 REWIND( numnam_ice_ref ) ! Namelist namiceini in reference namelist : Ice initial state 544 READ ( numnam_ice_ref, namiceini, IOSTAT = ios, ERR = 901) 545 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in reference namelist', lwp ) 546 547 REWIND( numnam_ice_cfg ) ! Namelist namiceini in configuration namelist : Ice initial state 548 READ ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 549 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 550 WRITE ( numoni, namiceini ) 544 551 ! 545 552 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90
r3764 r3875 1409 1409 !! ** input : Namelist namiceitdme 1410 1410 !!------------------------------------------------------------------- 1411 INTEGER :: ios ! Local integer output status for namelist read 1411 1412 NAMELIST/namiceitdme/ ridge_scheme_swi, Cs, Cf, fsnowrdg, fsnowrft,& 1412 1413 Gstar, astar, & … … 1416 1417 !!------------------------------------------------------------------- 1417 1418 ! 1418 REWIND( numnam_ice ) ! read namiceitdme namelist 1419 READ ( numnam_ice , namiceitdme) 1419 REWIND( numnam_ice_ref ) ! Namelist namicetdme in reference namelist : Ice mechanical ice redistribution 1420 READ ( numnam_ice_ref, namiceitdme, IOSTAT = ios, ERR = 901) 1421 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in reference namelist', lwp ) 1422 1423 REWIND( numnam_ice_cfg ) ! Namelist namiceitdme in configuration namelist : Ice mechanical ice redistribution 1424 READ ( numnam_ice_cfg, namiceitdme, IOSTAT = ios, ERR = 902 ) 1425 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in configuration namelist', lwp ) 1426 WRITE ( numoni, namiceitdme ) 1420 1427 ! 1421 1428 IF (lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90
r3625 r3875 791 791 !! ** input : Namelist namicether 792 792 !!------------------------------------------------------------------- 793 INTEGER :: ios ! Local integer output status for namelist read 793 794 NAMELIST/namicethd/ hmelt , hiccrit, fraz_swi, maxfrazb, vfrazb, Cfrazb, & 794 795 & hicmin, hiclim, amax , & … … 804 805 ENDIF 805 806 ! 806 REWIND( numnam_ice ) ! read Namelist numnam_ice 807 READ ( numnam_ice , namicethd ) 807 REWIND( numnam_ice_ref ) ! Namelist namicethd in reference namelist : Ice thermodynamics 808 READ ( numnam_ice_ref, namicethd, IOSTAT = ios, ERR = 901) 809 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in reference namelist', lwp ) 810 811 REWIND( numnam_ice_cfg ) ! Namelist namicethd in configuration namelist : Ice thermodynamics 812 READ ( numnam_ice_cfg, namicethd, IOSTAT = ios, ERR = 902 ) 813 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 814 WRITE ( numoni, namicethd ) 808 815 ! 809 816 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90
r3625 r3875 203 203 !! ** input : Namelist namicesal 204 204 !!------------------------------------------------------------------- 205 INTEGER :: ios ! Local integer output status for namelist read 205 206 NAMELIST/namicesal/ num_sal, bulk_sal, sal_G, time_G, sal_F, time_F, & 206 207 & s_i_max, s_i_min, s_i_0, s_i_1 207 208 !!------------------------------------------------------------------- 208 209 ! 209 REWIND( numnam_ice ) ! Read Namelist namicesal 210 READ ( numnam_ice , namicesal ) 210 REWIND( numnam_ice_ref ) ! Namelist namicesal in reference namelist : Ice salinity 211 READ ( numnam_ice_ref, namicesal, IOSTAT = ios, ERR = 901) 212 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in reference namelist', lwp ) 213 214 REWIND( numnam_ice_cfg ) ! Namelist namicesal in configuration namelist : Ice salinity 215 READ ( numnam_ice_cfg, namicesal, IOSTAT = ios, ERR = 902 ) 216 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in configuration namelist', lwp ) 217 WRITE ( numoni, namicesal ) 211 218 ! 212 219 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90
r3853 r3875 365 365 !!------------------------------------------------------------------- 366 366 INTEGER :: nf ! ??? 367 INTEGER :: ios ! Local integer output status for namelist read 367 368 368 369 TYPE FIELD … … 395 396 field_37, add_diag_swi 396 397 !!------------------------------------------------------------------- 397 398 REWIND( numnam_ice ) ! Read Namelist namicewri 399 READ ( numnam_ice , namiceout ) 398 REWIND( numnam_ice_ref ) ! Namelist namiceout in reference namelist : Ice outputs 399 READ ( numnam_ice_ref, namiceout, IOSTAT = ios, ERR = 901) 400 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in reference namelist', lwp ) 401 402 REWIND( numnam_ice_cfg ) ! Namelist namiceout in configuration namelist : Ice outputs 403 READ ( numnam_ice_cfg, namiceout, IOSTAT = ios, ERR = 902 ) 404 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 405 WRITE ( numoni, namiceout ) 400 406 401 407 zfield(1) = field_1 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/NST_SRC/agrif_user.F90
r3680 r3875 586 586 IMPLICIT NONE 587 587 ! 588 INTEGER :: ios ! Local integer output status for namelist read 588 589 NAMELIST/namagrif/ nn_cln_update, rn_sponge_tra, rn_sponge_dyn, ln_spc_dyn 589 590 !!---------------------------------------------------------------------- 590 591 ! 591 REWIND( numnam ) ! Read namagrif namelist 592 READ ( numnam, namagrif ) 592 REWIND( numnam_ref ) ! Namelist namagrif in reference namelist : AGRIF zoom 593 READ ( numnam_ref, namagrif, IOSTAT = ios, ERR = 901) 594 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in reference namelist', lwp ) 595 596 REWIND( numnam_cfg ) ! Namelist namagrif in configuration namelist : AGRIF zoom 597 READ ( numnam_cfg, namagrif, IOSTAT = ios, ERR = 902 ) 598 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist', lwp ) 599 WRITE ( numond, namagrif ) 593 600 ! 594 601 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/domain.F90
r3632 r3875 88 88 !!---------------------------------------------------------------------- 89 89 USE ioipsl 90 INTEGER :: ios ! Local integer output status for namelist read 90 91 NAMELIST/namrun/ nn_no , cn_exp , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl, & 91 92 & nn_it000, nn_itend , nn_date0 , nn_leapy , nn_istate , nn_stock , & … … 100 101 !!---------------------------------------------------------------------- 101 102 102 REWIND( numnam ) ! Namelist namrun : parameters of the run 103 READ ( numnam, namrun ) 103 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 104 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 105 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwp ) 106 107 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 108 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 109 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 110 WRITE ( numond, namrun ) 104 111 ! 105 112 IF(lwp) THEN ! control print … … 170 177 #endif 171 178 172 REWIND( numnam ) ! Domain 173 READ ( numnam, namdom ) 179 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 180 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 181 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 182 183 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 184 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 185 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 186 WRITE ( numond, namdom ) 174 187 175 188 IF(lwp) THEN … … 206 219 rdth = rn_rdth 207 220 208 REWIND( numnam ) ! Namelist cross land advection 209 READ ( numnam, namcla ) 221 REWIND( numnam_ref ) ! Namelist namcla in reference namelist : Cross land advection 222 READ ( numnam_ref, namcla, IOSTAT = ios, ERR = 905) 223 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwp ) 224 225 REWIND( numnam_cfg ) ! Namelist namcla in configuration namelist : Cross land advection 226 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 227 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 228 WRITE( numond, namcla ) 229 210 230 IF(lwp) THEN 211 231 WRITE(numout,*) … … 216 236 #if defined key_netcdf4 217 237 ! ! NetCDF 4 case ("key_netcdf4" defined) 218 REWIND( numnam ) ! Namelist namnc4 : netcdf4 chunking parameters 219 READ ( numnam, namnc4 ) 238 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF 239 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 240 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp ) 241 242 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF 243 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 244 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 245 WRITE( numond, namnc4 ) 220 246 IF(lwp) THEN ! control print 221 247 WRITE(numout,*) … … 257 283 !!---------------------------------------------------------------------- 258 284 INTEGER :: ioptio = 0 ! temporary integer 285 INTEGER :: ios 259 286 !! 260 287 NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco 261 288 !!---------------------------------------------------------------------- 262 289 263 REWIND ( numnam ) ! Read Namelist namzgr : vertical coordinate' 264 READ ( numnam, namzgr ) 290 REWIND( numnam_ref ) ! Namelist namzgr in reference namelist : Vertical coordinate 291 READ ( numnam_ref, namzgr, IOSTAT = ios, ERR = 901 ) 292 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in reference namelist', lwp ) 293 294 REWIND( numnam_cfg ) ! Namelist namzgr in configuration namelist : Vertical coordinate 295 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 296 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 297 WRITE ( numond, namzgr ) 265 298 266 299 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90
r3827 r3875 326 326 INTEGER :: jfld ! dummy loop arguments 327 327 INTEGER :: inum, idv, idimv ! local integer 328 INTEGER :: ios ! Local integer output status for namelist read 328 329 !! 329 330 CHARACTER(len=100) :: cn_dir ! Root directory for location of core files … … 367 368 sn_eiw = FLD_N( 'dyna_grid_W' , 120 , 'voveaeiw' , .true. , .true. , 'yearly' , '' , '' ) 368 369 ! 369 REWIND( numnam ) ! read in namlist namdta_dyn 370 READ ( numnam, namdta_dyn ) 370 REWIND( numnam_ref ) ! Namelist namdta_dyn in reference namelist : Offline: init. of dynamical data 371 READ ( numnam_ref, namdta_dyn, IOSTAT = ios, ERR = 901) 372 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in reference namelist', lwp ) 373 374 REWIND( numnam_cfg ) ! Namelist namdta_dyn in configuration namelist : Offline: init. of dynamical data 375 READ ( numnam_cfg, namdta_dyn, IOSTAT = ios, ERR = 902 ) 376 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in configuration namelist', lwp ) 377 WRITE ( numond, namdta_dyn ) 371 378 ! ! store namelist information in an array 372 379 ! ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90
r3827 r3875 136 136 INTEGER :: ji ! dummy loop indices 137 137 INTEGER :: ilocal_comm ! local integer 138 INTEGER :: ios 138 139 CHARACTER(len=80), DIMENSION(16) :: cltxt 139 140 !! … … 145 146 cltxt = '' 146 147 ! 147 ! ! open Namelist file 148 CALL ctl_opn( numnam, 'namelist', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 149 ! 150 READ( numnam, namctl ) ! Namelist namctl : Control prints & Benchmark 148 ! ! Open reference namelist and configuration namelist files 149 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 150 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 151 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea ) 152 ! 153 ! 154 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 155 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 156 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp ) 157 158 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 159 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 160 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 161 WRITE( numond, namctl ) 151 162 ! 152 163 ! !--------------------------------------------! … … 155 166 #if defined key_iomput 156 167 CALL xios_initialize( "nemo",return_comm=ilocal_comm ) 157 narea = mynode( cltxt, numnam , nstop, ilocal_comm ) ! Nodes selection168 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 158 169 #else 159 170 ilocal_comm = 0 160 narea = mynode( cltxt, numnam , nstop )! Nodes selection (control print return in cltxt)171 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 161 172 #endif 162 173 … … 364 375 ! 365 376 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 366 IF( numnam /= -1 ) CLOSE( numnam ) ! oce namelist 377 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist 378 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist 367 379 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 368 380 numout = 6 ! redefine numout in case it is used after this point... -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r3785 r3875 120 120 INTEGER :: iitiaustr_date ! Date YYYYMMDD of IAU interval start time step 121 121 INTEGER :: iitiaufin_date ! Date YYYYMMDD of IAU interval final time step 122 INTEGER :: ios ! Local integer output status for namelist read 122 123 123 124 REAL(wp) :: znorm ! Normalization factor for IAU weights … … 160 161 niaufn = 0 161 162 162 REWIND ( numnam ) 163 READ ( numnam, nam_asminc ) 163 REWIND( numnam_ref ) ! Namelist nam_asminc in reference namelist : Assimilation increment 164 READ ( numnam_ref, nam_asminc, IOSTAT = ios, ERR = 901) 165 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in reference namelist', lwp ) 166 167 REWIND( numnam_cfg ) ! Namelist nam_asminc in configuration namelist : Assimilation increment 168 READ ( numnam_cfg, nam_asminc, IOSTAT = ios, ERR = 902 ) 169 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 170 WRITE ( numond, nam_asminc ) 164 171 165 172 ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90
r3851 r3875 355 355 !! 356 356 INTEGER :: ib_bdy, jfld, jstart, jend, ierror ! local indices 357 INTEGER :: ios ! Local integer output status for namelist read 357 358 !! 358 359 CHARACTER(len=100) :: cn_dir ! Root directory for location of data files … … 440 441 ! Read namelists 441 442 ! -------------- 442 REWIND(numnam )443 REWIND(numnam_cfg) 443 444 jfld = 0 444 445 DO ib_bdy = 1, nb_bdy … … 463 464 #endif 464 465 466 ! Read configuration namelist only to avoid unsuccessful overwrite 465 467 ! Important NOT to rewind here. 466 READ( numnam, nambdy_dta ) 468 !! REWIND( numnam_ref ) ! Namelist nambdy_dta in reference namelist : 469 !! READ ( numnam_ref, nambdy_dta, IOSTAT = ios, ERR = 901) 470 !!901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in reference namelist', lwp ) 471 472 !! REWIND( numnam_cfg ) ! Namelist nambdy_dta in configuration namelist : 473 READ ( numnam_cfg, nambdy_dta, IOSTAT = ios, ERR = 902 ) 474 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 475 WRITE ( numond, nambdy_dta ) 467 476 468 477 cn_dir_array(ib_bdy) = cn_dir -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r3703 r3875 102 102 !! 103 103 NAMELIST/nambdy_index/ ctypebdy, nbdyind, nbdybeg, nbdyend 104 104 INTEGER :: ios ! Local integer output status for namelist read 105 105 !!---------------------------------------------------------------------- 106 106 … … 145 145 nn_rimwidth(:) = -1 ! uninitialised flag 146 146 147 REWIND( numnam ) 148 READ ( numnam, nambdy ) 147 REWIND( numnam_ref ) ! Namelist nambdy in reference namelist :Unstructured open boundaries 148 READ ( numnam_ref, nambdy, IOSTAT = ios, ERR = 901) 149 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in reference namelist', lwp ) 150 151 REWIND( numnam_cfg ) ! Namelist nambdy in configuration namelist :Unstructured open boundaries 152 READ ( numnam_cfg, nambdy, IOSTAT = ios, ERR = 902 ) 153 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 154 WRITE ( numond, nambdy ) 149 155 150 156 ! ----------------------------------------- … … 301 307 ! Work out global dimensions of boundary data 302 308 ! --------------------------------------------- 303 REWIND( numnam ) 309 REWIND( numnam_cfg ) 310 311 !!---------------------------------------------------------------------- 312 313 304 314 305 315 nblendta(:,:) = 0 … … 319 329 icount = icount + 1 320 330 ! No REWIND here because may need to read more than one nambdy_index namelist. 321 READ ( numnam, nambdy_index ) 331 ! Read only namelist_cfg to avoid unseccessfull overwrite 332 !! REWIND( numnam_ref ) ! Namelist nambdy_index in reference namelist : Open boundaries indexes 333 !! READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 903) 334 !!903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in reference namelist', lwp ) 335 336 !! REWIND( numnam_cfg ) ! Namelist nambdy_index in configuration namelist : Open boundaries indexes 337 READ ( numnam_cfg, nambdy_index, IOSTAT = ios, ERR = 904 ) 338 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 339 WRITE ( numond, nambdy_index ) 322 340 323 341 SELECT CASE ( TRIM(ctypebdy) ) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90
r3651 r3875 76 76 INTEGER, DIMENSION(3) :: ilen0 !: length of boundary data (from OBC arrays) 77 77 INTEGER, POINTER, DIMENSION(:) :: nblen, nblenrim ! short cuts 78 INTEGER :: ios ! Local integer output status for namelist read 78 79 CHARACTER(len=80) :: clfile !: full file name for tidal input file 79 80 REAL(wp),ALLOCATABLE, DIMENSION(:,:,:) :: dta_read !: work space to read in tidal harmonics data … … 96 97 ln_bdytide_conj = .FALSE. 97 98 98 REWIND(numnam) 99 REWIND(numnam_cfg) 100 99 101 DO ib_bdy = 1, nb_bdy 100 102 IF( nn_dyn2d_dta(ib_bdy) .ge. 2 ) THEN … … 108 110 109 111 ! Don't REWIND here - may need to read more than one of these namelists. 110 READ ( numnam, nambdy_tide ) 112 ! Read only configuration namelist to avoid unsecessful overwrite 113 !! REWIND( numnam_ref ) ! Namelist nambdy_tide in reference namelist : 114 !! READ ( numnam_ref, nambdy_tide, IOSTAT = ios, ERR = 901) 115 !! 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in reference namelist', lwp ) 116 117 !! REWIND( numnam_cfg ) ! Namelist nambdy_tide in configuration namelist : 118 READ ( numnam_cfg, nambdy_tide, IOSTAT = ios, ERR = 902 ) 119 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 120 WRITE ( numond, nambdy_tide ) 111 121 ! ! Parameter control and print 112 122 IF(lwp) WRITE(numout,*) ' ' -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90
r3680 r3875 139 139 !!--------------------------------------------------------------------- 140 140 NAMELIST/namdct/nn_dct,nn_dctwri,nn_secdebug 141 INTEGER :: ios ! Local integer output status for namelist read 141 142 142 143 IF( nn_timing == 1 ) CALL timing_start('dia_dct_init') 143 144 144 !read namelist 145 REWIND( numnam ) 146 READ ( numnam, namdct ) 145 REWIND( numnam_ref ) ! Namelist namdct in reference namelist : Diagnostic: transport through sections 146 READ ( numnam_ref, namdct, IOSTAT = ios, ERR = 901) 147 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in reference namelist', lwp ) 148 149 REWIND( numnam_cfg ) ! Namelist namdct in configuration namelist : Diagnostic: transport through sections 150 READ ( numnam_cfg, namdct, IOSTAT = ios, ERR = 902 ) 151 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 152 WRITE ( numond, namdct ) 147 153 148 154 IF( lwp ) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90
r3294 r3875 78 78 !! * Local declarations 79 79 INTEGER :: jh, nhan, jk, ji 80 INTEGER :: ios ! Local integer output status for namelist read 80 81 81 82 NAMELIST/nam_diaharm/ nit000_han, nitend_han, nstep_han, tname … … 92 93 tname(:)='' 93 94 ! 94 ! Read Namelist nam_diaharm 95 REWIND ( numnam ) 96 READ ( numnam, nam_diaharm ) 95 REWIND( numnam_ref ) ! Namelist nam_diaharm in reference namelist : Tidal harmonic analysis 96 READ ( numnam_ref, nam_diaharm, IOSTAT = ios, ERR = 901) 97 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in reference namelist', lwp ) 98 99 REWIND( numnam_cfg ) ! Namelist nam_diaharm in configuration namelist : Tidal harmonic analysis 100 READ ( numnam_cfg, nam_diaharm, IOSTAT = ios, ERR = 902 ) 101 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 102 WRITE ( numond, nam_diaharm ) 97 103 ! 98 104 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90
r3625 r3875 163 163 INTEGER :: jk ! dummy loop indice 164 164 INTEGER :: ierror ! local integer 165 INTEGER :: ios ! Local integer output status for namelist read 165 166 !! 166 167 NAMELIST/namhsb/ ln_diahsb 167 168 !!---------------------------------------------------------------------- 168 169 ! 169 REWIND ( numnam ) ! Read Namelist namhsb 170 READ ( numnam, namhsb ) 170 REWIND( numnam_ref ) ! Namelist namhsb in reference namelist : Heat & salt budget 171 READ ( numnam_ref, namhsb, IOSTAT = ios, ERR = 901) 172 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in reference namelist', lwp ) 173 174 REWIND( numnam_cfg ) ! Namelist namhsb in configuration namelist : Heat & salt budget 175 READ ( numnam_cfg, namhsb, IOSTAT = ios, ERR = 902 ) 176 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 177 WRITE ( numond, namhsb ) 171 178 ! 172 179 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90
r3764 r3875 449 449 INTEGER :: jn ! dummy loop indices 450 450 INTEGER :: inum, ierr ! local integers 451 INTEGER :: ios ! Local integer output status for namelist read 451 452 #if defined key_mpp_mpi 452 453 INTEGER, DIMENSION(1) :: iglo, iloc, iabsf, iabsl, ihals, ihale, idid … … 456 457 !!---------------------------------------------------------------------- 457 458 458 REWIND( numnam ) ! Read Namelist namptr : poleward transport parameters 459 READ ( numnam, namptr ) 459 REWIND( numnam_ref ) ! Namelist namptr in reference namelist : Poleward transport 460 READ ( numnam_ref, namptr, IOSTAT = ios, ERR = 901) 461 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in reference namelist', lwp ) 462 463 REWIND( numnam_cfg ) ! Namelist namptr in configuration namelist : Poleward transport 464 READ ( numnam_cfg, namptr, IOSTAT = ios, ERR = 902 ) 465 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 466 WRITE ( numond, namptr ) 460 467 461 468 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90
r3764 r3875 131 131 NAMELIST/namnc4/ nn_nchunks_i, nn_nchunks_j, nn_nchunks_k, ln_nc4zip 132 132 #endif 133 !!---------------------------------------------------------------------- 134 135 REWIND( numnam ) ! Namelist namrun : parameters of the run 136 READ ( numnam, namrun ) 133 INTEGER :: ios ! Local integer output status for namelist read 134 !!---------------------------------------------------------------------- 135 136 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 137 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 138 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist', lwp ) 139 140 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 141 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 142 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 143 WRITE ( numond, namrun ) 137 144 ! 138 145 IF(lwp) THEN ! control print … … 200 207 #endif 201 208 202 REWIND( numnam ) ! Namelist namdom : space & time domain (bathymetry, mesh, timestep) 203 READ ( numnam, namdom ) 209 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 210 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 211 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 212 213 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 214 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 215 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 216 WRITE ( numond, namdom ) 204 217 205 218 IF(lwp) THEN … … 237 250 rdth = rn_rdth 238 251 239 REWIND( numnam ) ! Namelist cross land advection 240 READ ( numnam, namcla ) 252 REWIND( numnam_ref ) ! Namelist namcla in reference namelist : Cross land advection 253 READ ( numnam_ref, namcla, IOSTAT = ios, ERR = 905) 254 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in reference namelist', lwp ) 255 256 REWIND( numnam_cfg ) ! Namelist namcla in configuration namelist : Cross land advection 257 READ ( numnam_cfg, namcla, IOSTAT = ios, ERR = 906 ) 258 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 259 WRITE( numond, namcla ) 260 241 261 IF(lwp) THEN 242 262 WRITE(numout,*) … … 247 267 #if defined key_netcdf4 248 268 ! ! NetCDF 4 case ("key_netcdf4" defined) 249 REWIND( numnam ) ! Namelist namnc4 : netcdf4 chunking parameters 250 READ ( numnam, namnc4 ) 269 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF 270 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 271 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp ) 272 273 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF 274 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 275 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 276 WRITE( numond, namnc4 ) 277 251 278 IF(lwp) THEN ! control print 252 279 WRITE(numout,*) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90
r3294 r3875 133 133 INTEGER :: iif, iil, ii0, ii1, ii ! local integers 134 134 INTEGER :: ijf, ijl, ij0, ij1 ! - - 135 INTEGER :: ios 135 136 INTEGER , POINTER, DIMENSION(:,:) :: imsk 136 137 REAL(wp), POINTER, DIMENSION(:,:) :: zwf … … 144 145 CALL wrk_alloc( jpi, jpj, zwf ) 145 146 ! 146 REWIND( numnam ) ! Namelist namlbc : lateral momentum boundary condition 147 READ ( numnam, namlbc ) 147 REWIND( numnam_ref ) ! Namelist namlbc in reference namelist : Lateral momentum boundary condition 148 READ ( numnam_ref, namlbc, IOSTAT = ios, ERR = 901 ) 149 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in reference namelist', lwp ) 150 151 REWIND( numnam_cfg ) ! Namelist namlbc in configuration namelist : Lateral momentum boundary condition 152 READ ( numnam_cfg, namlbc, IOSTAT = ios, ERR = 902 ) 153 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 154 WRITE ( numond, namlbc ) 148 155 149 156 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90
r3764 r3875 99 99 !!---------------------------------------------------------------------- 100 100 INTEGER :: ioptio, ibat ! local integer 101 INTEGER :: ios 101 102 ! 102 103 NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco … … 105 106 IF( nn_timing == 1 ) CALL timing_start('dom_zgr') 106 107 ! 107 REWIND( numnam ) ! Read Namelist namzgr : vertical coordinate' 108 READ ( numnam, namzgr ) 108 REWIND( numnam_ref ) ! Namelist namzgr in reference namelist : Vertical coordinate 109 READ ( numnam_ref, namzgr, IOSTAT = ios, ERR = 901 ) 110 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in reference namelist', lwp ) 111 112 REWIND( numnam_cfg ) ! Namelist namzgr in configuration namelist : Vertical coordinate 113 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 114 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 115 WRITE ( numond, namzgr ) 109 116 110 117 IF(lwp) THEN ! Control print … … 1100 1107 INTEGER :: ji, jj, jk, jl ! dummy loop argument 1101 1108 INTEGER :: iip1, ijp1, iim1, ijm1 ! temporary integers 1109 INTEGER :: ios ! Local integer output status for namelist read 1102 1110 REAL(wp) :: zrmax, ztaper ! temporary scalars 1103 1111 ! … … 1112 1120 CALL wrk_alloc( jpi, jpj, zenv, ztmp, zmsk, zri, zrj, zhbat ) 1113 1121 ! 1114 REWIND( numnam ) ! Read Namelist namzgr_sco : sigma-stretching parameters 1115 READ ( numnam, namzgr_sco ) 1122 REWIND( numnam_ref ) ! Namelist namzgr_sco in reference namelist : Sigma-stretching parameters 1123 READ ( numnam_ref, namzgr_sco, IOSTAT = ios, ERR = 901) 1124 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in reference namelist', lwp ) 1125 1126 REWIND( numnam_cfg ) ! Namelist namzgr_sco in configuration namelist : Sigma-stretching parameters 1127 READ ( numnam_cfg, namzgr_sco, IOSTAT = ios, ERR = 902 ) 1128 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 1129 WRITE ( numond, namzgr_sco ) 1116 1130 1117 1131 IF(lwp) THEN ! control print 1118 1132 WRITE(numout,*) 1119 WRITE(numout,*) 'dom :zgr_sco : s-coordinate or hybrid z-s-coordinate'1133 WRITE(numout,*) 'domzgr_sco : s-coordinate or hybrid z-s-coordinate' 1120 1134 WRITE(numout,*) '~~~~~~~~~~~' 1121 1135 WRITE(numout,*) ' Namelist namzgr_sco' -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90
r3294 r3875 62 62 !! 63 63 NAMELIST/namtsd/ ln_tsd_init, ln_tsd_tradmp, cn_dir, sn_tem, sn_sal 64 INTEGER :: ios 64 65 !!---------------------------------------------------------------------- 65 66 ! … … 76 77 sn_tem = FLD_N( 'temperature', -1. , 'votemper', .false. , .true. , 'monthly' , '' , '' ) 77 78 sn_sal = FLD_N( 'salinity' , -1. , 'vosaline', .false. , .true. , 'monthly' , '' , '' ) 78 79 REWIND( numnam ) ! read in namlist namdta_tsd 80 READ ( numnam, namtsd ) 79 80 REWIND( numnam_ref ) ! Namelist namtsd in reference namelist : 81 READ ( numnam_ref, namtsd, IOSTAT = ios, ERR = 901) 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in reference namelist', lwp ) 83 84 REWIND( numnam_cfg ) ! Namelist namtsd in configuration namelist : Parameters of the run 85 READ ( numnam_cfg, namtsd, IOSTAT = ios, ERR = 902 ) 86 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 87 WRITE ( numond, namtsd ) 81 88 82 89 IF( PRESENT( ld_tradmp ) ) ln_tsd_tradmp = .TRUE. ! forces the initialization when tradmp is used -
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 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/FLO/floats.F90
r3294 r3875 78 78 !!---------------------------------------------------------------------- 79 79 INTEGER :: jfl 80 INTEGER :: ios ! Local integer output status for namelist read 80 81 ! 81 82 NAMELIST/namflo/ jpnfl, jpnnewflo, ln_rstflo, nn_writefl, nn_stockfl, ln_argo, ln_flork4, ln_ariane, ln_flo_ascii … … 88 89 IF(lwp) WRITE(numout,*) '~~~~~~~' 89 90 90 REWIND( numnam ) ! Namelist namflo : floats 91 READ ( numnam, namflo ) 91 REWIND( numnam_ref ) ! Namelist namflo in reference namelist : Floats 92 READ ( numnam_ref, namflo, IOSTAT = ios, ERR = 901) 93 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in reference namelist', lwp ) 94 95 REWIND( numnam_cfg ) ! Namelist namflo in configuration namelist : Floats 96 READ ( numnam_cfg, namflo, IOSTAT = ios, ERR = 902 ) 97 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist', lwp ) 98 WRITE ( numond, namflo ) 92 99 ! 93 100 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90
r3785 r3875 344 344 !!---------------------------------------------------------------------- 345 345 INTEGER :: jn ! dummy loop indices 346 INTEGER :: ios ! Local integer output status for namelist read 346 347 REAL(wp) :: zfact ! local scalar 347 348 ! … … 359 360 sn_icb = FLD_N( 'calving' , -1 , 'calving' , .TRUE. , .TRUE. , 'yearly' , '' , '' ) 360 361 361 REWIND( numnam ) ! Namelist namrun : iceberg parameters 362 READ ( numnam, namberg ) 362 REWIND( numnam_ref ) ! Namelist namberg in reference namelist : Iceberg parameters 363 READ ( numnam_ref, namberg, IOSTAT = ios, ERR = 901) 364 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in reference namelist', lwp ) 365 366 REWIND( numnam_cfg ) ! Namelist namberg in configuration namelist : Iceberg parameters 367 READ ( numnam_cfg, namberg, IOSTAT = ios, ERR = 902 ) 368 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 369 WRITE ( numond, namberg ) 363 370 364 371 IF( .NOT. ln_icebergs ) THEN ! no icebergs 365 372 IF(lwp) THEN 366 373 WRITE(numout,*) 367 WRITE(numout,*) 'icb _nam :ln_icebergs = F , NO icebergs used'374 WRITE(numout,*) 'icbini : Namelist namberg ln_icebergs = F , NO icebergs used' 368 375 WRITE(numout,*) '~~~~~~~~ ' 369 376 ENDIF -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90
r3680 r3875 107 107 !! logical units 108 108 !!---------------------------------------------------------------------- 109 INTEGER :: numstp = -1 !: logical unit for time step 110 INTEGER :: numtime = -1 !: logical unit for timing 111 INTEGER :: numout = 6 !: logical unit for output print 112 INTEGER :: numnam = -1 !: logical unit for namelist 113 INTEGER :: numnam_ice = -1 !: logical unit for ice namelist 114 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 115 INTEGER :: numsol = -1 !: logical unit for solver statistics 116 INTEGER :: numdct_in = -1 !: logical unit for transports computing 117 INTEGER :: numdct_vol = -1 !: logical unit for voulume transports output 118 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 119 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 120 INTEGER :: numfl = -1 !: logical unit for floats ascii output 121 INTEGER :: numflo = -1 !: logical unit for floats ascii output 109 INTEGER :: numstp = -1 !: logical unit for time step 110 INTEGER :: numtime = -1 !: logical unit for timing 111 INTEGER :: numout = 6 !: logical unit for output print 112 INTEGER :: numnam_ref = -1 !: logical unit for reference namelist 113 INTEGER :: numnam_cfg = -1 !: logical unit for configuration specific namelist 114 INTEGER :: numond = 7 !: logical unit for Output Namelist Dynamics 115 INTEGER :: numnam_ice_ref = -1 !: logical unit for ice reference namelist 116 INTEGER :: numnam_ice_cfg = -1 !: logical unit for ice reference namelist 117 INTEGER :: numoni = 8 !: logical unit for Output Namelist Ice 118 INTEGER :: numevo_ice = -1 !: logical unit for ice variables (temp. evolution) 119 INTEGER :: numsol = -1 !: logical unit for solver statistics 120 INTEGER :: numdct_in = -1 !: logical unit for transports computing 121 INTEGER :: numdct_vol = -1 !: logical unit for voulume transports output 122 INTEGER :: numdct_heat = -1 !: logical unit for heat transports output 123 INTEGER :: numdct_salt = -1 !: logical unit for salt transports output 124 INTEGER :: numfl = -1 !: logical unit for floats ascii output 125 INTEGER :: numflo = -1 !: logical unit for floats ascii output 122 126 123 127 !!---------------------------------------------------------------------- -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90
r3680 r3875 156 156 WRITE(numout,*) 157 157 SELECT CASE ( jprstlib ) 158 CASE ( jpnf90 ) ; WRITE(numout,*) 'rst_read : read oce NetCDF restart file '158 CASE ( jpnf90 ) ; WRITE(numout,*) 'rst_read : read oce NetCDF restart file ',TRIM(cn_ocerst_in)//'.nc' 159 159 CASE ( jprstdimg ) ; WRITE(numout,*) 'rst_read : read oce binary restart file' 160 160 END SELECT -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r3799 r3875 28 28 !! ctl_warn : initialization, namelist read, and parameters control 29 29 !! ctl_opn : Open file and check if required file is available. 30 !! get_unit : give the index of an unused logical unit 30 !! ctl_nam : Prints informations when an error occurs while reading a namelist 31 !! get_unit : give the index of an unused logical unit 31 32 !!---------------------------------------------------------------------- 32 33 #if defined key_mpp_mpi … … 61 62 IMPLICIT NONE 62 63 PRIVATE 63 64 PUBLIC ctl_stop, ctl_warn, get_unit, ctl_opn 64 65 PUBLIC ctl_stop, ctl_warn, get_unit, ctl_opn, ctl_nam 65 66 PUBLIC mynode, mppstop, mppsync, mpp_comm_free 66 67 PUBLIC mpp_ini_north, mpp_lbc_north, mpp_lbc_north_e … … 225 226 226 227 227 FUNCTION mynode( ldtxt, kumnam , kstop, localComm )228 FUNCTION mynode( ldtxt, kumnam_ref , kumnam_cfg , kumond , kstop, localComm ) 228 229 !!---------------------------------------------------------------------- 229 230 !! *** routine mynode *** … … 232 233 !!---------------------------------------------------------------------- 233 234 CHARACTER(len=*),DIMENSION(:), INTENT( out) :: ldtxt 234 INTEGER , INTENT(in ) :: kumnam ! namelist logical unit 235 INTEGER , INTENT(inout) :: kstop ! stop indicator 235 INTEGER , INTENT(in ) :: kumnam_ref ! logical unit for reference namelist 236 INTEGER , INTENT(in ) :: kumnam_cfg ! logical unit for configuration namelist 237 INTEGER , INTENT(in ) :: kumond ! logical unit for namelist output 238 INTEGER , INTENT(inout) :: kstop ! stop indicator 236 239 INTEGER, OPTIONAL , INTENT(in ) :: localComm 237 240 ! 238 INTEGER :: mynode, ierr, code, ji, ii 241 INTEGER :: mynode, ierr, code, ji, ii, ios 239 242 LOGICAL :: mpi_was_called 240 243 ! … … 248 251 ! 249 252 jpni = -1; jpnj = -1; jpnij = -1 250 REWIND( kumnam ) ! Namelist namrun : parameters of the run 251 READ ( kumnam, nammpp ) 253 254 REWIND( kumnam_ref ) ! Namelist nammpp in reference namelist: mpi variables 255 READ ( kumnam_ref, nammpp, IOSTAT = ios, ERR = 901) 256 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist', lwp ) 257 258 REWIND( kumnam_cfg ) ! Namelist nammpp in configuration namelist: mpi variables 259 READ ( kumnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 260 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist', lwp ) 261 WRITE(kumond, nammpp) 262 252 263 ! ! control print 253 264 WRITE(ldtxt(ii),*) ' Namelist nammpp' ; ii = ii + 1 … … 3455 3466 END FUNCTION lib_mpp_alloc 3456 3467 3457 FUNCTION mynode( ldtxt, kumnam , kstop, localComm ) RESULT (function_value)3468 FUNCTION mynode( ldtxt, kumnam_ref, knumnam_cfg, kstop, localComm ) RESULT (function_value) 3458 3469 INTEGER, OPTIONAL , INTENT(in ) :: localComm 3459 3470 CHARACTER(len=*),DIMENSION(:) :: ldtxt 3460 INTEGER :: kumnam , kstop3471 INTEGER :: kumnam_ref, knumnam_cfg , kstop 3461 3472 IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) ) function_value = 0 3462 3473 IF( .FALSE. ) ldtxt(:) = 'never done' … … 3637 3648 3638 3649 !!---------------------------------------------------------------------- 3639 !! All cases: ctl_stop, ctl_warn, get_unit, ctl_opn routines3650 !! All cases: ctl_stop, ctl_warn, get_unit, ctl_opn, ctl_nam routines 3640 3651 !!---------------------------------------------------------------------- 3641 3652 … … 3780 3791 END SUBROUTINE ctl_opn 3781 3792 3793 SUBROUTINE ctl_nam ( kios, cdnam, ldwp ) 3794 !!---------------------------------------------------------------------- 3795 !! *** ROUTINE ctl_nam *** 3796 !! 3797 !! ** Purpose : Informations when error while reading a namelist 3798 !! 3799 !! ** Method : Fortan open 3800 !!---------------------------------------------------------------------- 3801 INTEGER , INTENT(inout) :: kios ! IO status after reading the namelist 3802 CHARACTER(len=*) , INTENT(in ) :: cdnam ! group name of namelist for which error occurs 3803 CHARACTER(len=4) :: clios ! string to convert iostat in character for print 3804 LOGICAL , INTENT(in ) :: ldwp ! boolean term for print 3805 !!---------------------------------------------------------------------- 3806 3807 ! 3808 ! ---------------- 3809 WRITE (clios, '(I4.0)') kios 3810 IF( kios < 0 ) THEN 3811 CALL ctl_warn( 'W A R N I N G: end of record or file while reading namelist ' & 3812 & // TRIM(cdnam) // ' iostat = ' // TRIM(clios) ) 3813 ENDIF 3814 3815 IF( kios > 0 ) THEN 3816 CALL ctl_stop( 'E R R O R : misspelled variable in namelist ' & 3817 & // TRIM(cdnam) // ' iostat = ' // TRIM(clios) ) 3818 ENDIF 3819 kios = 0 3820 RETURN 3821 3822 END SUBROUTINE ctl_nam 3782 3823 3783 3824 INTEGER FUNCTION get_unit() -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r3818 r3875 45 45 INTEGER :: inum ! temporary logical unit 46 46 INTEGER :: idir ! temporary integers 47 INTEGER :: ios ! Local integer output status for namelist read 47 48 INTEGER :: & 48 49 ii, ij, ifreq, il1, il2, & ! temporary integers … … 77 78 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 78 79 !!---------------------------------------------------------------------- 79 80 REWIND ( numnam ) ! Read Namelist namzgr : vertical coordinate' 81 READ ( numnam, namzgr ) 80 81 REWIND( numnam_ref ) ! Namelist namzgr in reference namelist : Vertical coordinate 82 READ ( numnam_ref, namzgr, IOSTAT = ios, ERR = 901) 83 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in reference namelist', lwp ) 84 85 REWIND( numnam_cfg ) ! Namelist namzgr in configuration namelist : Vertical coordinate 86 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 87 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 88 WRITE ( numond, namzgr ) 82 89 83 90 IF(lwp)WRITE(numout,*) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90
r3634 r3875 63 63 !!---------------------------------------------------------------------- 64 64 INTEGER :: ioptio ! ??? 65 INTEGER :: ios ! Local : output status for namelist read 65 66 LOGICAL :: ll_print = .FALSE. ! Logical flag for printing viscosity coef. 66 67 !! … … 73 74 !!---------------------------------------------------------------------- 74 75 75 REWIND( numnam ) ! Read Namelist namdyn_ldf : Lateral physics 76 READ ( numnam, namdyn_ldf ) 76 REWIND( numnam_ref ) ! Namelist namdyn_ldf in reference namelist : Lateral physics 77 READ ( numnam_ref, namdyn_ldf, IOSTAT = ios, ERR = 901) 78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in reference namelist', lwp ) 79 80 REWIND( numnam_cfg ) ! Namelist namdyn_ldf in configuration namelist : Lateral physics 81 READ ( numnam_cfg, namdyn_ldf, IOSTAT = ios, ERR = 902 ) 82 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 83 WRITE ( numond, namdyn_ldf ) 77 84 78 85 IF(lwp) THEN ! Parameter print … … 80 87 WRITE(numout,*) 'ldf_dyn : lateral momentum physics' 81 88 WRITE(numout,*) '~~~~~~~' 82 WRITE(numout,*) ' Namelist nam _dynldf : set lateral mixing parameters'89 WRITE(numout,*) ' Namelist namdyn_ldf : set lateral mixing parameters' 83 90 WRITE(numout,*) ' laplacian operator ln_dynldf_lap = ', ln_dynldf_lap 84 91 WRITE(numout,*) ' bilaplacian operator ln_dynldf_bilap = ', ln_dynldf_bilap -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LDF/ldftra.F90
r3634 r3875 62 62 !!---------------------------------------------------------------------- 63 63 INTEGER :: ioptio ! temporary integer 64 INTEGER :: ios ! temporary integer 64 65 LOGICAL :: ll_print = .FALSE. ! =T print eddy coef. in numout 65 66 !! … … 76 77 ! ============================================= 77 78 78 REWIND( numnam ) ! Read Namelist namtra_ldf : Lateral physics on tracers 79 READ ( numnam, namtra_ldf ) 79 80 REWIND( numnam_ref ) ! Namelist namtra_ldf in reference namelist : Lateral physics on tracers 81 READ ( numnam_ref, namtra_ldf, IOSTAT = ios, ERR = 901) 82 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in reference namelist', lwp ) 83 84 REWIND( numnam_cfg ) ! Namelist namtra_ldf in configuration namelist : Lateral physics on tracers 85 READ ( numnam_cfg, namtra_ldf, IOSTAT = ios, ERR = 902 ) 86 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 87 WRITE ( numond, namtra_ldf ) 80 88 81 89 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90
r2715 r3875 57 57 !! 58 58 INTEGER :: ji, jj, istop , inumfbc 59 INTEGER :: ios ! Local integer output status for namelist read 59 60 INTEGER, DIMENSION(4) :: icorner 60 61 REAL(wp), DIMENSION(2) :: ztestmask … … 66 67 !!---------------------------------------------------------------------- 67 68 68 REWIND( numnam ) ! Namelist namobc : open boundaries 69 READ ( numnam, namobc ) 69 REWIND( numnam_ref ) ! Namelist namobc in reference namelist : Open boundaries 70 READ ( numnam_ref, namobc, IOSTAT = ios, ERR = 901) 71 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobc in reference namelist', lwp ) 72 73 REWIND( numnam_cfg ) ! Namelist namobc in configuration namelist : Open boundaries 74 READ ( numnam_cfg, namobc, IOSTAT = ios, ERR = 902 ) 75 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobc in configuration namelist', lwp ) 76 WRITE ( numond, namobc ) 70 77 71 78 ! convert DOCTOR namelist name into the OLD names -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r3651 r3875 197 197 INTEGER :: ji 198 198 INTEGER :: jset 199 INTEGER :: ios ! Local integer output status for namelist read 199 200 LOGICAL :: lmask(MaxNumFiles), ll_u3d, ll_v3d 200 201 … … 262 263 263 264 ! Read Namelist namobs : control observation diagnostics 264 REWIND( numnam ) 265 READ ( numnam, namobs ) 265 REWIND( numnam_ref ) ! Namelist namobs in reference namelist : Diagnostic: control observation 266 READ ( numnam_ref, namobs, IOSTAT = ios, ERR = 901) 267 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in reference namelist', lwp ) 268 269 REWIND( numnam_cfg ) ! Namelist namobs in configuration namelist : Diagnostic: control observation 270 READ ( numnam_cfg, namobs, IOSTAT = ios, ERR = 902 ) 271 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist', lwp ) 272 WRITE ( numond, namobs ) 266 273 267 274 ! Count number of files for each type -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90
r3625 r3875 199 199 !! ** Method : Read the namelist namsbc_alb 200 200 !!---------------------------------------------------------------------- 201 INTEGER :: ios ! Local integer output status for namelist read 201 202 NAMELIST/namsbc_alb/ rn_cloud, rn_albice, rn_alphd, rn_alphdi, rn_alphc 202 203 !!---------------------------------------------------------------------- … … 204 205 albd_init = 1 ! indicate that the initialization has been done 205 206 ! 206 REWIND( numnam ) ! Read Namelist namsbc_alb : albedo parameters 207 READ ( numnam, namsbc_alb ) 207 REWIND( numnam_ref ) ! Namelist namsbc_alb in reference namelist : Albedo parameters 208 READ ( numnam_ref, namsbc_alb, IOSTAT = ios, ERR = 901) 209 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in reference namelist', lwp ) 210 211 REWIND( numnam_cfg ) ! Namelist namsbc_alb in configuration namelist : Albedo parameters 212 READ ( numnam_cfg, namsbc_alb, IOSTAT = ios, ERR = 902 ) 213 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 214 WRITE ( numond, namsbc_alb ) 208 215 ! 209 216 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90
r3680 r3875 103 103 sn_tc = FLD_N( 'tc_track', 6 , 'tc' , .true. , .false. , 'yearly' , '' , '' ) 104 104 ! 105 ! REWIND( numnam ) ! ... read in namlist namsbc_core 106 ! READ ( numnam, namsbc_tc ) 107 ! 105 ! Namelist is read in namsbc_core 108 106 ! set sf structure 109 107 ALLOCATE( sf(1), STAT=ierror ) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90
r3625 r3875 64 64 INTEGER, INTENT(in) :: kt ! ocean time step 65 65 ! 66 INTEGER :: ios ! Local integer output status for namelist read 66 67 REAL(wp) :: zfacto ! local scalar 67 68 REAL(wp) :: zrhoa = 1.22_wp ! Air density kg/m3 … … 74 75 IF( kt == nit000 ) THEN 75 76 ! 76 REWIND( numnam ) ! Read Namelist namsbc : surface fluxes 77 READ ( numnam, namsbc_ana ) 77 REWIND( numnam_ref ) ! Namelist namsbc_ana in reference namelist : Analytical surface fluxes 78 READ ( numnam_ref, namsbc_ana, IOSTAT = ios, ERR = 901) 79 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in reference namelist', lwp ) 80 81 REWIND( numnam_cfg ) ! Namelist namsbc_ana in configuration namelist : Analytical surface fluxes 82 READ ( numnam_cfg, namsbc_ana, IOSTAT = ios, ERR = 902 ) 83 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 84 WRITE ( numond, namsbc_ana ) 78 85 ! 79 86 IF(lwp) WRITE(numout,*)' ' -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90
r3795 r3875 65 65 !! 66 66 INTEGER :: ierror ! local integer 67 INTEGER :: ios ! Local integer output status for namelist read 67 68 !! 68 69 CHARACTER(len=100) :: cn_dir ! Root directory for location of ssr files … … 83 84 cn_dir = './' ! directory in which the Patm data are 84 85 85 REWIND( numnam ) !* read in namlist namsbc_apr 86 READ ( numnam, namsbc_apr ) 86 REWIND( numnam_ref ) ! Namelist namsbc_apr in reference namelist : File for atmospheric pressure forcing 87 READ ( numnam_ref, namsbc_apr, IOSTAT = ios, ERR = 901) 88 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in reference namelist', lwp ) 89 90 REWIND( numnam_cfg ) ! Namelist namsbc_apr in configuration namelist : File for atmospheric pressure forcing 91 READ ( numnam_cfg, namsbc_apr, IOSTAT = ios, ERR = 902 ) 92 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 93 WRITE ( numond, namsbc_apr ) 87 94 ! 88 95 ALLOCATE( sf_apr(1), STAT=ierror ) !* allocate and fill sf_sst (forcing structure) with sn_sst -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_clio.F90
r3625 r3875 124 124 INTEGER, INTENT( in ) :: kt ! ocean time step 125 125 !! 126 INTEGER :: ifpr, jfpr ! dummy indices126 INTEGER :: ifpr, jfpr ! dummy indices 127 127 INTEGER :: ierr0, ierr1, ierr2, ierr3 ! return error code 128 INTEGER :: ios ! Local integer output status for namelist read 128 129 !! 129 130 CHARACTER(len=100) :: cn_dir ! Root directory for location of CLIO files … … 153 154 sn_prec = FLD_N( 'precip' , -1 , 'precip' , .true. , .false. , 'yearly' , '' , '' ) 154 155 155 REWIND( numnam ) ! ... read in namlist namsbc_clio 156 READ ( numnam, namsbc_clio ) 156 REWIND( numnam_ref ) ! Namelist namsbc_clio in reference namelist : CLIO files 157 READ ( numnam_ref, namsbc_clio, IOSTAT = ios, ERR = 901) 158 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in reference namelist', lwp ) 159 160 REWIND( numnam_cfg ) ! Namelist namsbc_clio in configuration namelist : CLIO files 161 READ ( numnam_cfg, namsbc_clio, IOSTAT = ios, ERR = 902 ) 162 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 163 WRITE ( numond, namsbc_clio ) 157 164 158 165 ! store namelist information in an array -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r3772 r3875 122 122 INTEGER :: ifpr ! dummy loop indice 123 123 INTEGER :: jfld ! dummy loop arguments 124 INTEGER :: ios ! Local integer output status for namelist read 124 125 !! 125 126 CHARACTER(len=100) :: cn_dir ! Root directory for location of core files … … 151 152 sn_tdif = FLD_N( 'taudif' , 24 , 'taudif' , .true. , .false. , 'yearly' , '' , '' ) 152 153 ! 153 REWIND( numnam ) ! read in namlist namsbc_core 154 READ ( numnam, namsbc_core ) 154 155 REWIND( numnam_ref ) ! Namelist namsbc_core in reference namelist : CORE bulk parameters 156 READ ( numnam_ref, namsbc_core, IOSTAT = ios, ERR = 901) 157 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in reference namelist', lwp ) 158 159 REWIND( numnam_cfg ) ! Namelist namsbc_core in configuration namelist : CORE bulk parameters 160 READ ( numnam_cfg, namsbc_core, IOSTAT = ios, ERR = 902 ) 161 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 162 WRITE ( numond, namsbc_core ) 155 163 ! ! check: do we plan to use ln_dm2dc with non-daily forcing? 156 164 IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 ) & -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
r3625 r3875 104 104 INTEGER :: ifpr ! dummy loop indice 105 105 INTEGER :: jj,ji ! dummy loop arguments 106 INTEGER :: ios ! Local integer output status for namelist read 106 107 REAL(wp) :: act_hour 107 108 !!-------------------------------------------------------------------- … … 147 148 sn_prec = FLD_N( 'precip_cmap' , -1 , 'precip' , .true. , .true. , 'yearly' , '' , '' ) 148 149 ! 149 REWIND( numnam ) ! ... read in namlist namsbc_mfs 150 READ ( numnam, namsbc_mfs ) 150 151 REWIND( numnam_ref ) ! Namelist namsbc_msf in reference namelist : MFS files 152 READ ( numnam_ref, namsbc_mfs, IOSTAT = ios, ERR = 901) 153 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwp ) 154 155 REWIND( numnam_cfg ) ! Namelist namsbc_msf in configuration namelist : MFS files 156 READ ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 157 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 158 WRITE ( numond, namsbc_mfs ) 151 159 ! 152 160 ! store namelist information in an array -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r3680 r3875 221 221 !! 222 222 INTEGER :: jn ! dummy loop index 223 INTEGER :: ios ! Local integer output status for namelist read 223 224 REAL(wp), POINTER, DIMENSION(:,:) :: zacs, zaos 224 225 !! … … 258 259 sn_rcv_co2 = FLD_C( 'none' , 'no' , '' , '' , '' ) 259 260 260 REWIND( numnam ) ! ... read namlist namsbc_cpl 261 READ ( numnam, namsbc_cpl ) 261 REWIND( numnam_ref ) ! Namelist namsbc_cpl in reference namelist : Variables for OASIS coupling 262 READ ( numnam_ref, namsbc_cpl, IOSTAT = ios, ERR = 901) 263 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in reference namelist', lwp ) 264 265 REWIND( numnam_cfg ) ! Namelist namsbc_cpl in configuration namelist : Variables for OASIS coupling 266 READ ( numnam_cfg, namsbc_cpl, IOSTAT = ios, ERR = 902 ) 267 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 268 WRITE ( numond, namsbc_cpl ) 262 269 263 270 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90
r3625 r3875 77 77 INTEGER :: ji, jj, jf ! dummy indices 78 78 INTEGER :: ierror ! return error code 79 INTEGER :: ios ! Local integer output status for namelist read 79 80 REAL(wp) :: zfact ! temporary scalar 80 81 REAL(wp) :: zrhoa = 1.22 ! Air density kg/m3 … … 100 101 sn_emp = FLD_N( 'emp' , 24 , 'emp' , .false. , .false. , 'yearly' , '' , '' ) 101 102 ! 102 REWIND ( numnam ) ! read in namlist namflx 103 READ ( numnam, namsbc_flx ) 103 REWIND( numnam_ref ) ! Namelist namsbc_flx in reference namelist : Files for fluxes 104 READ ( numnam_ref, namsbc_flx, IOSTAT = ios, ERR = 901) 105 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in reference namelist', lwp ) 106 107 REWIND( numnam_cfg ) ! Namelist namsbc_flx in configuration namelist : Files for fluxes 108 READ ( numnam_cfg, namsbc_flx, IOSTAT = ios, ERR = 902 ) 109 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 110 WRITE ( numond, namsbc_flx ) 104 111 ! 105 112 ! ! check: do we plan to use ln_dm2dc with non-daily forcing? -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90
r3625 r3875 759 759 sn_bot5 = FLD_N( 'botmeltn5_1m' , -1. , 'botmeltn5' , .true. , .true. , ' yearly' , '' , '' ) 760 760 761 ! REWIND ( numnam ) ! ... at some point might read in from NEMO namelist? 762 ! READ ( numnam, namsbc_cice ) 761 ! ... at some point might read in from NEMO namelist? 762 !!$ REWIND( numnam_ref ) ! Namelist namsbc_cice in reference namelist : 763 !!$ READ ( numnam_ref, namsbc_cice, IOSTAT = ios, ERR = 901) 764 !!$901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in reference namelist', lwp ) 765 !!$ 766 !!$ REWIND( numnam_cfg ) ! Namelist namsbc_cice in configuration namelist : Parameters of the run 767 !!$ READ ( numnam_cfg, namsbc_cice, IOSTAT = ios, ERR = 902 ) 768 !!$902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cice in configuration namelist', lwp ) 769 !!$ WRITE ( numond, namsbc_cice ) 763 770 764 771 ! store namelist information in an array -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r3625 r3875 59 59 INTEGER :: ji, jj ! dummy loop indices 60 60 INTEGER :: ierror ! return error code 61 INTEGER :: ios ! Local integer output status for namelist read 61 62 REAL(wp) :: ztrp, zsice, zt_fzp, zfr_obs 62 63 REAL(wp) :: zqri, zqrj, zqrp, zqi … … 76 77 sn_ice = FLD_N('ice_cover', -1 , 'ice_cov' , .true. , .true. , 'yearly' , '' , '' ) 77 78 78 REWIND ( numnam ) ! ... read in namlist namiif 79 READ ( numnam, namsbc_iif ) 79 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 80 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 81 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp ) 82 83 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 84 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 85 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 86 WRITE ( numond, namsbc_iif ) 80 87 81 88 ALLOCATE( sf_ice(1), STAT=ierror ) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r3764 r3875 87 87 & ln_blk_mfs, ln_apr_dyn, nn_ice, nn_ice_embd, ln_dm2dc , ln_rnf, & 88 88 & ln_ssr , nn_fwb , ln_cdgw , ln_wave , ln_sdw 89 INTEGER :: ios 89 90 !!---------------------------------------------------------------------- 90 91 … … 95 96 ENDIF 96 97 97 REWIND( numnam ) ! Read Namelist namsbc 98 READ ( numnam, namsbc ) 98 REWIND( numnam_ref ) ! Namelist namsbc in reference namelist : Surface boundary 99 READ ( numnam_ref, namsbc, IOSTAT = ios, ERR = 901) 100 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in reference namelist', lwp ) 101 102 REWIND( numnam_cfg ) ! Namelist namsbc in configuration namelist : Parameters of the run 103 READ ( numnam_cfg, namsbc, IOSTAT = ios, ERR = 902 ) 104 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 105 WRITE ( numond, namsbc ) 99 106 100 107 ! ! overwrite namelist parameter using CPP key information -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90
r3832 r3875 245 245 INTEGER :: ji, jj, jk ! dummy loop indices 246 246 INTEGER :: ierror, inum ! temporary integer 247 INTEGER :: ios ! Local integer output status for namelist read 247 248 ! 248 249 NAMELIST/namsbc_rnf/ cn_dir, ln_rnf_emp, ln_rnf_depth, ln_rnf_tem, ln_rnf_sal, & … … 264 265 sn_dep_rnf = FLD_N( 'runoffs', 0. , 'rodepth' , .FALSE. , .true. , 'yearly' , '' , '' ) 265 266 ! 266 REWIND ( numnam ) ! Read Namelist namsbc_rnf 267 READ ( numnam, namsbc_rnf ) 267 REWIND( numnam_ref ) ! Namelist namsbc_rnf in reference namelist : Runoffs 268 READ ( numnam_ref, namsbc_rnf, IOSTAT = ios, ERR = 901) 269 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in reference namelist', lwp ) 270 271 REWIND( numnam_cfg ) ! Namelist namsbc_rnf in configuration namelist : Runoffs 272 READ ( numnam_cfg, namsbc_rnf, IOSTAT = ios, ERR = 902 ) 273 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 274 WRITE ( numond, namsbc_rnf ) 268 275 ! 269 276 ! ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90
r3764 r3875 79 79 CHARACTER(len=100) :: cn_dir ! Root directory for location of ssr files 80 80 TYPE(FLD_N) :: sn_sst, sn_sss ! informations about the fields to be read 81 NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd82 81 !!---------------------------------------------------------------------- 83 82 ! … … 164 163 TYPE(FLD_N) :: sn_sst, sn_sss ! informations about the fields to be read 165 164 NAMELIST/namsbc_ssr/ cn_dir, nn_sstr, nn_sssr, rn_dqdt, rn_deds, sn_sst, sn_sss, ln_sssr_bnd, rn_sssr_bnd 165 INTEGER :: ios 166 166 !!---------------------------------------------------------------------- 167 167 ! … … 173 173 sn_sst = FLD_N( 'sst' , 24 , 'sst' , .false. , .false. , 'yearly' , '' , '' ) 174 174 sn_sss = FLD_N( 'sss' , -1 , 'sss' , .true. , .false. , 'yearly' , '' , '' ) 175 176 REWIND( numnam ) !* read in namlist namflx 177 READ ( numnam, namsbc_ssr ) 175 176 REWIND( numnam_ref ) ! Namelist namsbc_ssr in reference namelist : 177 READ ( numnam_ref, namsbc_ssr, IOSTAT = ios, ERR = 901) 178 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in reference namelist', lwp ) 179 180 REWIND( numnam_cfg ) ! Namelist namsbc_ssr in configuration namelist : 181 READ ( numnam_cfg, namsbc_ssr, IOSTAT = ios, ERR = 902 ) 182 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 183 WRITE ( numond, namsbc_ssr ) 178 184 179 185 IF(lwp) THEN !* control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90
r3680 r3875 67 67 INTEGER :: ierror ! return error code 68 68 INTEGER :: ifpr, jj,ji,jk 69 INTEGER :: ios ! Local integer output status for namelist read 69 70 REAL(wp),DIMENSION(:,:,:),POINTER :: udummy,vdummy,hdivdummy,rotdummy 70 71 REAL :: z2dt,z1_2dt … … 92 93 cn_dir = './' ! directory in which the wave data are 93 94 94 95 REWIND( numnam ) !* read in namlist namsbc_wave 96 READ ( numnam, namsbc_wave ) 95 REWIND( numnam_ref ) ! Namelist namsbc_wave in reference namelist : File for drag coeff. from wave model 96 READ ( numnam_ref, namsbc_wave, IOSTAT = ios, ERR = 901) 97 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in reference namelist', lwp ) 98 99 REWIND( numnam_cfg ) ! Namelist namsbc_wave in configuration namelist : File for drag coeff. from wave model 100 READ ( numnam_cfg, namsbc_wave, IOSTAT = ios, ERR = 902 ) 101 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 102 WRITE ( numond, namsbc_wave ) 97 103 ! 98 104 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90
r3651 r3875 46 46 INTEGER, INTENT( in ) :: kt ! ocean time-step 47 47 CHARACTER(LEN=4), DIMENSION(jpmax_harmo) :: clname 48 INTEGER :: ios ! Local integer output status for namelist read 48 49 ! 49 50 NAMELIST/nam_tide/ln_tide_pot, ln_tide_ramp, rdttideramp, clname … … 63 64 ! 64 65 ! Read Namelist nam_tide 65 REWIND ( numnam ) 66 READ ( numnam, nam_tide ) 66 REWIND( numnam_ref ) ! Namelist nam_tide in reference namelist : Tides 67 READ ( numnam_ref, nam_tide, IOSTAT = ios, ERR = 901) 68 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in reference namelist', lwp ) 69 70 REWIND( numnam_cfg ) ! Namelist nam_tide in configuration namelist : Tides 71 READ ( numnam_cfg, nam_tide, IOSTAT = ios, ERR = 902 ) 72 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 73 WRITE ( numond, nam_tide ) 67 74 ! 68 75 nb_harmo=0 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r3764 r3875 51 51 !!---------------------------------------------------------------------- 52 52 INTEGER, INTENT(in) :: kt 53 INTEGER :: ios ! Local integer output status for namelist read 53 54 !! 54 55 NAMELIST/namsol/ nn_solv, nn_sol_arp, nn_nmin, nn_nmax, nn_nmod, rn_eps, rn_resmax, rn_sor … … 62 63 ENDIF 63 64 64 REWIND( numnam ) !* Namelist namsol : elliptic solver / free surface 65 READ ( numnam, namsol ) 65 REWIND( numnam_ref ) ! Namelist namsol in reference namelist : Elliptic solver / free surface 66 READ ( numnam_ref, namsol, IOSTAT = ios, ERR = 901) 67 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in reference namelist', lwp ) 68 69 REWIND( numnam_cfg ) ! Namelist namsol in configuration namelist : Elliptic solver / free surface 70 READ ( numnam_cfg, namsol, IOSTAT = ios, ERR = 902 ) 71 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 72 WRITE ( numond, namsol ) 66 73 67 74 IF(lwp) THEN !* Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90
r3625 r3875 708 708 NAMELIST/nameos/ nn_eos, rn_alpha, rn_beta 709 709 !!---------------------------------------------------------------------- 710 ! 711 REWIND( numnam ) ! Read Namelist nameos : equation of state 712 READ ( numnam, nameos ) 710 INTEGER :: ios 711 ! 712 REWIND( numnam_ref ) ! Namelist nameos in reference namelist : equation of state 713 READ ( numnam_ref, nameos, IOSTAT = ios, ERR = 901 ) 714 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in reference namelist', lwp ) 715 716 REWIND( numnam_cfg ) ! Namelist nameos in configuration namelist : equation of state 717 READ ( numnam_cfg, nameos, IOSTAT = ios, ERR = 902 ) 718 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 719 WRITE( numond, nameos ) 713 720 ! 714 721 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90
r3718 r3875 151 151 !!---------------------------------------------------------------------- 152 152 INTEGER :: ioptio 153 INTEGER :: ios ! Local integer output status for namelist read 153 154 !! 154 155 NAMELIST/namtra_adv/ ln_traadv_cen2 , ln_traadv_tvd, & … … 158 159 !!---------------------------------------------------------------------- 159 160 160 REWIND( numnam ) ! Read Namelist namtra_adv : tracer advection scheme 161 READ ( numnam, namtra_adv ) 161 REWIND( numnam_ref ) ! Namelist namtra_adv in reference namelist : Tracer advection scheme 162 READ ( numnam_ref, namtra_adv, IOSTAT = ios, ERR = 901) 163 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in reference namelist', lwp ) 164 165 REWIND( numnam_cfg ) ! Namelist namtra_adv in configuration namelist : Tracer advection scheme 166 READ ( numnam_cfg, namtra_adv, IOSTAT = ios, ERR = 902 ) 167 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 168 WRITE ( numond, namtra_adv ) 162 169 163 170 IF(lwp) THEN ! Namelist print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90
r3625 r3875 129 129 INTEGER :: ji, jj ! dummy loop indices 130 130 INTEGER :: inum ! temporary logical unit 131 INTEGER :: ios ! Local integer output status for namelist read 131 132 !! 132 133 NAMELIST/nambbc/ln_trabbc, nn_geoflx, rn_geoflx_cst 133 134 !!---------------------------------------------------------------------- 134 135 135 REWIND( numnam ) ! Read Namelist nambbc : bottom momentum boundary condition 136 READ ( numnam, nambbc ) 136 REWIND( numnam_ref ) ! Namelist nambbc in reference namelist : Bottom momentum boundary condition 137 READ ( numnam_ref, nambbc, IOSTAT = ios, ERR = 901) 138 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in reference namelist', lwp ) 139 140 REWIND( numnam_cfg ) ! Namelist nambbc in configuration namelist : Bottom momentum boundary condition 141 READ ( numnam_cfg, nambbc, IOSTAT = ios, ERR = 902 ) 142 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 143 WRITE ( numond, nambbc ) 137 144 138 145 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90
r3764 r3875 560 560 INTEGER :: ji, jj ! dummy loop indices 561 561 INTEGER :: ii0, ii1, ij0, ij1 ! temporary integer 562 INTEGER :: ios ! Local integer output status for namelist read 562 563 REAL(wp), POINTER, DIMENSION(:,:) :: zmbk 563 564 !! … … 570 571 ! 571 572 572 REWIND ( numnam ) !* Read Namelist nambbl : bottom boundary layer scheme 573 READ ( numnam, nambbl ) 573 REWIND( numnam_ref ) ! Namelist nambbl in reference namelist : Bottom boundary layer scheme 574 READ ( numnam_ref, nambbl, IOSTAT = ios, ERR = 901) 575 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in reference namelist', lwp ) 576 577 REWIND( numnam_cfg ) ! Namelist nambbl in configuration namelist : Bottom boundary layer scheme 578 READ ( numnam_cfg, nambbl, IOSTAT = ios, ERR = 902 ) 579 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 580 WRITE ( numond, nambbl ) 574 581 ! 575 582 l_bbl = .TRUE. !* flag to compute bbl coef and transport -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/tradmp.F90
r3294 r3875 194 194 !!---------------------------------------------------------------------- 195 195 NAMELIST/namtra_dmp/ ln_tradmp, nn_hdmp, nn_zdmp, rn_surf, rn_bot, rn_dep, nn_file 196 !!---------------------------------------------------------------------- 197 198 REWIND ( numnam ) ! Read Namelist namtra_dmp : temperature and salinity damping term 199 READ ( numnam, namtra_dmp ) 196 INTEGER :: ios ! Local integer output status for namelist read 197 !!---------------------------------------------------------------------- 198 199 REWIND( numnam_ref ) ! Namelist namtra_dmp in reference namelist : Temperature and salinity damping term 200 READ ( numnam_ref, namtra_dmp, IOSTAT = ios, ERR = 901) 201 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in reference namelist', lwp ) 202 203 REWIND( numnam_cfg ) ! Namelist namtra_dmp in configuration namelist : Temperature and salinity damping term 204 READ ( numnam_cfg, namtra_dmp, IOSTAT = ios, ERR = 902 ) 205 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 206 WRITE ( numond, namtra_dmp ) 200 207 201 208 IF( lzoom ) nn_zdmp = 0 ! restoring to climatology at closed north or south boundaries -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r3680 r3875 315 315 !!---------------------------------------------------------------------- 316 316 ! 317 INTEGER :: ji, jj, jk ! dummy loop indices317 INTEGER :: ji, jj, jk ! dummy loop indices 318 318 INTEGER :: irgb, ierror, ioptio, nqsr ! local integer 319 INTEGER :: ios ! Local integer output status for namelist read 319 320 REAL(wp) :: zz0, zc0 , zc1, zcoef ! local scalars 320 321 REAL(wp) :: zz1, zc2 , zc3, zchl ! - - … … 342 343 sn_chl = FLD_N( 'chlorophyll' , -1 , 'CHLA' , .true. , .true. , 'yearly' , '' , '' ) 343 344 ! 344 REWIND( numnam ) ! Read Namelist namtra_qsr : ratio and length of penetration 345 READ ( numnam, namtra_qsr ) 345 346 REWIND( numnam_ref ) ! Namelist namtra_qsr in reference namelist : Ratio and length of penetration 347 READ ( numnam_ref, namtra_qsr, IOSTAT = ios, ERR = 901) 348 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in reference namelist', lwp ) 349 350 REWIND( numnam_cfg ) ! Namelist namtra_qsr in configuration namelist : Ratio and length of penetration 351 READ ( numnam_cfg, namtra_qsr, IOSTAT = ios, ERR = 902 ) 352 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 353 WRITE ( numond, namtra_qsr ) 346 354 ! 347 355 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90
r3294 r3875 251 251 !!---------------------------------------------------------------------- 252 252 USE in_out_manager ! I/O manager 253 USE lib_mpp ! MPP library 253 254 !! 254 255 NAMELIST/namtrd/ nn_trd, nn_ctls, cn_trdrst_in, cn_trdrst_out, ln_trdmld_restart, rn_ucf, ln_trdmld_instant 256 INTEGER :: ios ! Local integer output status for namelist read 255 257 !!---------------------------------------------------------------------- 256 258 257 259 IF( l_trdtra .OR. l_trddyn ) THEN 258 REWIND( numnam ) 259 READ ( numnam, namtrd ) ! namelist namtrd : trends diagnostic 260 261 REWIND( numnam_ref ) ! Namelist namtrd in reference namelist : Diagnostics: trends 262 READ ( numnam_ref, namtrd, IOSTAT = ios, ERR = 901) 263 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in reference namelist', lwp ) 264 265 REWIND( numnam_cfg ) ! Namelist namtrd in configuration namelist : Diagnostics: trends 266 READ ( numnam_cfg, namtrd, IOSTAT = ios, ERR = 902 ) 267 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 268 WRITE ( numond, namtrd ) 260 269 261 270 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90
r3820 r3875 179 179 INTEGER :: ikbu, ikbv ! temporary integers 180 180 INTEGER :: ictu, ictv ! - - 181 INTEGER :: ios 181 182 REAL(wp) :: zminbfr, zmaxbfr ! temporary scalars 182 183 REAL(wp) :: zfru, zfrv ! - - … … 188 189 IF( nn_timing == 1 ) CALL timing_start('zdf_bfr_init') 189 190 ! 190 REWIND ( numnam ) !* Read Namelist nam_bfr : bottom momentum boundary condition 191 READ ( numnam, nambfr ) 191 REWIND( numnam_ref ) ! Namelist nambfr in reference namelist : Bottom momentum boundary condition 192 READ ( numnam_ref, nambfr, IOSTAT = ios, ERR = 901) 193 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in reference namelist', lwp ) 194 195 REWIND( numnam_cfg ) ! Namelist nambfr in configuration namelist : Bottom momentum boundary condition 196 READ ( numnam_cfg, nambfr, IOSTAT = ios, ERR = 902 ) 197 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 198 WRITE ( numond, nambfr ) 192 199 193 200 ! !* Parameter control and print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90
r3610 r3875 213 213 !!---------------------------------------------------------------------- 214 214 NAMELIST/namzdf_ddm/ rn_avts, rn_hsbfr 215 !!---------------------------------------------------------------------- 216 ! 217 REWIND( numnam ) ! Read Namelist namzdf_ddm : double diffusion mixing scheme 218 READ ( numnam, namzdf_ddm ) 215 INTEGER :: ios ! Local integer output status for namelist read 216 !!---------------------------------------------------------------------- 217 ! 218 REWIND( numnam_ref ) ! Namelist namzdf_ddm in reference namelist : Double diffusion mixing scheme 219 READ ( numnam_ref, namzdf_ddm, IOSTAT = ios, ERR = 901) 220 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in reference namelist', lwp ) 221 222 REWIND( numnam_cfg ) ! Namelist namzdf_ddm in configuration namelist : Double diffusion mixing scheme 223 READ ( numnam_cfg, namzdf_ddm, IOSTAT = ios, ERR = 902 ) 224 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 225 WRITE ( numond, namzdf_ddm ) 219 226 ! 220 227 IF(lwp) THEN ! Parameter print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90
r3798 r3875 928 928 ! 929 929 INTEGER :: jk ! dummy loop indices 930 INTEGER :: ios ! Local integer output status for namelist read 930 931 REAL(wp):: zcr ! local scalar 931 932 !! … … 940 941 IF( nn_timing == 1 ) CALL timing_start('zdf_gls_init') 941 942 ! 942 REWIND( numnam ) !* Read Namelist namzdf_gls 943 READ ( numnam, namzdf_gls ) 943 REWIND( numnam_ref ) ! Namelist namzdf_gls in reference namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 944 READ ( numnam_ref, namzdf_gls, IOSTAT = ios, ERR = 901) 945 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in reference namelist', lwp ) 946 947 REWIND( numnam_cfg ) ! Namelist namzdf_gls in configuration namelist : Vertical eddy diffivity and viscosity using gls turbulent closure scheme 948 READ ( numnam_cfg, namzdf_gls, IOSTAT = ios, ERR = 902 ) 949 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 950 WRITE ( numond, namzdf_gls ) 944 951 945 952 IF(lwp) THEN !* Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90
r3680 r3875 51 51 !!---------------------------------------------------------------------- 52 52 INTEGER :: ioptio ! temporary scalar 53 INTEGER :: ios 53 54 !! 54 55 NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp, & … … 56 57 !!---------------------------------------------------------------------- 57 58 58 REWIND( numnam ) !* Read namzdf namelist : vertical mixing parameters 59 READ ( numnam, namzdf ) 59 REWIND( numnam_ref ) ! Namelist namzdf in reference namelist : Vertical mixing parameters 60 READ ( numnam_ref, namzdf, IOSTAT = ios, ERR = 901) 61 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in reference namelist', lwp ) 62 63 REWIND( numnam_cfg ) ! Namelist namzdf in reference namelist : Vertical mixing parameters 64 READ ( numnam_cfg, namzdf, IOSTAT = ios, ERR = 902 ) 65 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 66 WRITE ( numond, namzdf ) 60 67 61 68 IF(lwp) THEN !* Parameter print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90
r3792 r3875 1382 1382 REAL(wp) :: zustar, zucube, zustvk, zeta, zehat ! tempory scalars 1383 1383 #endif 1384 INTEGER :: ios ! Local integer output status for namelist read 1384 1385 REAL(wp) :: zhbf ! tempory scalars 1385 1386 LOGICAL :: ll_kppcustom ! 1st ocean level taken as surface layer … … 1391 1392 IF( nn_timing == 1 ) CALL timing_start('zdf_kpp_init') 1392 1393 ! 1393 REWIND ( numnam ) ! Read Namelist namkpp : K-Profile Parameterisation 1394 READ ( numnam, namzdf_kpp ) 1394 REWIND( numnam_ref ) ! Namelist namzdf_kpp in reference namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1395 READ ( numnam_ref, namzdf_kpp, IOSTAT = ios, ERR = 901) 1396 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in reference namelist', lwp ) 1397 1398 REWIND( numnam_cfg ) ! Namelist namzdf_kpp in configuration namelist : Vertical eddy diffivity and viscosity using kpp turbulent closure scheme 1399 READ ( numnam_cfg, namzdf_kpp, IOSTAT = ios, ERR = 902 ) 1400 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 1401 WRITE ( numond, namzdf_kpp ) 1395 1402 1396 1403 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90
r3625 r3875 247 247 !!---------------------------------------------------------------------- 248 248 INTEGER :: ji, jj, jk ! dummy loop indices 249 INTEGER :: ios ! Local integer output status for namelist read 249 250 !! 250 251 NAMELIST/namzdf_ric/ rn_avmri, rn_alp , nn_ric , rn_ekmfc, & … … 252 253 !!---------------------------------------------------------------------- 253 254 ! 254 REWIND( numnam ) ! Read Namelist namzdf_ric : richardson number dependent Kz 255 READ ( numnam, namzdf_ric ) 255 REWIND( numnam_ref ) ! Namelist namzdf_ric in reference namelist : Vertical diffusion Kz depends on Richardson number 256 READ ( numnam_ref, namzdf_ric, IOSTAT = ios, ERR = 901) 257 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in reference namelist', lwp ) 258 259 REWIND( numnam_cfg ) ! Namelist namzdf_ric in configuration namelist : Vertical diffusion Kz depends on Richardson number 260 READ ( numnam_cfg, namzdf_ric, IOSTAT = ios, ERR = 902 ) 261 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 262 WRITE ( numond, namzdf_ric ) 256 263 ! 257 264 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90
r3680 r3875 692 692 !!---------------------------------------------------------------------- 693 693 INTEGER :: ji, jj, jk ! dummy loop indices 694 INTEGER :: ios 694 695 !! 695 696 NAMELIST/namzdf_tke/ rn_ediff, rn_ediss , rn_ebb , rn_emin , & … … 699 700 !!---------------------------------------------------------------------- 700 701 ! 701 REWIND ( numnam ) !* Read Namelist namzdf_tke : Turbulente Kinetic Energy 702 READ ( numnam, namzdf_tke ) 702 REWIND( numnam_ref ) ! Namelist namzdf_tke in reference namelist : Turbulent Kinetic Energy 703 READ ( numnam_ref, namzdf_tke, IOSTAT = ios, ERR = 901) 704 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in reference namelist', lwp ) 705 706 REWIND( numnam_cfg ) ! Namelist namzdf_tke in configuration namelist : Turbulent Kinetic Energy 707 READ ( numnam_cfg, namzdf_tke, IOSTAT = ios, ERR = 902 ) 708 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 709 WRITE ( numond, namzdf_tke ) 703 710 ! 704 711 ri_cri = 2._wp / ( 2._wp + rn_ediss / rn_ediff ) ! resulting critical Richardson number -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftmx.F90
r3625 r3875 354 354 INTEGER :: ji, jj, jk ! dummy loop indices 355 355 INTEGER :: inum ! local integer 356 INTEGER :: ios 356 357 REAL(wp) :: ztpc, ze_z ! local scalars 357 358 REAL(wp), DIMENSION(:,:) , POINTER :: zem2, zek1 ! read M2 and K1 tidal energy … … 369 370 CALL wrk_alloc( jpi,jpj,jpk, zpc ) 370 371 371 REWIND( numnam ) ! Read Namelist namtmx : Tidal Mixing 372 READ ( numnam, namzdf_tmx ) 372 REWIND( numnam_ref ) ! Namelist namzdf_tmx in reference namelist : Tidal Mixing 373 READ ( numnam_ref, namzdf_tmx, IOSTAT = ios, ERR = 901) 374 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in reference namelist', lwp ) 375 376 REWIND( numnam_cfg ) ! Namelist namzdf_tmx in configuration namelist : Tidal Mixing 377 READ ( numnam_cfg, namzdf_tmx, IOSTAT = ios, ERR = 902 ) 378 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 379 WRITE ( numond, namzdf_tmx ) 373 380 374 381 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/module_example
r2737 r3875 157 157 !!---------------------------------------------------------------------- 158 158 INTEGER :: ji, jj, jk, jit ! dummy loop indices 159 INTEGER :: ios ! Local integer output status for namelist read 159 160 !! 160 161 NAMELIST/namexa/ exa_v1, exa_v2, nexa_0, sn_ex … … 164 165 sn_ex%nfreqh = 2 165 166 ! 166 REWIND( numnam ) ! Read Namelist namexa : example parameters 167 READ ( numnam, namexa ) 167 REWIND( numnam_ref ) ! Namelist namexa in reference namelist : Example 168 READ ( numnam_ref, namexa, IOSTAT = ios, ERR = 901) 169 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namexa in reference namelist', lwp ) 170 171 REWIND( numnam_cfg ) ! Namelist namexa in configuration namelist : Example 172 READ ( numnam_cfg, namexa, IOSTAT = ios, ERR = 902 ) 173 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namexa in configuration namelist', lwp ) 174 ! Output namelist for control 175 WRITE ( numond, namexa ) 168 176 ! 169 177 IF(lwp) THEN ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3769 r3875 218 218 INTEGER :: ji ! dummy loop indices 219 219 INTEGER :: ilocal_comm ! local integer 220 INTEGER :: ios 220 221 CHARACTER(len=80), DIMENSION(16) :: cltxt 221 222 !! … … 227 228 cltxt = '' 228 229 ! 229 ! ! open Namelist file 230 CALL ctl_opn( numnam, 'namelist', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 231 ! 232 READ( numnam, namctl ) ! Namelist namctl : Control prints & Benchmark 230 ! ! Open reference namelist and configuration namelist files 231 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 232 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 233 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea ) 234 ! 235 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 236 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 237 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp ) 238 239 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 240 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 241 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 242 WRITE( numond, namctl ) 233 243 ! 234 244 ! !--------------------------------------------! … … 244 254 # endif 245 255 ENDIF 246 narea = mynode( cltxt, numnam , nstop, ilocal_comm ) ! Nodes selection256 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 247 257 #else 248 258 # if defined key_oasis3 || defined key_oasis4 … … 250 260 CALL cpl_prism_init( ilocal_comm ) ! nemo local communicator given by oasis 251 261 ENDIF 252 narea = mynode( cltxt, numnam , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt)262 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 253 263 # else 254 264 ilocal_comm = 0 255 narea = mynode( cltxt, numnam , nstop ) ! Nodes selection (control print return in cltxt)265 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop ) ! Nodes selection (control print return in cltxt) 256 266 # endif 257 267 #endif … … 510 520 CALL iom_close ! close all input/output files managed by iom_* 511 521 ! 512 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 513 IF( numsol /= -1 ) CLOSE( numsol ) ! solver file 514 IF( numnam /= -1 ) CLOSE( numnam ) ! oce namelist 515 IF( numnam_ice /= -1 ) CLOSE( numnam_ice ) ! ice namelist 516 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 517 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 518 IF( numdct_vol /= -1 ) CLOSE( numdct_vol ) ! volume transports 519 IF( numdct_heat /= -1 ) CLOSE( numdct_heat ) ! heat transports 520 IF( numdct_salt /= -1 ) CLOSE( numdct_salt ) ! salt transports 522 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 523 IF( numsol /= -1 ) CLOSE( numsol ) ! solver file 524 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist 525 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist 526 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist 527 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist 528 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 529 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 530 IF( numdct_vol /= -1 ) CLOSE( numdct_vol ) ! volume transports 531 IF( numdct_heat /= -1 ) CLOSE( numdct_heat ) ! heat transports 532 IF( numdct_salt /= -1 ) CLOSE( numdct_salt ) ! salt transports 521 533 522 534 ! -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90
r3769 r3875 151 151 !!---------------------------------------------------------------------- 152 152 INTEGER :: ji ! dummy loop indices 153 INTEGER :: ios 153 154 INTEGER :: ilocal_comm ! local integer 154 155 CHARACTER(len=80), DIMENSION(16) :: cltxt … … 161 162 cltxt = '' 162 163 ! 163 ! ! open Namelist file 164 CALL ctl_opn( numnam, 'namelist', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 165 ! 166 READ( numnam, namctl ) ! Namelist namctl : Control prints & Benchmark 164 ! ! Open reference namelist and configuration namelist files 165 CALL ctl_opn( numnam_ref, 'namelist_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 166 CALL ctl_opn( numnam_cfg, 'namelist_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE. ) 167 CALL ctl_opn( numond, 'output.namelist.dyn', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, 6, .FALSE., narea ) 168 ! 169 REWIND( numnam_ref ) ! Namelist namctl in reference namelist : Control prints & Benchmark 170 READ ( numnam_ref, namctl, IOSTAT = ios, ERR = 901 ) 171 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in reference namelist', lwp ) 172 173 REWIND( numnam_cfg ) ! Namelist namctl in confguration namelist : Control prints & Benchmark 174 READ ( numnam_cfg, namctl, IOSTAT = ios, ERR = 902 ) 175 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 167 176 ! 168 177 ! !--------------------------------------------! … … 173 182 CALL xios_initialize( "nemo",return_comm=ilocal_comm ) 174 183 ENDIF 175 narea = mynode( cltxt, numnam , nstop, ilocal_comm ) ! Nodes selection184 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection 176 185 #else 177 186 ilocal_comm = 0 178 narea = mynode( cltxt, numnam , nstop )! Nodes selection (control print return in cltxt)187 narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm ) ! Nodes selection (control print return in cltxt) 179 188 #endif 180 189 narea = narea + 1 ! mynode return the rank of proc (0 --> jpnij -1 ) … … 361 370 CALL iom_close ! close all input/output files managed by iom_* 362 371 ! 363 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 364 IF( numnam /= -1 ) CLOSE( numnam ) ! oce namelist 365 IF( numnam_ice /= -1 ) CLOSE( numnam_ice ) ! ice namelist 366 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 367 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 372 IF( numstp /= -1 ) CLOSE( numstp ) ! time-step file 373 IF( numnam_ref /= -1 ) CLOSE( numnam_ref ) ! oce reference namelist 374 IF( numnam_cfg /= -1 ) CLOSE( numnam_cfg ) ! oce configuration namelist 375 IF( numnam_ice_ref /= -1 ) CLOSE( numnam_ice_ref ) ! ice reference namelist 376 IF( numnam_ice_cfg /= -1 ) CLOSE( numnam_ice_cfg ) ! ice configuration namelist 377 IF( numevo_ice /= -1 ) CLOSE( numevo_ice ) ! ice variables (temp. evolution) 378 IF( numout /= 6 ) CLOSE( numout ) ! standard model output file 368 379 ! 369 380 numout = 6 ! redefine numout in case it is used after this point... -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90
r3364 r3875 128 128 INTEGER :: ifpr ! dummy loop indice 129 129 INTEGER :: inum, idv, idimv, jpm ! local integer 130 INTEGER :: ios ! Local integer output status for namelist read 130 131 !! 131 132 CHARACTER(len=100) :: cn_dir ! Root directory for location of core files … … 150 151 sn_ssh = FLD_N( 'ssm_grid_T' , 120 , 'sossheig' , .true. , .true. , 'yearly' , '' , '' ) 151 152 ! 152 REWIND( numnam ) ! read in namlist namsbc_ssm 153 READ ( numnam, namsbc_ssm ) 153 REWIND( numnam_ref ) ! Namelist namsbc_ssm in reference namelist : SAS files for dynamical data 154 READ ( numnam_ref, namsbc_ssm, IOSTAT = ios, ERR = 901) 155 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssm in reference namelist', lwp ) 156 157 REWIND( numnam_cfg ) ! Namelist namsbc_ssm in configuration namelist : SAS files for dynamical data 158 READ ( numnam_cfg, namsbc_ssm, IOSTAT = ios, ERR = 902 ) 159 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssm in configuration namelist', lwp ) 160 WRITE ( numond, namsbc_ssm ) 154 161 ! ! store namelist information in an array 155 162 ! ! Control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/C14b/trcnam_c14b.F90
r3294 r3875 42 42 !! ** input : Namelist namelist_c14b 43 43 !!---------------------------------------------------------------------- 44 INTEGER :: numnatb 44 INTEGER :: numnatb_ref = -1 ! Logical unit for reference c14b namelist 45 INTEGER :: numnatb_cfg = -1 ! Logical unit for configuration c14b namelist 46 INTEGER :: numonb = -1 ! Logical unit for output namelist 47 INTEGER :: ios ! Local integer output status for namelist read 45 48 46 49 ! definition of additional diagnostic as a structure … … 57 60 58 61 ! ! Open namelist file 59 CALL ctl_opn( numnatb, 'namelist_c14b', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 60 61 READ( numnatb , namc14date ) ! read namelist 62 CALL ctl_opn( numnatb_ref, 'namelist_c14b_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 63 CALL ctl_opn( numnatb_cfg, 'namelist_c14b_cfg' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 64 CALL ctl_opn( numonb , 'output.namelist.c14', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 65 REWIND( numnatb_ref ) ! Namelist namc14date in reference namelist : c14b parameters 66 READ ( numnatb_ref, namc14date, IOSTAT = ios, ERR = 901) 67 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14date in reference namelist', lwp ) 62 68 69 REWIND( numnatb_cfg ) ! Namelist namc14date in configuration namelist : c14b parameters 70 READ ( numnatb_cfg, namc14date, IOSTAT = ios, ERR = 902 ) 71 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14date in configuration namelist', lwp ) 72 WRITE ( numonb, namc14date ) 63 73 IF(lwp) THEN ! control print 64 74 WRITE(numout,*) … … 87 97 END DO 88 98 89 REWIND( numnatb ) ! 90 READ ( numnatb, namc14dia ) 99 REWIND( numnatb_ref ) ! Namelist namc14dia in reference namelist : c14b diagnostics 100 READ ( numnatb_ref, namc14dia, IOSTAT = ios, ERR = 903) 101 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in reference namelist', lwp ) 102 103 REWIND( numnatb_cfg ) ! Namelist namc14dia in configuration namelist : c14b diagnostics 104 READ ( numnatb_cfg, namc14dia, IOSTAT = ios, ERR = 904 ) 105 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in configuration namelist', lwp ) 106 WRITE ( numonb, namc14dia ) 91 107 92 108 DO jl = 1, jp_c14b_2d -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90
r3294 r3875 42 42 !! ** input : Namelist namcfc 43 43 !!---------------------------------------------------------------------- 44 INTEGER :: numnatc 44 INTEGER :: numnatc_ref = -1 ! Logical unit for reference CFC namelist 45 INTEGER :: numnatc_cfg = -1 ! Logical unit for configuration CFC namelist 46 INTEGER :: numonc = -1 ! Logical unit for output namelist 47 INTEGER :: ios ! Local integer output status for namelist read 45 48 INTEGER :: jl, jn 46 49 TYPE(DIAG), DIMENSION(jp_cfc_2d) :: cfcdia2d … … 53 56 nyear_res = 1950 54 57 55 ! ! Open namelist file 56 CALL ctl_opn( numnatc, 'namelist_cfc', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 57 58 READ( numnatc , namcfcdate ) ! read namelist 58 ! ! Open namelist files 59 CALL ctl_opn( numnatc_ref, 'namelist_cfc_ref' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 60 CALL ctl_opn( numnatc_cfg, 'namelist_cfc_cfg' , 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 61 CALL ctl_opn( numonc , 'output.namelist.cfc', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 62 63 REWIND( numnatc_ref ) ! Namelist namcfcdate in reference namelist : CFC parameters 64 READ ( numnatc_ref, namcfcdate, IOSTAT = ios, ERR = 901) 65 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in reference namelist', lwp ) 66 67 REWIND( numnatc_cfg ) ! Namelist namcfcdate in configuration namelist : CFC parameters 68 READ ( numnatc_cfg, namcfcdate, IOSTAT = ios, ERR = 902 ) 69 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in configuration namelist', lwp ) 70 WRITE ( numonc, namcfcdate ) 59 71 60 72 IF(lwp) THEN ! control print … … 79 91 END DO 80 92 81 REWIND( numnatc ) ! read natrtd 82 READ ( numnatc, namcfcdia ) 93 REWIND( numnatc_ref ) ! Namelist namcfcdia in reference namelist : CFC diagnostics 94 READ ( numnatc_ref, namcfcdia, IOSTAT = ios, ERR = 903) 95 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in reference namelist', lwp ) 96 97 REWIND( numnatc_cfg ) ! Namelist namcfcdia in configuration namelist : CFC diagnostics 98 READ ( numnatc_cfg, namcfcdia, IOSTAT = ios, ERR = 904 ) 99 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp ) 100 WRITE ( numonc, namcfcdia ) 83 101 84 102 DO jl = 1, jp_cfc_2d -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90
r3446 r3875 480 480 !! *** ROUTINE p2z_bio_init *** 481 481 !! 482 !! ** Purpose : bi logical parameters482 !! ** Purpose : biological parameters 483 483 !! 484 484 !! ** Method : Read namelist and check the parameters … … 490 490 NAMELIST/namlobdet/ taudn, fdetlab 491 491 NAMELIST/namlobdom/ taudomn 492 INTEGER :: ios ! Local integer output status for namelist read 492 493 !!---------------------------------------------------------------------- 493 494 494 REWIND( numnatp ) 495 READ ( numnatp, namlobphy ) 495 REWIND( numnatp_ref ) ! Namelist namlobphy in reference namelist : Lobster biological parameters 496 READ ( numnatp_ref, namlobphy, IOSTAT = ios, ERR = 901) 497 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in reference namelist', lwp ) 498 499 REWIND( numnatp_cfg ) ! Namelist namlobphy in configuration namelist : Lobster biological parameters 500 READ ( numnatp_cfg, namlobphy, IOSTAT = ios, ERR = 902 ) 501 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist', lwp ) 502 WRITE ( numonp, namlobphy ) 496 503 497 504 IF(lwp) THEN … … 505 512 ENDIF 506 513 507 REWIND( numnatp ) 508 READ ( numnatp, namlobnut ) 514 REWIND( numnatp_ref ) ! Namelist namlobnut in reference namelist : Lobster nutriments parameters 515 READ ( numnatp_ref, namlobnut, IOSTAT = ios, ERR = 903) 516 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in reference namelist', lwp ) 517 518 REWIND( numnatp_cfg ) ! Namelist namlobnut in configuration namelist : Lobster nutriments parameters 519 READ ( numnatp_cfg, namlobnut, IOSTAT = ios, ERR = 904 ) 520 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist', lwp ) 521 WRITE ( numonp, namlobnut ) 522 509 523 IF(lwp) THEN 510 524 WRITE(numout,*) ' Namelist namlobnut' … … 516 530 ENDIF 517 531 518 REWIND( numnatp ) 519 READ ( numnatp, namlobzoo ) 532 REWIND( numnatp_ref ) ! Namelist namlobzoo in reference namelist : Lobster zooplankton parameters 533 READ ( numnatp_ref, namlobzoo, IOSTAT = ios, ERR = 905) 534 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in reference namelist', lwp ) 535 536 REWIND( numnatp_cfg ) ! Namelist namlobzoo in configuration namelist : Lobster zooplankton parameters 537 READ ( numnatp_cfg, namlobzoo, IOSTAT = ios, ERR = 906 ) 538 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist', lwp ) 539 WRITE ( numonp, namlobzoo ) 520 540 521 541 IF(lwp) THEN … … 533 553 ENDIF 534 554 535 REWIND( numnatp ) 536 READ ( numnatp, namlobdet ) 555 REWIND( numnatp_ref ) ! Namelist namlobdet in reference namelist : Lobster detritus parameters 556 READ ( numnatp_ref, namlobdet, IOSTAT = ios, ERR = 907) 557 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in reference namelist', lwp ) 558 559 REWIND( numnatp_cfg ) ! Namelist namlobdet in configuration namelist : Lobster detritus parameters 560 READ ( numnatp_cfg, namlobdet, IOSTAT = ios, ERR = 908 ) 561 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist', lwp ) 562 WRITE ( numonp, namlobdet ) 537 563 538 564 IF(lwp) THEN … … 543 569 ENDIF 544 570 545 REWIND( numnatp ) 546 READ ( numnatp, namlobdom ) 571 REWIND( numnatp_ref ) ! Namelist namlobdom in reference namelist : Lobster DOM breakdown rate 572 READ ( numnatp_ref, namlobdom, IOSTAT = ios, ERR = 909) 573 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in reference namelist', lwp ) 574 575 REWIND( numnatp_cfg ) ! Namelist namlobdom in configuration namelist : Lobster DOM breakdown rate 576 READ ( numnatp_cfg, namlobdom, IOSTAT = ios, ERR = 910 ) 577 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist', lwp ) 578 WRITE ( numonp, namlobdom ) 547 579 548 580 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90
r3443 r3875 164 164 NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 165 165 NAMELIST/namlobrat/ rcchl, redf, reddom 166 INTEGER :: ios ! Local integer output status for namelist read 166 167 !!---------------------------------------------------------------------- 167 168 168 REWIND( numnatp ) 169 READ ( numnatp, namlobopt ) 169 REWIND( numnatp_ref ) ! Namelist namlobopt in reference namelist : Lobster options 170 READ ( numnatp_ref, namlobopt, IOSTAT = ios, ERR = 901) 171 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in reference namelist', lwp ) 172 173 REWIND( numnatp_cfg ) ! Namelist namlobopt in configuration namelist : Lobster options 174 READ ( numnatp_cfg, namlobopt, IOSTAT = ios, ERR = 902 ) 175 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 176 WRITE ( numonp, namlobopt ) 170 177 171 178 IF(lwp) THEN … … 182 189 ENDIF 183 190 ! 184 REWIND( numnatp ) 185 READ ( numnatp, namlobrat ) 191 REWIND( numnatp_ref ) ! Namelist namlobrat in reference namelist : Lobster ratios 192 READ ( numnatp_ref, namlobrat, IOSTAT = ios, ERR = 903) 193 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in reference namelist', lwp ) 194 195 REWIND( numnatp_cfg ) ! Namelist namlobrat in configuration namelist : Lobster ratios 196 READ ( numnatp_cfg, namlobrat, IOSTAT = ios, ERR = 904 ) 197 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 198 WRITE ( numonp, namlobrat ) 186 199 187 200 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90
r3443 r3875 151 151 !!---------------------------------------------------------------------- 152 152 NAMELIST/namlobsed/ sedlam, sedlostpoc, vsed, xhr 153 INTEGER :: ios ! Local integer output status for namelist read 153 154 154 REWIND( numnatp ) 155 READ ( numnatp, namlobsed ) 155 REWIND( numnatp_ref ) ! Namelist namlobsed in reference namelist : Lobster sediments 156 READ ( numnatp_ref, namlobsed, IOSTAT = ios, ERR = 901) 157 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlosed in reference namelist', lwp ) 158 159 REWIND( numnatp_cfg ) ! Namelist namlobsed in configuration namelist : Lobster sediments 160 READ ( numnatp_cfg, namlobsed, IOSTAT = ios, ERR = 902 ) 161 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 162 WRITE ( numonp, namlobsed ) 156 163 157 164 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90
r3780 r3875 342 342 !!---------------------------------------------------------------------- 343 343 NAMELIST/nampisfer/ ln_fechem, ln_ligvar, xlam1, xlamdust, ligand 344 345 REWIND( numnatp ) ! read numnatp 346 READ ( numnatp, nampisfer ) 344 INTEGER :: ios ! Local integer output status for namelist read 345 346 REWIND( numnatp_ref ) ! Namelist nampisfer in reference namelist : Pisces iron chemistry 347 READ ( numnatp_ref, nampisfer, IOSTAT = ios, ERR = 901) 348 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in reference namelist', lwp ) 349 350 REWIND( numnatp_cfg ) ! Namelist nampisfer in configuration namelist : Pisces iron chemistry 351 READ ( numnatp_cfg, nampisfer, IOSTAT = ios, ERR = 902 ) 352 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist', lwp ) 353 WRITE ( numonp, nampisfer ) 347 354 348 355 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90
r3481 r3875 239 239 NAMELIST/nampisext/ln_co2int, atcco2, clname, nn_offset 240 240 INTEGER :: jm 241 !!---------------------------------------------------------------------- 242 ! 243 REWIND( numnatp ) ! read numnatp 244 READ ( numnatp, nampisext ) 241 INTEGER :: ios ! Local integer output status for namelist read 242 !!---------------------------------------------------------------------- 243 ! 244 245 REWIND( numnatp_ref ) ! Namelist nampisext in reference namelist : Pisces atm. conditions 246 READ ( numnatp_ref, nampisext, IOSTAT = ios, ERR = 901) 247 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in reference namelist', lwp ) 248 249 REWIND( numnatp_cfg ) ! Namelist nampisext in configuration namelist : Pisces atm. conditions 250 READ ( numnatp_cfg, nampisext, IOSTAT = ios, ERR = 902 ) 251 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist', lwp ) 252 WRITE ( numonp, nampisext ) 245 253 ! 246 254 IF(lwp) THEN ! control print … … 302 310 ! 303 311 INTEGER :: ierr 312 INTEGER :: ios ! Local integer output status for namelist read 304 313 CHARACTER(len=100) :: cn_dir ! Root directory for location of ssr files 305 314 TYPE(FLD_N) :: sn_patm ! informations about the fields to be read … … 317 326 cn_dir = './' ! directory in which the Patm data are 318 327 319 REWIND( numnatp ) !* read in namlist nampisatm 320 READ ( numnatp, nampisatm ) 328 REWIND( numnatp_ref ) ! Namelist nampisatm in reference namelist : Pisces atm. sea level pressure file 329 READ ( numnatp_ref, nampisatm, IOSTAT = ios, ERR = 901) 330 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in reference namelist', lwp ) 331 332 REWIND( numnatp_cfg ) ! Namelist nampisatm in configuration namelist : Pisces atm. sea level pressure file 333 READ ( numnatp_cfg, nampisatm, IOSTAT = ios, ERR = 902 ) 334 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist', lwp ) 335 WRITE ( numonp, nampisatm ) 321 336 ! 322 337 ! -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90
r3446 r3875 217 217 & concbno3, concbnh4, xsizedia, xsizephy, xsizern, xsizerd, & 218 218 & xksi1, xksi2, xkdoc, qnfelim, qdfelim, caco3r 219 220 REWIND( numnatp ) ! read numnat 221 READ ( numnatp, nampislim ) 219 INTEGER :: ios ! Local integer output status for namelist read 220 221 REWIND( numnatp_ref ) ! Namelist nampislim in reference namelist : Pisces nutrient limitation parameters 222 READ ( numnatp_ref, nampislim, IOSTAT = ios, ERR = 901) 223 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in reference namelist', lwp ) 224 225 REWIND( numnatp_cfg ) ! Namelist nampislim in configuration namelist : Pisces nutrient limitation parameters 226 READ ( numnatp_cfg, nampislim, IOSTAT = ios, ERR = 902 ) 227 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist', lwp ) 228 WRITE ( numonp, nampislim ) 222 229 223 230 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90
r3443 r3875 188 188 !!---------------------------------------------------------------------- 189 189 INTEGER :: ji, jj, jk 190 INTEGER :: ios ! Local integer output status for namelist read 190 191 REAL(wp) :: zcaralk, zbicarb, zco3 191 192 REAL(wp) :: ztmas, ztmas1 … … 194 195 !!---------------------------------------------------------------------- 195 196 196 REWIND( numnatp ) ! read numnatp 197 READ ( numnatp, nampiscal ) 197 REWIND( numnatp_ref ) ! Namelist nampiscal in reference namelist : Pisces CaCO3 dissolution 198 READ ( numnatp_ref, nampiscal, IOSTAT = ios, ERR = 901) 199 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in reference namelist', lwp ) 200 201 REWIND( numnatp_cfg ) ! Namelist nampiscal in configuration namelist : Pisces CaCO3 dissolution 202 READ ( numnatp_cfg, nampiscal, IOSTAT = ios, ERR = 902 ) 203 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist', lwp ) 204 WRITE ( numonp, nampiscal ) 198 205 199 206 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90
r3829 r3875 255 255 & xprefpoc, xthresh2dia, xthresh2phy, xthresh2zoo, xthresh2poc, & 256 256 & xthresh2, xkgraz2, epsher2, sigma2, unass2, grazflux 257 258 REWIND( numnatp ) ! read numnatp 259 READ ( numnatp, nampismes ) 257 INTEGER :: ios ! Local integer output status for namelist read 258 259 REWIND( numnatp_ref ) ! Namelist nampismes in reference namelist : Pisces mesozooplankton 260 READ ( numnatp_ref, nampismes, IOSTAT = ios, ERR = 901) 261 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in reference namelist', lwp ) 262 263 REWIND( numnatp_cfg ) ! Namelist nampismes in configuration namelist : Pisces mesozooplankton 264 READ ( numnatp_cfg, nampismes, IOSTAT = ios, ERR = 902 ) 265 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist', lwp ) 266 WRITE ( numonp, nampismes ) 260 267 261 268 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r3829 r3875 225 225 & xpref2d, xthreshdia, xthreshphy, xthreshpoc, & 226 226 & xthresh, xkgraz, epsher, sigma1, unass 227 228 REWIND( numnatp ) ! read numnatp 229 READ ( numnatp, nampiszoo ) 227 INTEGER :: ios ! Local integer output status for namelist read 228 229 REWIND( numnatp_ref ) ! Namelist nampiszoo in reference namelist : Pisces microzooplankton 230 READ ( numnatp_ref, nampiszoo, IOSTAT = ios, ERR = 901) 231 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiszoo in reference namelist', lwp ) 232 233 REWIND( numnatp_cfg ) ! Namelist nampiszoo in configuration namelist : Pisces microzooplankton 234 READ ( numnatp_cfg, nampiszoo, IOSTAT = ios, ERR = 902 ) 235 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiszoo in configuration namelist', lwp ) 236 WRITE ( numonp, nampiszoo ) 230 237 231 238 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90
r3475 r3875 239 239 240 240 NAMELIST/nampismort/ wchl, wchld, wchldm, mprat, mprat2 241 242 REWIND( numnatp ) ! read numnatp 243 READ ( numnatp, nampismort ) 241 INTEGER :: ios ! Local integer output status for namelist read 242 243 REWIND( numnatp_ref ) ! Namelist nampismort in reference namelist : Pisces phytoplankton 244 READ ( numnatp_ref, nampismort, IOSTAT = ios, ERR = 901) 245 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismort in reference namelist', lwp ) 246 247 REWIND( numnatp_cfg ) ! Namelist nampismort in configuration namelist : Pisces phytoplankton 248 READ ( numnatp_cfg, nampismort, IOSTAT = ios, ERR = 902 ) 249 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismort in configuration namelist', lwp ) 250 WRITE ( numonp, nampismort ) 244 251 245 252 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r3475 r3875 318 318 INTEGER :: numpar 319 319 INTEGER :: ierr 320 INTEGER :: ios ! Local integer output status for namelist read 320 321 REAL(wp), DIMENSION(nbtimes) :: zsteps ! times records 321 322 ! … … 335 336 sn_par = FLD_N( 'par_fraction', 24 , 'fr_par' , .true. , .true. , 'yearly' , '' , '' ) 336 337 337 REWIND( numnatp ) ! read numnatp 338 READ ( numnatp, nampisopt ) 338 REWIND( numnatp_ref ) ! Namelist nampisopt in reference namelist : Pisces attenuation coef. and PAR 339 READ ( numnatp_ref, nampisopt, IOSTAT = ios, ERR = 901) 340 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in reference namelist', lwp ) 341 342 REWIND( numnatp_cfg ) ! Namelist nampisopt in configuration namelist : Pisces attenuation coef. and PAR 343 READ ( numnatp_cfg, nampisopt, IOSTAT = ios, ERR = 902 ) 344 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist', lwp ) 345 WRITE ( numonp, nampisopt ) 339 346 340 347 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90
r3686 r3875 472 472 NAMELIST/nampisprod/ pislope, pislope2, ln_newprod, bresp, excret, excret2, & 473 473 & chlcnm, chlcdm, chlcmin, fecnm, fecdm, grosip 474 INTEGER :: ios ! Local integer output status for namelist read 474 475 !!---------------------------------------------------------------------- 475 476 476 REWIND( numnatp ) ! read numnatp 477 READ ( numnatp, nampisprod ) 477 REWIND( numnatp_ref ) ! Namelist nampisprod in reference namelist : Pisces phytoplankton production 478 READ ( numnatp_ref, nampisprod, IOSTAT = ios, ERR = 901) 479 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisprod in reference namelist', lwp ) 480 481 REWIND( numnatp_cfg ) ! Namelist nampisprod in configuration namelist : Pisces phytoplankton production 482 READ ( numnatp_cfg, nampisprod, IOSTAT = ios, ERR = 902 ) 483 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisprod in configuration namelist', lwp ) 484 WRITE ( numonp, nampisprod ) 478 485 479 486 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zrem.F90
r3496 r3875 349 349 NAMELIST/nampisrem/ xremik, xremip, nitrif, xsirem, xsiremlab, xsilab, & 350 350 & oxymin 351 352 REWIND( numnatp ) ! read numnatp 353 READ ( numnatp, nampisrem ) 351 INTEGER :: ios ! Local integer output status for namelist read 352 353 REWIND( numnatp_ref ) ! Namelist nampisrem in reference namelist : Pisces remineralization 354 READ ( numnatp_ref, nampisrem, IOSTAT = ios, ERR = 901) 355 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in reference namelist', lwp ) 356 357 REWIND( numnatp_cfg ) ! Namelist nampisrem in configuration namelist : Pisces remineralization 358 READ ( numnatp_cfg, nampisrem, IOSTAT = ios, ERR = 902 ) 359 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist', lwp ) 360 WRITE ( numonp, nampisrem ) 354 361 355 362 IF(lwp) THEN ! control print -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90
r3557 r3875 186 186 INTEGER :: numdust, numsolub, numriv, numiron, numdepo, numhydro 187 187 INTEGER :: ierr, ierr1, ierr2, ierr3 188 INTEGER :: ios ! Local integer output status for namelist read 188 189 REAL(wp) :: zexpide, zdenitide, zmaskt 189 190 REAL(wp) :: ztimes_dust, ztimes_riv, ztimes_ndep … … 226 227 sn_hydrofe = FLD_N( 'hydrofe' , -12 , 'hydro' , .false. , .true. , 'yearly' , '' , '' ) 227 228 228 REWIND( numnatp ) ! read numnatp 229 READ ( numnatp, nampissbc ) 229 REWIND( numnatp_ref ) ! Namelist nampissbc in reference namelist : Pisces external sources of nutrients 230 READ ( numnatp_ref, nampissbc, IOSTAT = ios, ERR = 901) 231 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in reference namelist', lwp ) 232 233 REWIND( numnatp_cfg ) ! Namelist nampissbc in configuration namelist : Pisces external sources of nutrients 234 READ ( numnatp_cfg, nampissbc, IOSTAT = ios, ERR = 902 ) 235 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist', lwp ) 236 WRITE ( numonp, nampissbc ) 230 237 231 238 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90
r3829 r3875 538 538 !!---------------------------------------------------------------------- 539 539 INTEGER :: jk, jn, kiter 540 INTEGER :: ios ! Local integer output status for namelist read 540 541 REAL(wp) :: znum, zdiv 541 542 REAL(wp) :: zws, zwr, zwl,wmax, znummax … … 548 549 IF( nn_timing == 1 ) CALL timing_start('p4z_sink_init') 549 550 ! 550 REWIND( numnatp ) ! read nampiskrs 551 READ ( numnatp, nampiskrs ) 551 552 REWIND( numnatp_ref ) ! Namelist nampiskrs in reference namelist : Pisces sinking Kriest 553 READ ( numnatp_ref, nampiskrs, IOSTAT = ios, ERR = 901) 554 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in reference namelist', lwp ) 555 556 REWIND( numnatp_cfg ) ! Namelist nampiskrs in configuration namelist : Pisces sinking Kriest 557 READ ( numnatp_cfg, nampiskrs, IOSTAT = ios, ERR = 902 ) 558 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in configuration namelist', lwp ) 559 WRITE ( numonp, nampiskrs ) 552 560 553 561 IF(lwp) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r3780 r3875 166 166 NAMELIST/nampisdmp/ ln_pisdmp, nn_pisdmp, ln_pisclo 167 167 NAMELIST/nampismass/ ln_check_mass 168 !!---------------------------------------------------------------------- 169 170 171 REWIND( numnatp ) 172 READ ( numnatp, nampisbio ) 168 INTEGER :: ios ! Local integer output status for namelist read 169 !!---------------------------------------------------------------------- 170 171 REWIND( numnatp_ref ) ! Namelist nampisbio in reference namelist : Pisces variables 172 READ ( numnatp_ref, nampisbio, IOSTAT = ios, ERR = 901) 173 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in reference namelist', lwp ) 174 175 REWIND( numnatp_cfg ) ! Namelist nampisbio in configuration namelist : Pisces variables 176 READ ( numnatp_cfg, nampisbio, IOSTAT = ios, ERR = 902 ) 177 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist', lwp ) 178 WRITE ( numonp, nampisbio ) 173 179 174 180 IF(lwp) THEN ! control print … … 193 199 xkr_mass_max = 1. 194 200 195 REWIND( numnatp ) ! read natkriest 196 READ ( numnatp, nampiskrp ) 201 REWIND( numnatp_ref ) ! Namelist nampiskrp in reference namelist : Pisces Kriest 202 READ ( numnatp_ref, nampiskrp, IOSTAT = ios, ERR = 903) 203 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in reference namelist', lwp ) 204 205 REWIND( numnatp_cfg ) ! Namelist nampiskrp in configuration namelist : Pisces Kriest 206 READ ( numnatp_cfg, nampiskrp, IOSTAT = ios, ERR = 904 ) 207 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in configuration namelist', lwp ) 208 WRITE ( numonp, nampiskrp ) 197 209 198 210 IF(lwp) THEN … … 217 229 ln_pisclo = .false. 218 230 219 REWIND( numnatp ) 220 READ ( numnatp, nampisdmp ) 231 REWIND( numnatp_ref ) ! Namelist nampisdmp in reference namelist : Pisces damping 232 READ ( numnatp_ref, nampisdmp, IOSTAT = ios, ERR = 905) 233 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in reference namelist', lwp ) 234 235 REWIND( numnatp_cfg ) ! Namelist nampisdmp in configuration namelist : Pisces damping 236 READ ( numnatp_cfg, nampisdmp, IOSTAT = ios, ERR = 906 ) 237 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist', lwp ) 238 WRITE ( numonp, nampisdmp ) 221 239 222 240 IF(lwp) THEN ! control print … … 230 248 231 249 ln_check_mass = .false. 232 REWIND( numnatp ) 233 READ ( numnatp, nampismass ) 250 REWIND( numnatp_ref ) ! Namelist nampismass in reference namelist : Pisces mass conservation check 251 READ ( numnatp_ref, nampismass, IOSTAT = ios, ERR = 907) 252 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in reference namelist', lwp ) 253 254 REWIND( numnatp_cfg ) ! Namelist nampismass in configuration namelist : Pisces mass conservation check 255 READ ( numnatp_cfg, nampismass, IOSTAT = ios, ERR = 908 ) 256 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist', lwp ) 257 WRITE ( numonp, nampismass ) 258 234 259 IF(lwp) THEN ! control print 235 260 WRITE(numout,*) ' ' -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90
r3780 r3875 17 17 PUBLIC 18 18 19 INTEGER :: numnatp 19 INTEGER :: numnatp_ref = -1 !! Logical units for namelist pisces 20 INTEGER :: numnatp_cfg = -1 !! Logical units for namelist pisces 21 INTEGER :: numonp = -1 !! Logical unit for namelist pisces output 20 22 21 23 !!* Biological fluxes for light : variables shared by pisces & lobster -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/trcnam_pisces.F90
r3680 r3875 49 49 !! 50 50 INTEGER :: jl, jn 51 INTEGER :: ios ! Local integer output status for namelist read 51 52 TYPE(DIAG), DIMENSION(jp_pisces_2d) :: pisdia2d 52 53 TYPE(DIAG), DIMENSION(jp_pisces_3d) :: pisdia3d … … 69 70 #endif 70 71 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 71 CALL ctl_opn( numnatp, TRIM( clname ), 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 72 72 CALL ctl_opn( numnatp_ref, TRIM( clname )//'_ref', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 73 CALL ctl_opn( numnatp_cfg, TRIM( clname )//'_cfg', 'OLD' , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 74 CALL ctl_opn( numonp , 'output.namelist.pis' , 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 73 75 ! 74 76 IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN … … 88 90 END DO 89 91 90 REWIND( numnatp ) ! 91 READ ( numnatp, nampisdia ) 92 REWIND( numnatp_ref ) ! Namelist nampisdia in reference namelist : Pisces diagnostics 93 READ ( numnatp_ref, nampisdia, IOSTAT = ios, ERR = 901) 94 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in reference namelist', lwp ) 95 96 REWIND( numnatp_cfg ) ! Namelist nampisdia in configuration namelist : Pisces diagnostics 97 READ ( numnatp_cfg, nampisdia, IOSTAT = ios, ERR = 902 ) 98 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in configuration namelist', lwp ) 99 WRITE ( numonp, nampisdia ) 92 100 93 101 DO jl = 1, jp_pisces_2d … … 140 148 END DO 141 149 142 REWIND( numnatp ) 143 READ ( numnatp, nampisdbi ) 150 REWIND( numnatp_ref ) ! Namelist nampisdbi in reference namelist : Pisces add. diagnostics 151 READ ( numnatp_ref, nampisdbi, IOSTAT = ios, ERR = 903) 152 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in reference namelist', lwp ) 153 154 REWIND( numnatp_cfg ) ! Namelist nampisdbi in configuration namelist : Pisces add. diagnostics 155 READ ( numnatp_cfg, nampisdbi, IOSTAT = ios, ERR = 904 ) 156 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in configuration namelist', lwp ) 157 WRITE ( numonp, nampisdbi ) 144 158 145 159 DO jl = 1, jp_pisces_trd -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90
r3718 r3875 15 15 USE trc ! ocean passive tracers variables 16 16 USE in_out_manager ! ocean dynamics and active tracers variables 17 USE lib_mpp ! distributed memory computing library 17 18 18 19 IMPLICIT NONE … … 73 74 !! ** Purpose : Read Namelist for tracer transport option 74 75 !!---------------------------------------------------------------------- 76 INTEGER :: ios ! Local integer output status for namelist read 75 77 NAMELIST/namtrc_adv/ ln_trcadv_cen2 , ln_trcadv_tvd , & 76 78 & ln_trcadv_muscl, ln_trcadv_muscl2, & … … 92 94 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 93 95 94 REWIND ( numnat ) ! Read Namelist namtrc_adv : tracer advection scheme 95 READ ( numnat, namtrc_adv ) 96 REWIND( numnat_ref ) ! Namelist namtrc_adv in reference namelist : Tracer advection scheme 97 READ ( numnat_ref, namtrc_adv, IOSTAT = ios, ERR = 901) 98 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in reference namelist', lwp ) 99 100 REWIND( numnat_cfg ) ! Namelist namtrc_adv in configuration namelist : Tracer advection scheme 101 READ ( numnat_cfg, namtrc_adv, IOSTAT = ios, ERR = 902 ) 102 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist', lwp ) 103 WRITE ( numont, namtrc_adv ) 96 104 97 105 IF(lwp) THEN ! Namelist print … … 108 116 ENDIF 109 117 ! 110 REWIND( numnat ) ! Namelist namtrc_ldf 111 READ ( numnat, namtrc_ldf ) 118 REWIND( numnat_ref ) ! Namelist namtrc_ldf in reference namelist : Tracer lateral diffusive operator 119 READ ( numnat_ref, namtrc_ldf, IOSTAT = ios, ERR = 903) 120 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in reference namelist', lwp ) 121 122 REWIND( numnat_cfg ) ! Namelist namtrc_ldf in configuration namelist : Tracer lateral diffusive operator 123 READ ( numnat_cfg, namtrc_ldf, IOSTAT = ios, ERR = 904 ) 124 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist', lwp ) 125 WRITE ( numont, namtrc_ldf ) 112 126 113 127 IF(lwp) THEN ! Namelist print … … 127 141 128 142 ! ! Vertical mixing 129 REWIND( numnat ) ! ! Read namtopzdf namelist 130 READ ( numnat, namtrc_zdf ) 143 REWIND( numnat_ref ) ! Namelist namtrc_zdf in reference namelist : Tracer vertical mixing 144 READ ( numnat_ref, namtrc_zdf, IOSTAT = ios, ERR = 905) 145 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_zdf in reference namelist', lwp ) 146 147 REWIND( numnat_cfg ) ! Namelist namtrc_zdf in configuration namelist : Tracer vertical mixing 148 READ ( numnat_cfg, namtrc_zdf, IOSTAT = ios, ERR = 906 ) 149 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_zdf in configuration namelist', lwp ) 150 WRITE ( numont, namtrc_zdf ) 131 151 132 152 IF(lwp) THEN ! ! Control print … … 138 158 139 159 ! 140 REWIND( numnat ) ! Read Namelist namtoprad 141 READ ( numnat, namtrc_rad ) 160 REWIND( numnat_ref ) ! Namelist namtrc_rad in reference namelist : Tracer negative concentrations 161 READ ( numnat_ref, namtrc_rad, IOSTAT = ios, ERR = 907) 162 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in reference namelist', lwp ) 163 164 REWIND( numnat_cfg ) ! Namelist namtrc_rad in configuration namelist : Tracer negative concentrations 165 READ ( numnat_cfg, namtrc_rad, IOSTAT = ios, ERR = 908 ) 166 908 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist', lwp ) 167 WRITE ( numont, namtrc_rad ) 142 168 143 169 IF(lwp) THEN ! ! Control print … … 149 175 150 176 # if defined key_trcdmp 151 REWIND ( numnat ) ! Read Namelist namtra_dmp : temperature and salinity damping term 152 READ ( numnat, namtrc_dmp ) 177 REWIND( numnat_ref ) ! Namelist namtrc_dmp in reference namelist : Passive tracers newtonian damping 178 READ ( numnat_ref, namtrc_dmp, IOSTAT = ios, ERR = 909) 179 909 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in reference namelist', lwp ) 180 181 REWIND( numnat_cfg ) ! Namelist namtrc_dmp in configuration namelist : Passive tracers newtonian damping 182 READ ( numnat_cfg, namtrc_dmp, IOSTAT = ios, ERR = 910) 183 910 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist', lwp ) 184 WRITE ( numont, namtrc_dmp ) 185 153 186 IF( lzoom ) nn_zdmp_trc = 0 ! restoring to climatology at closed north or south boundaries 154 187 -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trc.F90
r3770 r3875 21 21 22 22 !! parameters for the control of passive tracers 23 !! -------------------------------------------------- 24 INTEGER, PUBLIC :: numnat !: logicla unit for the passive tracer NAMELIST 23 !! --------------------------------------------- 24 INTEGER, PUBLIC :: numnat_ref = -1 !: logical unit for the reference passive tracer namelist_top_ref 25 INTEGER, PUBLIC :: numnat_cfg = -1 !: logical unit for the reference passive tracer namelist_top_cfg 26 INTEGER, PUBLIC :: numont = -1 !: logical unit for the reference passive tracer namelist output output.namelist.top 25 27 INTEGER, PUBLIC :: numstr !: logical unit for tracer statistics 26 28 INTEGER, PUBLIC :: numrtr !: logical unit for trc restart (read ) -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trcdta.F90
r3827 r3875 53 53 !!---------------------------------------------------------------------- 54 54 ! 55 INTEGER :: jl, jn ! dummy loop indicies55 INTEGER :: jl, jn ! dummy loop indicies 56 56 INTEGER :: ierr0, ierr1, ierr2, ierr3 ! temporary integers 57 INTEGER :: ios ! Local integer output status for namelist read 57 58 CHARACTER(len=100) :: clndta, clntrc 58 59 REAL(wp) :: zfact … … 103 104 END DO 104 105 ! 105 REWIND( numnat ) ! read nattrc 106 READ ( numnat, namtrc_dta ) 106 REWIND( numnat_ref ) ! Namelist namtrc_dta in reference namelist : Passive tracer input data 107 READ ( numnat_ref, namtrc_dta, IOSTAT = ios, ERR = 901) 108 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta in reference namelist', lwp ) 109 110 REWIND( numnat_cfg ) ! Namelist namtrc_dta in configuration namelist : Passive tracer input data 111 READ ( numnat_cfg, namtrc_dta, IOSTAT = ios, ERR = 902 ) 112 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta in configuration namelist', lwp ) 113 WRITE ( numont, namtrc_dta ) 107 114 108 115 IF( lwp ) THEN -
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trcnam.F90
r3749 r3875 55 55 !!--------------------------------------------------------------------- 56 56 INTEGER :: jn, ierr 57 INTEGER :: ios ! Local integer output status for namelist read 57 58 ! Definition of a tracer as a structure 58 59 TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer ! type of tracer for saving if not key_iomput … … 73 74 IF(lwp) WRITE(numout,*) '~~~~~~~' 74 75 75 CALL ctl_opn( numnat, 'namelist_top', 'OLD', 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. ) 76 CALL ctl_opn( numnat_ref, 'namelist_top_ref' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. ) 77 CALL ctl_opn( numnat_cfg, 'namelist_top_cfg' , 'OLD' , 'FORMATTED', 'SEQUENTIAL', 1, numout, .FALSE. ) 78 CALL ctl_opn( numont , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL',-1, numout, .FALSE. ) 76 79 77 80 ! Namelist nattrc (files) … … 95 98 ln_trcdmp = .FALSE. 96 99 97 98 REWIND( numnat ) ! read nattrc 99 READ ( numnat, namtrc ) 100 REWIND( numnat_ref ) ! Namelist namtrc in reference namelist : Passive tracer variables 101 READ ( numnat_ref, namtrc, IOSTAT = ios, ERR = 901) 102 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in reference namelist', lwp ) 103 104 REWIND( numnat_cfg ) ! Namelist namtrc in configuration namelist : Passive tracer variables 105 READ ( numnat_cfg, namtrc, IOSTAT = ios, ERR = 902 ) 106 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 107 WRITE ( numont, namtrc ) 100 108 101 109 DO jn = 1, jptra … … 142 150 nn_writebio = 10 143 151 144 REWIND( numnat ) ! namelist namtoptrd : passive tracer trends diagnostic 145 READ ( numnat, namtrc_dia ) 152 REWIND( numnat_ref ) ! Namelist namtrc_dia in reference namelist : Passive tracer diagnostics 153 READ ( numnat_ref, namtrc_dia, IOSTAT = ios, ERR = 903) 154 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dia in reference namelist', lwp ) 155 156 REWIND( numnat_cfg ) ! Namelist namtrc_dia in configuration namelist : Passive tracer diagnostics 157 READ ( numnat_cfg, namtrc_dia, IOSTAT = ios, ERR = 904 ) 158 904 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dia in configuration namelist', lwp ) 159 WRITE ( numont, namtrc_dia ) 146 160 147 161 IF(lwp) THEN … … 221 235 ln_trdtrc(:) = .FALSE. 222 236 223 REWIND( numnat ) ! namelist namtoptrd : passive tracer trends diagnostic 224 READ ( numnat, namtrc_trd ) 237 REWIND( numnat_ref ) ! Namelist namtrc_trd in reference namelist : Passive tracer trends 238 READ ( numnat_ref, namtrc_trd, IOSTAT = ios, ERR = 905) 239 905 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in reference namelist', lwp ) 240 241 REWIND( numnat_cfg ) ! Namelist namtrc_trd in configuration namelist : Passive tracer trends 242 READ ( numnat_cfg, namtrc_trd, IOSTAT = ios, ERR = 906 ) 243 906 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist', lwp ) 244 WRITE ( numont, namtrc_trd ) 225 245 226 246 IF(lwp) THEN
Note: See TracChangeset
for help on using the changeset viewer.