New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 1725 – NEMO

Changeset 1725


Ignore:
Timestamp:
2009-11-12T16:04:08+01:00 (14 years ago)
Author:
smasson
Message:

control xml attributes from NEMO, see ticket:597

Location:
trunk
Files:
1 added
12 edited
1 moved

Legend:

Unmodified
Added
Removed

  • trunk/CONFIG/GYRE/EXP00/iodef.xml

    r1705 r1725  
    55  <context id="nemo">  
    66     
    7     <!-- groups of variables definition --> 
     7    <!--  
     8============================================================================================================ 
     9=                                  definition of all existing variables                                    = 
     10=                                            DO NOT CHANGE                                                 = 
     11============================================================================================================ 
     12    --> 
    813     
    9     <field_definition level="1" prec="4" operation="ave(X)" freq_op="7200" enabled=".TRUE."> 
     14    <field_definition level="1" prec="4" operation="ave(X)" enabled=".TRUE."> <!-- time step automaticaly defined --> 
    1015       
    1116      <!-- T grid --> 
    … …  
    3742      <!-- SBC --> 
    3843       
    39       <group id="SBC" axis_ref="none" grid_ref="grid_T"> 
     44      <group id="SBC" axis_ref="none" grid_ref="grid_T"> <!-- time step automaticaly defined based on nn_fsbc --> 
    4045   <field id="emp"          description="Net Upward Water Flux"                     unit="kg/m2/s"  /> 
    4146   <field id="emps"         description="concentration/dilution water flux"         unit="kg/m2/s"  /> 
    … …  
    99104  </field_definition> 
    100105 
    101 <!-- file definition --> 
     106    <!--  
     107============================================================================================================ 
     108=                                           output files definition                                        = 
     109=                                            Define your own files                                         = 
     110=                                         put the variables you want...                                    = 
     111============================================================================================================ 
     112    --> 
    102113 
    103114  <file_definition output_level="10" enabled=".TRUE."> 
    … …  
    151162  </file_definition> 
    152163 
     164    <!--  
     165============================================================================================================ 
     166=                                           grid definition                                                = 
     167=                                            DO NOT CHANGE                                                 = 
     168============================================================================================================ 
     169    --> 
    153170 
    154171  <axis_definition>   

  • trunk/CONFIG/GYRE_LOBSTER/EXP00/iodef.xml

    r1705 r1725  
    55  <context id="nemo">  
    66     
    7     <!-- groups of variables definition --> 
     7    <!--  
     8============================================================================================================ 
     9=                                  definition of all existing variables                                    = 
     10=                                            DO NOT CHANGE                                                 = 
     11============================================================================================================ 
     12    --> 
    813     
    9     <field_definition level="1" prec="4" operation="ave(X)" freq_op="7200" enabled=".TRUE."> 
     14    <field_definition level="1" prec="4" operation="ave(X)" enabled=".TRUE."> <!-- time step automaticaly defined --> 
    1015       
    1116      <!-- T grid --> 
    … …  
    3742      <!-- SBC --> 
    3843       
    39       <group id="SBC" axis_ref="none" grid_ref="grid_T"> 
     44      <group id="SBC" axis_ref="none" grid_ref="grid_T"> <!-- time step automaticaly defined based on nn_fsbc --> 
    4045   <field id="emp"          description="Net Upward Water Flux"                     unit="kg/m2/s"  /> 
    4146   <field id="emps"         description="concentration/dilution water flux"         unit="kg/m2/s"  /> 
    … …  
    138143  </field_definition> 
    139144 
    140 <!-- file definition --> 
     145    <!--  
     146============================================================================================================ 
     147=                                           output files definition                                        = 
     148=                                            Define your own files                                         = 
     149=                                         put the variables you want...                                    = 
     150============================================================================================================ 
     151    --> 
    141152 
    142153  <file_definition output_level="10" enabled=".TRUE."> 
    … …  
    224235  </file_definition> 
    225236 
     237    <!--  
     238============================================================================================================ 
     239=                                           grid definition                                                = 
     240=                                            DO NOT CHANGE                                                 = 
     241============================================================================================================ 
     242    --> 
     243 
    226244  <axis_definition>   
    227245     <axis id="deptht" description="Vertical T levels" unit="m" positive=".false." /> 

  • trunk/CONFIG/ORCA2_LIM/EXP00/iodef.xml

    r1705 r1725  
    55  <context id="nemo"> 
    66     
    7     <!-- groups of variables definition --> 
    8      
    9     <field_definition level="1" prec="4" operation="ave(X)" freq_op="5760" enabled=".TRUE."> 
     7    <!--  
     8============================================================================================================ 
     9=                                  definition of all existing variables                                    = 
     10=                                            DO NOT CHANGE                                                 = 
     11============================================================================================================ 
     12    --> 
     13     
     14    <field_definition level="1" prec="4" operation="ave(X)" enabled=".TRUE."> <!-- time step automaticaly defined --> 
    1015 
    1116      <!-- T grid --> 
    … …  
    3742      <!-- SBC --> 
    3843       
    39       <group id="SBC" axis_ref="none" grid_ref="grid_T" freq_op="28800"> 
     44      <group id="SBC" axis_ref="none" grid_ref="grid_T" > <!-- time step automaticaly defined based on nn_fsbc --> 
    4045 
    4146   <field id="emp"          description="Net Upward Water Flux"                                        unit="kg/m2/s"  /> 
    … …  
    132137   <field id="av_tide"     description="tidal vertical diffusivity"               unit="m2/s"                 /> 
    133138      </group> 
    134        
    135        
     139           
    136140    </field_definition> 
    137141     
    138     <!-- file definition --> 
    139      
    140     <file_definition output_level="10" enabled=".TRUE."> 
    141       <file id="ORCA2_5d_grid_T" description="ocean T grid variables" output_freq="432000" output_level="5" > 
    142    <field ref="toce"         name="votemper"  /> 
    143    <field ref="soce"         name="vosaline"  /> 
    144    <field ref="sst"          name="sosstsst"  /> 
    145    <field ref="sss"          name="sosaline"  /> 
    146    <field ref="ssh"          name="sossheig"  /> 
    147    <field ref="emp"          name="sowaflup"  /> 
    148    <field ref="qsr"          name="soshfldo"  /> 
    149    <field ref="emps"         name="sowaflcd"  /> 
    150    <field ref="qns+qsr"      name="sohefldo"  /> 
    151    <field ref="mldr10_1"     name="somxl010"  /> 
    152    <field ref="mldkz5"       name="somixhgt"  /> 
    153    <field ref="ice_cover"    name="soicecov"  /> 
    154    <field ref="wspd"         name="sowindsp"  /> 
    155    <field ref="qrp"          name="sohefldp"  /> 
    156    <field ref="erp"          name="sowafldp"  /> 
    157    <field ref="mldr10_1"     name="sobowlin"  operation="t_max(X)" /> 
    158    <field ref="mlddzt"       name="sothedep"  /> 
    159    <field ref="20d"          name="so20chgt"  /> 
    160    <field ref="28d"          name="so28chgt"  /> 
    161    <field ref="hc300"        name="sohtc300"  /> 
    162    <field ref="ist_ipa"      name="soicetem"  /> 
    163    <field ref="icealb_cea"   name="soicealb"  />    
    164       </file> 
    165        
    166       <file id="ORCA2_5d_grid_U" description="ocean U grid variables" output_freq="432000" output_level="5" > 
    167    <field ref="uoce"         name="vozocrtx"  /> 
    168    <field ref="uoce_eiv"     name="vozoeivu"  /> 
    169    <field ref="utau"         name="sozotaux"  /> 
    170       </file> 
    171        
    172       <file id="ORCA2_5d_grid_V" description="ocean V grid variables" output_freq="432000" output_level="5" > 
    173    <field ref="voce"         name="vomecrty"  /> 
    174    <field ref="voce_eiv"     name="vomeeivv"  /> 
    175    <field ref="vtau"         name="sometauy"  /> 
    176       </file> 
    177        
    178       <file id="ORCA2_5d_grid_W" description="ocean W grid variables" output_freq="432000" output_level="5" > 
    179    <field ref="woce"         name="vovecrtz" /> 
    180    <field ref="woce_eiv"     name="voveeivw" /> 
    181    <field ref="avt"          name="votkeavt" /> 
    182    <field ref="avt_evd"      name="votkeevd" /> 
    183    <field ref="avm"          name="votkeavm" /> 
    184    <field ref="avm_evd"      name="votkeevm" /> 
    185    <field ref="avs"          name="voddmavs" /> 
    186    <field ref="aht2d"        name="soleahtw" /> 
    187    <field ref="aht2d_eiv"    name="soleaeiw" /> 
    188       </file> 
    189        
    190       <file id="ORCA2_5d_icemod" description="ice variables" output_freq="432000" output_level="5" > 
    191    <field ref="ice_pres"                     /> 
    192    <field ref="snowthic_cea" name="isnowthi" /> 
    193    <field ref="icethic_cea"  name="iicethic" /> 
    194    <field ref="iceprod_cea"  name="iiceprod" /> 
    195    <field ref="ist_ipa"      name="iicetemp" /> 
    196    <field ref="ioceflxb"     name="ioceflxb" /> 
    197    <field ref="uice_ipa"     name="iicevelu" /> 
    198    <field ref="vice_ipa"     name="iicevelv" /> 
    199    <field ref="utau_ice"     name="iicestru" /> 
    200    <field ref="vtau_ice"     name="iicestrv" /> 
    201    <field ref="qsr_io_cea"   name="iicesflx" /> 
    202    <field ref="qns_io_cea"   name="iicenflx" /> 
    203    <field ref="snowpre"      name="isnowpre" /> 
    204       </file> 
    205        
     142    <!--  
     143============================================================================================================ 
     144=                                           output files definition                                        = 
     145=                                            Define your own files                                         = 
     146=                                         put the variables you want...                                    = 
     147============================================================================================================ 
     148    --> 
     149     
     150    <file_definition > 
     151 
     152      <group id="1h" output_freq="3600"   output_level="10" enabled=".TRUE.">                      <!-- 1h files --> 
     153      </group> 
     154       
     155      <group id="2h" output_freq="7200"   output_level="10" enabled=".TRUE.">                      <!-- 2h files --> 
     156      </group> 
     157       
     158      <group id="3h" output_freq="10800"  output_level="10" enabled=".TRUE.">                      <!-- 3h files --> 
     159      </group> 
     160       
     161      <group id="4h" output_freq="14400"  output_level="10" enabled=".TRUE.">                      <!-- 4h files --> 
     162      </group> 
     163       
     164      <group id="6h" output_freq="21600"  output_level="10" enabled=".TRUE.">                      <!-- 6h files --> 
     165      </group> 
     166       
     167      <group id="1d" output_freq="86400"  output_level="10" enabled=".TRUE.">                      <!-- 1d files --> 
     168 
     169    <!--  
     170............................................................................................................ 
     171           example of 3 types of 1d files 
     172............................................................................................................ 
     173    --> 
     174   <!-- automatic definition of the name based on id="1d_grid_T"  
     175        => this name is used as the radical for all file names of this group 
     176        => add a suffix to be sure that all files names of this group are different   --> 
     177   <group id="1d_grid_T" name="auto" description="ocean T grid variables" > 
     178     <!-- mooring: automatic definition of the file name suffix based on id="0n180wT"  --> 
     179     <file id="0n180wT" name_suffix="auto" > 
     180       <group id="0n180wT" zoom_ref="0n180wT" >    <!-- group of variables sharing the same zoom --> 
     181         <field ref="toce" name="votemper"  /> 
     182         <field ref="uoce" name="vozocrtx"  />     <!-- include a U-grid variable in the list => switch to T-grid --> 
     183       </group> 
     184     </file> 
     185     <!-- Equatorial section: automatic definition of the file name suffix based on id="EqT" --> 
     186     <file id="EqT" name_suffix="auto" > 
     187       <group id="EqT" zoom_ref="EqT" > 
     188         <field ref="toce" name="votemper"  /> 
     189       </group> 
     190     </file> 
     191     <!-- global file with different operations on data   --> 
     192     <file id="global" > 
     193       <field ref="sst"    name="sst_1d_ave"                       />     <!-- mean --> 
     194       <field ref="sst"    name="sst_1d_max"  operation="t_max(X)" />     <!-- max --> 
     195     </file> 
     196   </group> 
     197 
     198      </group> 
     199       
     200      <group id="3d" output_freq="259200" output_level="10" enabled=".TRUE.">                      <!-- 3d files --> 
     201      </group> 
     202       
     203      <group id="5d" output_freq="432000" output_level="10" enabled=".TRUE.">                      <!-- 5d files --> 
     204 
     205   <file id="5d_grid_T" name="auto" description="ocean T grid variables" > 
     206     <field ref="toce"         name="votemper"  /> 
     207     <field ref="soce"         name="vosaline"  /> 
     208     <field ref="sst"          name="sosstsst"  /> 
     209     <field ref="sss"          name="sosaline"  /> 
     210     <field ref="ssh"          name="sossheig"  /> 
     211     <field ref="emp"          name="sowaflup"  /> 
     212     <field ref="qsr"          name="soshfldo"  /> 
     213     <field ref="emps"         name="sowaflcd"  /> 
     214     <field ref="qns+qsr"      name="sohefldo"  /> 
     215     <field ref="mldr10_1"     name="somxl010"  /> 
     216     <field ref="mldkz5"       name="somixhgt"  /> 
     217     <field ref="ice_cover"    name="soicecov"  /> 
     218     <field ref="wspd"         name="sowindsp"  /> 
     219     <field ref="qrp"          name="sohefldp"  /> 
     220     <field ref="erp"          name="sowafldp"  /> 
     221     <field ref="mlddzt"       name="sothedep"  /> 
     222     <field ref="20d"          name="so20chgt"  /> 
     223     <field ref="28d"          name="so28chgt"  /> 
     224     <field ref="hc300"        name="sohtc300"  /> 
     225     <field ref="ist_ipa"      name="soicetem"  /> 
     226     <field ref="icealb_cea"   name="soicealb"  />    
     227   </file> 
     228    
     229   <file id="5d_grid_U" name="auto" description="ocean U grid variables" > 
     230     <field ref="uoce"         name="vozocrtx"  /> 
     231     <field ref="uoce_eiv"     name="vozoeivu"  /> 
     232     <field ref="utau"         name="sozotaux"  /> 
     233   </file> 
     234    
     235   <file id="5d_grid_V" name="auto" description="ocean V grid variables" > 
     236     <field ref="voce"         name="vomecrty"  /> 
     237     <field ref="voce_eiv"     name="vomeeivv"  /> 
     238     <field ref="vtau"         name="sometauy"  /> 
     239   </file> 
     240    
     241   <file id="5d_grid_W" name="auto" description="ocean W grid variables" > 
     242     <field ref="woce"         name="vovecrtz" /> 
     243     <field ref="woce_eiv"     name="voveeivw" /> 
     244     <field ref="avt"          name="votkeavt" /> 
     245     <field ref="avt_evd"      name="votkeevd" /> 
     246     <field ref="avm"          name="votkeavm" /> 
     247     <field ref="avm_evd"      name="votkeevm" /> 
     248     <field ref="avs"          name="voddmavs" /> 
     249     <field ref="aht2d"        name="soleahtw" /> 
     250     <field ref="aht2d_eiv"    name="soleaeiw" /> 
     251   </file> 
     252    
     253   <file id="5d_icemod" name="auto" description="ice variables" > 
     254     <field ref="ice_pres"                     /> 
     255     <field ref="snowthic_cea" name="isnowthi" /> 
     256     <field ref="icethic_cea"  name="iicethic" /> 
     257     <field ref="iceprod_cea"  name="iiceprod" /> 
     258     <field ref="ist_ipa"      name="iicetemp" /> 
     259     <field ref="ioceflxb"     name="ioceflxb" /> 
     260     <field ref="uice_ipa"     name="iicevelu" /> 
     261     <field ref="vice_ipa"     name="iicevelv" /> 
     262     <field ref="utau_ice"     name="iicestru" /> 
     263     <field ref="vtau_ice"     name="iicestrv" /> 
     264     <field ref="qsr_io_cea"   name="iicesflx" /> 
     265     <field ref="qns_io_cea"   name="iicenflx" /> 
     266     <field ref="snowpre"      name="isnowpre" /> 
     267   </file> 
     268    
     269      </group> 
     270       
     271      <group id="1m" output_freq="-1"     output_level="10" enabled=".TRUE.">                      <!-- real monthly files --> 
     272 
     273   <file id="1m_grid_T" name="auto" description="ocean T grid variables" > 
     274     <field ref="sst"          name="sosstsst"  /> 
     275   </file>    
     276 
     277      </group> 
     278 
     279      <group id="1y" output_freq="0000"   output_level="10" enabled=".TRUE.">                      <!-- yearly files --> 
     280 
     281   <file id="1y_grid_T" name="auto" description="ocean T grid variables" > 
     282     <field ref="mldr10_1"     name="sobowlin"  operation="t_max(X)" /> 
     283   </file> 
     284 
     285      </group> 
     286 
     287      <group id="2y"  output_freq="0000"   output_level="10" enabled=".TRUE.">                     <!-- 2y files --> 
     288      </group> 
     289 
     290      <group id="5y"  output_freq="0000"   output_level="10" enabled=".TRUE.">                     <!-- 5y files --> 
     291      </group> 
     292 
     293      <group id="10y" output_freq="0000"   output_level="10" enabled=".TRUE.">                     <!-- 10y files --> 
     294      </group> 
     295 
    206296    </file_definition> 
    207297     
     298    <!--  
     299============================================================================================================ 
     300=                                           grid definition                                                = 
     301=                                            DO NOT CHANGE                                                 = 
     302============================================================================================================ 
     303    --> 
    208304     
    209305    <axis_definition>   
    … …  
    216312     
    217313    <grid_definition> 
    218       <grid id="grid_T" description="grid T" /> 
    219       <grid id="grid_U" description="grid U" /> 
    220       <grid id="grid_V" description="grid V" /> 
    221       <grid id="grid_W" description="grid W" /> 
     314      <grid id="grid_T" description="grid T" > 
     315    <!--   Eq section   --> 
     316   <zoom id="EqT" ibegin="1" jbegin="0000" ni="0000" nj="1" /> 
     317    <!--   TAO   --> 
     318      <!--   137e   --> 
     319   <zoom id="2n137eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     320   <zoom id="5n137eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     321   <zoom id="8n137eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     322      <!--   147e   --> 
     323   <zoom id="0n147eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     324   <zoom id="2n147eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     325   <zoom id="5n147eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     326      <!--   156e   --> 
     327   <zoom id="5s156eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     328   <zoom id="2s156eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     329   <zoom id="0n156eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     330   <zoom id="2n156eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     331   <zoom id="5n156eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     332   <zoom id="8n156eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     333      <!--   165e   --> 
     334   <zoom id="8s165eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     335   <zoom id="5s165eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     336   <zoom id="2s165eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     337   <zoom id="0n165eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     338   <zoom id="2n165eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     339   <zoom id="5n165eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     340   <zoom id="8n165eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     341      <!--   180w   --> 
     342   <zoom id="8s180wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     343   <zoom id="5s180wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     344   <zoom id="2s180wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     345   <zoom id="0n180wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     346   <zoom id="2n180wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     347   <zoom id="5n180wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     348   <zoom id="8n180wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     349      <!--   170w   --> 
     350   <zoom id="8s170wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     351   <zoom id="5s170wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     352   <zoom id="2s170wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     353   <zoom id="0n170wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     354   <zoom id="2n170wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     355   <zoom id="5n170wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     356   <zoom id="8n170wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     357      <!--   155w   --> 
     358   <zoom id="8s155wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     359   <zoom id="5s155wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     360   <zoom id="2s155wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     361   <zoom id="0n155wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     362   <zoom id="2n155wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     363   <zoom id="5n155wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     364   <zoom id="8n155wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     365      <!--   140w   --> 
     366   <zoom id="8s140wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     367   <zoom id="5s140wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     368   <zoom id="2s140wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     369   <zoom id="0n140wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     370   <zoom id="2n140wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     371   <zoom id="5n140wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     372   <zoom id="8n140wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     373      <!--   125w   --> 
     374   <zoom id="8s125wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     375   <zoom id="5s125wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     376   <zoom id="2s125wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     377   <zoom id="0n125wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     378   <zoom id="2n125wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     379   <zoom id="5n125wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     380   <zoom id="8n125wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     381      <!--   110w   --> 
     382   <zoom id="8s110wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     383   <zoom id="5s110wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     384   <zoom id="2s110wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     385   <zoom id="0n110wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     386   <zoom id="2n110wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     387   <zoom id="5n110wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     388   <zoom id="8n110wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     389      <!--   95w   --> 
     390   <zoom id="8s95wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     391   <zoom id="5s95wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     392   <zoom id="2s95wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     393   <zoom id="0n95wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     394   <zoom id="2n95wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     395   <zoom id="5n95wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     396   <zoom id="8n95wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     397    <!--   RAMA   --> 
     398      <!--   55e   --> 
     399   <zoom id="16s55eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     400   <zoom id="12s55eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     401   <zoom id="8s55eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     402   <zoom id="4s55eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     403   <zoom id="1.5s55eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     404   <zoom id="0n55eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     405   <zoom id="1.5n55eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     406   <zoom id="4n55eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     407      <!--   65e   --> 
     408   <zoom id="15n65eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     409      <!--   67e   --> 
     410   <zoom id="16s67eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     411   <zoom id="12s67eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     412   <zoom id="8s67eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     413   <zoom id="4s67eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     414   <zoom id="1.5s67eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     415   <zoom id="0n67eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     416   <zoom id="1.5n67eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     417   <zoom id="4n67eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     418   <zoom id="8n67eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     419      <!--   80.5e   --> 
     420   <zoom id="16s80.5eT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     421   <zoom id="12s80.5eT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     422   <zoom id="8s80.5eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     423   <zoom id="4s80.5eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     424   <zoom id="1.5s80.5eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     425   <zoom id="0n80.5eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     426   <zoom id="1.5n80.5eT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     427   <zoom id="4n80.5eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     428      <!--   90e   --> 
     429   <zoom id="1.5s90eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     430   <zoom id="0n90eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     431   <zoom id="1.5n90eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     432   <zoom id="4n90eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     433   <zoom id="8n90eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     434   <zoom id="12n90eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     435   <zoom id="15n90eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     436      <!--   95e   --> 
     437   <zoom id="16s95eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     438   <zoom id="12s95eT"    ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     439   <zoom id="8s95eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     440   <zoom id="5s95eT"     ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     441    <!--   PIRATA   --> 
     442      <!--   38w-30w   --> 
     443   <zoom id="19s34wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     444   <zoom id="14s32wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     445   <zoom id="8s30wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     446   <zoom id="0n35wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     447   <zoom id="4n38wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     448   <zoom id="8n38wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     449   <zoom id="12n38wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     450   <zoom id="15n38wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     451   <zoom id="20n38wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     452      <!--   23w   --> 
     453   <zoom id="0n23wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     454   <zoom id="4n23wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     455   <zoom id="12n23wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     456   <zoom id="21n23wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     457      <!--   10w   --> 
     458   <zoom id="10s10wT" ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     459   <zoom id="6s10wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     460   <zoom id="0n10wT"  ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     461      <!--   0e   --> 
     462   <zoom id="0n0eT"   ibegin="0000" jbegin="0000" ni="1" nj="1" /> 
     463      </grid> 
     464 
     465      <grid id="grid_U" description="grid U" > 
     466    <!--   Eq section   --> 
     467   <zoom id="EqU" ibegin="1" jbegin="0000" ni="0000" nj="1" /> 
     468      </grid> 
     469 
     470      <grid id="grid_V" description="grid V" > 
     471      </grid> 
     472 
     473      <grid id="grid_W" description="grid W" > 
     474    <!--   Eq section   --> 
     475   <zoom id="EqW" ibegin="1" jbegin="0000" ni="0000" nj="1" /> 
     476      </grid> 
     477 
    222478    </grid_definition>     
    223479     

  • trunk/CONFIG/ORCA2_LIM_PISCES/EXP00/iodef.xml

    r1705 r1725  
    55  <context id="nemo"> 
    66     
    7     <!-- groups of variables definition --> 
    8      
    9     <field_definition level="1" prec="4" operation="ave(X)" freq_op="5760" enabled=".TRUE."> 
     7    <!--  
     8============================================================================================================ 
     9=                                  definition of all existing variables                                    = 
     10=                                            DO NOT CHANGE                                                 = 
     11============================================================================================================ 
     12    --> 
     13     
     14    <field_definition level="1" prec="4" operation="ave(X)" enabled=".TRUE.">   <!-- time step automaticaly defined --> 
    1015 
    1116      <!-- T grid --> 
    … …  
    3742      <!-- SBC --> 
    3843       
    39       <group id="SBC" axis_ref="none" grid_ref="grid_T" freq_op="28800"> 
     44      <group id="SBC" axis_ref="none" grid_ref="grid_T" > <!-- time step automaticaly defined based on nn_fsbc --> 
    4045 
    4146   <field id="emp"          description="Net Upward Water Flux"                                        unit="kg/m2/s"  /> 
    … …  
    197202    </field_definition> 
    198203     
    199     <!-- file definition --> 
     204    <!--  
     205============================================================================================================ 
     206=                                           output files definition                                        = 
     207=                                            Define your own files                                         = 
     208=                                         put the variables you want...                                    = 
     209============================================================================================================ 
     210    --> 
    200211     
    201212    <file_definition output_level="10" enabled=".TRUE."> 
    … …  
    326337    </file_definition> 
    327338     
     339    <!--  
     340============================================================================================================ 
     341=                                           grid definition                                                = 
     342=                                            DO NOT CHANGE                                                 = 
     343============================================================================================================ 
     344    --> 
    328345     
    329346    <axis_definition>   

  • trunk/CONFIG/ORCA2_OFF_PISCES/EXP00/iodef.xml

    r1682 r1725  
    55<context id="nemo"> 
    66 
    7 <!-- groups of variables definition --> 
     7    <!--  
     8============================================================================================================ 
     9=                                  definition of all existing variables                                    = 
     10=                                            DO NOT CHANGE                                                 = 
     11============================================================================================================ 
     12    --> 
    813 
    9   <field_definition level="1" prec="4" operation="ave(X)" freq_op="21600" enabled=".TRUE."> 
     14  <field_definition level="1" prec="4" operation="ave(X)" enabled=".TRUE."> <!-- time step automaticaly defined --> 
    1015  
    1116      <!-- ptrc on T grid --> 
    … …  
    7479  </field_definition> 
    7580 
    76 <!-- file definition --> 
     81    <!--  
     82============================================================================================================ 
     83=                                           output files definition                                        = 
     84=                                            Define your own files                                         = 
     85=                                         put the variables you want...                                    = 
     86============================================================================================================ 
     87    --> 
    7788 
    7889  <file_definition output_level="10" enabled=".TRUE."> 
    … …  
    138149  </file_definition> 
    139150 
     151    <!--  
     152============================================================================================================ 
     153=                                           grid definition                                                = 
     154=                                            DO NOT CHANGE                                                 = 
     155============================================================================================================ 
     156    --> 
    140157 
    141158  <axis_definition>   

  • trunk/CONFIG/POMME/EXP00/iodef.xml

    r1705 r1725  
    55  <context id="nemo"> 
    66     
    7     <!-- groups of variables definition --> 
     7    <!--  
     8============================================================================================================ 
     9=                                  definition of all existing variables                                    = 
     10=                                            DO NOT CHANGE                                                 = 
     11============================================================================================================ 
     12    --> 
    813     
    9     <field_definition level="1" prec="4" operation="ave(X)" freq_op="1440" enabled=".TRUE."> 
     14    <field_definition level="1" prec="4" operation="ave(X)" enabled=".TRUE."> <!-- time step automaticaly defined --> 
    1015       
    1116      <!-- T grid --> 
    … …  
    3742      <!-- SBC --> 
    3843       
    39       <group id="SBC" axis_ref="none" grid_ref="grid_T" freq_op="28800"> 
     44      <group id="SBC" axis_ref="none" grid_ref="grid_T" > <!-- time step automaticaly defined based on nn_fsbc --> 
    4045 
    4146   <field id="emp"          description="Net Upward Water Flux"                                        unit="kg/m2/s"  /> 
    … …  
    109114  </field_definition> 
    110115 
    111 <!-- file definition --> 
     116    <!--  
     117============================================================================================================ 
     118=                                           output files definition                                        = 
     119=                                            Define your own files                                         = 
     120=                                         put the variables you want...                                    = 
     121============================================================================================================ 
     122    --> 
    112123 
    113124  <file_definition output_level="10" enabled=".TRUE."> 
    … …  
    160171  </file_definition> 
    161172 
     173    <!--  
     174============================================================================================================ 
     175=                                           grid definition                                                = 
     176=                                            DO NOT CHANGE                                                 = 
     177============================================================================================================ 
     178    --> 
    162179 
    163180  <axis_definition>   

  • trunk/EXTERNAL/XMLIO_SERVER/AA_make

    r1722 r1725  
    6969   mod_mpi_buffer_server.o mod_pack.o mod_prec.o mod_wait.o pack_f.o  
    7070 
    71 MODS2 =  ../src/XMLIO/mod_axis.f90 ../src/XMLIO/mod_axis_definition.f90 \ 
    72    ../src/XMLIO/mod_axis_group.f90 ../src/XMLIO/mod_context.f90 \ 
    73    ../src/XMLIO/mod_dependency.f90 ../src/XMLIO/mod_domain.f90 \ 
    74    ../src/XMLIO/mod_error_msg.f90 ../src/XMLIO/mod_field.f90 \ 
     71MODS2 =  ../src/XMLIO/mod_attribut.f90 ../src/XMLIO/mod_attribut_list.f90 \ 
     72   ../src/XMLIO/mod_axis.f90 ../src/XMLIO/mod_axis_attribut.f90 \ 
     73   ../src/XMLIO/mod_axis_definition.f90 ../src/XMLIO/mod_axis_group.f90 \ 
     74   ../src/XMLIO/mod_context.f90 ../src/XMLIO/mod_dependency.f90 \ 
     75   ../src/XMLIO/mod_domain.f90 ../src/XMLIO/mod_error_msg.f90 \ 
     76   ../src/XMLIO/mod_field.f90 ../src/XMLIO/mod_field_attribute.f90 \ 
    7577   ../src/XMLIO/mod_field_definition.f90 \ 
    7678   ../src/XMLIO/mod_field_group.f90 ../src/XMLIO/mod_file.f90 \ 
     79   ../src/XMLIO/mod_file_attribut.f90 \ 
    7780   ../src/XMLIO/mod_file_definition.f90 ../src/XMLIO/mod_file_group.f90 \ 
    78    ../src/XMLIO/mod_grid.f90 ../src/XMLIO/mod_grid_definition.f90 \ 
    79    ../src/XMLIO/mod_grid_group.f90 ../src/XMLIO/mod_parse_xml.f90 \ 
    80    ../src/XMLIO/mod_sorted_list.f90 ../src/XMLIO/mod_time_parameters.f90 \ 
     81   ../src/XMLIO/mod_grid.f90 ../src/XMLIO/mod_grid_attribut.f90 \ 
     82   ../src/XMLIO/mod_grid_definition.f90 ../src/XMLIO/mod_grid_group.f90 \ 
     83   ../src/XMLIO/mod_object.f90 ../src/XMLIO/mod_parse_xml.f90 \ 
     84   ../src/XMLIO/mod_sorted_list.f90 ../src/XMLIO/mod_stdtype.f90 \ 
     85   ../src/XMLIO/mod_time_parameters.f90 \ 
    8186   ../src/XMLIO/mod_xmlio_parameters.f90 ../src/XMLIO/mod_zoom.f90 \ 
    82    ../src/XMLIO/string_function.f90 ../src/XMLIO/test_xmlio.f90 \ 
    83    ../src/XMLIO/xmlio.f90 
    84  
    85 OBJSMODS2 = mod_axis.o mod_axis_definition.o mod_axis_group.o mod_context.o \ 
    86    mod_dependency.o mod_domain.o mod_error_msg.o mod_field.o \ 
     87   ../src/XMLIO/mod_zoom_attribut.f90 ../src/XMLIO/string_function.f90 \ 
     88   ../src/XMLIO/test_xmlio.f90 ../src/XMLIO/xmlio.f90 
     89 
     90OBJSMODS2 = mod_attribut.o mod_attribut_list.o mod_axis.o mod_axis_attribut.o \ 
     91   mod_axis_definition.o mod_axis_group.o mod_context.o mod_dependency.o \ 
     92   mod_domain.o mod_error_msg.o mod_field.o mod_field_attribute.o \ 
    8793   mod_field_definition.o mod_field_group.o mod_file.o \ 
    88    mod_file_definition.o mod_file_group.o mod_grid.o \ 
    89    mod_grid_definition.o mod_grid_group.o mod_parse_xml.o \ 
    90    mod_sorted_list.o mod_time_parameters.o mod_xmlio_parameters.o \ 
    91    mod_zoom.o string_function.o  xmlio.o 
     94   mod_file_attribut.o mod_file_definition.o mod_file_group.o mod_grid.o \ 
     95   mod_grid_attribut.o mod_grid_definition.o mod_grid_group.o \ 
     96   mod_object.o mod_parse_xml.o mod_sorted_list.o mod_stdtype.o \ 
     97   mod_time_parameters.o mod_xmlio_parameters.o mod_zoom.o \ 
     98   mod_zoom_attribut.o string_function.o  xmlio.o 
    9299 
    93100.SUFFIXES: .f90 .F90 
    … …  
    171178$(MODEL_LIB1)(mod_event_client.o): $(MODEL_LIB1)(mod_event_parameters.o) \ 
    172179   $(MODEL_LIB1)(mod_iomanager.o) $(MODEL_LIB1)(mod_ioserver_namelist.o) \ 
    173    $(MODEL_LIB1)(mod_mpi_buffer_client.o) $(MODEL_LIB1)(mod_pack.o) 
     180   $(MODEL_LIB1)(mod_mpi_buffer_client.o) $(MODEL_LIB1)(mod_pack.o) \ 
     181   $(MODEL_LIB1)(mod_attribut.o) 
    174182$(MODEL_LIB1)(mod_event_server.o): $(MODEL_LIB1)(mod_event_parameters.o) \ 
    175    $(MODEL_LIB1)(mod_iomanager.o) $(MODEL_LIB1)(mod_pack.o) 
     183   $(MODEL_LIB1)(mod_iomanager.o) $(MODEL_LIB1)(mod_pack.o) \ 
     184   $(MODEL_LIB1)(mod_attribut.o) 
    176185$(MODEL_LIB1)(mod_global_memory.o): $(MODEL_LIB1)(mpi_mod.o) 
    177186$(MODEL_LIB1)(mod_interface_ioipsl.o): $(MODEL_LIB1)(mod_ioserver_para.o) \ 
    … …  
    183192   $(MODEL_LIB1)(mpi_mod.o) 
    184193$(MODEL_LIB1)(mod_iomanager.o): $(MODEL_LIB1)(mod_field_bufferize.o) \ 
    185    $(MODEL_LIB1)(mod_interface_ioipsl.o) $(MODEL_LIB2) 
     194   $(MODEL_LIB1)(mod_interface_ioipsl.o) $(MODEL_LIB1)(mod_attribut.o) \ 
     195   $(MODEL_LIB1)(mod_axis.o) $(MODEL_LIB1)(mod_axis_group.o) \ 
     196   $(MODEL_LIB1)(mod_field.o) $(MODEL_LIB1)(mod_field_group.o) \ 
     197   $(MODEL_LIB1)(mod_file.o) $(MODEL_LIB1)(mod_file_group.o) \ 
     198   $(MODEL_LIB1)(mod_grid.o) $(MODEL_LIB1)(mod_grid_group.o) \ 
     199   $(MODEL_LIB1)(mod_object.o) $(MODEL_LIB1)(mod_zoom.o) $(MODEL_LIB2) 
    186200$(MODEL_LIB1)(mod_mpi_buffer_client.o): $(MODEL_LIB1)(mod_global_memory.o) \ 
    187201   $(MODEL_LIB1)(mod_ioclient_para.o) \ 
    … …  
    195209   $(MODEL_LIB1)(mod_wait.o) $(MODEL_LIB1)(mpi_mod.o) \ 
    196210   $(MODEL_LIB1)(mpitrace.o) 
     211$(MODEL_LIB1)(mod_pack.o): $(MODEL_LIB1)(mod_attribut.o) \ 
     212   $(MODEL_LIB1)(mod_stdtype.o) 
    197213$(MODEL_LIB1)(pack_f.o): $(MODEL_LIB1)(mod_prec.o) 
    198214$(MODEL_LIB1)(server.o): $(MODEL_LIB1)(mod_global_memory.o) \ 
    … …  
    207223$(MODEL_LIB1)(mpi_mod.o):  
    208224$(MODEL_LIB1)(mpitrace.o):  
    209 $(MODEL_LIB2)(mod_axis.o): $(MODEL_LIB2)(mod_error_msg.o) \ 
     225$(MODEL_LIB2)(mod_attribut.o): $(MODEL_LIB2)(mod_attribut_list.o) \ 
     226   $(MODEL_LIB2)(mod_error_msg.o) $(MODEL_LIB2)(mod_object.o) \ 
     227   $(MODEL_LIB2)(mod_stdtype.o) $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
     228   $(MODEL_LIB2)(string_function.o) 
     229$(MODEL_LIB2)(mod_attribut_list.o): $(MODEL_LIB2)(mod_axis_attribut.o) \ 
     230   $(MODEL_LIB2)(mod_field_attribute.o) \ 
     231   $(MODEL_LIB2)(mod_file_attribut.o) $(MODEL_LIB2)(mod_grid_attribut.o) \ 
     232   $(MODEL_LIB2)(mod_zoom_attribut.o) 
     233$(MODEL_LIB2)(mod_axis.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     234   $(MODEL_LIB2)(mod_axis_attribut.o) $(MODEL_LIB2)(mod_error_msg.o) \ 
    210235   $(MODEL_LIB2)(mod_sorted_list.o) \ 
    211236   $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
    212237   $(MODEL_LIB2)(string_function.o) ../src/XMLIO/vector_axis_def.inc 
     238$(MODEL_LIB2)(mod_axis_attribut.o): $(MODEL_LIB2)(mod_object.o) 
    213239$(MODEL_LIB2)(mod_axis_definition.o): $(MODEL_LIB2)(mod_axis_group.o) 
    214 $(MODEL_LIB2)(mod_axis_group.o): $(MODEL_LIB2)(mod_axis.o) \ 
    215    $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
     240$(MODEL_LIB2)(mod_axis_group.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     241   $(MODEL_LIB2)(mod_axis.o) $(MODEL_LIB2)(mod_error_msg.o) \ 
     242   $(MODEL_LIB2)(mod_object.o) $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
    216243   $(MODEL_LIB2)(string_function.o) \ 
    217244   ../src/XMLIO/vector_axis_group_def.inc 
    … …  
    237264   ../src/XMLIO/vector_domain_def.inc 
    238265$(MODEL_LIB2)(mod_error_msg.o): $(MODEL_LIB2)(mod_xmlio_parameters.o) 
    239 $(MODEL_LIB2)(mod_field.o): $(MODEL_LIB2)(mod_axis.o) \ 
    240    $(MODEL_LIB2)(mod_error_msg.o) $(MODEL_LIB2)(mod_grid.o) \ 
     266$(MODEL_LIB2)(mod_field.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     267   $(MODEL_LIB2)(mod_axis.o) $(MODEL_LIB2)(mod_error_msg.o) \ 
     268   $(MODEL_LIB2)(mod_field_attribute.o) $(MODEL_LIB2)(mod_grid.o) \ 
    241269   $(MODEL_LIB2)(mod_sorted_list.o) \ 
    242270   $(MODEL_LIB2)(mod_xmlio_parameters.o) $(MODEL_LIB2)(mod_zoom.o) \ 
    243271   $(MODEL_LIB2)(string_function.o) ../src/XMLIO/vector_field_def.inc 
     272$(MODEL_LIB2)(mod_field_attribute.o): $(MODEL_LIB2)(mod_object.o) 
    244273$(MODEL_LIB2)(mod_field_definition.o): $(MODEL_LIB2)(mod_field_group.o) 
    245 $(MODEL_LIB2)(mod_field_group.o): $(MODEL_LIB2)(mod_field.o) \ 
    246    $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
     274$(MODEL_LIB2)(mod_field_group.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     275   $(MODEL_LIB2)(mod_error_msg.o) $(MODEL_LIB2)(mod_field.o) \ 
     276   $(MODEL_LIB2)(mod_object.o) $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
    247277   $(MODEL_LIB2)(string_function.o) \ 
    248278   ../src/XMLIO/vector_field_group_def.inc 
    249 $(MODEL_LIB2)(mod_file.o): $(MODEL_LIB2)(mod_error_msg.o) \ 
    250    $(MODEL_LIB2)(mod_field_group.o) $(MODEL_LIB2)(mod_sorted_list.o) \ 
     279$(MODEL_LIB2)(mod_file.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     280   $(MODEL_LIB2)(mod_error_msg.o) $(MODEL_LIB2)(mod_field_group.o) \ 
     281   $(MODEL_LIB2)(mod_file_attribut.o) $(MODEL_LIB2)(mod_sorted_list.o) \ 
    251282   $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
    252283   $(MODEL_LIB2)(string_function.o) ../src/XMLIO/vector_file_def.inc 
     284$(MODEL_LIB2)(mod_file_attribut.o): $(MODEL_LIB2)(mod_object.o) 
    253285$(MODEL_LIB2)(mod_file_definition.o): $(MODEL_LIB2)(mod_file_group.o) 
    254 $(MODEL_LIB2)(mod_file_group.o): $(MODEL_LIB2)(mod_file.o) \ 
    255    $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
     286$(MODEL_LIB2)(mod_file_group.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     287   $(MODEL_LIB2)(mod_error_msg.o) $(MODEL_LIB2)(mod_file.o) \ 
     288   $(MODEL_LIB2)(mod_object.o) $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
    256289   $(MODEL_LIB2)(string_function.o) \ 
    257290   ../src/XMLIO/vector_file_group_def.inc 
    258 $(MODEL_LIB2)(mod_grid.o): $(MODEL_LIB2)(mod_domain.o) \ 
    259    $(MODEL_LIB2)(mod_sorted_list.o) \ 
     291$(MODEL_LIB2)(mod_grid.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     292   $(MODEL_LIB2)(mod_domain.o) $(MODEL_LIB2)(mod_error_msg.o) \ 
     293   $(MODEL_LIB2)(mod_grid_attribut.o) $(MODEL_LIB2)(mod_sorted_list.o) \ 
    260294   $(MODEL_LIB2)(mod_xmlio_parameters.o) $(MODEL_LIB2)(mod_zoom.o) \ 
    261295   $(MODEL_LIB2)(string_function.o) ../src/XMLIO/vector_grid_def.inc 
     296$(MODEL_LIB2)(mod_grid_attribut.o): $(MODEL_LIB2)(mod_object.o) 
    262297$(MODEL_LIB2)(mod_grid_definition.o): $(MODEL_LIB2)(mod_grid_group.o) 
    263 $(MODEL_LIB2)(mod_grid_group.o): $(MODEL_LIB2)(mod_grid.o) \ 
    264    $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
     298$(MODEL_LIB2)(mod_grid_group.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     299   $(MODEL_LIB2)(mod_error_msg.o) $(MODEL_LIB2)(mod_grid.o) \ 
     300   $(MODEL_LIB2)(mod_object.o) $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
    265301   $(MODEL_LIB2)(string_function.o) \ 
    266302   ../src/XMLIO/vector_grid_group_def.inc 
    … …  
    275311   $(MODEL_LIB2)(string_function.o) 
    276312$(MODEL_LIB2)(mod_sorted_list.o): ../src/XMLIO/vector_node_def.inc 
    277 $(MODEL_LIB2)(mod_zoom.o): $(MODEL_LIB2)(mod_sorted_list.o) \ 
     313$(MODEL_LIB2)(mod_zoom.o): $(MODEL_LIB2)(mod_attribut.o) \ 
     314   $(MODEL_LIB2)(mod_error_msg.o) $(MODEL_LIB2)(mod_sorted_list.o) \ 
    278315   $(MODEL_LIB2)(mod_xmlio_parameters.o) \ 
    279    $(MODEL_LIB2)(string_function.o) ../src/XMLIO/vector_zoom_def.inc 
    280 $(MODEL_LIB2)(string_function.o): $(MODEL_LIB2)(mod_error_msg.o) 
     316   $(MODEL_LIB2)(mod_zoom_attribut.o) $(MODEL_LIB2)(string_function.o) \ 
     317   ../src/XMLIO/vector_zoom_def.inc 
     318$(MODEL_LIB2)(mod_zoom_attribut.o): $(MODEL_LIB2)(mod_object.o) 
     319$(MODEL_LIB2)(string_function.o): $(MODEL_LIB2)(mod_error_msg.o) \ 
     320   $(MODEL_LIB2)(mod_xmlio_parameters.o) 
    281321$(MODEL_LIB2)(test_xmlio.o): $(MODEL_LIB2)(mod_interface_ioipsl.o) \ 
    282322   $(MODEL_LIB2)(xmlio.o) 

  • trunk/NEMO/OPA_SRC/DIA/dianam.F90

    r1715 r1725  
    3030CONTAINS 
    3131 
    32    SUBROUTINE dia_nam( cdfnam, kfreq, cdsuff ) 
     32   SUBROUTINE dia_nam( cdfnam, kfreq, cdsuff, ldfsec ) 
    3333      !!--------------------------------------------------------------------- 
    3434      !!                  ***  ROUTINE dia_nam  *** 
    … …  
    4242      !! 
    4343      !!---------------------------------------------------------------------- 
    44       CHARACTER (len=*), INTENT(  out) ::   cdfnam           ! file name 
    45       CHARACTER (len=*), INTENT(in   ) ::   cdsuff           ! to be added at the end of the file name 
    46       INTEGER,           INTENT(in   ) ::   kfreq            ! output frequency (in time-step): < 0 for monthly outputs 
    47       !                                                                                         0 if no frequency 
    48       CHARACTER (len=20) ::   clfmt, clfmt0                  ! writing format 
    49       CHARACTER (len=20) ::   clave                          ! name for output frequency 
    50       CHARACTER (len=20) ::   cldate1                        ! date of the beginning of run 
    51       CHARACTER (len=20) ::   cldate2                        ! date of the end       of run 
    52       INTEGER            ::   iyear1, imonth1, iday1         ! year, month, day of the first day of the run 
    53       INTEGER            ::   iyear2, imonth2, iday2         ! year, month, day of the last  day of the run 
    54       INTEGER            ::   indg                           ! number of digits needed to write a number      
    55       INTEGER            ::   inbsec, inbmn, inbhr, inbday   ! output frequency in seconds, minutes, hours and days 
    56       INTEGER            ::   iddss, ihhss, immss            ! number of seconds in 1 day, 1 hour and 1 minute 
    57       REAL(wp)           ::   zsec1, zsec2                   ! not used 
    58       REAL(wp)           ::   zdrun, zjul                    ! temporary scalars 
     44      CHARACTER (len=*), INTENT(  out)           ::   cdfnam   ! file name 
     45      CHARACTER (len=*), INTENT(in   )           ::   cdsuff   ! to be added at the end of the file name 
     46      INTEGER          , INTENT(in   )           ::   kfreq    ! output frequency. < 0 for monthly outputs; = 0 if no frequency 
     47      LOGICAL          , INTENT(in   ), OPTIONAL ::   ldfsec   ! kfreq in second(in time-step) if .true.(.false. default) 
     48      ! 
     49      CHARACTER (len=20) ::   clfmt, clfmt0                    ! writing format 
     50      CHARACTER (len=20) ::   clave                            ! name for output frequency 
     51      CHARACTER (len=20) ::   cldate1                          ! date of the beginning of run 
     52      CHARACTER (len=20) ::   cldate2                          ! date of the end       of run 
     53      LOGICAL            ::   llfsec                           ! local value of ldfsec 
     54      INTEGER            ::   iyear1, imonth1, iday1           ! year, month, day of the first day of the run 
     55      INTEGER            ::   iyear2, imonth2, iday2           ! year, month, day of the last  day of the run 
     56      INTEGER            ::   indg                             ! number of digits needed to write a number      
     57      INTEGER            ::   inbsec, inbmn, inbhr             ! output frequency in seconds, minutes and hours 
     58      INTEGER            ::   inbday, inbyr                    ! output frequency in days and years 
     59      INTEGER            ::   iyyss, iddss, ihhss, immss       ! number of seconds in 1 year, 1 day, 1 hour and 1 minute 
     60      REAL(wp)           ::   zsec1, zsec2                     ! not used 
     61      REAL(wp)           ::   zdrun, zjul                      ! temporary scalars 
    5962      !!---------------------------------------------------------------------- 
    60  
    61       IF(lwp) WRITE(numout,*) 
    62       IF(lwp) WRITE(numout,*) ' dia_nam: building output file name' 
    63       IF(lwp) WRITE(numout,*) ' ~~~~~~~' 
    64       IF(lwp) WRITE(numout,*) 
    6563 
    6664      ! name for output frequency 
    6765 
    68       inbsec = kfreq * NINT( rdttra(1) )                                    ! output frequency in seconds 
    69       iddss = NINT( rday          )                                         ! number of seconds in 1 day 
    70       ihhss = NINT( rmmss * rhhmm )                                         ! number of seconds in 1 hour 
    71       immss = NINT( rmmss         )                                         ! number of seconds in 1 minute 
     66      IF( PRESENT(ldfsec) ) THEN   ;   llfsec = ldfsec 
     67      ELSE                         ;   llfsec = .FALSE. 
     68      ENDIF 
     69 
     70      IF( llfsec ) THEN   ;   inbsec = kfreq                                ! output frequency already in seconds 
     71      ELSE                ;   inbsec = kfreq * NINT( rdttra(1) )            ! from time-step to seconds 
     72      ENDIF 
     73      iddss = NINT( rday          )                                         ! seconds in 1 day 
     74      ihhss = NINT( rmmss * rhhmm )                                         ! seconds in 1 hour 
     75      immss = NINT( rmmss         )                                         ! seconds in 1 minute 
     76      iyyss = iddss * nyear_len(1)                                          ! seconds in 1 year (not good: multi years with leap) 
    7277      clfmt0 = "('(a,i',i1,',a)')"                                          ! format '(a,ix,a)' with x to be defined 
    7378      !  
    7479      IF(          inbsec == 0           ) THEN   ;   clave = ''            ! no frequency 
    7580      ELSEIF(      inbsec <  0           ) THEN   ;   clave = '_1m'         ! frequency in month 
     81      ELSEIF( MOD( inbsec, iyyss  ) == 0 ) THEN                             ! frequency in years 
     82         inbyr  = inbsec / iyyss 
     83         indg   = INT(LOG10(REAL(inbyr ,wp))) + 1                           ! number of digits needed to write years   frequency 
     84         WRITE(clfmt, clfmt0) indg                ;   WRITE(clave, clfmt) '_', inbyr , 'y' 
    7685      ELSEIF( MOD( inbsec, iddss  ) == 0 ) THEN                             ! frequency in days 
    7786         inbday = inbsec / iddss 
    78          indg = INT(LOG10(REAL(inbday,wp))) + 1                             ! number of digits needed to write days    frequency 
     87         indg   = INT(LOG10(REAL(inbday,wp))) + 1                           ! number of digits needed to write days    frequency 
    7988         WRITE(clfmt, clfmt0) indg                ;   WRITE(clave, clfmt) '_', inbday, 'd' 
    8089         IF( inbday == nmonth_len(nmonth) )           clave = '_1m' 
    81          IF( inbday ==  nyear_len(1     ) )           clave = '_1y' 
    8290      ELSEIF( MOD( inbsec, ihhss ) == 0 ) THEN                              ! frequency in hours 
    83          inbhr = inbsec / ihhss 
    84          indg = INT(LOG10(REAL(inbhr ,wp))) + 1                             ! number of digits needed to write hours   frequency 
    85          WRITE(clfmt, clfmt0) indg                ;   WRITE(clave, clfmt) '_', inbhr, 'h' 
     91         inbhr  = inbsec / ihhss 
     92         indg   = INT(LOG10(REAL(inbhr ,wp))) + 1                           ! number of digits needed to write hours   frequency 
     93         WRITE(clfmt, clfmt0) indg                ;   WRITE(clave, clfmt) '_', inbhr , 'h' 
    8694      ELSEIF( MOD( inbsec, immss ) == 0 ) THEN                              ! frequency in minutes 
    87          inbmn = inbsec / immss 
    88          indg = INT(LOG10(REAL(inbmn ,wp))) + 1                             ! number of digits needed to write minutes frequency 
    89          WRITE(clfmt, clfmt0) indg                ;   WRITE(clave, clfmt) '_', inbmn, 'mn' 
     95         inbmn  = inbsec / immss 
     96         indg   = INT(LOG10(REAL(inbmn ,wp))) + 1                           ! number of digits needed to write minutes frequency 
     97         WRITE(clfmt, clfmt0) indg                ;   WRITE(clave, clfmt) '_', inbmn , 'mn' 
    9098      ELSE                                                                  ! frequency in seconds 
    91          indg = INT(LOG10(REAL(inbsec,wp))) + 1                             ! number of digits needed to write seconds frequency 
     99         indg   = INT(LOG10(REAL(inbsec,wp))) + 1                           ! number of digits needed to write seconds frequency 
    92100         WRITE(clfmt, clfmt0) indg                ;   WRITE(clave, clfmt) '_', inbsec, 's' 
    93101      ENDIF 
    … …  
    112120#endif     
    113121 
    114       IF(lwp) WRITE(numout,*) cdfnam      
    115       IF(lwp) WRITE(numout,*)           
    116  
    117122   END SUBROUTINE dia_nam 
    118123 

  • trunk/NEMO/OPA_SRC/DOM/daymod.F90

    r1724 r1725  
    105105      IF(lwp) WRITE(numout,*)' ==============>> 1/2 time step before the start of the run DATE Y/M/D = ',   & 
    106106           &                   nyear, '/', nmonth, '/', nday, '  rsec_day:', rsec_day 
     107 
     108      ! Up to now, calendar parameters are related to the end of previous run (nit000-1) 
     109      ! call day to set the calendar parameters at the begining of the current simulaton. needed by iom_init 
     110      CALL day( nit000 ) 
     111 
    107112       
    108113   END SUBROUTINE day_init 

  • trunk/NEMO/OPA_SRC/IOM/iom.F90

    r1697 r1725  
    2727 
    2828#if defined key_iomput 
     29   USE sbc_oce, ONLY :   nn_fsbc         ! ocean space and time domain 
     30   USE domngb          ! ocean space and time domain 
     31   USE phycst          ! physical constants 
     32   USE dianam          ! build name of file 
    2933   USE mod_event_client 
     34   USE mod_attribut 
    3035# endif 
    3136 
    … …  
    3439    
    3540#if defined key_iomput 
    36    LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .TRUE.       !: iom_put flag 
     41   LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .TRUE.        !: iom_put flag 
    3742#else 
    3843   LOGICAL, PUBLIC, PARAMETER ::   lk_iomput = .FALSE.       !: iom_put flag 
    … …  
    7075CONTAINS 
    7176 
    72    SUBROUTINE iom_init( pjulian ) 
     77   SUBROUTINE iom_init 
    7378      !!---------------------------------------------------------------------- 
    7479      !!                     ***  ROUTINE   *** 
    … …  
    7782      !! 
    7883      !!---------------------------------------------------------------------- 
    79       REAL(wp), INTENT(in) ::  pjulian   !: julian day at nit000 = 0 
    8084#if defined key_iomput 
    8185      !!---------------------------------------------------------------------- 
    … …  
    8488 
    8589      ! calendar parameters 
    86       CALL event__set_time_parameters( nit000 - 1, pjulian, rdt ) 
     90      SELECT CASE ( nleapy )        ! Choose calendar for IOIPSL 
     91      CASE ( 1)   ;   CALL event__set_calendar('gregorian') 
     92      CASE ( 0)   ;   CALL event__set_calendar('noleap'   ) 
     93      CASE (30)   ;   CALL event__set_calendar('360d'     ) 
     94      END SELECT 
     95      CALL event__set_time_parameters( nit000 - 1, fjulday - adatrj, rdt ) 
    8796 
    8897      ! horizontal grid definition 
    … …  
    97106      CALL event__set_vert_axis( "depthv", gdept_0 ) 
    98107      CALL event__set_vert_axis( "depthw", gdepw_0 ) 
     108       
     109      ! automatic definitions of some of the xml attributs 
     110      CALL set_xmlatt 
    99111 
    100112      ! end file definition 
    … …  
    925937      !!                     ***  ROUTINE   *** 
    926938      !! 
    927       !! ** Purpose :    
     939      !! ** Purpose :   define horizontal grids 
    928940      !! 
    929941      !!---------------------------------------------------------------------- 
    … …  
    939951   END SUBROUTINE set_grid 
    940952 
     953 
     954   SUBROUTINE set_xmlatt 
     955      !!---------------------------------------------------------------------- 
     956      !!                     ***  ROUTINE   *** 
     957      !! 
     958      !! ** Purpose :   automatic definitions of some of the xml attributs... 
     959      !! 
     960      !!---------------------------------------------------------------------- 
     961      CHARACTER(len=6),DIMENSION( 5) ::   clsuff                   ! suffix name 
     962      CHARACTER(len=1),DIMENSION( 3) ::   clgrd                    ! suffix name 
     963      CHARACTER(len=50)              ::   clname                   ! file name 
     964      CHARACTER(len=1)               ::   cl1                      ! 1 character 
     965      CHARACTER(len=2)               ::   cl2                      ! 1 character 
     966      INTEGER                        ::   idt                      ! time-step in seconds 
     967      INTEGER                        ::   iddss, ihhss, iyyss      ! number of seconds in 1 day, 1 hour and 1 year 
     968      INTEGER                        ::   ji, jj, jg, jh, jd, jy   ! loop counters 
     969      INTEGER                        ::   ix, iy                   ! i-,j- index 
     970      REAL(wp)        ,DIMENSION(11) ::   zlontao                  ! longitudes of tao    moorings 
     971      REAL(wp)        ,DIMENSION( 7) ::   zlattao                  ! latitudes  of tao    moorings 
     972      REAL(wp)        ,DIMENSION( 4) ::   zlonrama                 ! longitudes of rama   moorings 
     973      REAL(wp)        ,DIMENSION(11) ::   zlatrama                 ! latitudes  of rama   moorings 
     974      REAL(wp)        ,DIMENSION( 3) ::   zlonpira                 ! longitudes of pirata moorings 
     975      REAL(wp)        ,DIMENSION( 9) ::   zlatpira                 ! latitudes  of pirata moorings 
     976      !!---------------------------------------------------------------------- 
     977      !  
     978      idt   = NINT( rdttra(1)     ) 
     979      iddss = NINT( rday          )                                         ! number of seconds in 1 day 
     980      ihhss = NINT( rmmss * rhhmm )                                         ! number of seconds in 1 hour 
     981      iyyss = nyear_len(1) * iddss                                          ! number of seconds in 1 year 
     982 
     983      ! frequency of the call of iom_put (attribut: freq_op) 
     984      CALL event__set_attribut( 'field_definition', attr( field__freq_op, idt           ) )    ! model time-step 
     985      CALL event__set_attribut( 'SBC'             , attr( field__freq_op, idt * nn_fsbc ) )    ! SBC time-step 
     986      ! average frequency: directly specified in the xml file except for yearly mean (attribut: output_freq) 
     987      ! note that average frequency of -1 correspond to exact monthly mean (-> according to the calendar)  
     988      DO jy = 1, 10                                                                         ! 1, 2, 5, 10 years   
     989         IF( MOD(10,jy) == 0 ) THEN  
     990            WRITE(cl2,'(i1)') jy  
     991            CALL event__set_attribut( TRIM(ADJUSTL(cl2))//'y', attr( file__output_freq, jy * iyyss ) ) 
     992         ENDIF 
     993      END DO 
     994       
     995      ! output file names (attribut: name) 
     996      clsuff(:) = (/ 'grid_T', 'grid_U', 'grid_V', 'grid_W', 'icemod' /)       
     997      DO jg = 1, SIZE(clsuff)                                                                  ! grid type 
     998         DO jh = 1, 12                                                                         ! 1, 2, 3, 4, 6, 12 hours 
     999            IF( MOD(12,jh) == 0 ) THEN  
     1000               WRITE(cl2,'(i2)') jh  
     1001               CALL dia_nam( clname, jh * ihhss, clsuff(jg), ldfsec = .TRUE. ) 
     1002               CALL event__set_attribut( TRIM(ADJUSTL(cl2))//'h_'//clsuff(jg), attr( file__name, TRIM(clname) ) ) 
     1003            ENDIF 
     1004         END DO 
     1005         DO jd = 1, 5, 2                                                                       ! 1, 3, 5 days 
     1006            WRITE(cl1,'(i1)') jd  
     1007            CALL dia_nam( clname, jd * iddss, clsuff(jg), ldfsec = .TRUE. ) 
     1008            CALL event__set_attribut( cl1//'d_'//clsuff(jg), attr( file__name, TRIM(clname) ) ) 
     1009         END DO 
     1010         CALL dia_nam( clname, -1, clsuff(jg) )                                                ! 1 month 
     1011         CALL event__set_attribut( '1m_'//clsuff(jg), attr( file__name, TRIM(clname) ) ) 
     1012         DO jy = 1, 10                                                                         ! 1, 2, 5, 10 years   
     1013            IF( MOD(10,jy) == 0 ) THEN  
     1014               WRITE(cl2,'(i2)') jy  
     1015               CALL dia_nam( clname, jy * iyyss, clsuff(jg), ldfsec = .TRUE. ) 
     1016               CALL event__set_attribut( TRIM(ADJUSTL(cl2))//'y_'//clsuff(jg), attr( file__name, TRIM(clname) ) ) 
     1017            ENDIF 
     1018         END DO 
     1019      END DO 
     1020 
     1021      ! Zooms... 
     1022      clgrd = (/ 'T', 'U', 'W' /)  
     1023      DO jg = 1, SIZE(clgrd)                                                                   ! grid type 
     1024         cl1 = clgrd(jg) 
     1025         ! Equatorial section (attributs: jbegin, ni, name_suffix) 
     1026         CALL dom_ngb( 0., 0., ix, iy, cl1 ) 
     1027         CALL event__set_attribut( 'Eq'//cl1, attr( zoom__jbegin     , iy     ) ) 
     1028         CALL event__set_attribut( 'Eq'//cl1, attr( zoom__ni         , jpiglo ) ) 
     1029         CALL event__set_attribut( 'Eq'//cl1, attr( file__name_suffix, '_Eq'  ) ) 
     1030      END DO 
     1031      ! TAO moorings (attributs: ibegin, jbegin, name_suffix) 
     1032      zlontao = (/ 137.0, 147.0, 156.0, 165.0, -180.0, -170.0, -155.0, -140.0, -125.0, -110.0, -95.0 /) 
     1033      zlattao = (/  -8.0,  -5.0,  -2.0,   0.0,    2.0,    5.0,    8.0 /) 
     1034      CALL set_mooring( zlontao, zlattao ) 
     1035      ! RAMA moorings (attributs: ibegin, jbegin, name_suffix) 
     1036      zlonrama = (/  55.0,  67.0, 80.5, 90.0 /) 
     1037      zlatrama = (/ -16.0, -12.0, -8.0, -4.0, -1.5, 0.0, 1.5, 4.0, 8.0, 12.0, 15.0 /) 
     1038      CALL set_mooring( zlonrama, zlatrama ) 
     1039      ! PIRATA moorings (attributs: ibegin, jbegin, name_suffix) 
     1040      zlonpira = (/ -38.0, -23.0, -10.0 /) 
     1041      zlatpira = (/ -19.0, -14.0,  -8.0, 0.0, 4.0, 8.0, 12.0, 15.0, 20.0 /) 
     1042      CALL set_mooring( zlonpira, zlatpira ) 
     1043       
     1044   END SUBROUTINE set_xmlatt 
     1045 
     1046 
     1047   SUBROUTINE set_mooring( plon, plat) 
     1048      !!---------------------------------------------------------------------- 
     1049      !!                     ***  ROUTINE   *** 
     1050      !! 
     1051      !! ** Purpose :   automatic definitions of moorings xml attributs... 
     1052      !! 
     1053      !!---------------------------------------------------------------------- 
     1054      REAL(wp), DIMENSION(:), INTENT(in) ::  plon, plat           ! longitudes/latitudes oft the mooring 
     1055      ! 
     1056!!$      CHARACTER(len=1),DIMENSION(4) ::   clgrd = (/ 'T', 'U', 'V', 'W' /)   ! suffix name 
     1057      CHARACTER(len=1),DIMENSION(1) ::   clgrd = (/ 'T' /)        ! suffix name 
     1058      CHARACTER(len=50)             ::   clname                   ! file name 
     1059      CHARACTER(len=1)              ::   cl1                      ! 1 character 
     1060      CHARACTER(len=6)              ::   clon,clat                ! name of longitude, latitude 
     1061      INTEGER                       ::   ji, jj, jg               ! loop counters 
     1062      INTEGER                       ::   ix, iy                   ! i-,j- index 
     1063      REAL(wp)                      ::   zlon, zlat 
     1064      !!---------------------------------------------------------------------- 
     1065      DO jg = 1, SIZE(clgrd) 
     1066         cl1 = clgrd(jg) 
     1067         DO ji = 1, SIZE(plon) 
     1068            DO jj = 1, SIZE(plat) 
     1069               zlon = plon(ji) 
     1070               zlat = plat(jj) 
     1071               ! modifications for RAMA moorings 
     1072               IF( zlon ==  67. .AND. zlat ==  15. )   zlon =  65. 
     1073               IF( zlon ==  90. .AND. zlat <=  -4. )   zlon =  95. 
     1074               IF( zlon ==  95. .AND. zlat ==  -4. )   zlat =  -5. 
     1075               ! modifications for PIRATA moorings 
     1076               IF( zlon == -38. .AND. zlat == -19. )   zlon = -34. 
     1077               IF( zlon == -38. .AND. zlat == -14. )   zlon = -32. 
     1078               IF( zlon == -38. .AND. zlat ==  -8. )   zlon = -30. 
     1079               IF( zlon == -38. .AND. zlat ==   0. )   zlon = -35. 
     1080               IF( zlon == -23. .AND. zlat ==  20. )   zlat =  21. 
     1081               IF( zlon == -10. .AND. zlat == -14. )   zlat = -10. 
     1082               IF( zlon == -10. .AND. zlat ==  -8. )   zlat =  -6. 
     1083               IF( zlon == -10. .AND. zlat ==   4. ) THEN   ;   zlon = 0.   ;   zlat = 0.   ;   ENDIF 
     1084               CALL dom_ngb( zlon, zlat, ix, iy, cl1 ) 
     1085               IF( zlon >= 0. ) THEN   
     1086                  IF( zlon == REAL(NINT(zlon), wp) ) THEN   ;   WRITE(clon, '(i3,  a)') NINT( zlon), 'e' 
     1087                  ELSE                                      ;   WRITE(clon, '(f5.1,a)')       zlon , 'e' 
     1088                  ENDIF 
     1089               ELSE              
     1090                  IF( zlon == REAL(NINT(zlon), wp) ) THEN   ;   WRITE(clon, '(i3,  a)') NINT(-zlon), 'w' 
     1091                  ELSE                                      ;   WRITE(clon, '(f5.1,a)')      -zlon , 'w' 
     1092                  ENDIF 
     1093               ENDIF 
     1094               IF( zlat >= 0. ) THEN   
     1095                  IF( zlat == REAL(NINT(zlat), wp) ) THEN   ;   WRITE(clat, '(i2,  a)') NINT( zlat), 'n' 
     1096                  ELSE                                      ;   WRITE(clat, '(f4.1,a)')       zlat , 'n' 
     1097                  ENDIF 
     1098               ELSE              
     1099                  IF( zlat == REAL(NINT(zlat), wp) ) THEN   ;   WRITE(clat, '(i2,  a)') NINT(-zlat), 's' 
     1100                  ELSE                                      ;   WRITE(clat, '(f4.1,a)')      -zlat , 's' 
     1101                  ENDIF 
     1102               ENDIF 
     1103               clname = TRIM(ADJUSTL(clat))//TRIM(ADJUSTL(clon)) 
     1104               IF( lwp ) WRITE(numout,*) 'sebseb : ', '_'//TRIM(clname)//'_' 
     1105               CALL event__set_attribut( TRIM(clname)//cl1, attr( zoom__ibegin     , ix                ) ) 
     1106               CALL event__set_attribut( TRIM(clname)//cl1, attr( zoom__jbegin     , iy                ) ) 
     1107               CALL event__set_attribut( TRIM(clname)//cl1, attr( file__name_suffix, '_'//TRIM(clname) ) )       
     1108            END DO 
     1109         END DO 
     1110      END DO 
     1111       
     1112   END SUBROUTINE set_mooring 
     1113 
    9411114#else 
    9421115 

  • trunk/NEMO/OPA_SRC/SBC/sbcmod.F90

    r1715 r1725  
    4242 
    4343   PUBLIC   sbc        ! routine called by step.F90 
     44   PUBLIC   sbc_init   ! routine called by opa.F90 
    4445    
    4546   INTEGER ::   nsbc   ! type of surface boundary condition (deduced from namsbc informations) 
    … …  
    187188      !!--------------------------------------------------------------------- 
    188189 
    189       IF( kt == nit000 )   CALL sbc_init         ! Read namsbc namelist : surface module 
    190       ! 
    191190      CALL iom_setkt( kt + nn_fsbc - 1 )         !  in sbc, iom_put is called every nn_fsbc time step 
    192191      ! 

  • trunk/NEMO/OPA_SRC/opa.F90

    r1715 r1725  
    4545   USE bdyini          ! unstructured open boundary cond. initialization (bdy_init routine) 
    4646   USE istate          ! initial state setting          (istate_init routine) 
     47   USE sbcmod          ! surface boundary condition  
    4748   USE eosbn2          ! equation of state                 (eos_init routine) 
    4849   USE dynhpg          ! hydrostatic pressure gradient 
    … …  
    257258 
    258259      !                                     ! Ocean physics 
     260      CALL sbc_init                             ! Read namsbc namelist : surface module (needed for iom_init) 
    259261      CALL ldf_tra_init                         ! Lateral ocean tracer physics 
    260262      CALL ldf_dyn_init                         ! Lateral ocean momentum physics 
    … …  
    266268 
    267269      !                                     ! diagnostics 
    268       CALL iom_init( fjulday - adatrj )         ! iom_put initialization 
     270      CALL iom_init                             ! iom_put initialization 
    269271      CALL dia_ptr_init                         ! Poleward TRansports initialization 
    270272      CALL trd_mod_init                         ! Mixed-layer/Vorticity/Integral constraints trends 

  • trunk/NEMO/OPA_SRC/step.F90

    r1662 r1725  
    168168!      IF (lwp) Write(*,*) 'Grid Number',Agrif_Fixed(),' time step ',kstp 
    169169#endif    
    170       indic = 1                    ! reset to no error condition 
    171  
    172       CALL day( kstp )             ! Calendar 
    173  
    174       CALL iom_setkt( kstp )       ! say to iom that we are at time step kstp 
     170      indic = 1                                       ! reset to no error condition 
     171 
     172      IF( kstp /= nit000 )   CALL day( kstp )         ! Calendar (day was already called at nit000 in day_init) 
     173 
     174      CALL iom_setkt( kstp )                          ! say to iom that we are at time step kstp 
    175175       
    176       CALL rst_opn( kstp )         ! Open the restart file 
     176      CALL rst_opn( kstp )                            ! Open the restart file 
    177177 
    178178      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
Note: See TracChangeset for help on using the changeset viewer.