Changeset 3875


Ignore:
Timestamp:
2013-04-18T16:38:06+02:00 (7 years ago)
Author:
clevy
Message:

Configuration Setting/Step? 1, see ticket:#1074

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  
    2727%NCDF_INC            -I/opt/local/include 
    2828%NCDF_LIB            -L/opt/local/lib -lnetcdf -lnetcdff 
    29 %XIOS_ROOT           /Users/smasson/XIOS 
     29%XIOS_ROOT           /Users/clairelevy/Documents/WORK/XIOS 
    3030%FC                mpif90  
    3131%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  
    2121    --> 
    2222     
    23     <file_definition type="one_file" sync_freq="1d" min_digits="4"> 
     23    <file_definition type="multiple_file" sync_freq="1d" min_digits="4"> 
    2424     
    2525      <file_group id="1h" output_freq="1h"  output_level="10" enabled=".TRUE."/> <!-- 1h files --> 
     
    118118     <variable id="buffer_server_factor_size" type="integer">2</variable> 
    119119     <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> 
    121121     <variable id="using_oasis"               type="boolean">false</variable> 
    122122     <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  
     1it:       1 iter: 230 r: 0.7440246784E-05 b: 0.1840836680E+00 
     2it:       2 iter: 250 r: 0.9359445851E-05 b: 0.2352830875E+00 
     3it:       3 iter: 230 r: 0.7006458826E-05 b: 0.3162751066E+00 
     4it:       4 iter: 250 r: 0.7963375184E-05 b: 0.7600135454E+00 
     5it:       5 iter: 230 r: 0.6853491637E-05 b: 0.8308380404E+00 
     6it:       6 iter: 230 r: 0.7072073043E-05 b: 0.9601908004E+00 
     7it:       7 iter: 230 r: 0.7993938546E-05 b: 0.8968937663E+00 
     8it:       8 iter: 220 r: 0.9452523537E-05 b: 0.9286046333E+00 
     9it:       9 iter: 220 r: 0.7643866533E-05 b: 0.8678317378E+00 
     10it:      10 iter: 230 r: 0.6734816843E-05 b: 0.8320320445E+00 
     11it:      11 iter: 230 r: 0.6555766837E-05 b: 0.7763847661E+00 
     12it:      12 iter: 230 r: 0.7881189707E-05 b: 0.7649864886E+00 
     13it:      13 iter: 230 r: 0.8218451842E-05 b: 0.7173828982E+00 
     14it:      14 iter: 230 r: 0.6144547574E-05 b: 0.7251532602E+00 
     15it:      15 iter: 230 r: 0.8895658888E-05 b: 0.7578256449E+00 
     16it:      16 iter: 240 r: 0.6909441439E-05 b: 0.7022615898E+00 
     17it:      17 iter: 230 r: 0.8711982405E-05 b: 0.7820485476E+00 
     18it:      18 iter: 240 r: 0.5646937198E-05 b: 0.6278761617E+00 
     19it:      19 iter: 220 r: 0.7750888632E-05 b: 0.7304352525E+00 
     20it:      20 iter: 230 r: 0.7665403697E-05 b: 0.6090718109E+00 
     21it:      21 iter: 220 r: 0.9206169267E-05 b: 0.6046990692E+00 
     22it:      22 iter: 220 r: 0.7880544716E-05 b: 0.6708382256E+00 
     23it:      23 iter: 240 r: 0.6805896028E-05 b: 0.6918136672E+00 
     24it:      24 iter: 240 r: 0.5257969079E-05 b: 0.7100011136E+00 
     25it:      25 iter: 230 r: 0.7255731129E-05 b: 0.6299497651E+00 
     26it:      26 iter: 230 r: 0.7955511730E-05 b: 0.5981168369E+00 
     27it:      27 iter: 230 r: 0.8723250269E-05 b: 0.7065752333E+00 
     28it:      28 iter: 230 r: 0.9084870960E-05 b: 0.6811209792E+00 
     29it:      29 iter: 240 r: 0.6265972753E-05 b: 0.6438025850E+00 
     30it:      30 iter: 240 r: 0.6756411483E-05 b: 0.7380066457E+00 
     31it:      31 iter: 240 r: 0.8267499945E-05 b: 0.5718579407E+00 
     32it:      32 iter: 230 r: 0.7822761428E-05 b: 0.5468158515E+00 
     33it:      33 iter: 230 r: 0.8554659234E-05 b: 0.5944574379E+00 
     34it:      34 iter: 230 r: 0.9814944368E-05 b: 0.6066986782E+00 
     35it:      35 iter: 230 r: 0.8281265862E-05 b: 0.6257082797E+00 
     36it:      36 iter: 240 r: 0.6434775828E-05 b: 0.7161136630E+00 
     37it:      37 iter: 240 r: 0.8493419909E-05 b: 0.6469647840E+00 
     38it:      38 iter: 230 r: 0.9514775389E-05 b: 0.6252465293E+00 
     39it:      39 iter: 230 r: 0.9696091963E-05 b: 0.6405217223E+00 
     40it:      40 iter: 240 r: 0.7487372084E-05 b: 0.6986117635E+00 
     41it:      41 iter: 240 r: 0.7147871952E-05 b: 0.7762620324E+00 
     42it:      42 iter: 240 r: 0.7872673471E-05 b: 0.6105754302E+00 
     43it:      43 iter: 240 r: 0.6699980937E-05 b: 0.5967819085E+00 
     44it:      44 iter: 240 r: 0.6723050857E-05 b: 0.6588837375E+00 
     45it:      45 iter: 240 r: 0.7533196699E-05 b: 0.5549833564E+00 
     46it:      46 iter: 220 r: 0.6344734570E-05 b: 0.5860203472E+00 
     47it:      47 iter: 230 r: 0.9878074607E-05 b: 0.6014543803E+00 
     48it:      48 iter: 240 r: 0.7035058015E-05 b: 0.5783782087E+00 
     49it:      49 iter: 220 r: 0.6529639860E-05 b: 0.7361370508E+00 
     50it:      50 iter: 240 r: 0.7729340369E-05 b: 0.5842760800E+00 
     51it:      51 iter: 240 r: 0.6788462114E-05 b: 0.6143198588E+00 
     52it:      52 iter: 220 r: 0.9937168124E-05 b: 0.6243364139E+00 
     53it:      53 iter: 240 r: 0.6534750798E-05 b: 0.5595607447E+00 
     54it:      54 iter: 230 r: 0.8678988428E-05 b: 0.7792975280E+00 
     55it:      55 iter: 250 r: 0.5709524264E-05 b: 0.5643273114E+00 
     56it:      56 iter: 240 r: 0.6868924242E-05 b: 0.6748093667E+00 
     57it:      57 iter: 220 r: 0.8802456851E-05 b: 0.4833796887E+00 
     58it:      58 iter: 230 r: 0.7963865360E-05 b: 0.5811727569E+00 
     59it:      59 iter: 240 r: 0.7604935477E-05 b: 0.6757019066E+00 
     60it:      60 iter: 240 r: 0.8249974860E-05 b: 0.6491309310E+00 
     61it:      61 iter: 240 r: 0.6962681203E-05 b: 0.5942964677E+00 
     62it:      62 iter: 240 r: 0.7920516441E-05 b: 0.5333356047E+00 
     63it:      63 iter: 230 r: 0.9979996401E-05 b: 0.5654869154E+00 
     64it:      64 iter: 230 r: 0.9440808495E-05 b: 0.5511726149E+00 
     65it:      65 iter: 230 r: 0.9721137141E-05 b: 0.6463726156E+00 
     66it:      66 iter: 240 r: 0.8200359436E-05 b: 0.7128297479E+00 
     67it:      67 iter: 240 r: 0.8549759019E-05 b: 0.7316743242E+00 
     68it:      68 iter: 240 r: 0.9628430286E-05 b: 0.5951733959E+00 
     69it:      69 iter: 240 r: 0.7366094543E-05 b: 0.6633287622E+00 
     70it:      70 iter: 240 r: 0.8231034076E-05 b: 0.6088735400E+00 
     71it:      71 iter: 220 r: 0.8624631868E-05 b: 0.5750411699E+00 
     72it:      72 iter: 240 r: 0.6294860018E-05 b: 0.6310657497E+00 
     73it:      73 iter: 240 r: 0.9365148279E-05 b: 0.7392710383E+00 
     74it:      74 iter: 250 r: 0.5364158338E-05 b: 0.5537547290E+00 
     75it:      75 iter: 230 r: 0.9773008643E-05 b: 0.6682402833E+00 
     76it:      76 iter: 240 r: 0.8100467942E-05 b: 0.4151078256E+00 
     77it:      77 iter: 230 r: 0.7799429163E-05 b: 0.7316424154E+00 
     78it:      78 iter: 240 r: 0.7895404910E-05 b: 0.5546671882E+00 
     79it:      79 iter: 240 r: 0.8022559953E-05 b: 0.6427847760E+00 
     80it:      80 iter: 240 r: 0.7277566511E-05 b: 0.6194711553E+00 
     81it:      81 iter: 240 r: 0.7281194538E-05 b: 0.5302877545E+00 
     82it:      82 iter: 220 r: 0.9419193804E-05 b: 0.5830701993E+00 
     83it:      83 iter: 240 r: 0.6201472391E-05 b: 0.5753005254E+00 
     84it:      84 iter: 240 r: 0.8012278476E-05 b: 0.7371921321E+00 
     85it:      85 iter: 250 r: 0.5491651366E-05 b: 0.5417053834E+00 
     86it:      86 iter: 240 r: 0.5899673560E-05 b: 0.6119654171E+00 
     87it:      87 iter: 230 r: 0.9885748439E-05 b: 0.4452258232E+00 
     88it:      88 iter: 230 r: 0.8059891888E-05 b: 0.5150581792E+00 
     89it:      89 iter: 240 r: 0.6474085695E-05 b: 0.7299448326E+00 
     90it:      90 iter: 240 r: 0.9823416885E-05 b: 0.5900060073E+00 
     91it:      91 iter: 230 r: 0.9877402224E-05 b: 0.5782497516E+00 
     92it:      92 iter: 240 r: 0.7243880097E-05 b: 0.6371540604E+00 
     93it:      93 iter: 250 r: 0.6636279056E-05 b: 0.6822048243E+00 
     94it:      94 iter: 240 r: 0.7952782380E-05 b: 0.6007558897E+00 
     95it:      95 iter: 230 r: 0.9479950980E-05 b: 0.4812863791E+00 
     96it:      96 iter: 230 r: 0.9716970475E-05 b: 0.5460524242E+00 
     97it:      97 iter: 240 r: 0.7071442197E-05 b: 0.7167370757E+00 
     98it:      98 iter: 240 r: 0.9140383178E-05 b: 0.7007191239E+00 
     99it:      99 iter: 240 r: 0.9325496852E-05 b: 0.5653204254E+00 
     100it:     100 iter: 240 r: 0.7224897062E-05 b: 0.6429090388E+00 
     101it:     101 iter: 250 r: 0.6076157518E-05 b: 0.5903397131E+00 
     102it:     102 iter: 240 r: 0.7709458679E-05 b: 0.5631843117E+00 
     103it:     103 iter: 230 r: 0.9483458449E-05 b: 0.4630274284E+00 
     104it:     104 iter: 220 r: 0.9163801266E-05 b: 0.5297015960E+00 
     105it:     105 iter: 240 r: 0.7057520098E-05 b: 0.6752365938E+00 
     106it:     106 iter: 240 r: 0.8819884636E-05 b: 0.7966358545E+00 
     107it:     107 iter: 250 r: 0.6716847991E-05 b: 0.5455663238E+00 
     108it:     108 iter: 240 r: 0.6937130501E-05 b: 0.6438496359E+00 
     109it:     109 iter: 240 r: 0.8127329934E-05 b: 0.4770795941E+00 
     110it:     110 iter: 230 r: 0.9027417641E-05 b: 0.5278952315E+00 
     111it:     111 iter: 240 r: 0.6025113978E-05 b: 0.5847697136E+00 
     112it:     112 iter: 240 r: 0.8995445301E-05 b: 0.6485093354E+00 
     113it:     113 iter: 240 r: 0.8035579774E-05 b: 0.5015333593E+00 
     114it:     114 iter: 230 r: 0.9945631243E-05 b: 0.6028582927E+00 
     115it:     115 iter: 240 r: 0.9530143332E-05 b: 0.5302317353E+00 
     116it:     116 iter: 240 r: 0.7375366429E-05 b: 0.6999526779E+00 
     117it:     117 iter: 240 r: 0.8084203070E-05 b: 0.5968685018E+00 
     118it:     118 iter: 240 r: 0.9186455567E-05 b: 0.5347836484E+00 
     119it:     119 iter: 240 r: 0.6828632897E-05 b: 0.6006343873E+00 
     120it:     120 iter: 240 r: 0.8126692683E-05 b: 0.5644510961E+00 
     121it:     121 iter: 240 r: 0.8506885049E-05 b: 0.5134367555E+00 
     122it:     122 iter: 240 r: 0.6041055138E-05 b: 0.5791725527E+00 
     123it:     123 iter: 240 r: 0.8966067574E-05 b: 0.5183401294E+00 
     124it:     124 iter: 230 r: 0.9630371415E-05 b: 0.4865587842E+00 
     125it:     125 iter: 230 r: 0.9901262506E-05 b: 0.5654058301E+00 
     126it:     126 iter: 240 r: 0.9839887281E-05 b: 0.6406980159E+00 
     127it:     127 iter: 240 r: 0.8660444831E-05 b: 0.6779025257E+00 
     128it:     128 iter: 240 r: 0.7588719353E-05 b: 0.6064939748E+00 
     129it:     129 iter: 240 r: 0.9979402524E-05 b: 0.5718319709E+00 
     130it:     130 iter: 240 r: 0.7130939446E-05 b: 0.5808342373E+00 
     131it:     131 iter: 240 r: 0.7794682727E-05 b: 0.6034740220E+00 
     132it:     132 iter: 240 r: 0.9500862178E-05 b: 0.5277992927E+00 
     133it:     133 iter: 240 r: 0.6528002864E-05 b: 0.5651071124E+00 
     134it:     134 iter: 240 r: 0.9017936782E-05 b: 0.5644476204E+00 
     135it:     135 iter: 240 r: 0.8436198587E-05 b: 0.4824425524E+00 
     136it:     136 iter: 240 r: 0.5647234665E-05 b: 0.5667481086E+00 
     137it:     137 iter: 240 r: 0.9586446435E-05 b: 0.5090651378E+00 
     138it:     138 iter: 230 r: 0.9471783464E-05 b: 0.4579065362E+00 
     139it:     139 iter: 230 r: 0.9087123846E-05 b: 0.5621798442E+00 
     140it:     140 iter: 250 r: 0.6164278853E-05 b: 0.6400463775E+00 
     141it:     141 iter: 240 r: 0.8405453366E-05 b: 0.6408662750E+00 
     142it:     142 iter: 240 r: 0.7106874117E-05 b: 0.4394102239E+00 
     143it:     143 iter: 230 r: 0.9492975149E-05 b: 0.5603112032E+00 
     144it:     144 iter: 240 r: 0.7017532542E-05 b: 0.4947342810E+00 
     145it:     145 iter: 230 r: 0.9625966339E-05 b: 0.6755118834E+00 
     146it:     146 iter: 240 r: 0.9014760944E-05 b: 0.4974747733E+00 
     147it:     147 iter: 240 r: 0.7186872796E-05 b: 0.6999869410E+00 
     148it:     148 iter: 250 r: 0.6162130523E-05 b: 0.5810448777E+00 
     149it:     149 iter: 240 r: 0.8121650155E-05 b: 0.5307579148E+00 
     150it:     150 iter: 240 r: 0.5841702424E-05 b: 0.4475905272E+00 
     151it:     151 iter: 220 r: 0.9300228120E-05 b: 0.5222786160E+00 
     152it:     152 iter: 230 r: 0.9744052153E-05 b: 0.4525549979E+00 
     153it:     153 iter: 230 r: 0.9273651310E-05 b: 0.8101635553E+00 
     154it:     154 iter: 250 r: 0.7361411044E-05 b: 0.6602067514E+00 
     155it:     155 iter: 240 r: 0.9034822204E-05 b: 0.7450641854E+00 
     156it:     156 iter: 240 r: 0.9522222592E-05 b: 0.5221485717E+00 
     157it:     157 iter: 240 r: 0.8452617503E-05 b: 0.5829628861E+00 
     158it:     158 iter: 240 r: 0.7316529130E-05 b: 0.6265474727E+00 
     159it:     159 iter: 240 r: 0.8853389481E-05 b: 0.5616413830E+00 
     160it:     160 iter: 240 r: 0.7884514240E-05 b: 0.5455198798E+00 
     161it:     161 iter: 240 r: 0.6296424346E-05 b: 0.5814948170E+00 
     162it:     162 iter: 240 r: 0.9250432780E-05 b: 0.5206685079E+00 
     163it:     163 iter: 230 r: 0.9972290864E-05 b: 0.5190431048E+00 
     164it:     164 iter: 240 r: 0.6340621003E-05 b: 0.5620862805E+00 
     165it:     165 iter: 240 r: 0.9368773786E-05 b: 0.6772619087E+00 
     166it:     166 iter: 240 r: 0.8238385360E-05 b: 0.5066514750E+00 
     167it:     167 iter: 230 r: 0.9946777196E-05 b: 0.6054272709E+00 
     168it:     168 iter: 240 r: 0.9499294421E-05 b: 0.5244922683E+00 
     169it:     169 iter: 240 r: 0.7113592963E-05 b: 0.7106784558E+00 
     170it:     170 iter: 240 r: 0.9228364886E-05 b: 0.5905304516E+00 
     171it:     171 iter: 240 r: 0.8746740247E-05 b: 0.5373804561E+00 
     172it:     172 iter: 240 r: 0.6849933501E-05 b: 0.6218696094E+00 
     173it:     173 iter: 250 r: 0.6035027619E-05 b: 0.5378961005E+00 
     174it:     174 iter: 240 r: 0.7412329206E-05 b: 0.5297645900E+00 
     175it:     175 iter: 230 r: 0.9615917480E-05 b: 0.4269978634E+00 
     176it:     176 iter: 220 r: 0.9097078405E-05 b: 0.4851428437E+00 
     177it:     177 iter: 240 r: 0.6753351497E-05 b: 0.6551058178E+00 
     178it:     178 iter: 240 r: 0.8992624057E-05 b: 0.7759910549E+00 
     179it:     179 iter: 240 r: 0.9910899945E-05 b: 0.5123581884E+00 
     180it:     180 iter: 240 r: 0.6677946482E-05 b: 0.6326675073E+00 
     181it:     181 iter: 240 r: 0.9345725231E-05 b: 0.6187279633E+00 
     182it:     182 iter: 240 r: 0.9236700508E-05 b: 0.5015068284E+00 
     183it:     183 iter: 240 r: 0.5895912167E-05 b: 0.6520692342E+00 
     184it:     184 iter: 250 r: 0.6157986971E-05 b: 0.5409347688E+00 
     185it:     185 iter: 240 r: 0.7743859030E-05 b: 0.4909818976E+00 
     186it:     186 iter: 230 r: 0.8962161695E-05 b: 0.4552372908E+00 
     187it:     187 iter: 220 r: 0.9705527833E-05 b: 0.4732608271E+00 
     188it:     188 iter: 240 r: 0.6635165760E-05 b: 0.6111113062E+00 
     189it:     189 iter: 240 r: 0.8751641668E-05 b: 0.8354887705E+00 
     190it:     190 iter: 250 r: 0.7272106340E-05 b: 0.4686360906E+00 
     191it:     191 iter: 230 r: 0.9998260643E-05 b: 0.6417323699E+00 
     192it:     192 iter: 240 r: 0.8352764235E-05 b: 0.4649399091E+00 
     193it:     193 iter: 240 r: 0.7693050177E-05 b: 0.6751386667E+00 
     194it:     194 iter: 240 r: 0.7837567569E-05 b: 0.5896402728E+00 
     195it:     195 iter: 240 r: 0.8298605400E-05 b: 0.5325820463E+00 
     196it:     196 iter: 240 r: 0.7578099155E-05 b: 0.5453175304E+00 
     197it:     197 iter: 240 r: 0.6203395717E-05 b: 0.5563993510E+00 
     198it:     198 iter: 240 r: 0.8656046136E-05 b: 0.5160587698E+00 
     199it:     199 iter: 240 r: 0.6870280862E-05 b: 0.5042090074E+00 
     200it:     200 iter: 240 r: 0.6214822717E-05 b: 0.5353508505E+00 
     201it:     201 iter: 220 r: 0.9806381626E-05 b: 0.4642334713E+00 
     202it:     202 iter: 230 r: 0.9562177608E-05 b: 0.4913729447E+00 
     203it:     203 iter: 240 r: 0.8077155329E-05 b: 0.8520973000E+00 
     204it:     204 iter: 250 r: 0.7388277397E-05 b: 0.6191102859E+00 
     205it:     205 iter: 240 r: 0.7485371726E-05 b: 0.6372750347E+00 
     206it:     206 iter: 240 r: 0.8769830863E-05 b: 0.5000407239E+00 
     207it:     207 iter: 240 r: 0.7912570954E-05 b: 0.4915069139E+00 
     208it:     208 iter: 240 r: 0.5592815535E-05 b: 0.6046107420E+00 
     209it:     209 iter: 240 r: 0.9006566098E-05 b: 0.5153272632E+00 
     210it:     210 iter: 240 r: 0.7145306568E-05 b: 0.4604280214E+00 
     211it:     211 iter: 230 r: 0.9176495722E-05 b: 0.5733940681E+00 
     212it:     212 iter: 240 r: 0.9035218314E-05 b: 0.4540280089E+00 
     213it:     213 iter: 240 r: 0.6528802051E-05 b: 0.6632050333E+00 
     214it:     214 iter: 240 r: 0.8343957676E-05 b: 0.5438310607E+00 
     215it:     215 iter: 240 r: 0.8628323766E-05 b: 0.4650558834E+00 
     216it:     216 iter: 240 r: 0.6040918862E-05 b: 0.5784589612E+00 
     217it:     217 iter: 240 r: 0.8276901507E-05 b: 0.5032676750E+00 
     218it:     218 iter: 230 r: 0.9607985475E-05 b: 0.4584739098E+00 
     219it:     219 iter: 230 r: 0.9822106038E-05 b: 0.5610157955E+00 
     220it:     220 iter: 240 r: 0.9442636799E-05 b: 0.6225038684E+00 
     221it:     221 iter: 240 r: 0.8561098712E-05 b: 0.6635010554E+00 
     222it:     222 iter: 240 r: 0.7477402926E-05 b: 0.6009413263E+00 
     223it:     223 iter: 240 r: 0.9987679875E-05 b: 0.5492499510E+00 
     224it:     224 iter: 240 r: 0.7248148842E-05 b: 0.5634770560E+00 
     225it:     225 iter: 240 r: 0.7133084535E-05 b: 0.5988824784E+00 
     226it:     226 iter: 240 r: 0.9522823608E-05 b: 0.4996940676E+00 
     227it:     227 iter: 240 r: 0.6193545299E-05 b: 0.5514029879E+00 
     228it:     228 iter: 240 r: 0.8249961230E-05 b: 0.5585023455E+00 
     229it:     229 iter: 240 r: 0.8774167477E-05 b: 0.4502157386E+00 
     230it:     230 iter: 240 r: 0.5467874459E-05 b: 0.5559360104E+00 
     231it:     231 iter: 240 r: 0.9140465089E-05 b: 0.5049968419E+00 
     232it:     232 iter: 230 r: 0.9579902860E-05 b: 0.4279161802E+00 
     233it:     233 iter: 230 r: 0.9202819655E-05 b: 0.5545415983E+00 
     234it:     234 iter: 250 r: 0.6285138875E-05 b: 0.6304842881E+00 
     235it:     235 iter: 240 r: 0.8343570272E-05 b: 0.6154112359E+00 
     236it:     236 iter: 240 r: 0.6505122201E-05 b: 0.4400921324E+00 
     237it:     237 iter: 220 r: 0.9310317421E-05 b: 0.5431094757E+00 
     238it:     238 iter: 240 r: 0.6784936983E-05 b: 0.4669812808E+00 
     239it:     239 iter: 230 r: 0.9368649385E-05 b: 0.8479074480E+00 
     240it:     240 iter: 250 r: 0.7017894667E-05 b: 0.4686029721E+00 
     241it:     241 iter: 240 r: 0.6868518574E-05 b: 0.7473331886E+00 
     242it:     242 iter: 240 r: 0.9601335762E-05 b: 0.4644419933E+00 
     243it:     243 iter: 240 r: 0.7403614387E-05 b: 0.4990407123E+00 
     244it:     244 iter: 240 r: 0.6035952120E-05 b: 0.6348711003E+00 
     245it:     245 iter: 240 r: 0.9543698964E-05 b: 0.4667730597E+00 
     246it:     246 iter: 230 r: 0.9244068279E-05 b: 0.5106593689E+00 
     247it:     247 iter: 230 r: 0.9675379433E-05 b: 0.5823567227E+00 
     248it:     248 iter: 240 r: 0.9850007517E-05 b: 0.6032244784E+00 
     249it:     249 iter: 240 r: 0.8414484256E-05 b: 0.7379488667E+00 
     250it:     250 iter: 240 r: 0.9359864294E-05 b: 0.5992844742E+00 
     251it:     251 iter: 240 r: 0.9805924128E-05 b: 0.5437868254E+00 
     252it:     252 iter: 240 r: 0.7200118062E-05 b: 0.6431333476E+00 
     253it:     253 iter: 240 r: 0.9497951929E-05 b: 0.5727311966E+00 
     254it:     254 iter: 240 r: 0.8608618146E-05 b: 0.5247496678E+00 
     255it:     255 iter: 240 r: 0.6477773688E-05 b: 0.6198132050E+00 
     256it:     256 iter: 250 r: 0.6167985594E-05 b: 0.5147142200E+00 
     257it:     257 iter: 230 r: 0.9873526591E-05 b: 0.5107478304E+00 
     258it:     258 iter: 230 r: 0.9242400980E-05 b: 0.4175446613E+00 
     259it:     259 iter: 220 r: 0.9628045476E-05 b: 0.6609339294E+00 
     260it:     260 iter: 240 r: 0.9025707695E-05 b: 0.6319611640E+00 
     261it:     261 iter: 240 r: 0.8795250954E-05 b: 0.8830745300E+00 
     262it:     262 iter: 250 r: 0.7693624131E-05 b: 0.5665069240E+00 
     263it:     263 iter: 240 r: 0.7726791671E-05 b: 0.6297963525E+00 
     264it:     264 iter: 240 r: 0.8326853590E-05 b: 0.5189333421E+00 
     265it:     265 iter: 240 r: 0.8199421374E-05 b: 0.5259497410E+00 
     266it:     266 iter: 240 r: 0.6449113208E-05 b: 0.5886194174E+00 
     267it:     267 iter: 240 r: 0.8675422182E-05 b: 0.5338163661E+00 
     268it:     268 iter: 240 r: 0.7591974802E-05 b: 0.4720143198E+00 
     269it:     269 iter: 230 r: 0.9997893412E-05 b: 0.5626420956E+00 
     270it:     270 iter: 240 r: 0.8914510176E-05 b: 0.4817405806E+00 
     271it:     271 iter: 240 r: 0.7291755721E-05 b: 0.6766204399E+00 
     272it:     272 iter: 240 r: 0.8136831411E-05 b: 0.5450107949E+00 
     273it:     273 iter: 240 r: 0.8786746638E-05 b: 0.5019283584E+00 
     274it:     274 iter: 240 r: 0.6716926754E-05 b: 0.5685486814E+00 
     275it:     275 iter: 240 r: 0.7767047962E-05 b: 0.5160557965E+00 
     276it:     276 iter: 230 r: 0.9965265242E-05 b: 0.4854558213E+00 
     277it:     277 iter: 240 r: 0.5982356324E-05 b: 0.5422752979E+00 
     278it:     278 iter: 240 r: 0.9054533402E-05 b: 0.6510528018E+00 
     279it:     279 iter: 240 r: 0.8480006691E-05 b: 0.4571427144E+00 
     280it:     280 iter: 240 r: 0.5504541532E-05 b: 0.5922938569E+00 
     281it:     281 iter: 240 r: 0.9844504652E-05 b: 0.5175970175E+00 
     282it:     282 iter: 240 r: 0.7407536180E-05 b: 0.4525291246E+00 
     283it:     283 iter: 230 r: 0.8579166437E-05 b: 0.6006559903E+00 
     284it:     284 iter: 240 r: 0.9724668911E-05 b: 0.4354556592E+00 
     285it:     285 iter: 240 r: 0.6023890176E-05 b: 0.6591813277E+00 
     286it:     286 iter: 240 r: 0.8502411837E-05 b: 0.5651243431E+00 
     287it:     287 iter: 240 r: 0.9512739362E-05 b: 0.4421835563E+00 
     288it:     288 iter: 240 r: 0.5685678142E-05 b: 0.5911641339E+00 
     289it:     289 iter: 240 r: 0.9268166632E-05 b: 0.5152137872E+00 
     290it:     290 iter: 230 r: 0.9724484178E-05 b: 0.4423407239E+00 
     291it:     291 iter: 230 r: 0.9396760769E-05 b: 0.5813430382E+00 
     292it:     292 iter: 250 r: 0.6577516502E-05 b: 0.6288732492E+00 
     293it:     293 iter: 240 r: 0.8451461695E-05 b: 0.6518149542E+00 
     294it:     294 iter: 240 r: 0.6781848792E-05 b: 0.4501801403E+00 
     295it:     295 iter: 220 r: 0.9959637262E-05 b: 0.5363171884E+00 
     296it:     296 iter: 240 r: 0.6778822387E-05 b: 0.4825648186E+00 
     297it:     297 iter: 240 r: 0.7594642927E-05 b: 0.8625428827E+00 
     298it:     298 iter: 250 r: 0.7483566491E-05 b: 0.4695307145E+00 
     299it:     299 iter: 240 r: 0.6253892640E-05 b: 0.5902785545E+00 
     300it:     300 iter: 240 r: 0.8294760274E-05 b: 0.4798512636E+00 
     301it:     301 iter: 230 r: 0.9687031296E-05 b: 0.4219920052E+00 
     302it:     302 iter: 230 r: 0.9225592427E-05 b: 0.5648579003E+00 
     303it:     303 iter: 240 r: 0.9388302120E-05 b: 0.6700980624E+00 
     304it:     304 iter: 240 r: 0.9153470558E-05 b: 0.5937010051E+00 
     305it:     305 iter: 240 r: 0.6806149190E-05 b: 0.6181465279E+00 
     306it:     306 iter: 250 r: 0.6545420125E-05 b: 0.5756197731E+00 
     307it:     307 iter: 240 r: 0.7744927602E-05 b: 0.5092369391E+00 
     308it:     308 iter: 230 r: 0.8744916633E-05 b: 0.4573424476E+00 
     309it:     309 iter: 230 r: 0.9442396183E-05 b: 0.5066584846E+00 
     310it:     310 iter: 240 r: 0.7084839957E-05 b: 0.6300566890E+00 
     311it:     311 iter: 240 r: 0.8618669529E-05 b: 0.6884236710E+00 
     312it:     312 iter: 240 r: 0.9275503474E-05 b: 0.5036022021E+00 
     313it:     313 iter: 240 r: 0.6919289411E-05 b: 0.5728547455E+00 
     314it:     314 iter: 240 r: 0.8942676909E-05 b: 0.5844163973E+00 
     315it:     315 iter: 240 r: 0.8388772295E-05 b: 0.4846939204E+00 
     316it:     316 iter: 240 r: 0.5739100066E-05 b: 0.5831024730E+00 
     317it:     317 iter: 240 r: 0.9434372940E-05 b: 0.5178686374E+00 
     318it:     318 iter: 230 r: 0.9861691195E-05 b: 0.4656964406E+00 
     319it:     319 iter: 230 r: 0.8971064070E-05 b: 0.5733799575E+00 
     320it:     320 iter: 240 r: 0.9903829223E-05 b: 0.6593697397E+00 
     321it:     321 iter: 240 r: 0.9014966680E-05 b: 0.6684955387E+00 
     322it:     322 iter: 240 r: 0.8375983376E-05 b: 0.6251140670E+00 
     323it:     323 iter: 250 r: 0.6447050802E-05 b: 0.5607851626E+00 
     324it:     324 iter: 240 r: 0.7281354067E-05 b: 0.5898233933E+00 
     325it:     325 iter: 240 r: 0.7891438283E-05 b: 0.4257134507E+00 
     326it:     326 iter: 230 r: 0.9111914991E-05 b: 0.5140988199E+00 
     327it:     327 iter: 240 r: 0.6421472217E-05 b: 0.5071089201E+00 
     328it:     328 iter: 230 r: 0.9888393396E-05 b: 0.6476089032E+00 
     329it:     329 iter: 240 r: 0.8199863171E-05 b: 0.4681191792E+00 
     330it:     330 iter: 240 r: 0.6580117926E-05 b: 0.7135228391E+00 
     331it:     331 iter: 250 r: 0.6961575827E-05 b: 0.5216087612E+00 
     332it:     332 iter: 240 r: 0.6795216420E-05 b: 0.5342925318E+00 
     333it:     333 iter: 230 r: 0.9272336578E-05 b: 0.4464092554E+00 
     334it:     334 iter: 230 r: 0.9358211024E-05 b: 0.4543204929E+00 
     335it:     335 iter: 240 r: 0.6494875853E-05 b: 0.6897801097E+00 
     336it:     336 iter: 240 r: 0.9398593229E-05 b: 0.6483492695E+00 
     337it:     337 iter: 240 r: 0.8970751734E-05 b: 0.4861260074E+00 
     338it:     338 iter: 240 r: 0.6492204211E-05 b: 0.6283166015E+00 
     339it:     339 iter: 250 r: 0.6282521245E-05 b: 0.5356801975E+00 
     340it:     340 iter: 240 r: 0.7866565313E-05 b: 0.4963618785E+00 
     341it:     341 iter: 230 r: 0.9110858297E-05 b: 0.4354634931E+00 
     342it:     342 iter: 220 r: 0.9622046653E-05 b: 0.4655574988E+00 
     343it:     343 iter: 240 r: 0.6678022741E-05 b: 0.6184513419E+00 
     344it:     344 iter: 240 r: 0.8829474468E-05 b: 0.8104726331E+00 
     345it:     345 iter: 250 r: 0.7157722604E-05 b: 0.4727655304E+00 
     346it:     346 iter: 240 r: 0.6433293473E-05 b: 0.6331781769E+00 
     347it:     347 iter: 240 r: 0.8376333111E-05 b: 0.4483322391E+00 
     348it:     348 iter: 230 r: 0.9032626249E-05 b: 0.4573054905E+00 
     349it:     349 iter: 230 r: 0.9923279836E-05 b: 0.5803391117E+00 
     350it:     350 iter: 240 r: 0.9158589477E-05 b: 0.6182516123E+00 
     351it:     351 iter: 240 r: 0.8742408528E-05 b: 0.6654006406E+00 
     352it:     352 iter: 240 r: 0.7742233892E-05 b: 0.6065475129E+00 
     353it:     353 iter: 240 r: 0.9911840287E-05 b: 0.5503476040E+00 
     354it:     354 iter: 240 r: 0.7566892071E-05 b: 0.5592587298E+00 
     355it:     355 iter: 240 r: 0.7058886898E-05 b: 0.6070216169E+00 
     356it:     356 iter: 240 r: 0.9532244842E-05 b: 0.5021220588E+00 
     357it:     357 iter: 240 r: 0.6581905373E-05 b: 0.5428098796E+00 
     358it:     358 iter: 240 r: 0.7739991638E-05 b: 0.5710056940E+00 
     359it:     359 iter: 240 r: 0.8758601072E-05 b: 0.4513770944E+00 
     360it:     360 iter: 240 r: 0.5612180673E-05 b: 0.5456855029E+00 
     361it:     361 iter: 240 r: 0.8818081887E-05 b: 0.5219130511E+00 
     362it:     362 iter: 240 r: 0.7693135936E-05 b: 0.4230324205E+00 
     363it:     363 iter: 230 r: 0.9330402960E-05 b: 0.5466741815E+00 
     364it:     364 iter: 240 r: 0.9329723621E-05 b: 0.4571170068E+00 
     365it:     365 iter: 230 r: 0.9597716286E-05 b: 0.6113816086E+00 
     366it:     366 iter: 240 r: 0.6862418219E-05 b: 0.5346482659E+00 
     367it:     367 iter: 240 r: 0.9579590312E-05 b: 0.6636934893E+00 
     368it:     368 iter: 240 r: 0.8884686379E-05 b: 0.5200160853E+00 
     369it:     369 iter: 240 r: 0.6925065330E-05 b: 0.5806576814E+00 
     370it:     370 iter: 240 r: 0.9298083171E-05 b: 0.5320130285E+00 
     371it:     371 iter: 240 r: 0.6729450195E-05 b: 0.5107096618E+00 
     372it:     372 iter: 240 r: 0.8300216838E-05 b: 0.5725637345E+00 
     373it:     373 iter: 240 r: 0.8463547174E-05 b: 0.4607061379E+00 
     374it:     374 iter: 240 r: 0.5818753748E-05 b: 0.5183287506E+00 
     375it:     375 iter: 240 r: 0.9023857877E-05 b: 0.5269511380E+00 
     376it:     376 iter: 240 r: 0.7381909967E-05 b: 0.4197384345E+00 
     377it:     377 iter: 230 r: 0.9174465056E-05 b: 0.5253456364E+00 
     378it:     378 iter: 240 r: 0.9177801147E-05 b: 0.4661442161E+00 
     379it:     379 iter: 240 r: 0.6739015755E-05 b: 0.5961511088E+00 
     380it:     380 iter: 240 r: 0.7138913606E-05 b: 0.5186325957E+00 
     381it:     381 iter: 220 r: 0.9957458341E-05 b: 0.4708350683E+00 
     382it:     382 iter: 240 r: 0.6214118912E-05 b: 0.5084594626E+00 
     383it:     383 iter: 240 r: 0.8884779870E-05 b: 0.8302238398E+00 
     384it:     384 iter: 250 r: 0.6888254275E-05 b: 0.4363495398E+00 
     385it:     385 iter: 230 r: 0.9720238700E-05 b: 0.6293956176E+00 
     386it:     386 iter: 240 r: 0.9602391250E-05 b: 0.4306623454E+00 
     387it:     387 iter: 240 r: 0.7496942815E-05 b: 0.6284278745E+00 
     388it:     388 iter: 240 r: 0.7372637604E-05 b: 0.5847502653E+00 
     389it:     389 iter: 240 r: 0.9468369013E-05 b: 0.4885956905E+00 
     390it:     390 iter: 240 r: 0.7094294922E-05 b: 0.5274549895E+00 
     391it:     391 iter: 240 r: 0.6769266082E-05 b: 0.5442979043E+00 
     392it:     392 iter: 240 r: 0.8962624793E-05 b: 0.4623300794E+00 
     393it:     393 iter: 230 r: 0.9990717937E-05 b: 0.5163570594E+00 
     394it:     394 iter: 240 r: 0.7721915098E-05 b: 0.5096005808E+00 
     395it:     395 iter: 240 r: 0.8505263053E-05 b: 0.6318946869E+00 
     396it:     396 iter: 240 r: 0.8106982358E-05 b: 0.5139391077E+00 
     397it:     397 iter: 240 r: 0.8482016367E-05 b: 0.5357793469E+00 
     398it:     398 iter: 240 r: 0.7605386113E-05 b: 0.4951472641E+00 
     399it:     399 iter: 240 r: 0.6418019887E-05 b: 0.5151271467E+00 
     400it:     400 iter: 230 r: 0.9969223169E-05 b: 0.5131293456E+00 
     401it:     401 iter: 230 r: 0.9992956814E-05 b: 0.4492217122E+00 
     402it:     402 iter: 230 r: 0.9493837033E-05 b: 0.6823456869E+00 
     403it:     403 iter: 250 r: 0.7125462203E-05 b: 0.6722935400E+00 
     404it:     404 iter: 240 r: 0.9957566837E-05 b: 0.7253749806E+00 
     405it:     405 iter: 240 r: 0.8891937286E-05 b: 0.4636747592E+00 
     406it:     406 iter: 240 r: 0.8185325290E-05 b: 0.6021556031E+00 
     407it:     407 iter: 240 r: 0.8514384324E-05 b: 0.5698450922E+00 
     408it:     408 iter: 240 r: 0.8268173790E-05 b: 0.5223330648E+00 
     409it:     409 iter: 230 r: 0.9915960192E-05 b: 0.5589034893E+00 
     410it:     410 iter: 240 r: 0.7578172603E-05 b: 0.5145736742E+00 
     411it:     411 iter: 240 r: 0.9362076096E-05 b: 0.7068986819E+00 
     412it:     412 iter: 240 r: 0.8840618595E-05 b: 0.5057077629E+00 
     413it:     413 iter: 240 r: 0.6776175784E-05 b: 0.5686641264E+00 
     414it:     414 iter: 240 r: 0.9850784521E-05 b: 0.5733874559E+00 
     415it:     415 iter: 240 r: 0.7719911188E-05 b: 0.4785166967E+00 
     416it:     416 iter: 230 r: 0.9253049781E-05 b: 0.5869789134E+00 
     417it:     417 iter: 240 r: 0.9727638040E-05 b: 0.4936785828E+00 
     418it:     418 iter: 240 r: 0.7357747291E-05 b: 0.6731020200E+00 
     419it:     419 iter: 240 r: 0.8864878948E-05 b: 0.5607498834E+00 
     420it:     420 iter: 240 r: 0.9042773412E-05 b: 0.5081433387E+00 
     421it:     421 iter: 240 r: 0.7122642675E-05 b: 0.5837552421E+00 
     422it:     422 iter: 240 r: 0.9742336129E-05 b: 0.5209029834E+00 
     423it:     423 iter: 240 r: 0.7562697089E-05 b: 0.4980639854E+00 
     424it:     424 iter: 240 r: 0.6408566905E-05 b: 0.5642943617E+00 
     425it:     425 iter: 240 r: 0.9824615815E-05 b: 0.4688218575E+00 
     426it:     426 iter: 230 r: 0.9129894730E-05 b: 0.4883165764E+00 
     427it:     427 iter: 230 r: 0.9232905961E-05 b: 0.5424591442E+00 
     428it:     428 iter: 240 r: 0.9885656084E-05 b: 0.6080138351E+00 
     429it:     429 iter: 240 r: 0.8684206709E-05 b: 0.6998539087E+00 
     430it:     430 iter: 240 r: 0.9333254608E-05 b: 0.5672755834E+00 
     431it:     431 iter: 240 r: 0.9584027329E-05 b: 0.5469060250E+00 
     432it:     432 iter: 240 r: 0.7875190959E-05 b: 0.6072683806E+00 
     433it:     433 iter: 250 r: 0.5683773505E-05 b: 0.5484402581E+00 
     434it:     434 iter: 240 r: 0.8036333302E-05 b: 0.5256307673E+00 
     435it:     435 iter: 240 r: 0.6285860484E-05 b: 0.3885253755E+00 
     436it:     436 iter: 220 r: 0.9006940402E-05 b: 0.4995674972E+00 
     437it:     437 iter: 230 r: 0.9768021627E-05 b: 0.4121814020E+00 
     438it:     438 iter: 230 r: 0.8855905043E-05 b: 0.7424947274E+00 
     439it:     439 iter: 250 r: 0.6999985699E-05 b: 0.6453379767E+00 
     440it:     440 iter: 240 r: 0.9307017519E-05 b: 0.6903100806E+00 
     441it:     441 iter: 240 r: 0.8981222548E-05 b: 0.4821343709E+00 
     442it:     442 iter: 230 r: 0.9948547069E-05 b: 0.5717358533E+00 
     443it:     443 iter: 240 r: 0.7786240736E-05 b: 0.5668128653E+00 
     444it:     444 iter: 240 r: 0.8896388689E-05 b: 0.7276095222E+00 
     445it:     445 iter: 240 r: 0.9285725823E-05 b: 0.5178496122E+00 
     446it:     446 iter: 240 r: 0.7112559669E-05 b: 0.5962758277E+00 
     447it:     447 iter: 250 r: 0.6208478821E-05 b: 0.6037386886E+00 
     448it:     448 iter: 240 r: 0.8469099610E-05 b: 0.4830438756E+00 
     449it:     449 iter: 230 r: 0.9201679690E-05 b: 0.4470009097E+00 
     450it:     450 iter: 220 r: 0.9410464807E-05 b: 0.5274449367E+00 
     451it:     451 iter: 240 r: 0.7766112732E-05 b: 0.6044952597E+00 
     452it:     452 iter: 240 r: 0.8527821750E-05 b: 0.8504510693E+00 
     453it:     453 iter: 250 r: 0.7240964669E-05 b: 0.5143883743E+00 
     454it:     454 iter: 240 r: 0.7489859460E-05 b: 0.5922246735E+00 
     455it:     455 iter: 240 r: 0.8150684278E-05 b: 0.4857339643E+00 
     456it:     456 iter: 240 r: 0.7724457443E-05 b: 0.4876586048E+00 
     457it:     457 iter: 240 r: 0.6042020297E-05 b: 0.5549232420E+00 
     458it:     458 iter: 240 r: 0.8374412856E-05 b: 0.4953621744E+00 
     459it:     459 iter: 230 r: 0.9573243419E-05 b: 0.4447831730E+00 
     460it:     460 iter: 230 r: 0.9381329858E-05 b: 0.5309644787E+00 
     461it:     461 iter: 240 r: 0.9096529844E-05 b: 0.6416171934E+00 
     462it:     462 iter: 240 r: 0.9356532044E-05 b: 0.6327577836E+00 
     463it:     463 iter: 240 r: 0.7628339945E-05 b: 0.5861280263E+00 
     464it:     464 iter: 240 r: 0.9310552466E-05 b: 0.5580416643E+00 
     465it:     465 iter: 240 r: 0.7485669403E-05 b: 0.5403008993E+00 
     466it:     466 iter: 240 r: 0.7590805052E-05 b: 0.5849930918E+00 
     467it:     467 iter: 240 r: 0.8711915552E-05 b: 0.5042455237E+00 
     468it:     468 iter: 240 r: 0.6769849941E-05 b: 0.5298753819E+00 
     469it:     469 iter: 240 r: 0.8625549459E-05 b: 0.5461276100E+00 
     470it:     470 iter: 240 r: 0.7776347800E-05 b: 0.4534267118E+00 
     471it:     471 iter: 240 r: 0.5593618373E-05 b: 0.5323264584E+00 
     472it:     472 iter: 240 r: 0.8997664200E-05 b: 0.4923070869E+00 
     473it:     473 iter: 230 r: 0.9508383995E-05 b: 0.4317418978E+00 
     474it:     474 iter: 230 r: 0.8611632240E-05 b: 0.5294936990E+00 
     475it:     475 iter: 240 r: 0.9258400228E-05 b: 0.6313671325E+00 
     476it:     476 iter: 240 r: 0.8830978793E-05 b: 0.6126531403E+00 
     477it:     477 iter: 240 r: 0.7799803557E-05 b: 0.5809797260E+00 
     478it:     478 iter: 240 r: 0.9417847817E-05 b: 0.5402032508E+00 
     479it:     479 iter: 240 r: 0.7268906785E-05 b: 0.5385576541E+00 
     480it:     480 iter: 240 r: 0.8569757263E-05 b: 0.5725175500E+00 
     481it:     481 iter: 240 r: 0.8475435149E-05 b: 0.4905396017E+00 
     482it:     482 iter: 240 r: 0.6424251242E-05 b: 0.5364602675E+00 
     483it:     483 iter: 240 r: 0.9134335064E-05 b: 0.5240236375E+00 
     484it:     484 iter: 240 r: 0.7416399646E-05 b: 0.4484277866E+00 
     485it:     485 iter: 230 r: 0.9218489387E-05 b: 0.5391608057E+00 
     486it:     486 iter: 240 r: 0.9223369078E-05 b: 0.4644560614E+00 
     487it:     487 iter: 240 r: 0.7005374647E-05 b: 0.6378454473E+00 
     488it:     488 iter: 240 r: 0.7907276860E-05 b: 0.5260457717E+00 
     489it:     489 iter: 240 r: 0.9134300298E-05 b: 0.4802181676E+00 
     490it:     490 iter: 240 r: 0.6511731237E-05 b: 0.5403219967E+00 
     491it:     491 iter: 240 r: 0.8293826991E-05 b: 0.5000780339E+00 
     492it:     492 iter: 230 r: 0.9743260463E-05 b: 0.4640877349E+00 
     493it:     493 iter: 240 r: 0.6066313601E-05 b: 0.5200489203E+00 
     494it:     494 iter: 240 r: 0.9602688039E-05 b: 0.6348974306E+00 
     495it:     495 iter: 240 r: 0.8320959887E-05 b: 0.4386132859E+00 
     496it:     496 iter: 230 r: 0.9443219904E-05 b: 0.5712801852E+00 
     497it:     497 iter: 250 r: 0.6223852704E-05 b: 0.4987189619E+00 
     498it:     498 iter: 240 r: 0.7078328173E-05 b: 0.6403667777E+00 
     499it:     499 iter: 240 r: 0.6915966497E-05 b: 0.4042775883E+00 
     500it:     500 iter: 220 r: 0.8664600046E-05 b: 0.4916638907E+00 
     501it:     501 iter: 240 r: 0.6711099272E-05 b: 0.4742347645E+00 
     502it:     502 iter: 230 r: 0.9650599205E-05 b: 0.7509994968E+00 
     503it:     503 iter: 240 r: 0.8934242190E-05 b: 0.4543437950E+00 
     504it:     504 iter: 240 r: 0.7328752331E-05 b: 0.7420407966E+00 
     505it:     505 iter: 250 r: 0.6598827075E-05 b: 0.5884958251E+00 
     506it:     506 iter: 240 r: 0.8212692098E-05 b: 0.5053207308E+00 
     507it:     507 iter: 230 r: 0.9641290906E-05 b: 0.4774920508E+00 
     508it:     508 iter: 240 r: 0.8446481906E-05 b: 0.5142522888E+00 
     509it:     509 iter: 240 r: 0.7764252095E-05 b: 0.6518201897E+00 
     510it:     510 iter: 240 r: 0.7247433046E-05 b: 0.5365145975E+00 
     511it:     511 iter: 240 r: 0.8753242134E-05 b: 0.5110914352E+00 
     512it:     512 iter: 240 r: 0.7214231487E-05 b: 0.5192317487E+00 
     513it:     513 iter: 240 r: 0.6794496960E-05 b: 0.5265835226E+00 
     514it:     514 iter: 240 r: 0.8257783113E-05 b: 0.4778625755E+00 
     515it:     515 iter: 240 r: 0.6438038030E-05 b: 0.5007288407E+00 
     516it:     516 iter: 240 r: 0.7891620437E-05 b: 0.4941909213E+00 
     517it:     517 iter: 230 r: 0.9681402627E-05 b: 0.4341059740E+00 
     518it:     518 iter: 230 r: 0.9372592410E-05 b: 0.4966207185E+00 
     519it:     519 iter: 240 r: 0.8916130859E-05 b: 0.6315138857E+00 
     520it:     520 iter: 240 r: 0.9111939995E-05 b: 0.6113427916E+00 
     521it:     521 iter: 240 r: 0.7566852609E-05 b: 0.5552510727E+00 
     522it:     522 iter: 240 r: 0.9400566307E-05 b: 0.5644593327E+00 
     523it:     523 iter: 240 r: 0.7735477877E-05 b: 0.5041612002E+00 
     524it:     524 iter: 230 r: 0.9910217652E-05 b: 0.5639666282E+00 
     525it:     525 iter: 240 r: 0.9020769555E-05 b: 0.5112527467E+00 
     526it:     526 iter: 240 r: 0.7816155122E-05 b: 0.6997629593E+00 
     527it:     527 iter: 240 r: 0.9073213369E-05 b: 0.5421948127E+00 
     528it:     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 
     1bld::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 
    22inc $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 
     1bld::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 
    22 Net freshwater budget  
    3    fwf    = -3.43323E-06 m3 =   0.00000 Sv 
    4   
     3   fwf    =  5.90515E-05 m3 =   0.00000 Sv 
     4 
    55   zarea = 3.57005E+14 
    66   zvol  = 1.32653E+18 
    7   
     7 
    88 Mean sea level :  
    99   at nit000 =  0.00000E+00 m3  
    10    at nitend = -3.24688E+12 m3  
    11    diff      = -3.24688E+12 m3 =  -1.25266 Sv 
    12    mean sea level elevation    =  -0.00909 m 
    13   
     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 
    1414 Anomaly of salinity content :  
    15    at nit000 =  5.65470E+14 psu.m3  
    16    at nitend = -3.35735E+13 psu.m3  
    17    diff      = -5.99044E+14 psu.m3 
    18   
     15   at nit000 = -2.20495E+15 psu.m3  
     16   at nitend = -2.76348E+15 psu.m3  
     17   diff      = -5.58530E+14 psu.m3 
     18 
    1919 Mean salinity :  
    20    at nit000 =  34.72697 psu  
    21    at nitend =  34.72651 psu  
    22    diff      =  -0.00045 psu 
    23    S-SLevitus=  -0.00003 psu 
    24   
     20   at nit000 =  34.72488 psu  
     21   at nitend =  34.72446 psu  
     22   diff      =  -0.00042 psu 
     23   S-SLevitus=  -0.00208 psu 
     24 
    2525 Gibraltar :  
    26    Flux entrant (Sv) :   0.4037 
    27    Flux sortant (Sv) :  -0.8196 
    28    T entrant (deg)   :  13.1923 
    29    T sortant (deg)   :  13.0994 
    30    S entrant (psu)   :  31.3817 
    31    S sortant (psu)   :  37.7129 
    32   
     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 
    3333 Cadiz :  
    34    Flux entrant (Sv) :   4.5633 
    35    Flux sortant (Sv) :  -4.9890 
    36    T entrant (deg)   :  13.2328 
    37    T sortant (deg)   :  11.6841 
    38    S entrant (psu)   :  35.8927 
    39    S sortant (psu)   :  35.9800 
    40   
     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 
    4141 Bab el Mandeb :  
    42    Flux entrant (Sv) :   0.4526 
    43    Flux sortant (Sv) :  -0.4375 
    44    T entrant (deg)   :  10.1702 
    45    T sortant (deg)   :  25.0599 
    46    S entrant (psu)   :  37.7353 
    47    S sortant (psu)   :  36.2338 
    48   
     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 
    4949 Baltic :  
    50    Flux entrant (Sv) :   0.0775 
    51    Flux sortant (Sv) :  -0.0876 
    52    T entrant (deg)   :   1.5469 
    53    T sortant (deg)   :   2.6595 
    54    S entrant (psu)   :   8.1471 
    55    S sortant (psu)   :  14.5510 
     50   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 
     1bld::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 
     1bld::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 
     1bld::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.exe 
     1link /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  
     1ORCA2_LIM3 OPA_SRC LIM_SRC_3 
     2ORCA2_LIM OPA_SRC LIM_SRC_2 NST_SRC 
     3ORCA2_LIM_PISCES OPA_SRC LIM_SRC_2 NST_SRC TOP_SRC 
    14AMM12 OPA_SRC 
     5GYRE_PISCES OPA_SRC TOP_SRC 
    26GYRE OPA_SRC 
    37GYRE_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 
     8O2L3 OPA_SRC LIM_SRC_3 TOP_SRC 
    79ORCA2_OFF_PISCES OPA_SRC OFF_SRC TOP_SRC 
    810ORCA2_SAS_LIM OPA_SRC SAS_SRC LIM_SRC_2 NST_SRC 
    911ORCA2_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  
    7272         &     'use more ocean levels or less ice layers/categories.' ) 
    7373 
    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 ) 
    7678      !     
    7779      CALL ice_run_2                   ! read in namelist some run parameters 
     
    111113      !!------------------------------------------------------------------- 
    112114      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 
    113116      !!------------------------------------------------------------------- 
    114117      !                     
    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) 
     120901   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 ) 
     124902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 
     125      WRITE ( numoni, namicerun ) 
    117126      ! 
    118127      IF(lwp) THEN                              ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdia_2.F90

    r3625 r3875  
    176176       INTEGER  ::   jv   ! dummy loop indice 
    177177       INTEGER  ::   ntot , ndeb, nv, ierr   ! local integer 
     178       INTEGER  ::   ios                     ! Local integer output status for namelist read 
    178179       REAL(wp) ::   zxx0, zxx1              ! local scalars 
    179180 
    180181       NAMELIST/namicedia/fmtinf, nfrinf, ninfo, ntmoy 
    181182       !!------------------------------------------------------------------- 
    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) 
     186901    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 ) 
     190902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 
     191       WRITE ( numoni, namicedia ) 
    185192        
    186193       IF(lwp) THEN                             ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdmp_2.F90

    r3635 r3875  
    9797      INTEGER  :: ji, jj, jk       ! dummy loop indices 
    9898      INTEGER  :: irelax, ierror   ! error flag for allocation 
     99      INTEGER  ::   ios            ! Local integer output status for namelist read 
    99100      ! 
    100101      REAL(wp) :: zdmpmax, zdmpmin, zfactor, zreltim ! temporary scalar 
     
    116117      sn_hicif = FLD_N( 'ice_damping ', -1       , 'hicif'  ,  .true.    , .true.  ,  'yearly'   ,  ''      ,  ''      ) 
    117118      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) 
     122901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in reference namelist', lwp ) 
    118123 
    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 ) 
     126902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namice_dmp in configuration namelist', lwp ) 
     127      WRITE ( numoni, namice_dmp ) 
    121128      ! 
    122129      IF ( lwp ) THEN                     !* control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limdyn_2.F90

    r3625 r3875  
    224224      !! ** input   :   Namelist namicedyn 
    225225      !!------------------------------------------------------------------- 
     226      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    226227      NAMELIST/namicedyn/ epsd, alpha,     & 
    227228         &                dm, nbiter, nbitdr, om, resl, cw, angvg, pstar,   & 
     
    229230         &                nevp, telast,alphaevp 
    230231      !!------------------------------------------------------------------- 
    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) 
     235901   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 ) 
     239902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 
     240      WRITE ( numoni, namicedyn ) 
    234241 
    235242      IF(lwp) THEN                                ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limistate_2.F90

    r3625 r3875  
    163163      INTEGER :: inum_ice 
    164164      INTEGER :: ji,jj 
     165      INTEGER :: ios                 ! Local integer output status for namelist read 
    165166 
    166167      NAMELIST/namiceini/ ln_limini, ttest, hninn, hginn, alinn, & 
    167168         &                hnins, hgins, alins 
    168169      !!------------------------------------------------------------------- 
    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) 
     173901   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 ) 
     177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 
     178      WRITE ( numoni, namiceini ) 
    172179      ! 
    173180      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limthd_2.F90

    r3625 r3875  
    530530      !! ** input   :   Namelist namicether 
    531531      !!------------------------------------------------------------------- 
     532      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    532533      NAMELIST/namicethd/ hmelt , hiccrit, hicmin, hiclim, amax  ,        & 
    533534         &                swiqst, sbeta  , parlat, hakspl, hibspl, exld,  & 
    534535         &                hakdif, hnzst  , thth  , parsub, alphs 
    535536      !!------------------------------------------------------------------- 
    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) 
     540901   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 ) 
     544902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 
     545      WRITE ( numoni, namicethd ) 
     546 
    539547      IF( lk_cpl .AND. parsub /= 0.0 )   CALL ctl_stop( 'In coupled mode, use parsub = 0. or send dqla' ) 
    540548      ! 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90

    r3764 r3875  
    297297      !! ** input   :   Namelist namicetrp 
    298298      !!------------------------------------------------------------------- 
     299      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    299300      NAMELIST/namicetrp/ bound 
    300301      !!------------------------------------------------------------------- 
    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) 
     305901   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 ) 
     309902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in configuration namelist', lwp ) 
     310      WRITE ( numoni, namicetrp ) 
     311 
    304312      IF(lwp) THEN 
    305313         WRITE(numout,*) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/limwri_2.F90

    r3764 r3875  
    230230      !!------------------------------------------------------------------- 
    231231      INTEGER ::   nf      ! ??? 
     232      INTEGER ::   ios     ! Local integer output status for namelist read 
    232233      TYPE FIELD  
    233234         CHARACTER(len = 35) :: ztitle  
     
    255256         CALL ctl_stop( 'STOP', 'lim_wri_init_2 : unable to allocate standard arrays' )   ;   RETURN 
    256257      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) 
     261901   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 ) 
     265902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 
     266      WRITE ( numoni, namiceout ) 
    260267       
    261268      zfield( 1) = field_1 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

    r3625 r3875  
    7171         &     'use more ocean levels or less ice/snow layers/categories.' ) 
    7272 
    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 ) 
    7577      ! 
    7678      CALL ice_run                     ! set some ice run parameters 
     
    127129      !!------------------------------------------------------------------- 
    128130      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 
    129132      !!------------------------------------------------------------------- 
    130133      !                     
    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) 
     136901   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 ) 
     140902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 
     141      WRITE ( numoni, namicerun ) 
    133142      ! 
    134143      IF( lk_mpp .AND. ln_nicep ) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limdia.F90

    r3625 r3875  
    415415      INTEGER  ::   jv    ! dummy loop indice 
    416416      INTEGER  ::   ierr, ntot , ndeb , irecl   ! local integers 
     417      INTEGER  ::   ios                         ! Local integer output status for namelist read 
    417418      REAL(wp) ::   zxx0, zxx1    ! local scalars 
    418419      CHARACTER(len=jpchinf) ::   titinf 
     
    422423      !!------------------------------------------------------------------- 
    423424      ! 
    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) 
     427901   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 ) 
     431902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedia in configuration namelist', lwp ) 
     432      WRITE ( numoni, namicedia ) 
    426433      ! 
    427434      IF(lwp) THEN                     ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limdyn.F90

    r3625 r3875  
    226226      !! ** input   :   Namelist namicedyn 
    227227      !!------------------------------------------------------------------- 
     228      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    228229      NAMELIST/namicedyn/ epsd, alpha,     & 
    229230         &                dm, nbiter, nbitdr, om, resl, cw, angvg, pstar,   & 
     
    232233      !!------------------------------------------------------------------- 
    233234 
    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) 
     237901   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 ) 
     241902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicedyn in configuration namelist', lwp ) 
     242      WRITE ( numoni, namicedyn ) 
    236243       
    237244      IF(lwp) THEN                        ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limistate.F90

    r3625 r3875  
    536536      !! ** input  :   namelist namiceini 
    537537      !!----------------------------------------------------------------------------- 
     538      INTEGER :: ios                 ! Local integer output status for namelist read 
    538539      NAMELIST/namiceini/ ttest, hninn, hginn_u, aginn_u, hginn_d, aginn_d, hnins,   & 
    539540         &                hgins_u, agins_u, hgins_d, agins_d, sinn, sins 
    540541      !!----------------------------------------------------------------------------- 
    541542      ! 
    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) 
     545901   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 ) 
     549902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 
     550      WRITE ( numoni, namiceini ) 
    544551      ! 
    545552      IF(lwp) THEN                        ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limitd_me.F90

    r3764 r3875  
    14091409      !! ** input   :   Namelist namiceitdme 
    14101410      !!------------------------------------------------------------------- 
     1411      INTEGER :: ios                 ! Local integer output status for namelist read 
    14111412      NAMELIST/namiceitdme/ ridge_scheme_swi, Cs, Cf, fsnowrdg, fsnowrft,&  
    14121413         Gstar, astar,                                & 
     
    14161417      !!------------------------------------------------------------------- 
    14171418      ! 
    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) 
     1421901   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 ) 
     1425902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceitdme in configuration namelist', lwp ) 
     1426      WRITE ( numoni, namiceitdme ) 
    14201427      ! 
    14211428      IF (lwp) THEN                          ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limthd.F90

    r3625 r3875  
    791791      !! ** input   :   Namelist namicether 
    792792      !!------------------------------------------------------------------- 
     793      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    793794      NAMELIST/namicethd/ hmelt , hiccrit, fraz_swi, maxfrazb, vfrazb, Cfrazb,   & 
    794795         &                hicmin, hiclim, amax  ,                                & 
     
    804805      ENDIF 
    805806      ! 
    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) 
     809901   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 ) 
     813902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicethd in configuration namelist', lwp ) 
     814      WRITE ( numoni, namicethd ) 
    808815      ! 
    809816      IF(lwp) THEN                          ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limthd_sal.F90

    r3625 r3875  
    203203      !! ** input   :   Namelist namicesal 
    204204      !!------------------------------------------------------------------- 
     205      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    205206      NAMELIST/namicesal/ num_sal, bulk_sal, sal_G, time_G, sal_F, time_F,   & 
    206207         &                s_i_max, s_i_min, s_i_0, s_i_1 
    207208      !!------------------------------------------------------------------- 
    208209      ! 
    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) 
     212901   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 ) 
     216902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicesal in configuration namelist', lwp ) 
     217      WRITE ( numoni, namicesal ) 
    211218      ! 
    212219      IF(lwp) THEN                           ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_3/limwri.F90

    r3853 r3875  
    365365      !!------------------------------------------------------------------- 
    366366      INTEGER ::   nf      ! ??? 
     367      INTEGER ::   ios     ! Local integer output status for namelist read 
    367368 
    368369      TYPE FIELD  
     
    395396         field_37, add_diag_swi 
    396397      !!------------------------------------------------------------------- 
    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) 
     400901   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 ) 
     404902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceout in configuration namelist', lwp ) 
     405      WRITE ( numoni, namiceout ) 
    400406 
    401407      zfield(1)  = field_1 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/NST_SRC/agrif_user.F90

    r3680 r3875  
    586586   IMPLICIT NONE 
    587587   ! 
     588   INTEGER  ::   ios                 ! Local integer output status for namelist read 
    588589   NAMELIST/namagrif/ nn_cln_update, rn_sponge_tra, rn_sponge_dyn, ln_spc_dyn 
    589590   !!---------------------------------------------------------------------- 
    590591   ! 
    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) 
     594901   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 ) 
     598902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namagrif in configuration namelist', lwp ) 
     599      WRITE ( numond, namagrif ) 
    593600   ! 
    594601   IF(lwp) THEN                    ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/domain.F90

    r3632 r3875  
    8888      !!---------------------------------------------------------------------- 
    8989      USE ioipsl 
     90      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    9091      NAMELIST/namrun/ nn_no   , cn_exp    , cn_ocerst_in, cn_ocerst_out, ln_rstart , nn_rstctl,   & 
    9192         &             nn_it000, nn_itend  , nn_date0    , nn_leapy     , nn_istate , nn_stock ,   & 
     
    100101      !!---------------------------------------------------------------------- 
    101102 
    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) 
     105901   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 ) 
     109902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
     110      WRITE ( numond, namrun ) 
    104111      ! 
    105112      IF(lwp) THEN                  ! control print 
     
    170177#endif 
    171178 
    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) 
     181903   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 ) 
     185904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
     186      WRITE ( numond, namdom ) 
    174187 
    175188      IF(lwp) THEN 
     
    206219      rdth      = rn_rdth 
    207220 
    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) 
     223905   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 ) 
     227906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 
     228      WRITE( numond, namcla ) 
     229 
    210230      IF(lwp) THEN 
    211231         WRITE(numout,*) 
     
    216236#if defined key_netcdf4 
    217237      !                             ! 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) 
     240907   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 ) 
     244908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
     245      WRITE( numond, namnc4 ) 
    220246      IF(lwp) THEN                        ! control print 
    221247         WRITE(numout,*) 
     
    257283      !!---------------------------------------------------------------------- 
    258284      INTEGER ::   ioptio = 0   ! temporary integer 
     285      INTEGER ::   ios 
    259286      !! 
    260287      NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco 
    261288      !!---------------------------------------------------------------------- 
    262289 
    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 ) 
     292901   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 ) 
     296902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
     297      WRITE ( numond, namzgr ) 
    265298 
    266299      IF(lwp) THEN                     ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/dtadyn.F90

    r3827 r3875  
    326326      INTEGER  :: jfld                               ! dummy loop arguments 
    327327      INTEGER  :: inum, idv, idimv                   ! local integer 
     328      INTEGER  :: ios                                ! Local integer output status for namelist read 
    328329      !! 
    329330      CHARACTER(len=100)            ::  cn_dir   !   Root directory for location of core files 
     
    367368      sn_eiw  = FLD_N( 'dyna_grid_W' ,    120    , 'voveaeiw' ,  .true.    , .true. ,   'yearly'  , ''       , ''         ) 
    368369      ! 
    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) 
     372901   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 ) 
     376902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdta_dyn in configuration namelist', lwp ) 
     377      WRITE ( numond, namdta_dyn ) 
    371378      !                                         ! store namelist information in an array 
    372379      !                                         ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OFF_SRC/nemogcm.F90

    r3827 r3875  
    136136      INTEGER ::   ji            ! dummy loop indices 
    137137      INTEGER ::   ilocal_comm   ! local integer 
     138      INTEGER ::   ios 
    138139      CHARACTER(len=80), DIMENSION(16) ::   cltxt 
    139140      !! 
     
    145146      cltxt = '' 
    146147      ! 
    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 ) 
     156901   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 ) 
     160902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 
     161      WRITE( numond, namctl ) 
    151162      ! 
    152163      !                             !--------------------------------------------! 
     
    155166#if defined key_iomput 
    156167         CALL  xios_initialize( "nemo",return_comm=ilocal_comm ) 
    157       narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection 
     168      narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection 
    158169#else 
    159170      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) 
    161172#endif 
    162173 
     
    364375      ! 
    365376      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 
    367379      IF( numout     /=  6 )   CLOSE( numout     )   ! standard model output file 
    368380      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  
    120120      INTEGER :: iitiaustr_date  ! Date YYYYMMDD of IAU interval start time step 
    121121      INTEGER :: iitiaufin_date  ! Date YYYYMMDD of IAU interval final time step 
     122      INTEGER :: ios             ! Local integer output status for namelist read 
    122123 
    123124      REAL(wp) :: znorm        ! Normalization factor for IAU weights 
     
    160161      niaufn    = 0 
    161162 
    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) 
     165901   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 ) 
     169902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_asminc in configuration namelist', lwp ) 
     170      WRITE ( numond, nam_asminc ) 
    164171 
    165172      ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r3851 r3875  
    355355      !! 
    356356      INTEGER     ::  ib_bdy, jfld, jstart, jend, ierror  ! local indices 
     357      INTEGER      ::   ios                               ! Local integer output status for namelist read 
    357358      !! 
    358359      CHARACTER(len=100)                     ::   cn_dir        ! Root directory for location of data files 
     
    440441      ! Read namelists 
    441442      ! -------------- 
    442       REWIND(numnam) 
     443      REWIND(numnam_cfg) 
    443444      jfld = 0  
    444445      DO ib_bdy = 1, nb_bdy          
     
    463464#endif 
    464465 
     466            ! Read configuration namelist only to avoid unsuccessful overwrite 
    465467            ! 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 ) 
     474902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_dta in configuration namelist', lwp ) 
     475            WRITE ( numond, nambdy_dta ) 
    467476 
    468477            cn_dir_array(ib_bdy) = cn_dir 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r3703 r3875  
    102102      !! 
    103103      NAMELIST/nambdy_index/ ctypebdy, nbdyind, nbdybeg, nbdyend 
    104  
     104      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    105105      !!---------------------------------------------------------------------- 
    106106 
     
    145145      nn_rimwidth(:)    = -1  ! uninitialised flag 
    146146 
    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) 
     149901   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 ) 
     153902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy in configuration namelist', lwp ) 
     154      WRITE ( numond, nambdy ) 
    149155 
    150156      ! ----------------------------------------- 
     
    301307      ! Work out global dimensions of boundary data 
    302308      ! --------------------------------------------- 
    303       REWIND( numnam )                     
     309      REWIND( numnam_cfg )      
     310 
     311      !!---------------------------------------------------------------------- 
     312 
     313               
    304314                
    305315      nblendta(:,:) = 0 
     
    319329            icount = icount + 1 
    320330            ! 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 ) 
     338904         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_index in configuration namelist', lwp ) 
     339            WRITE ( numond, nambdy_index ) 
    322340 
    323341            SELECT CASE ( TRIM(ctypebdy) ) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/BDY/bdytides.F90

    r3651 r3875  
    7676      INTEGER, DIMENSION(3)                     ::   ilen0       !: length of boundary data (from OBC arrays) 
    7777      INTEGER, POINTER, DIMENSION(:)            ::   nblen, nblenrim     ! short cuts 
     78      INTEGER                                   ::   ios                 ! Local integer output status for namelist read 
    7879      CHARACTER(len=80)                         ::   clfile              !: full file name for tidal input file  
    7980      REAL(wp),ALLOCATABLE, DIMENSION(:,:,:)    ::   dta_read            !: work space to read in tidal harmonics data 
     
    9697      ln_bdytide_conj  = .FALSE. 
    9798 
    98       REWIND(numnam) 
     99      REWIND(numnam_cfg) 
     100 
    99101      DO ib_bdy = 1, nb_bdy 
    100102         IF( nn_dyn2d_dta(ib_bdy) .ge. 2 ) THEN 
     
    108110 
    109111            ! 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 ) 
     119902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambdy_tide in configuration namelist', lwp ) 
     120            WRITE ( numond, nambdy_tide ) 
    111121            !                                               ! Parameter control and print 
    112122            IF(lwp) WRITE(numout,*) '  ' 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diadct.F90

    r3680 r3875  
    139139     !!--------------------------------------------------------------------- 
    140140     NAMELIST/namdct/nn_dct,nn_dctwri,nn_secdebug 
     141     INTEGER  ::   ios                 ! Local integer output status for namelist read 
    141142 
    142143     IF( nn_timing == 1 )   CALL timing_start('dia_dct_init') 
    143144 
    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) 
     147901  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 ) 
     151902  IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdct in configuration namelist', lwp ) 
     152     WRITE ( numond, namdct ) 
    147153 
    148154     IF( lwp ) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaharm.F90

    r3294 r3875  
    7878      !! * Local declarations  
    7979      INTEGER :: jh, nhan, jk, ji 
     80      INTEGER ::   ios                 ! Local integer output status for namelist read 
    8081 
    8182      NAMELIST/nam_diaharm/ nit000_han, nitend_han, nstep_han, tname 
     
    9293      tname(:)='' 
    9394      ! 
    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) 
     97901   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 ) 
     101902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_diaharm in configuration namelist', lwp ) 
     102      WRITE ( numond, nam_diaharm ) 
    97103      ! 
    98104      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diahsb.F90

    r3625 r3875  
    163163      INTEGER            ::   jk       ! dummy loop indice 
    164164      INTEGER            ::   ierror   ! local integer 
     165      INTEGER            ::   ios      ! Local integer output status for namelist read 
    165166      !! 
    166167      NAMELIST/namhsb/ ln_diahsb 
    167168      !!---------------------------------------------------------------------- 
    168169      ! 
    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) 
     172901   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 ) 
     176902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namhsb in configuration namelist', lwp ) 
     177      WRITE ( numond, namhsb ) 
    171178      ! 
    172179      IF(lwp) THEN                   ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DIA/diaptr.F90

    r3764 r3875  
    449449      INTEGER ::   jn           ! dummy loop indices  
    450450      INTEGER ::   inum, ierr   ! local integers 
     451      INTEGER ::   ios          ! Local integer output status for namelist read 
    451452#if defined key_mpp_mpi 
    452453      INTEGER, DIMENSION(1) :: iglo, iloc, iabsf, iabsl, ihals, ihale, idid 
     
    456457      !!---------------------------------------------------------------------- 
    457458 
    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) 
     461901   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 ) 
     465902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namptr in configuration namelist', lwp ) 
     466      WRITE ( numond, namptr ) 
    460467 
    461468      IF(lwp) THEN                     ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domain.F90

    r3764 r3875  
    131131      NAMELIST/namnc4/ nn_nchunks_i, nn_nchunks_j, nn_nchunks_k, ln_nc4zip 
    132132#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) 
     138901   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 ) 
     142902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
     143      WRITE ( numond, namrun ) 
    137144      ! 
    138145      IF(lwp) THEN                  ! control print 
     
    200207#endif 
    201208 
    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) 
     211903   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 ) 
     215904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
     216      WRITE ( numond, namdom ) 
    204217 
    205218      IF(lwp) THEN 
     
    237250      rdth      = rn_rdth 
    238251 
    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) 
     254905   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 ) 
     258906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcla in configuration namelist', lwp ) 
     259      WRITE( numond, namcla ) 
     260 
    241261      IF(lwp) THEN 
    242262         WRITE(numout,*) 
     
    247267#if defined key_netcdf4 
    248268      !                             ! 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) 
     271907   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 ) 
     275908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
     276      WRITE( numond, namnc4 ) 
     277 
    251278      IF(lwp) THEN                        ! control print 
    252279         WRITE(numout,*) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r3294 r3875  
    133133      INTEGER  ::   iif, iil, ii0, ii1, ii   ! local integers 
    134134      INTEGER  ::   ijf, ijl, ij0, ij1       !   -       - 
     135      INTEGER  ::   ios 
    135136      INTEGER , POINTER, DIMENSION(:,:) ::  imsk 
    136137      REAL(wp), POINTER, DIMENSION(:,:) ::  zwf 
     
    144145      CALL wrk_alloc( jpi, jpj, zwf  ) 
    145146      ! 
    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 ) 
     149901   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 ) 
     153902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlbc in configuration namelist', lwp ) 
     154      WRITE ( numond, namlbc ) 
    148155       
    149156      IF(lwp) THEN                  ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r3764 r3875  
    9999      !!---------------------------------------------------------------------- 
    100100      INTEGER ::   ioptio, ibat   ! local integer 
     101      INTEGER ::   ios 
    101102      ! 
    102103      NAMELIST/namzgr/ ln_zco, ln_zps, ln_sco 
     
    105106      IF( nn_timing == 1 )   CALL timing_start('dom_zgr') 
    106107      ! 
    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 ) 
     110901   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 ) 
     114902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
     115      WRITE ( numond, namzgr ) 
    109116 
    110117      IF(lwp) THEN                     ! Control print 
     
    11001107      INTEGER  ::   ji, jj, jk, jl           ! dummy loop argument 
    11011108      INTEGER  ::   iip1, ijp1, iim1, ijm1   ! temporary integers 
     1109      INTEGER  ::   ios                      ! Local integer output status for namelist read 
    11021110      REAL(wp) ::   zrmax, ztaper   ! temporary scalars 
    11031111      ! 
     
    11121120      CALL wrk_alloc( jpi, jpj,      zenv, ztmp, zmsk, zri, zrj, zhbat                           ) 
    11131121      ! 
    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) 
     1124901   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 ) 
     1128902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr_sco in configuration namelist', lwp ) 
     1129      WRITE ( numond, namzgr_sco ) 
    11161130 
    11171131      IF(lwp) THEN                           ! control print 
    11181132         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' 
    11201134         WRITE(numout,*) '~~~~~~~~~~~' 
    11211135         WRITE(numout,*) '   Namelist namzgr_sco' 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DOM/dtatsd.F90

    r3294 r3875  
    6262      !! 
    6363      NAMELIST/namtsd/   ln_tsd_init, ln_tsd_tradmp, cn_dir, sn_tem, sn_sal 
     64      INTEGER  ::   ios 
    6465      !!---------------------------------------------------------------------- 
    6566      ! 
     
    7677      sn_tem = FLD_N( 'temperature',  -1.  , 'votemper',  .false.   , .true.  ,  'monthly'  , ''       , ''       ) 
    7778      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) 
     82901   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 ) 
     86902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtsd in configuration namelist', lwp ) 
     87      WRITE ( numond, namtsd ) 
    8188 
    8289      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  
    8989      !!---------------------------------------------------------------------- 
    9090      INTEGER ::   ioptio 
     91      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    9192      !! 
    9293      NAMELIST/namdyn_adv/ ln_dynadv_vec, ln_dynadv_cen2 , ln_dynadv_ubs 
    9394      !!---------------------------------------------------------------------- 
    9495 
    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) 
     98901   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 ) 
     102902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_adv in configuration namelist', lwp ) 
     103      WRITE ( numond, namdyn_adv ) 
    97104 
    98105      IF(lwp) THEN                    ! Namelist print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

    r3764 r3875  
    122122      !!---------------------------------------------------------------------- 
    123123      INTEGER ::   ioptio = 0      ! temporary integer 
     124      INTEGER ::   ios             ! Local integer output status for namelist read 
    124125      !! 
    125126      NAMELIST/namdyn_hpg/ ln_hpg_zco, ln_hpg_zps, ln_hpg_sco,     & 
     
    127128      !!---------------------------------------------------------------------- 
    128129      ! 
    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) 
     132901   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 ) 
     136902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_hpg in configuration namelist', lwp ) 
     137      WRITE ( numond, namdyn_hpg ) 
    131138      ! 
    132139      IF(lwp) THEN                   ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynnept.F90

    r3723 r3875  
    114114      NAMELIST/namdyn_nept/ ln_neptsimp, ln_smooth_neptvel, rn_tslse, rn_tslsp,      & 
    115115                            ln_neptramp, rn_htrmin, rn_htrmax 
     116      INTEGER  ::   ios 
    116117      !!---------------------------------------------------------------------- 
    117118      ! Define the (simplified) Neptune parameters 
    118119      ! ========================================== 
    119120 
    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) 
     123901   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 ) 
     127902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_nept in configuration namelist', lwp ) 
     128      WRITE ( numond, namdyn_nept ) 
    122129 
    123130      IF(lwp) THEN                      ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/DYN/dynvor.F90

    r3802 r3875  
    710710      INTEGER ::   ioptio          ! local integer 
    711711      INTEGER ::   ji, jj, jk      ! dummy loop indices 
     712      INTEGER ::   ios             ! Local integer output status for namelist read 
    712713      !! 
    713714      NAMELIST/namdyn_vor/ ln_dynvor_ens, ln_dynvor_ene, ln_dynvor_mix, ln_dynvor_een 
    714715      !!---------------------------------------------------------------------- 
    715716 
    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) 
     719901   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 ) 
     723902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_vor in configuration namelist', lwp ) 
     724      WRITE ( numond, namdyn_vor ) 
    718725 
    719726      IF(lwp) THEN                    ! Namelist print 
     
    721728         WRITE(numout,*) 'dyn_vor_init : vorticity term : read namelist and control the consistency' 
    722729         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' 
    724731         WRITE(numout,*) '           energy    conserving scheme                ln_dynvor_ene = ', ln_dynvor_ene 
    725732         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  
    7878      !!---------------------------------------------------------------------- 
    7979      INTEGER :: jfl 
     80      INTEGER :: ios                 ! Local integer output status for namelist read 
    8081      ! 
    8182      NAMELIST/namflo/ jpnfl, jpnnewflo, ln_rstflo, nn_writefl, nn_stockfl, ln_argo, ln_flork4, ln_ariane, ln_flo_ascii 
     
    8889      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    8990 
    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) 
     93901   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 ) 
     97902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namflo in configuration namelist', lwp ) 
     98      WRITE ( numond, namflo ) 
    9299      ! 
    93100      IF(lwp) THEN                  ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ICB/icbini.F90

    r3785 r3875  
    344344      !!---------------------------------------------------------------------- 
    345345      INTEGER  ::   jn      ! dummy loop indices 
     346      INTEGER  ::   ios     ! Local integer output status for namelist read 
    346347      REAL(wp) ::   zfact   ! local scalar 
    347348      ! 
     
    359360      sn_icb = FLD_N( 'calving' ,    -1     , 'calving'  ,  .TRUE.    , .TRUE. ,   'yearly'  , ''       , ''         ) 
    360361 
    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) 
     364901   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 ) 
     368902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namberg in configuration namelist', lwp ) 
     369      WRITE ( numond, namberg ) 
    363370       
    364371      IF( .NOT. ln_icebergs ) THEN   ! no icebergs 
    365372         IF(lwp) THEN 
    366373            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' 
    368375            WRITE(numout,*) '~~~~~~~~ ' 
    369376         ENDIF 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r3680 r3875  
    107107   !!                        logical units 
    108108   !!---------------------------------------------------------------------- 
    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 
    122126 
    123127   !!---------------------------------------------------------------------- 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r3680 r3875  
    156156         WRITE(numout,*) 
    157157         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' 
    159159         CASE ( jprstdimg )   ;   WRITE(numout,*) 'rst_read : read oce binary restart file' 
    160160         END SELECT 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90

    r3799 r3875  
    2828   !!   ctl_warn   : initialization, namelist read, and parameters control 
    2929   !!   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 
    3132   !!---------------------------------------------------------------------- 
    3233#if   defined key_mpp_mpi 
     
    6162   IMPLICIT NONE 
    6263   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 
    6566   PUBLIC   mynode, mppstop, mppsync, mpp_comm_free 
    6667   PUBLIC   mpp_ini_north, mpp_lbc_north, mpp_lbc_north_e 
     
    225226 
    226227 
    227    FUNCTION mynode( ldtxt, kumnam, kstop, localComm ) 
     228   FUNCTION mynode( ldtxt, kumnam_ref , kumnam_cfg , kumond , kstop, localComm ) 
    228229      !!---------------------------------------------------------------------- 
    229230      !!                  ***  routine mynode  *** 
     
    232233      !!---------------------------------------------------------------------- 
    233234      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 
    236239      INTEGER, OPTIONAL            , INTENT(in   ) ::   localComm 
    237240      ! 
    238       INTEGER ::   mynode, ierr, code, ji, ii 
     241      INTEGER ::   mynode, ierr, code, ji, ii, ios 
    239242      LOGICAL ::   mpi_was_called 
    240243      ! 
     
    248251      ! 
    249252      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) 
     256901   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 ) 
     260902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist', lwp ) 
     261      WRITE(kumond, nammpp)       
     262 
    252263      !                              ! control print 
    253264      WRITE(ldtxt(ii),*) '   Namelist nammpp'                                                     ;   ii = ii + 1 
     
    34553466   END FUNCTION lib_mpp_alloc 
    34563467 
    3457    FUNCTION mynode( ldtxt, kumnam, kstop, localComm ) RESULT (function_value) 
     3468   FUNCTION mynode( ldtxt, kumnam_ref, knumnam_cfg, kstop, localComm ) RESULT (function_value) 
    34583469      INTEGER, OPTIONAL            , INTENT(in   ) ::   localComm 
    34593470      CHARACTER(len=*),DIMENSION(:) ::   ldtxt 
    3460       INTEGER ::   kumnam, kstop 
     3471      INTEGER ::   kumnam_ref, knumnam_cfg , kstop 
    34613472      IF( PRESENT( localComm ) .OR. .NOT.PRESENT( localComm ) )   function_value = 0 
    34623473      IF( .FALSE. )   ldtxt(:) = 'never done' 
     
    36373648 
    36383649   !!---------------------------------------------------------------------- 
    3639    !!   All cases:         ctl_stop, ctl_warn, get_unit, ctl_opn   routines 
     3650   !!   All cases:         ctl_stop, ctl_warn, get_unit, ctl_opn, ctl_nam   routines 
    36403651   !!---------------------------------------------------------------------- 
    36413652 
     
    37803791   END SUBROUTINE ctl_opn 
    37813792 
     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 
    37823823 
    37833824   INTEGER FUNCTION get_unit() 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

    r3818 r3875  
    4545      INTEGER ::  inum                        ! temporary logical unit 
    4646      INTEGER ::  idir                        ! temporary integers 
     47      INTEGER ::   ios                        ! Local integer output status for namelist read 
    4748      INTEGER ::   & 
    4849         ii, ij, ifreq, il1, il2,          &  ! temporary integers 
     
    7778      !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 
    7879      !!---------------------------------------------------------------------- 
    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) 
     83901   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 ) 
     87902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 
     88      WRITE ( numond, namzgr ) 
    8289 
    8390      IF(lwp)WRITE(numout,*) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/LDF/ldfdyn.F90

    r3634 r3875  
    6363      !!---------------------------------------------------------------------- 
    6464      INTEGER ::   ioptio         ! ??? 
     65      INTEGER ::   ios            ! Local : output status for namelist read 
    6566      LOGICAL ::   ll_print = .FALSE.    ! Logical flag for printing viscosity coef. 
    6667      !!  
     
    7374   !!---------------------------------------------------------------------- 
    7475 
    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) 
     78901   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 ) 
     82902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdyn_ldf in configuration namelist', lwp ) 
     83      WRITE ( numond, namdyn_ldf ) 
    7784 
    7885      IF(lwp) THEN                      ! Parameter print 
     
    8087         WRITE(numout,*) 'ldf_dyn : lateral momentum physics' 
    8188         WRITE(numout,*) '~~~~~~~' 
    82          WRITE(numout,*) '   Namelist nam_dynldf : set lateral mixing parameters' 
     89         WRITE(numout,*) '   Namelist namdyn_ldf : set lateral mixing parameters' 
    8390         WRITE(numout,*) '      laplacian operator                      ln_dynldf_lap   = ', ln_dynldf_lap 
    8491         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  
    6262      !!---------------------------------------------------------------------- 
    6363      INTEGER ::   ioptio               ! temporary integer 
     64      INTEGER ::   ios                  ! temporary integer 
    6465      LOGICAL ::   ll_print = .FALSE.   ! =T print eddy coef. in numout 
    6566      !!  
     
    7677      ! ============================================= 
    7778     
    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) 
     82901   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 ) 
     86902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_ldf in configuration namelist', lwp ) 
     87      WRITE ( numond, namtra_ldf ) 
    8088 
    8189      IF(lwp) THEN                      ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/OBC/obcini.F90

    r2715 r3875  
    5757      !! 
    5858      INTEGER  ::   ji, jj, istop , inumfbc 
     59      INTEGER  ::   ios                     ! Local integer output status for namelist read 
    5960      INTEGER, DIMENSION(4) ::   icorner 
    6061      REAL(wp), DIMENSION(2) ::   ztestmask 
     
    6667      !!---------------------------------------------------------------------- 
    6768 
    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) 
     71901   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 ) 
     75902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobc in configuration namelist', lwp ) 
     76      WRITE ( numond, namobc ) 
    7077 
    7178      ! convert DOCTOR namelist name into the OLD names 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r3651 r3875  
    197197      INTEGER :: ji 
    198198      INTEGER :: jset 
     199      INTEGER :: ios                 ! Local integer output status for namelist read 
    199200      LOGICAL :: lmask(MaxNumFiles), ll_u3d, ll_v3d 
    200201 
     
    262263 
    263264      ! 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) 
     267901   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 ) 
     271902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namobs in configuration namelist', lwp ) 
     272      WRITE ( numond, namobs ) 
    266273 
    267274      ! Count number of files for each type 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/albedo.F90

    r3625 r3875  
    199199      !! ** Method  :   Read the namelist namsbc_alb 
    200200      !!---------------------------------------------------------------------- 
     201      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    201202      NAMELIST/namsbc_alb/ rn_cloud, rn_albice, rn_alphd, rn_alphdi, rn_alphc 
    202203      !!---------------------------------------------------------------------- 
     
    204205      albd_init = 1                     ! indicate that the initialization has been done 
    205206      ! 
    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) 
     209901   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 ) 
     213902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_alb in configuration namelist', lwp ) 
     214      WRITE ( numond, namsbc_alb ) 
    208215      ! 
    209216      IF(lwp) THEN                      ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/cyclone.F90

    r3680 r3875  
    103103         sn_tc = FLD_N( 'tc_track',     6     ,  'tc'     ,  .true.    , .false. ,   'yearly'  , ''       , ''         ) 
    104104         ! 
    105          !         REWIND( numnam )                    ! ... read in namlist namsbc_core 
    106          !         READ  ( numnam, namsbc_tc ) 
    107          ! 
     105         !  Namelist is read in namsbc_core 
    108106         ! set sf structure 
    109107         ALLOCATE( sf(1), STAT=ierror ) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcana.F90

    r3625 r3875  
    6464      INTEGER, INTENT(in) ::   kt       ! ocean time step 
    6565      ! 
     66      INTEGER  ::   ios                   ! Local integer output status for namelist read 
    6667      REAL(wp) ::   zfacto                ! local scalar 
    6768      REAL(wp) ::   zrhoa  = 1.22_wp      ! Air density kg/m3 
     
    7475      IF( kt == nit000 ) THEN 
    7576         ! 
    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) 
     79901      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 ) 
     83902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ana in configuration namelist', lwp ) 
     84         WRITE ( numond, namsbc_ana ) 
    7885         ! 
    7986         IF(lwp) WRITE(numout,*)' ' 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcapr.F90

    r3795 r3875  
    6565      !! 
    6666      INTEGER            ::   ierror  ! local integer  
     67      INTEGER            ::   ios     ! Local integer output status for namelist read 
    6768      !! 
    6869      CHARACTER(len=100) ::  cn_dir   ! Root directory for location of ssr files 
     
    8384         cn_dir  = './'          ! directory in which the Patm data are  
    8485 
    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) 
     88901      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 ) 
     92902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_apr in configuration namelist', lwp ) 
     93         WRITE ( numond, namsbc_apr ) 
    8794         ! 
    8895         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  
    124124      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    125125      !! 
    126       INTEGER  ::   ifpr, jfpr   ! dummy indices 
     126      INTEGER  ::   ifpr, jfpr                   ! dummy indices 
    127127      INTEGER  ::   ierr0, ierr1, ierr2, ierr3   ! return error code 
     128      INTEGER  ::   ios                          ! Local integer output status for namelist read 
    128129      !! 
    129130      CHARACTER(len=100) ::  cn_dir                            !   Root directory for location of CLIO files 
     
    153154         sn_prec = FLD_N( 'precip' ,    -1     , 'precip' ,  .true.    , .false. ,   'yearly'  , ''       , ''       )  
    154155 
    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) 
     158901      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 ) 
     162902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_clio in configuration namelist', lwp ) 
     163         WRITE ( numond, namsbc_clio ) 
    157164 
    158165         ! store namelist information in an array 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90

    r3772 r3875  
    122122      INTEGER  ::   ifpr     ! dummy loop indice 
    123123      INTEGER  ::   jfld     ! dummy loop arguments 
     124      INTEGER  ::   ios      ! Local integer output status for namelist read 
    124125      !! 
    125126      CHARACTER(len=100) ::  cn_dir   !   Root directory for location of core files 
     
    151152         sn_tdif = FLD_N( 'taudif' ,    24     , 'taudif' ,  .true.    , .false. ,   'yearly'  , ''       , ''       ) 
    152153         ! 
    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) 
     157901      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 ) 
     161902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_core in configuration namelist', lwp ) 
     162         WRITE ( numond, namsbc_core ) 
    155163         !                                         ! check: do we plan to use ln_dm2dc with non-daily forcing? 
    156164         IF( ln_dm2dc .AND. sn_qsr%nfreqh /= 24 )   &  
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90

    r3625 r3875  
    104104      INTEGER  :: ifpr     ! dummy loop indice 
    105105      INTEGER  :: jj,ji    ! dummy loop arguments 
     106      INTEGER  ::   ios    ! Local integer output status for namelist read 
    106107      REAL(wp) :: act_hour 
    107108      !!-------------------------------------------------------------------- 
     
    147148            sn_prec = FLD_N( 'precip_cmap' ,  -1   ,  'precip'  ,  .true.    ,  .true. ,   'yearly'  , ''       , ''         ) 
    148149            ! 
    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) 
     153901         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 ) 
     157902         IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 
     158            WRITE ( numond, namsbc_mfs ) 
    151159            ! 
    152160            ! store namelist information in an array 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r3680 r3875  
    221221      !! 
    222222      INTEGER ::   jn   ! dummy loop index 
     223      INTEGER ::   ios  ! Local integer output status for namelist read 
    223224      REAL(wp), POINTER, DIMENSION(:,:) ::   zacs, zaos 
    224225      !! 
     
    258259      sn_rcv_co2    = FLD_C( 'none'                ,    'no'    ,     ''      ,         ''          ,   ''    ) 
    259260 
    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) 
     263901   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 ) 
     267902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_cpl in configuration namelist', lwp ) 
     268      WRITE ( numond, namsbc_cpl ) 
    262269 
    263270      IF(lwp) THEN                        ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcflx.F90

    r3625 r3875  
    7777      INTEGER  ::   ji, jj, jf            ! dummy indices 
    7878      INTEGER  ::   ierror                ! return error code 
     79      INTEGER  ::   ios                   ! Local integer output status for namelist read 
    7980      REAL(wp) ::   zfact                 ! temporary scalar 
    8081      REAL(wp) ::   zrhoa  = 1.22         ! Air density kg/m3 
     
    100101         sn_emp  = FLD_N(  'emp'  ,    24     ,  'emp'     ,  .false.   , .false. ,   'yearly'  , ''       , ''        ) 
    101102         ! 
    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) 
     105901      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 ) 
     109902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_flx in configuration namelist', lwp ) 
     110         WRITE ( numond, namsbc_flx )  
    104111         ! 
    105112         !                                         ! 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  
    759759         sn_bot5 = FLD_N( 'botmeltn5_1m' ,    -1.    ,  'botmeltn5' ,  .true.    , .true.  ,  ' yearly'  , ''       , ''         ) 
    760760 
    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 ) 
    763770 
    764771         ! store namelist information in an array 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90

    r3625 r3875  
    5959      INTEGER  ::   ji, jj     ! dummy loop indices 
    6060      INTEGER  ::   ierror     ! return error code 
     61      INTEGER  ::   ios        ! Local integer output status for namelist read 
    6162      REAL(wp) ::   ztrp, zsice, zt_fzp, zfr_obs 
    6263      REAL(wp) ::   zqri, zqrj, zqrp, zqi 
     
    7677         sn_ice = FLD_N('ice_cover',    -1    ,  'ice_cov' ,  .true.    , .true. ,   'yearly'  , ''       , ''         ) 
    7778 
    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) 
     81901      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 ) 
     85902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 
     86         WRITE ( numond, namsbc_iif ) 
    8087 
    8188         ALLOCATE( sf_ice(1), STAT=ierror ) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90

    r3764 r3875  
    8787         &             ln_blk_mfs, ln_apr_dyn, nn_ice,  nn_ice_embd, ln_dm2dc   , ln_rnf,   & 
    8888         &             ln_ssr    , nn_fwb    , ln_cdgw , ln_wave , ln_sdw 
     89      INTEGER  ::   ios 
    8990      !!---------------------------------------------------------------------- 
    9091 
     
    9596      ENDIF 
    9697 
    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) 
     100901   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 ) 
     104902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc in configuration namelist', lwp ) 
     105      WRITE ( numond, namsbc ) 
    99106 
    100107      !                          ! overwrite namelist parameter using CPP key information 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

    r3832 r3875  
    245245      INTEGER           ::   ji, jj, jk    ! dummy loop indices 
    246246      INTEGER           ::   ierror, inum  ! temporary integer 
     247      INTEGER           ::   ios           ! Local integer output status for namelist read 
    247248      ! 
    248249      NAMELIST/namsbc_rnf/ cn_dir, ln_rnf_emp, ln_rnf_depth, ln_rnf_tem, ln_rnf_sal,   & 
     
    264265      sn_dep_rnf = FLD_N( 'runoffs',   0.  , 'rodepth'  ,  .FALSE.   , .true. ,   'yearly'  , ''    , ''  ) 
    265266      ! 
    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) 
     269901   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 ) 
     273902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_rnf in configuration namelist', lwp ) 
     274      WRITE ( numond, namsbc_rnf ) 
    268275      ! 
    269276      !                                         ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssr.F90

    r3764 r3875  
    7979      CHARACTER(len=100) ::  cn_dir          ! Root directory for location of ssr files 
    8080      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_bnd 
    8281      !!---------------------------------------------------------------------- 
    8382      ! 
     
    164163      TYPE(FLD_N) ::   sn_sst, sn_sss        ! informations about the fields to be read 
    165164      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 
    166166      !!---------------------------------------------------------------------- 
    167167      ! 
     
    173173      sn_sst = FLD_N( 'sst'    ,    24     ,  'sst'     ,  .false.   , .false. ,   'yearly'  , ''       , ''         ) 
    174174      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) 
     178901   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 ) 
     182902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssr in configuration namelist', lwp ) 
     183      WRITE ( numond, namsbc_ssr ) 
    178184 
    179185      IF(lwp) THEN                 !* control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r3680 r3875  
    6767      INTEGER                ::  ierror   ! return error code 
    6868      INTEGER                ::  ifpr, jj,ji,jk  
     69      INTEGER                ::   ios     ! Local integer output status for namelist read 
    6970      REAL(wp),DIMENSION(:,:,:),POINTER             ::  udummy,vdummy,hdivdummy,rotdummy 
    7071      REAL                                          ::  z2dt,z1_2dt 
     
    9293         cn_dir = './'          ! directory in which the wave data are  
    9394          
    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) 
     97901      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 ) 
     101902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_wave in configuration namelist', lwp ) 
     102         WRITE ( numond, namsbc_wave ) 
    97103         ! 
    98104 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/tideini.F90

    r3651 r3875  
    4646    INTEGER, INTENT( in ) ::   kt     ! ocean time-step 
    4747    CHARACTER(LEN=4), DIMENSION(jpmax_harmo) :: clname 
     48    INTEGER  ::   ios                 ! Local integer output status for namelist read 
    4849    ! 
    4950    NAMELIST/nam_tide/ln_tide_pot, ln_tide_ramp, rdttideramp, clname 
     
    6364       ! 
    6465       ! 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) 
     68901    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 ) 
     72902    IF( ios /= 0 ) CALL ctl_nam ( ios , 'nam_tide in configuration namelist', lwp ) 
     73       WRITE ( numond, nam_tide ) 
    6774       ! 
    6875       nb_harmo=0 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

    r3764 r3875  
    5151      !!---------------------------------------------------------------------- 
    5252      INTEGER, INTENT(in) :: kt 
     53      INTEGER             ::   ios       ! Local integer output status for namelist read 
    5354      !! 
    5455      NAMELIST/namsol/ nn_solv, nn_sol_arp, nn_nmin, nn_nmax, nn_nmod, rn_eps, rn_resmax, rn_sor 
     
    6263      ENDIF 
    6364 
    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) 
     67901   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 ) 
     71902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsol in configuration namelist', lwp ) 
     72      WRITE ( numond, namsol ) 
    6673 
    6774      IF(lwp) THEN                  !* Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/eosbn2.F90

    r3625 r3875  
    708708      NAMELIST/nameos/ nn_eos, rn_alpha, rn_beta 
    709709      !!---------------------------------------------------------------------- 
    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 ) 
     714901   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 ) 
     718902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nameos in configuration namelist', lwp ) 
     719      WRITE( numond, nameos ) 
    713720      ! 
    714721      IF(lwp) THEN                ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/traadv.F90

    r3718 r3875  
    151151      !!---------------------------------------------------------------------- 
    152152      INTEGER ::   ioptio 
     153      INTEGER ::   ios                 ! Local integer output status for namelist read 
    153154      !! 
    154155      NAMELIST/namtra_adv/ ln_traadv_cen2 , ln_traadv_tvd,     & 
     
    158159      !!---------------------------------------------------------------------- 
    159160 
    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) 
     163901   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 ) 
     167902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_adv in configuration namelist', lwp ) 
     168      WRITE ( numond, namtra_adv ) 
    162169 
    163170      IF(lwp) THEN                    ! Namelist print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbc.F90

    r3625 r3875  
    129129      INTEGER  ::   ji, jj              ! dummy loop indices 
    130130      INTEGER  ::   inum                ! temporary logical unit 
     131      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    131132      !! 
    132133      NAMELIST/nambbc/ln_trabbc, nn_geoflx, rn_geoflx_cst  
    133134      !!---------------------------------------------------------------------- 
    134135 
    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) 
     138901   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 ) 
     142902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbc in configuration namelist', lwp ) 
     143      WRITE ( numond, nambbc ) 
    137144 
    138145      IF(lwp) THEN                     ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r3764 r3875  
    560560      INTEGER ::   ji, jj               ! dummy loop indices 
    561561      INTEGER ::   ii0, ii1, ij0, ij1   ! temporary integer 
     562      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    562563      REAL(wp), POINTER, DIMENSION(:,:) :: zmbk 
    563564      !! 
     
    570571      ! 
    571572 
    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) 
     575901   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 ) 
     579902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambbl in configuration namelist', lwp ) 
     580      WRITE ( numond, nambbl ) 
    574581      ! 
    575582      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  
    194194      !!---------------------------------------------------------------------- 
    195195      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) 
     201901   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 ) 
     205902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_dmp in configuration namelist', lwp ) 
     206      WRITE ( numond, namtra_dmp ) 
    200207       
    201208      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  
    315315      !!---------------------------------------------------------------------- 
    316316      ! 
    317       INTEGER  ::   ji, jj, jk     ! dummy loop indices 
     317      INTEGER  ::   ji, jj, jk                   ! dummy loop indices 
    318318      INTEGER  ::   irgb, ierror, ioptio, nqsr   ! local integer 
     319      INTEGER  ::   ios                          ! Local integer output status for namelist read 
    319320      REAL(wp) ::   zz0, zc0  , zc1, zcoef       ! local scalars 
    320321      REAL(wp) ::   zz1, zc2  , zc3, zchl        !   -      - 
     
    342343      sn_chl = FLD_N( 'chlorophyll' ,    -1     ,  'CHLA'    ,  .true.     , .true.  ,   'yearly'  , ''       , ''         ) 
    343344      ! 
    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) 
     348901   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 ) 
     352902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtra_qsr in configuration namelist', lwp ) 
     353      WRITE ( numond, namtra_qsr ) 
    346354      ! 
    347355      IF(lwp) THEN                ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/TRD/trdmod.F90

    r3294 r3875  
    251251      !!---------------------------------------------------------------------- 
    252252      USE in_out_manager          ! I/O manager 
     253      USE lib_mpp                 ! MPP library 
    253254      !!     
    254255      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 
    255257      !!---------------------------------------------------------------------- 
    256258 
    257259      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) 
     263901      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 ) 
     267902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrd in configuration namelist', lwp ) 
     268         WRITE ( numond, namtrd ) 
    260269 
    261270         IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfbfr.F90

    r3820 r3875  
    179179      INTEGER   ::   ikbu, ikbv   ! temporary integers 
    180180      INTEGER   ::   ictu, ictv   !    -          - 
     181      INTEGER   ::   ios 
    181182      REAL(wp)  ::   zminbfr, zmaxbfr   ! temporary scalars 
    182183      REAL(wp)  ::   zfru, zfrv         !    -         - 
     
    188189      IF( nn_timing == 1 )  CALL timing_start('zdf_bfr_init') 
    189190      ! 
    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) 
     193901   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 ) 
     197902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nambfr in configuration namelist', lwp ) 
     198      WRITE ( numond, nambfr ) 
    192199 
    193200      !                               !* Parameter control and print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

    r3610 r3875  
    213213      !!---------------------------------------------------------------------- 
    214214      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) 
     220901   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 ) 
     224902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ddm in configuration namelist', lwp ) 
     225      WRITE ( numond, namzdf_ddm ) 
    219226      ! 
    220227      IF(lwp) THEN                    ! Parameter print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfgls.F90

    r3798 r3875  
    928928      ! 
    929929      INTEGER ::   jk    ! dummy loop indices 
     930      INTEGER ::   ios   ! Local integer output status for namelist read 
    930931      REAL(wp)::   zcr   ! local scalar 
    931932      !! 
     
    940941      IF( nn_timing == 1 )  CALL timing_start('zdf_gls_init') 
    941942      ! 
    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) 
     945901   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 ) 
     949902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_gls in configuration namelist', lwp ) 
     950      WRITE ( numond, namzdf_gls ) 
    944951 
    945952      IF(lwp) THEN                     !* Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfini.F90

    r3680 r3875  
    5151      !!---------------------------------------------------------------------- 
    5252      INTEGER ::   ioptio       ! temporary scalar 
     53      INTEGER ::   ios 
    5354      !! 
    5455      NAMELIST/namzdf/ rn_avm0, rn_avt0, nn_avb, nn_havtb, ln_zdfexp, nn_zdfexp,   & 
     
    5657      !!---------------------------------------------------------------------- 
    5758 
    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) 
     61901   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 ) 
     65902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf in configuration namelist', lwp ) 
     66      WRITE ( numond, namzdf ) 
    6067 
    6168      IF(lwp) THEN               !* Parameter print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfkpp.F90

    r3792 r3875  
    13821382      REAL(wp) ::   zustar, zucube, zustvk, zeta, zehat   ! tempory scalars 
    13831383#endif 
     1384      INTEGER  ::   ios            ! Local integer output status for namelist read 
    13841385      REAL(wp) ::   zhbf           ! tempory scalars 
    13851386      LOGICAL  ::   ll_kppcustom   ! 1st ocean level taken as surface layer 
     
    13911392      IF( nn_timing == 1 )  CALL timing_start('zdf_kpp_init') 
    13921393      ! 
    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) 
     1396901   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 ) 
     1400902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_kpp in configuration namelist', lwp ) 
     1401      WRITE ( numond, namzdf_kpp ) 
    13951402 
    13961403      IF(lwp) THEN                    ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfric.F90

    r3625 r3875  
    247247      !!---------------------------------------------------------------------- 
    248248      INTEGER :: ji, jj, jk   ! dummy loop indices 
     249      INTEGER ::   ios        ! Local integer output status for namelist read 
    249250      !! 
    250251      NAMELIST/namzdf_ric/ rn_avmri, rn_alp   , nn_ric  , rn_ekmfc,  & 
     
    252253      !!---------------------------------------------------------------------- 
    253254      ! 
    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) 
     257901   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 ) 
     261902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_ric in configuration namelist', lwp ) 
     262      WRITE ( numond, namzdf_ric ) 
    256263      ! 
    257264      IF(lwp) THEN                   ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/ZDF/zdftke.F90

    r3680 r3875  
    692692      !!---------------------------------------------------------------------- 
    693693      INTEGER ::   ji, jj, jk   ! dummy loop indices 
     694      INTEGER ::   ios 
    694695      !! 
    695696      NAMELIST/namzdf_tke/ rn_ediff, rn_ediss , rn_ebb , rn_emin  ,   & 
     
    699700      !!---------------------------------------------------------------------- 
    700701      ! 
    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) 
     704901   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 ) 
     708902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tke in configuration namelist', lwp ) 
     709      WRITE ( numond, namzdf_tke ) 
    703710      ! 
    704711      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  
    354354      INTEGER  ::   ji, jj, jk   ! dummy loop indices 
    355355      INTEGER  ::   inum         ! local integer 
     356      INTEGER  ::   ios 
    356357      REAL(wp) ::   ztpc, ze_z   ! local scalars 
    357358      REAL(wp), DIMENSION(:,:)  , POINTER ::  zem2, zek1   ! read M2 and K1 tidal energy 
     
    369370      CALL wrk_alloc( jpi,jpj,jpk, zpc ) 
    370371       
    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) 
     374901   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 ) 
     378902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_tmx in configuration namelist', lwp ) 
     379      WRITE ( numond, namzdf_tmx ) 
    373380 
    374381      IF(lwp) THEN                   ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/module_example

    r2737 r3875  
    157157      !!---------------------------------------------------------------------- 
    158158      INTEGER ::   ji, jj, jk, jit   ! dummy loop indices 
     159      INTEGER  ::   ios              ! Local integer output status for namelist read 
    159160      !! 
    160161      NAMELIST/namexa/ exa_v1, exa_v2, nexa_0, sn_ex      
     
    164165      sn_ex%nfreqh = 2  
    165166      ! 
    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) 
     169901   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 ) 
     173902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namexa in configuration namelist', lwp ) 
     174   ! Output namelist for control 
     175      WRITE ( numond, namexa ) 
    168176      ! 
    169177      IF(lwp) THEN                              ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r3769 r3875  
    218218      INTEGER ::   ji            ! dummy loop indices 
    219219      INTEGER ::   ilocal_comm   ! local integer 
     220      INTEGER ::   ios 
    220221      CHARACTER(len=80), DIMENSION(16) ::   cltxt 
    221222      !! 
     
    227228      cltxt = '' 
    228229      ! 
    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 ) 
     237901   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 ) 
     241902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 
     242      WRITE( numond, namctl ) 
    233243      ! 
    234244      !                             !--------------------------------------------! 
     
    244254# endif 
    245255      ENDIF 
    246       narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection 
     256      narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection 
    247257#else 
    248258# if defined key_oasis3 || defined key_oasis4 
     
    250260         CALL cpl_prism_init( ilocal_comm )                 ! nemo local communicator given by oasis 
    251261      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) 
    253263# else 
    254264      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) 
    256266# endif 
    257267#endif 
     
    510520      CALL iom_close                                 ! close all input/output files managed by iom_* 
    511521      ! 
    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 
    521533 
    522534      ! 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/SAS_SRC/nemogcm.F90

    r3769 r3875  
    151151      !!---------------------------------------------------------------------- 
    152152      INTEGER ::   ji            ! dummy loop indices 
     153      INTEGER ::   ios 
    153154      INTEGER ::   ilocal_comm   ! local integer 
    154155      CHARACTER(len=80), DIMENSION(16) ::   cltxt 
     
    161162      cltxt = '' 
    162163      ! 
    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 ) 
     171901   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 ) 
     175902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namctl in configuration namelist', lwp ) 
    167176      ! 
    168177      !                             !--------------------------------------------! 
     
    173182         CALL  xios_initialize( "nemo",return_comm=ilocal_comm ) 
    174183      ENDIF 
    175       narea = mynode( cltxt, numnam, nstop, ilocal_comm )   ! Nodes selection 
     184      narea = mynode( cltxt, numnam_ref, numnam_cfg, numond , nstop, ilocal_comm )   ! Nodes selection 
    176185#else 
    177186      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) 
    179188#endif 
    180189      narea = narea + 1                                     ! mynode return the rank of proc (0 --> jpnij -1 ) 
     
    361370      CALL iom_close                                 ! close all input/output files managed by iom_* 
    362371      ! 
    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 
    368379      ! 
    369380      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  
    128128      INTEGER  :: ifpr                               ! dummy loop indice 
    129129      INTEGER  :: inum, idv, idimv, jpm              ! local integer 
     130      INTEGER  :: ios                                ! Local integer output status for namelist read 
    130131      !! 
    131132      CHARACTER(len=100)                     ::  cn_dir       ! Root directory for location of core files 
     
    150151      sn_ssh  = FLD_N( 'ssm_grid_T' ,    120    , 'sossheig' ,  .true.    , .true. ,   'yearly'  , ''       , ''         ) 
    151152      ! 
    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) 
     155901   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 ) 
     159902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_ssm in configuration namelist', lwp ) 
     160      WRITE ( numond, namsbc_ssm ) 
    154161      !                                         ! store namelist information in an array 
    155162      !                                         ! Control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/C14b/trcnam_c14b.F90

    r3294 r3875  
    4242      !! ** input   :   Namelist namelist_c14b 
    4343      !!---------------------------------------------------------------------- 
    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 
    4548 
    4649      ! definition of additional diagnostic as a structure 
     
    5760 
    5861      !                             ! 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) 
     67901   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14date in reference namelist', lwp ) 
    6268 
     69      REWIND( numnatb_cfg )              ! Namelist namc14date in configuration namelist : c14b parameters 
     70      READ  ( numnatb_cfg, namc14date, IOSTAT = ios, ERR = 902 ) 
     71902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14date in configuration namelist', lwp ) 
     72      WRITE ( numonb, namc14date ) 
    6373      IF(lwp) THEN                  ! control print 
    6474         WRITE(numout,*) 
     
    8797         END DO 
    8898 
    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) 
     101903      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 ) 
     105904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namc14dia in configuration namelist', lwp ) 
     106         WRITE ( numonb, namc14dia ) 
    91107 
    92108         DO jl = 1, jp_c14b_2d 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/CFC/trcnam_cfc.F90

    r3294 r3875  
    4242      !! ** input   :   Namelist namcfc 
    4343      !!---------------------------------------------------------------------- 
    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 
    4548      INTEGER :: jl, jn 
    4649      TYPE(DIAG), DIMENSION(jp_cfc_2d) :: cfcdia2d 
     
    5356      nyear_res = 1950 
    5457 
    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) 
     65901   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 ) 
     69902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdate in configuration namelist', lwp ) 
     70      WRITE ( numonc, namcfcdate ) 
    5971 
    6072      IF(lwp) THEN                  ! control print 
     
    7991         END DO 
    8092 
    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) 
     95903      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 ) 
     99904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfcdia in configuration namelist', lwp ) 
     100         WRITE ( numonc, namcfcdia ) 
    83101 
    84102         DO jl = 1, jp_cfc_2d 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zbio.F90

    r3446 r3875  
    480480      !!                  ***  ROUTINE p2z_bio_init  *** 
    481481      !! 
    482       !! ** Purpose :  bilogical parameters  
     482      !! ** Purpose :  biological parameters  
    483483      !! 
    484484      !! ** Method  :   Read namelist and check the parameters 
     
    490490      NAMELIST/namlobdet/  taudn, fdetlab 
    491491      NAMELIST/namlobdom/ taudomn 
     492      INTEGER :: ios                 ! Local integer output status for namelist read 
    492493      !!---------------------------------------------------------------------- 
    493494 
    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) 
     497901   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 ) 
     501902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobphy in configuration namelist', lwp ) 
     502      WRITE ( numonp, namlobphy ) 
    496503 
    497504      IF(lwp) THEN 
     
    505512      ENDIF 
    506513 
    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) 
     516903   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 ) 
     520904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobnut in configuration namelist', lwp ) 
     521      WRITE ( numonp, namlobnut ) 
     522 
    509523      IF(lwp) THEN 
    510524          WRITE(numout,*) ' Namelist namlobnut' 
     
    516530      ENDIF 
    517531 
    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) 
     534905   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 ) 
     538906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobzoo in configuration namelist', lwp ) 
     539      WRITE ( numonp, namlobzoo ) 
    520540 
    521541      IF(lwp) THEN 
     
    533553      ENDIF 
    534554 
    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) 
     557907   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 ) 
     561908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdet in configuration namelist', lwp ) 
     562      WRITE ( numonp, namlobdet ) 
    537563 
    538564      IF(lwp) THEN 
     
    543569      ENDIF 
    544570 
    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) 
     573909   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 ) 
     577910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobdom in configuration namelist', lwp ) 
     578      WRITE ( numonp, namlobdom ) 
    547579 
    548580      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90

    r3443 r3875  
    164164      NAMELIST/namlobopt/ xkg0, xkr0, xkgp, xkrp, xlg, xlr, rpig 
    165165      NAMELIST/namlobrat/ rcchl, redf, reddom 
     166      INTEGER :: ios                 ! Local integer output status for namelist read 
    166167      !!---------------------------------------------------------------------- 
    167168 
    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) 
     171901   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 ) 
     175902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobopt in configuration namelist', lwp ) 
     176      WRITE ( numonp, namlobopt ) 
    170177 
    171178      IF(lwp) THEN 
     
    182189      ENDIF 
    183190      ! 
    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) 
     193903   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 ) 
     197904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobrat in configuration namelist', lwp ) 
     198      WRITE ( numonp, namlobrat ) 
    186199 
    187200      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zsed.F90

    r3443 r3875  
    151151      !!---------------------------------------------------------------------- 
    152152      NAMELIST/namlobsed/ sedlam, sedlostpoc, vsed, xhr 
     153      INTEGER :: ios                 ! Local integer output status for namelist read 
    153154 
    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) 
     157901   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 ) 
     161902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namlobsed in configuration namelist', lwp ) 
     162      WRITE ( numonp, namlobsed ) 
    156163 
    157164      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zfechem.F90

    r3780 r3875  
    342342      !!---------------------------------------------------------------------- 
    343343      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) 
     348901   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 ) 
     352902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisfer in configuration namelist', lwp ) 
     353      WRITE ( numonp, nampisfer ) 
    347354 
    348355      IF(lwp) THEN                         ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zflx.F90

    r3481 r3875  
    239239      NAMELIST/nampisext/ln_co2int, atcco2, clname, nn_offset 
    240240      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) 
     247901   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 ) 
     251902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisext in configuration namelist', lwp ) 
     252      WRITE ( numonp, nampisext ) 
    245253      ! 
    246254      IF(lwp) THEN                         ! control print 
     
    302310      ! 
    303311      INTEGER            ::  ierr 
     312      INTEGER            ::  ios      ! Local integer output status for namelist read 
    304313      CHARACTER(len=100) ::  cn_dir   ! Root directory for location of ssr files 
    305314      TYPE(FLD_N)        ::  sn_patm  ! informations about the fields to be read 
     
    317326         cn_dir  = './'          ! directory in which the Patm data are  
    318327 
    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) 
     330901      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 ) 
     334902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisatm in configuration namelist', lwp ) 
     335         WRITE ( numonp, nampisatm ) 
    321336         ! 
    322337         ! 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlim.F90

    r3446 r3875  
    217217         &                concbno3, concbnh4, xsizedia, xsizephy, xsizern, xsizerd,          &  
    218218         &                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) 
     223901   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 ) 
     227902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampislim in configuration namelist', lwp ) 
     228      WRITE ( numonp, nampislim ) 
    222229 
    223230      IF(lwp) THEN                         ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zlys.F90

    r3443 r3875  
    188188      !!---------------------------------------------------------------------- 
    189189      INTEGER  ::  ji, jj, jk 
     190      INTEGER  ::  ios                 ! Local integer output status for namelist read 
    190191      REAL(wp) ::  zcaralk, zbicarb, zco3 
    191192      REAL(wp) ::  ztmas, ztmas1 
     
    194195      !!---------------------------------------------------------------------- 
    195196 
    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) 
     199901   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 ) 
     203902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiscal in configuration namelist', lwp ) 
     204      WRITE ( numonp, nampiscal ) 
    198205 
    199206      IF(lwp) THEN                         ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmeso.F90

    r3829 r3875  
    255255         &                xprefpoc, xthresh2dia, xthresh2phy, xthresh2zoo, xthresh2poc, & 
    256256         &                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) 
     261901   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 ) 
     265902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismes in configuration namelist', lwp ) 
     266      WRITE ( numonp, nampismes ) 
    260267 
    261268 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90

    r3829 r3875  
    225225         &                xpref2d,  xthreshdia,  xthreshphy,  xthreshpoc, & 
    226226         &                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) 
     231901   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 ) 
     235902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiszoo in configuration namelist', lwp ) 
     236      WRITE ( numonp, nampiszoo ) 
    230237 
    231238      IF(lwp) THEN                         ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmort.F90

    r3475 r3875  
    239239 
    240240      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) 
     245901   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 ) 
     249902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismort in configuration namelist', lwp ) 
     250      WRITE ( numonp, nampismort ) 
    244251 
    245252      IF(lwp) THEN                         ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

    r3475 r3875  
    318318      INTEGER :: numpar 
    319319      INTEGER :: ierr 
     320      INTEGER :: ios                 ! Local integer output status for namelist read 
    320321      REAL(wp), DIMENSION(nbtimes) :: zsteps                 ! times records 
    321322      ! 
     
    335336      sn_par     = FLD_N( 'par_fraction',    24     ,  'fr_par'     ,  .true.    , .true.  ,   'yearly'  , ''       , ''         ) 
    336337 
    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) 
     340901   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 ) 
     344902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisopt in configuration namelist', lwp ) 
     345      WRITE ( numonp, nampisopt ) 
    339346 
    340347      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zprod.F90

    r3686 r3875  
    472472      NAMELIST/nampisprod/ pislope, pislope2, ln_newprod, bresp, excret, excret2,  & 
    473473         &                 chlcnm, chlcdm, chlcmin, fecnm, fecdm, grosip 
     474      INTEGER :: ios                 ! Local integer output status for namelist read 
    474475      !!---------------------------------------------------------------------- 
    475476 
    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) 
     479901   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 ) 
     483902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisprod in configuration namelist', lwp ) 
     484      WRITE ( numonp, nampisprod ) 
    478485 
    479486      IF(lwp) THEN                         ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zrem.F90

    r3496 r3875  
    349349      NAMELIST/nampisrem/ xremik, xremip, nitrif, xsirem, xsiremlab, xsilab,   & 
    350350      &                   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) 
     355901   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 ) 
     359902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisrem in configuration namelist', lwp ) 
     360      WRITE ( numonp, nampisrem ) 
    354361 
    355362      IF(lwp) THEN                         ! control print 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsbc.F90

    r3557 r3875  
    186186      INTEGER  :: numdust, numsolub, numriv, numiron, numdepo, numhydro 
    187187      INTEGER  :: ierr, ierr1, ierr2, ierr3 
     188      INTEGER  :: ios                 ! Local integer output status for namelist read 
    188189      REAL(wp) :: zexpide, zdenitide, zmaskt 
    189190      REAL(wp) :: ztimes_dust, ztimes_riv, ztimes_ndep  
     
    226227      sn_hydrofe  = FLD_N( 'hydrofe'    ,   -12     ,  'hydro'    ,  .false.   , .true.  ,   'yearly'  , ''       , ''         ) 
    227228 
    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) 
     231901   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 ) 
     235902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampissbc in configuration namelist', lwp ) 
     236      WRITE ( numonp, nampissbc ) 
    230237 
    231238      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsink.F90

    r3829 r3875  
    538538      !!---------------------------------------------------------------------- 
    539539      INTEGER  ::   jk, jn, kiter 
     540      INTEGER  ::   ios                 ! Local integer output status for namelist read 
    540541      REAL(wp) ::   znum, zdiv 
    541542      REAL(wp) ::   zws, zwr, zwl,wmax, znummax 
     
    548549      IF( nn_timing == 1 )  CALL timing_start('p4z_sink_init') 
    549550      ! 
    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) 
     554901   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 ) 
     558902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrs in configuration namelist', lwp ) 
     559      WRITE ( numonp, nampiskrs ) 
    552560 
    553561      IF(lwp) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90

    r3780 r3875  
    166166      NAMELIST/nampisdmp/ ln_pisdmp, nn_pisdmp, ln_pisclo 
    167167      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) 
     173901   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 ) 
     177902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisbio in configuration namelist', lwp ) 
     178      WRITE ( numonp, nampisbio ) 
    173179 
    174180      IF(lwp) THEN                         ! control print 
     
    193199      xkr_mass_max = 1. 
    194200 
    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) 
     203903   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 ) 
     207904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampiskrp in configuration namelist', lwp ) 
     208      WRITE ( numonp, nampiskrp ) 
    197209 
    198210      IF(lwp) THEN 
     
    217229      ln_pisclo = .false. 
    218230 
    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) 
     233905   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 ) 
     237906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdmp in configuration namelist', lwp ) 
     238      WRITE ( numonp, nampisdmp ) 
    221239 
    222240      IF(lwp) THEN                         ! control print 
     
    230248 
    231249      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) 
     252907   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 ) 
     256908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampismass in configuration namelist', lwp ) 
     257      WRITE ( numonp, nampismass ) 
     258 
    234259      IF(lwp) THEN                         ! control print 
    235260         WRITE(numout,*) ' ' 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/PISCES/sms_pisces.F90

    r3780 r3875  
    1717   PUBLIC 
    1818 
    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 
    2022 
    2123   !!*  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  
    4949      !! 
    5050      INTEGER :: jl, jn 
     51      INTEGER :: ios                 ! Local integer output status for namelist read 
    5152      TYPE(DIAG), DIMENSION(jp_pisces_2d)  :: pisdia2d 
    5253      TYPE(DIAG), DIMENSION(jp_pisces_3d)  :: pisdia3d 
     
    6970#endif 
    7071      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. ) 
    7375      ! 
    7476      IF( .NOT.lk_iomput .AND. ln_diatrc ) THEN 
     
    8890         END DO 
    8991 
    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) 
     94901      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 ) 
     98902      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdia in configuration namelist', lwp ) 
     99         WRITE ( numonp, nampisdia ) 
    92100 
    93101         DO jl = 1, jp_pisces_2d 
     
    140148         END DO 
    141149 
    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) 
     152903      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 ) 
     156904      IF( ios /= 0 ) CALL ctl_nam ( ios , 'nampisdbi in configuration namelist', lwp ) 
     157         WRITE ( numonp, nampisdbi ) 
    144158 
    145159         DO jl = 1, jp_pisces_trd 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/TRP/trcnam_trp.F90

    r3718 r3875  
    1515   USE trc                 ! ocean passive tracers variables 
    1616   USE in_out_manager      ! ocean dynamics and active tracers variables 
     17   USE lib_mpp           ! distributed memory computing library 
    1718 
    1819   IMPLICIT NONE 
     
    7374      !! ** Purpose :   Read Namelist for tracer transport option 
    7475      !!---------------------------------------------------------------------- 
     76      INTEGER ::  ios                 ! Local integer output status for namelist read 
    7577      NAMELIST/namtrc_adv/ ln_trcadv_cen2 , ln_trcadv_tvd   ,    & 
    7678         &                 ln_trcadv_muscl, ln_trcadv_muscl2,    & 
     
    9294      IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~' 
    9395 
    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) 
     98901   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 ) 
     102902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_adv in configuration namelist', lwp ) 
     103      WRITE ( numont, namtrc_adv ) 
    96104 
    97105      IF(lwp) THEN                    ! Namelist print 
     
    108116      ENDIF 
    109117      ! 
    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) 
     120903   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 ) 
     124904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_ldf in configuration namelist', lwp ) 
     125      WRITE ( numont, namtrc_ldf ) 
    112126 
    113127      IF(lwp) THEN                    ! Namelist print 
     
    127141 
    128142      !                                ! 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) 
     145905   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 ) 
     149906   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_zdf in configuration namelist', lwp ) 
     150      WRITE ( numont, namtrc_zdf ) 
    131151 
    132152      IF(lwp) THEN                     !   ! Control print 
     
    138158 
    139159      ! 
    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) 
     162907   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 ) 
     166908   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_rad in configuration namelist', lwp ) 
     167      WRITE ( numont, namtrc_rad ) 
    142168 
    143169      IF(lwp) THEN                     !   ! Control print 
     
    149175 
    150176# 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) 
     179909   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) 
     183910   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dmp in configuration namelist', lwp ) 
     184      WRITE ( numont, namtrc_dmp ) 
     185 
    153186      IF( lzoom )   nn_zdmp_trc = 0           ! restoring to climatology at closed north or south boundaries 
    154187 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trc.F90

    r3770 r3875  
    2121 
    2222   !! 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 
    2527   INTEGER, PUBLIC                                                 ::   numstr        !: logical unit for tracer statistics 
    2628   INTEGER, PUBLIC                                                 ::   numrtr        !: logical unit for trc restart (read ) 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

    r3827 r3875  
    5353      !!---------------------------------------------------------------------- 
    5454      ! 
    55       INTEGER            :: jl, jn                   ! dummy loop indicies 
     55      INTEGER            :: jl, jn                           ! dummy loop indicies 
    5656      INTEGER            :: ierr0, ierr1, ierr2, ierr3       ! temporary integers 
     57      INTEGER            :: ios                              ! Local integer output status for namelist read 
    5758      CHARACTER(len=100) :: clndta, clntrc 
    5859      REAL(wp)           :: zfact 
     
    103104      END DO 
    104105      ! 
    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) 
     108901   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 ) 
     112902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dta in configuration namelist', lwp ) 
     113      WRITE ( numont, namtrc_dta ) 
    107114 
    108115      IF( lwp ) THEN 
  • branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r3749 r3875  
    5555      !!--------------------------------------------------------------------- 
    5656      INTEGER ::  jn, ierr 
     57      INTEGER ::  ios                 ! Local integer output status for namelist read 
    5758      ! Definition of a tracer as a structure 
    5859      TYPE(PTRACER), DIMENSION(jptra) :: sn_tracer  ! type of tracer for saving if not key_iomput 
     
    7374      IF(lwp) WRITE(numout,*) '~~~~~~~' 
    7475 
    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. ) 
    7679 
    7780      ! Namelist nattrc (files) 
     
    9598      ln_trcdmp = .FALSE. 
    9699 
    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) 
     102901   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 ) 
     106902   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc in configuration namelist', lwp ) 
     107      WRITE ( numont, namtrc ) 
    100108 
    101109      DO jn = 1, jptra 
     
    142150      nn_writebio = 10 
    143151 
    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) 
     154903   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 ) 
     158904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_dia in configuration namelist', lwp ) 
     159      WRITE ( numont, namtrc_dia ) 
    146160 
    147161      IF(lwp) THEN 
     
    221235         ln_trdtrc(:) = .FALSE. 
    222236 
    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) 
     239905      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 ) 
     243906      IF( ios /= 0 ) CALL ctl_nam ( ios , 'namtrc_trd in configuration namelist', lwp ) 
     244         WRITE ( numont, namtrc_trd ) 
    225245 
    226246         IF(lwp) THEN 
Note: See TracChangeset for help on using the changeset viewer.