Changeset 5616


Ignore:
Timestamp:
2015-07-20T12:09:04+02:00 (5 years ago)
Author:
jpaul
Message:

commit changes/bugfix/… for SIREN; see ticket #1581

Location:
branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN
Files:
25 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/cfg/variable.cfg

    r5037 r5616  
    1 # name       | units          | axis | point | standard name                | long name          | interpolation 
    2 X            | 1              | X    |   | projection_x_coordinate          |                    |                       
    3 Y            | 1              | Y    |   | projection_y_coordinate          |                    |                       
    4 Z            | 1              | Z    |   | projection_z_coordinate          |                    |                       
    5 T            | 1              | T    |   | projection_t_coordinate          |                    |                       
    6 nav_lon      | degrees_east   | XY   | T | longitude                        | Longitude          | cubic                       
    7 nav_lat      | degrees_north  | XY   | T | latitude                         | Latitude           | cubic          
    8 nav_lev      | model_levels   | Z    | T |                                  | Model levels       | cubic         
    9 deptht       | m              | Z    | T | depth                            | Vertical T levels  | 
    10 time_counter |                | T    |   | time                             | Time axis          |  
    11 Bathymetry   | m              | XY   | T | bathymetry                       | Bathymetry         | cubic          
    12 votemper     | degree_Celsius | XYZT | T | sea_water_potential_temperature  | Temperature        | cubic          
    13 vozocrtx     | m s-1          | XYZT | U |                                  | Zonal velocity     | cubic          
    14 vomecrty     | m s-1          | XYZT | V |                                  | Meridional velocity| cubic          
    15 vosaline     | PSU            | XYZT | T | sea_water_salinity               | Salinity           | cubic          
    16 sossheig     | m              | XYT  | T | sea_surface_height               | Sea Surface Height | cubic          
    17 glamt        | degrees_east   | XY   | T |                                  | Longitude_T        | cubic 
    18 glamu        | degrees_east   | XY   | U |                                  | Longitude_U        | cubic             
    19 glamv        | degrees_east   | XY   | V |                                  | Longitude_V        | cubic           
    20 glamf        | degrees_east   | XY   | F |                                  | Longitude_F        | cubic          
    21 gphit        | degrees_north  | XY   | T |                                  | Latitude_T         | cubic          
    22 gphiu        | degrees_north  | XY   | U |                                  | Latitude_U         | cubic         
    23 gphiv        | degrees_north  | XY   | V |                                  | Latitude_V         | cubic         
    24 gphif        | degrees_north  | XY   | F |                                  | Latitude_F         | cubic         
    25 e1t          | m              | XY   | T |                                  |                    | cubic/rhoi     
    26 e1u          | m              | XY   | U |                                  |                    | cubic/rhoi      
    27 e1v          | m              | XY   | V |                                  |                    | cubic/rhoi       
    28 e1f          | m              | XY   | F |                                  |                    | cubic/rhoi     
    29 e2t          | m              | XY   | T |                                  |                    | cubic/rhoj       
    30 e2u          | m              | XY   | U |                                  |                    | cubic/rhoj       
    31 e2v          | m              | XY   | V |                                  |                    | cubic/rhoj      
    32 e2f          | m              | XY   | F |                                  |                    | cubic/rhoj       
    33 tmask        |                | XYZ  | T |                                  |                    | nearest        
    34 umask        |                | XYZ  | U |                                  |                    | nearest        
    35 vmask        |                | XYZ  | V |                                  |                    | nearest        
    36 fmask        |                | XYZ  | F |                                  |                    | nearest        
    37 weight       |                | XY   | T |                                  |                    |                
    38 kt           |                |      |   |                                  |                    |                
    39 ndastp       |                |      |   |                                  |                    |                
    40 adatrj       |                |      |   |                                  |                    |                
    41 kt           |                |      |   |                                  |                    |                
    42 rdt          |                |      |   |                                  |                    |                
    43 rdttra1      |                |      |   |                                  |                    |                
    44 utau_b       |                | XYT  | U |surface_downward_eastward_stress  |                    |                
    45 vtau_b       |                | XYT  | V |surface_downward_northward_stress |                    |                
    46 qns_b        |                | XYT  | T |                                  |                    |                
    47 emp_b        |                | XYT  | T |                                  |                    |                
    48 sfx_b        |                | XYT  | T |                                  |                    |                
    49 en           |                | XYZT | T |                                  |                    |                
    50 avt          |                | XYZT | T |                                  |                    |                
    51 avm          |                | XYZT | T |                                  |                    |                
    52 avmu         |                | XYZT | T |                                  |                    |                
    53 avmv         |                | XYZT | T |                                  |                    |                
    54 dissl        |                | XYZT | T |                                  |                    |                
    55 sbc_hc_b     |                | XYT  | T |                                  |                    |                
    56 sbc_sc_b     |                | XYT  | T |                                  |                    |                
    57 gcx          |                | XYT  | T |                                  |                    |                
    58 gcxb         |                | XYT  | T |                                  |                    |                
    59 ub           |                | XYZT | U |                                  |                    |                
    60 vb           |                | XYZT | V |                                  |                    |                
    61 tb           |                | XYZT | T |                                  |                    |                
    62 sb           |                | XYZT | T |                                  |                    |                
    63 rotb         |                | XYZT | T |                                  |                    |                
    64 hdivb        |                | XYZT | T |                                  |                    |                
    65 sshb         |                | XYT  | T |                                  |                    |                
    66 un           |                | XYZT | U |                                  |                    |                
    67 vn           |                | XYZT | V |                                  |                    |                
    68 tn           |                | XYZT | T |                                  |                    |                
    69 sn           |                | XYZT | T |                                  |                    |                
    70 rotn         |                | XYZT | T |                                  |                    |                
    71 hdivn        |                | XYZT | T |                                  |                    |                
    72 sshn         |                | XYT  | T |                                  |                    |                
    73 rhop         |                | XYZT | T |                                  |                    |                
     1# name       | units          | axis | pt| interpolation   | long name                             | standard name                                   
     2X            | 1              | X    |   |                 |                                       | projection_x_coordinate                
     3Y            | 1              | Y    |   |                 |                                       | projection_y_coordinate                
     4Z            | 1              | Z    |   |                 |                                       | projection_z_coordinate                
     5T            | 1              | T    |   |                 |                                       | projection_t_coordinate                
     6nav_lon      | degrees_east   | XY   | T | cubic           | Longitude                             | longitude                                    
     7nav_lat      | degrees_north  | XY   | T | cubic           | Latitude                              | latitude                          
     8nav_lev      | model_levels   | Z    | T | cubic           | Model levels                          |                                   
     9deptht       | m              | Z    | T |                 | Vertical T levels                     | depth                             
     10time_counter |                | T    |   |                 | Time axis                             | time                              
     11Bathymetry   | m              | XY   | T | cubic           | Bathymetry                            | bathymetry                        
     12votemper     | degree_Celsius | XYZT | T | cubic           | Temperature                           | sea_water_potential_temperature   
     13vozocrtx     | m s-1          | XYZT | U | cubic           | Zonal velocity                        |                                   
     14vomecrty     | m s-1          | XYZT | V | cubic           | Meridional velocity                   |                                   
     15vosaline     | PSU            | XYZT | T | cubic           | Salinity                              | sea_water_salinity                
     16sossheig     | m              | XYT  | T | cubic           | Sea Surface Height                    | sea_surface_height                
     17sotemper     | m              | XYT  | T | cubic           |                                       |                                   
     18sossheig     | m              | XYT  | T | cubic           |                                       |                                   
     19glamt        | degrees_east   | XY   | T | cubic           | Longitude_T                           |                                   
     20glamu        | degrees_east   | XY   | U | cubic           | Longitude_U                           |                                    
     21glamv        | degrees_east   | XY   | V | cubic           | Longitude_V                           |                                   
     22glamf        | degrees_east   | XY   | F | cubic           | Longitude_F                           |                                   
     23gphit        | degrees_north  | XY   | T | cubic           | Latitude_T                            |                                   
     24gphiu        | degrees_north  | XY   | U | cubic           | Latitude_U                            |                                   
     25gphiv        | degrees_north  | XY   | V | cubic           | Latitude_V                            |                                   
     26gphif        | degrees_north  | XY   | F | cubic           | Latitude_F                            |                                   
     27e1t          | m              | XY   | T | cubic/rhoi      |                                       |                                   
     28e1u          | m              | XY   | U | cubic/rhoi      |                                       |                                   
     29e1v          | m              | XY   | V | cubic/rhoi      |                                       |                                   
     30e1f          | m              | XY   | F | cubic/rhoi      |                                       |                                   
     31e2t          | m              | XY   | T | cubic/rhoj      |                                       |                                   
     32e2u          | m              | XY   | U | cubic/rhoj      |                                       |                                   
     33e2v          | m              | XY   | V | cubic/rhoj      |                                       |                                   
     34e2f          | m              | XY   | F | cubic/rhoj      |                                       |                                   
     35tmask        |                | XYZ  | T | nearest         |                                       |                                   
     36umask        |                | XYZ  | U | nearest         |                                       |                                   
     37vmask        |                | XYZ  | V | nearest         |                                       |                                   
     38fmask        |                | XYZ  | F | nearest         |                                       |                                   
     39weight       |                | XY   | T |                 |                                       |                                   
     40kt           |                |      |   |                 |                                       |                                   
     41ndastp       |                |      |   |                 |                                       |                                   
     42adatrj       |                |      |   |                 |                                       |                                   
     43kt           |                |      |   |                 |                                       |                                   
     44rdt          |                |      |   |                 |                                       |                                   
     45rdttra1      |                |      |   |                 |                                       |                                   
     46utau_b       |                | XY   | U |                 |                                       |surface_downward_eastward_stress   
     47vtau_b       |                | XY   | V |                 |                                       |surface_downward_northward_stress  
     48qns_b        |                | XY   | T |                 |                                       |                                   
     49emp_b        |                | XY   | T |                 |                                       |                                   
     50sfx_b        |                | XY   | T |                 |                                       |                                   
     51en           |                | XYZ  | T |                 |                                       |                                   
     52avt          |                | XYZ  | T |                 | vertical eddy diffusivity             |                                   
     53avm          |                | XYZ  | T |                 | vertical eddy viscosity               |                                   
     54avmu         |                | XYZ  | T |                 |                                       |                                   
     55avmv         |                | XYZ  | T |                 |                                       |                                   
     56dissl        |                | XYZ  | T |                 |                                       |                                   
     57sbc_hc_b     |                | XY   | T |                 |                                       |                                   
     58sbc_sc_b     |                | XY   | T |                 |                                       |                                   
     59gcx          |                | XY   | T |                 |                                       |                                   
     60gcxb         |                | XY   | T |                 |                                       |                                   
     61ub           |                | XYZ  | U |                 |                                       |                                   
     62vb           |                | XYZ  | V |                 |                                       |                                   
     63tb           |                | XYZ  | T |                 |                                       |                                   
     64sb           |                | XYZ  | T |                 |                                       |                                   
     65rotb         |                | XYZ  | T |                 |                                       |                                   
     66hdivb        |                | XYZ  | T |                 |                                       |                                   
     67sshb         |                | XY   | T |                 |                                       |                                   
     68un           |                | XYZ  | U |                 |                                       |                                   
     69vn           |                | XYZ  | V |                 |                                       |                                   
     70tn           |                | XYZ  | T |                 |                                       |                                   
     71sn           |                | XYZ  | T |                 |                                       |                                   
     72rotn         |                | XYZ  | T |                 |                                       |                                   
     73hdivn        |                | XYZ  | T |                 |                                       |                                   
     74sshn         |                | XYT  | T |                 |                                       |                                   
     75rhop         |                | XYZ  | T |                 |                                       |                                   
     76dic          |                | XYZT | T |                 | Dissolved Inorganic Carbon            | mole_concentration_of_dissolved_inorganic_caron_in_sea_water 
     77alkalini     |                | XYZT | T |                 | Total Alkalinity                      | sea_water_alkalinity_expressed_as_mole_equivalent 
     78o2           |                | XYZT | T |                 | Dissolved Oxygen                      | mole_concentration_of_dissolved_molecular_oxygen_in_sea_water 
     79caco3        |                | XYZT | T |                 | Calcite                               |                                   
     80po4          |                | XYZT | T |                 | Phosphate                             | mole_concentration_of_phosphate_in_sea_water 
     81poc          |                | XYZT | T |                 | Small Particulate Organic Carbon      |                                   
     82si           |                | XYZT | T |                 | Dissolved Silicate                    | mole_concentration_of_silicate_in_sea_water 
     83phy          |                | XYZT | T |                 | Nanophytoplankton                     |                                   
     84zoo          |                | XYZT | T |                 | Microzooplankton                      | mole_concentration_of_microzooplankton_expressed_as_carbon_in_sea_water 
     85doc          |                | XYZT | T |                 | Dissolved Organic Carbon              |                                   
     86phy2         |                | XYZT | T |                 | Diatoms                               |                                   
     87zoo2         |                | XYZT | T |                 | Mesozooplankton                       | mole_concentration_of_mesozooplankton_expressed_as_carbon_in_sea_water 
     88gsi          |                | XYZT | T |                 | Sinking biogenic Silica               |                                   
     89fer          |                | XYZT | T |                 | Dissolved Iron                        | mole_concentration_of_dissolved_iron_in_sea_water 
     90bfe          |                | XYZT | T |                 | Iron in the big particles             |                                   
     91goc          |                | XYZT | T |                 | Big Particulate Organic Carbon        |                                   
     92sfe          |                | XYZT | T |                 | Iron in the small particles           |                                   
     93dfe          |                | XYZT | T |                 | Iron content of the Diatoms           |                                   
     94dsi          |                | XYZT | T |                 | Silicon content of the Diatoms        |                                   
     95nfe          |                | XYZT | T |                 | Iron content of the Nanophytoplankton |                                   
     96nchl         |                | XYZT | T |                 | Chlorophyll of the Nanophytoplankton  |                                   
     97dchl         |                | XYZT | T |                 | Chlorophyll of the Diatoms            |                                   
     98no3          |                | XYZT | T |                 | Nitrate                               | mole_concentration_of_nitrate_in_sea_water 
     99nh4          |                | XYZT | T |                 | Ammonium                              | mole_concentration_of_ammonium_in_sea_water 
     100ppd          |                | XYZT | T |                 |                                       |                                   
     101ppn          |                | XYZT | T |                 |                                       |                                   
     102ph           |                | XYZT | T |                 |                                       |                                   
     103cflx         |                | XYZT | T |                 |                                       |                                   
     104oflx         |                | XYZT | T |                 |                                       |                                   
     105kg           |                | XYZT | T |                 |                                       |                                   
     106dpco2        |                | XYZT | T |                 |                                       |                                   
     107heup         |                | XYZT | T |                 |                                       |                                   
     108kz           |                | XYZT | T |                 |                                       |                                   
     109irondep      |                | XYZT | T |                 |                                       |                                   
     110kt_ice       |                |      |   |                 |                                       |                                   
     111hicif        |                |      |   |                 |                                       |                                   
     112hsnif        |                |      |   |                 |                                       |                                   
     113frld         |                |      |   |                 |                                       |                                   
     114sist         |                |      |   |                 |                                       |                                   
     115tbif1        |                |      |   |                 |                                       |                                   
     116tbif2        |                |      |   |                 |                                       |                                   
     117tbif3        |                |      |   |                 |                                       |                                   
     118ui_ice       |                |      |   |                 |                                       |                                   
     119vi_ice       |                |      |   |                 |                                       |                                   
     120qstoif       |                |      |   |                 |                                       |                                   
     121fsbbq        |                |      |   |                 |                                       |                                   
     122stress1_i    |                |      |   |                 |                                       |                                   
     123stress2_i    |                |      |   |                 |                                       |                                   
     124stress12_i   |                |      |   |                 |                                       |                                   
     125sxice        |                |      |   |                 |                                       |                                   
     126syice        |                |      |   |                 |                                       |                                   
     127sxxice       |                |      |   |                 |                                       |                                   
     128syyice       |                |      |   |                 |                                       |                                   
     129sxyice       |                |      |   |                 |                                       |                                   
     130sxsn         |                |      |   |                 |                                       |                                   
     131sysn         |                |      |   |                 |                                       |                                   
     132sxxsn        |                |      |   |                 |                                       |                                   
     133syysn        |                |      |   |                 |                                       |                                   
     134sxysn        |                |      |   |                 |                                       |                                   
     135sxa          |                |      |   |                 |                                       |                                   
     136sya          |                |      |   |                 |                                       |                                   
     137sxxa         |                |      |   |                 |                                       |                                   
     138syya         |                |      |   |                 |                                       |                                   
     139sxya         |                |      |   |                 |                                       |                                   
     140sxc0         |                |      |   |                 |                                       |                                   
     141syc0         |                |      |   |                 |                                       |                                   
     142sxxc0        |                |      |   |                 |                                       |                                   
     143syyc0        |                |      |   |                 |                                       |                                   
     144sxyc0        |                |      |   |                 |                                       |                                   
     145sxc1         |                |      |   |                 |                                       |                                   
     146syc1         |                |      |   |                 |                                       |                                   
     147sxxc1        |                |      |   |                 |                                       |                                   
     148syyc1        |                |      |   |                 |                                       |                                   
     149sxyc1        |                |      |   |                 |                                       |                                   
     150sxc2         |                |      |   |                 |                                       |                                   
     151syc2         |                |      |   |                 |                                       |                                   
     152sxxc2        |                |      |   |                 |                                       |                                   
     153syyc2        |                |      |   |                 |                                       |                                   
     154sxyc2        |                |      |   |                 |                                       |                                   
     155sxst         |                |      |   |                 |                                       |                                   
     156syst         |                |      |   |                 |                                       |                                   
     157sxxst        |                |      |   |                 |                                       |                                   
     158syyst        |                |      |   |                 |                                       |                                   
     159sxyst        |                |      |   |                 |                                       |                                   
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/attribute.f90

    r5608 r5616  
    370370   !> 
    371371   !> @author J.Paul 
    372    !> @dtae November, 2013 - Initial Version 
     372   !> @date November, 2013 - Initial Version 
    373373   ! 
    374374   !> @param[in] cd_name   attribute name 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/create_bathy.f90

    r5608 r5616  
    641641   !> 
    642642   !> @author J.Paul 
    643    !> - November, 2013- Initial Version 
     643   !> @date November, 2013 - Initial Version 
    644644   !> 
    645645   !> @param[in] td_var    variable structure  
     
    777777   !>  
    778778   !> @author J.Paul 
    779    !> - November, 2013- Initial Version 
     779   !> @date November, 2013 - Initial Version 
    780780   !> 
    781781   !> @param[in] td_var    variable structure  
     
    896896   !>  
    897897   !> @author J.Paul 
    898    !> - November, 2013- Initial Version 
     898   !> @date November, 2013 - Initial Version 
    899899   !> 
    900900   !> @param[in] td_var    variable structure 
     
    10071007   !>  
    10081008   !> @author J.Paul 
    1009    !> - November, 2013- Initial Version 
     1009   !> @date November, 2013 - Initial Version 
    10101010   !> 
    10111011   !> @param[inout] td_var variable structure  
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/create_boundary.f90

    r5608 r5616  
    11701170   !>  
    11711171   !> @author J.Paul 
    1172    !> @date November, 2013- Initial Version 
     1172   !> @date November, 2013 - Initial Version 
    11731173   !> @date September, 2014 
    11741174   !> - take into account grid point to compute boundary indices 
     
    12771277   !>  
    12781278   !> @author J.Paul 
    1279    !> @date November, 2013- Initial Version 
     1279   !> @date November, 2013 - Initial Version 
    12801280   !> @date September, 2014  
    12811281   !> - take into account grid point 
     
    13311331   !> 
    13321332   !> @author J.Paul 
    1333    !> - Nov, 2013- Initial Version 
     1333   !> @date November, 2013 - Initial Version 
    13341334   !> 
    13351335   !> @param[inout] td_var variable structure  
     
    14071407   !> 
    14081408   !> @author J.Paul 
    1409    !> - November, 2013- Initial Version 
     1409   !> @date November, 2013 - Initial Version 
    14101410   !> 
    14111411   !> @param[in] td_var    variable structure  
     
    15121512   !> 
    15131513   !> @author J.Paul 
    1514    !> - November, 2013- Initial Version 
     1514   !> @date November, 2013 - Initial Version 
    15151515   !> 
    15161516   !> @param[inout] td_var variable structure  
     
    15651565   !> 
    15661566   !> @author J.Paul 
    1567    !> - November, 2013- Initial Version 
     1567   !> @date November, 2013 - Initial Version 
    15681568   !> 
    15691569   !> @param[in] td_level  array of level variable structure 
     
    16271627   !> 
    16281628   !> @author J.Paul 
    1629    !> - November, 2014- Initial Version 
     1629   !> @date November, 2014 - Initial Version 
    16301630   !> 
    16311631   !> @param[in] td_mpp       mpp structure 
     
    16781678   !> 
    16791679   !> @author J.Paul 
    1680    !> - November, 2014- Initial Version 
     1680   !> @date November, 2014 - Initial Version 
    16811681   !> 
    16821682   !> @param[in] td_mpp      mpp structure 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/create_restart.f90

    r5608 r5616  
    882882   !> 
    883883   !> @author J.Paul 
    884    !> @date November, 2013- Initial Version 
     884   !> @date November, 2013 - Initial Version 
    885885   !> @date June, 2015 
    886886   !> - do not use level anymore  
     
    10071007   !>  
    10081008   !> @author J.Paul 
    1009    !> - November, 2013- Initial Version 
     1009   !> @date November, 2013 - Initial Version 
    10101010   !> 
    10111011   !> @param[inout] td_var variable structure 
     
    10691069   !>  
    10701070   !> @author J.Paul 
    1071    !> @date November, 2013- Initial Version 
     1071   !> @date November, 2013 - Initial Version 
    10721072   !> @date June, 2015 
    10731073   !> - do not use level anymore (for extrapolation) 
     
    11401140   !> 
    11411141   !> @author J.Paul 
    1142    !> - November, 2014- Initial Version 
     1142   !> @date November, 2014 - Initial Version 
    11431143   !> 
    11441144   !> @param[in] td_mpp       mpp structure 
     
    11911191   !> 
    11921192   !> @author J.Paul 
    1193    !> - November, 2014- Initial Version 
     1193   !> @date November, 2014 - Initial Version 
    11941194   !> 
    11951195   !> @param[in] td_mpp      mpp structure 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/dimension.f90

    r5608 r5616  
    11841184   ! 
    11851185   !> @author J.Paul 
    1186    !> @date Nov, 2013 - Initial Version 
     1186   !> @date November, 2013 - Initial Version 
    11871187   ! 
    11881188   !> @param[in] td_dim array of dimension structure 
     
    13171317   ! 
    13181318   !> @author J.Paul 
    1319    !> @date Nov, 2013 - Initial Version 
     1319   !> @date November, 2013 - Initial Version 
    13201320   ! 
    13211321   !> @param[in] td_dim array of dimension structure 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/docsrc/1_install.md

    r5608 r5616  
    1313# Fortran Compiler 
    1414   SIREN codes were succesfully tested with : 
    15    - ifort (version 12.0.4) 
    16 <!--   - gfortran (version 4.7.2 20121109) --> 
     15   - ifort (version 15.0.1) 
     16   - gfortran (version 4.8.2 20140120)  
    1717<!--   - pgf95 (version 13.9-0) --> 
    1818 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/domain.f90

    r5608 r5616  
    246246   ! 
    247247   !> @author J.Paul 
    248    !> - Nov, 2013- Initial Version 
     248   !> @date November, 2013 - Initial Version 
    249249   ! 
    250250   !> @param[inout] td_dom dom structure 
     
    294294   ! 
    295295   !> @author J.Paul 
    296    !> @date June, 2013- Initial Version 
     296   !> @date June, 2013 - Initial Version 
    297297   !> @date September, 2014 
    298298   !> - add boundary index 
     
    425425   ! 
    426426   !> @author J.Paul 
    427    !> @date June, 2013- Initial Version 
     427   !> @date June, 2013 - Initial Version 
    428428   !> @date September, 2014 
    429429   !> - add boundary index 
     
    550550   !> 
    551551   !> @author J.Paul 
    552    !> - November, 2013- Subroutine written 
     552   !> @date November, 2013 - Initial version 
    553553   ! 
    554554   !> @param[inout] td_dom domain structure 
     
    723723   !> 
    724724   !> @author J.Paul 
    725    !> - November, 2013- Subroutine written 
     725   !> @date November, 2013 - Initial verison 
    726726   ! 
    727727   !> @param[inout] td_dom domain strcuture 
     
    757757   !> 
    758758   !> @author J.Paul 
    759    !> - November, 2013- Subroutine written 
     759   !> @date November, 2013 - Initial version 
    760760   ! 
    761761   !> @param[inout] td_dom domain strcuture 
     
    776776   !> 
    777777   !> @author J.Paul 
    778    !> - November, 2013- Subroutine written 
     778   !> @date November, 2013 - Initial version 
    779779   ! 
    780780   !> @param[inout] td_dom domain strcuture 
     
    808808   !> 
    809809   !> @author J.Paul 
    810    !> - November, 2013- Subroutine written 
     810   !> @date November, 2013 - Initial version 
    811811   ! 
    812812   !> @param[inout] td_dom domain strcuture 
     
    826826   !> 
    827827   !> @author J.Paul 
    828    !> - November, 2013- Subroutine written 
     828   !> @date November, 2013 - Initial version 
    829829   ! 
    830830   !> @param[inout] td_dom domain strcuture 
     
    864864   !> 
    865865   !> @author J.Paul 
    866    !> - November, 2013- Subroutine written 
     866   !> @date November, 2013 - Initial version 
    867867   ! 
    868868   !> @param[inout] td_dom domain strcuture 
     
    914914   !> 
    915915   !> @author J.Paul 
    916    !> - November, 2013- Subroutine written 
     916   !> @date November, 2013 - Initial version 
    917917   ! 
    918918   !> @param[inout] td_dom domain strcuture 
     
    953953   !> 
    954954   !> @author J.Paul 
    955    !> - April, 2013- Subroutine written 
     955   !> @date April, 2013 - Initial version 
    956956   ! 
    957957   !> @param[inout] td_dom domain strcuture 
     
    981981   !> 
    982982   !> @author J.Paul 
    983    !> - November, 2013- Subroutine written 
     983   !> @date November, 2013 - Initial version 
    984984   ! 
    985985   !> @param[inout] td_dom domain strcuture 
     
    10431043   !> 
    10441044   !> @author J.Paul 
    1045    !> - November, 2013- Subroutine written 
     1045   !> @date November, 2013 - Initial version 
    10461046   ! 
    10471047   !> @param[inout] td_dom domain strcuture 
     
    10841084   !> 
    10851085   !> @author J.Paul 
    1086    !> - November, 2013- Subroutine written 
     1086   !> @date November, 2013 - Initial version 
    10871087   ! 
    10881088   !> @param[inout] td_dom domain strcuture 
     
    11821182   !> 
    11831183   !> @author J.Paul 
    1184    !> - November, 2013- Subroutine written 
     1184   !> @date November, 2013 - Initial version 
    11851185   ! 
    11861186   !> @param[inout] td_dom domain strcuture 
     
    12941294   !> 
    12951295   !> @author J.Paul 
    1296    !> @date November, 2013 
     1296   !> @date November, 2013 - Initial version 
    12971297   !> @date September, 2014 
    12981298   !> - take into account number of ghost cell 
     
    14351435   ! 
    14361436   !> @author J.Paul 
    1437    !> @date November, 2013 
     1437   !> @date November, 2013 - Initial version 
    14381438   ! 
    14391439   !> @param[inout] td_dom domain strcuture 
     
    14781478   !>  
    14791479   !> @author J.Paul 
    1480    !> @date November, 2013 
     1480   !> @date November, 2013 - Initial version 
    14811481   !> @date September, 2014 
    14821482   !> - take into account boundary for one point size domain 
     
    17171717   ! 
    17181718   !> @author J.Paul 
    1719    !> @date November, 2013 
     1719   !> @date November, 2013 - Initial version 
    17201720   ! 
    17211721   !> @param[inout] td_dom domain strcuture 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/extrap.f90

    r5608 r5616  
    400400   !> @date July, 2015  
    401401   !> - compute coef indices to be used 
     402   !> - bug fix: force coef indice to 1, for dimension lenth equal to 1 
    402403   ! 
    403404   !> @param[inout] dd_value  3D array of variable to be extrapolated 
     
    527528                              ! coef indices to be used 
    528529                              il_i1 = 1 
    529                               il_i2 = 2 
     530                              il_i2 = 1 
    530531                           ENDIF 
    531532 
     
    541542                              ! coef indices to be used 
    542543                              il_j1 = 1 
    543                               il_j2 = 2 
     544                              il_j2 = 1 
    544545                           ENDIF 
    545546 
     
    554555                              ! coef indices to be used 
    555556                              il_k1 = 1 
    556                               il_k2 = 2 
     557                              il_k2 = 1 
    557558                           ENDIF 
    558559 
     
    601602                              ! coef indices to be used 
    602603                              il_i1 = 1 
    603                               il_i2 = 2 
     604                              il_i2 = 1 
    604605                           ENDIF 
    605606 
     
    615616                              ! coef indices to be used 
    616617                              il_j1 = 1 
    617                               il_j2 = 2 
     618                              il_j2 = 1 
    618619                           ENDIF 
    619620 
     
    628629                              ! coef indices to be used 
    629630                              il_k1 = 1 
    630                               il_k2 = 2 
     631                              il_k2 = 1 
    631632                           ENDIF 
    632633 
     
    713714                              ! coef indices to be used 
    714715                              il_i1 = 1 
    715                               il_i2 = 2 
     716                              il_i2 = 1 
    716717                           ENDIF 
    717718 
     
    726727                              ! coef indices to be used 
    727728                              il_j1 = 1 
    728                               il_j2 = 2 
     729                              il_j2 = 1 
    729730                           ENDIF 
    730731 
     
    739740                              ! coef indices to be used 
    740741                              il_k1 = 1 
    741                               il_k2 = 2 
     742                              il_k2 = 1 
    742743                           ENDIF 
    743744 
     
    778779                              ! coef indices to be used 
    779780                              il_i1 = 1 
    780                               il_i2 = 2 
     781                              il_i2 = 1 
    781782                           ENDIF 
    782783 
     
    791792                              ! coef indices to be used 
    792793                              il_j1 = 1 
    793                               il_j2 = 2 
     794                              il_j2 = 1 
    794795                           ENDIF 
    795796 
     
    804805                              ! coef indices to be used 
    805806                              il_k1 = 1 
    806                               il_k2 = 2 
     807                              il_k2 = 1 
    807808                           ENDIF 
    808809 
     
    923924   !>  
    924925   !> @author J.Paul 
    925    !> - November, 2013- Initial Version 
     926   !> @date November, 2013 - Initial Version 
    926927   !> 
    927928   !> @param[in] dd_value  3D array of variable to be extrapolated 
     
    10891090   !> 
    10901091   !> @author J.Paul 
    1091    !> - November, 2013 - Initial Version 
     1092   !> @date November, 2013 - Initial Version 
    10921093   ! 
    10931094   !> @param[in] dd_value  3D array of variable to be extrapolated 
     
    11721173   !> 
    11731174   !> @author J.Paul 
    1174    !> - November, 2013-Initial version 
     1175   !> @date November, 2013 - Initial version 
    11751176   ! 
    11761177   !> @param[inout] td_var variable  
     
    12741275   !> 
    12751276   !> @author J.Paul 
    1276    !> - November, 2013 - Initial version 
     1277   !> @date November, 2013 - Initial version 
    12771278   !> 
    12781279   !> @param[inout] td_var variable  
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/file.f90

    r5608 r5616  
    449449   ! 
    450450   !> @author J.Paul 
    451    !> - November, 2013- Initial Version 
     451   !> @date November, 2013 - Initial Version 
    452452   ! 
    453453   !> @param[in] cd_file   file name 
     
    554554   ! 
    555555   !> @author J.Paul 
    556    !> - November, 2013- Initial Version 
     556   !> @date November, 2013 - Initial Version 
    557557   ! 
    558558   !> @param[in] cd_file   file name 
     
    590590   ! 
    591591   !> @author J.Paul 
    592    !> - November, 2013- Initial Version 
     592   !> @date November, 2013 - Initial Version 
    593593   ! 
    594594   !> @param[in] td_file   file structure 
     
    969969   !> 
    970970   !> @author J.Paul 
    971    !> - November, 2013- Initial Version 
     971   !> @date November, 2013 - Initial Version 
    972972   !> 
    973973   !> @param[inout] td_file   file structure 
     
    11121112   ! 
    11131113   !> @author J.Paul 
    1114    !> - November, 2013- Initial Version 
     1114   !> @date November, 2013 - Initial Version 
    11151115   ! 
    11161116   !> @param[inout] td_file   file structure 
     
    11471147   ! 
    11481148   !> @author J.Paul 
    1149    !> - November, 2013- Initial Version 
     1149   !> @date November, 2013 - Initial Version 
    11501150   ! 
    11511151   !> @param[inout] td_file   file structure 
     
    13261326   ! 
    13271327   !> @author J.Paul 
    1328    !> - November, 2013- Initial Version 
     1328   !> @date November, 2013 - Initial Version 
    13291329   ! 
    13301330   !> @param[inout] td_file   file structure 
     
    14241424   ! 
    14251425   !> @author J.Paul 
    1426    !> - November, 2013- Initial Version 
     1426   !> @date November, 2013 - Initial Version 
    14271427   ! 
    14281428   !> @param[inout] td_file   file structure 
     
    15501550   !> 
    15511551   !> @author J.Paul 
    1552    !> - November, 2013- Initial Version 
     1552   !> @date November, 2013 - Initial Version 
    15531553   ! 
    15541554   !> @param[inout] td_file   file structure 
     
    16301630   ! 
    16311631   !> @author J.Paul 
    1632    !> - November, 2013- Initial Version 
     1632   !> @date November, 2013 - Initial Version 
    16331633   ! 
    16341634   !> @param[inout] td_file   file structure 
     
    16731673   ! 
    16741674   !> @author J.Paul 
    1675    !> - November, 2013- Initial Version 
     1675   !> @date November, 2013 - Initial Version 
    16761676   ! 
    16771677   !> @param[in] td_file   file structure 
     
    17511751   ! 
    17521752   !> @author J.Paul 
    1753    !> - November, 2013- Initial Version 
     1753   !> @date November, 2013 - Initial Version 
    17541754   ! 
    17551755   !> @param[in] cd_file   file structure 
     
    18481848   ! 
    18491849   !> @author J.Paul 
    1850    !> - November, 2013- Initial Version 
     1850   !> @date November, 2013 - Initial Version 
    18511851   ! 
    18521852   !> @param[in] td_file   file structure 
     
    19111911   ! 
    19121912   !> @author J.Paul 
    1913    !> - November, 2013- Initial Version 
     1913   !> @date November, 2013 - Initial Version 
    19141914   ! 
    19151915   !> @param[in] td_file   file structure 
     
    19381938   ! 
    19391939   !> @author J.Paul 
    1940    !> - November, 2013- Initial Version 
     1940   !> @date November, 2013 - Initial Version 
    19411941   ! 
    19421942   !> @param[in] td_file   file structure 
     
    20512051   ! 
    20522052   !> @author J.Paul 
    2053    !> - November, 2013- Initial Version 
     2053   !> @date November, 2013 - Initial Version 
    20542054   ! 
    20552055   !> @param[in] td_file   array of file structure 
     
    20892089   !>  
    20902090   !> @author J.Paul 
    2091    !> - September, 2014- Initial Version 
     2091   !> @date September, 2014 - Initial Version 
    20922092   ! 
    20932093   !> @param[in] td_file   array of file  
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/grid.f90

    r5608 r5616  
    355355   !> @note need all processor files to be there 
    356356   !> @author J.Paul 
    357    !> - October, 2014- Initial Version 
     357   !> @date October, 2014 - Initial Version 
    358358   !> 
    359359   !> @param[inout] td_file file structure  
     
    471471   !> @note need all processor files 
    472472   !> @author J.Paul 
    473    !> - October, 2014- Initial Version 
     473   !> @date October, 2014 - Initial Version 
    474474   !> 
    475475   !> @param[in] td_mpp mpp structure  
     
    717717   !>  
    718718   !> @author J.Paul 
    719    !> - October, 2014 - Initial version 
     719   !> @date October, 2014 - Initial version 
    720720   ! 
    721721   !> @param[in] dd_value array of value 
     
    810810   !>  
    811811   !> @author J.Paul 
    812    !> - October, 2014 - Initial version 
     812   !> @date October, 2014 - Initial version 
    813813   ! 
    814814   !> @param[in] dd_value array of value 
     
    903903   !>  
    904904   !> @author J.Paul 
    905    !> - October, 2014 - Initial version 
     905   !> @date October, 2014 - Initial version 
    906906   ! 
    907907   !> @param[in] dd_value array of value 
     
    996996   !>  
    997997   !> @author J.Paul 
    998    !> - October, 2014 - Initial version 
     998   !> @date October, 2014 - Initial version 
    999999   ! 
    10001000   !> @param[in] dd_value array of value 
     
    10921092   !> 
    10931093   !> @author J.Paul 
    1094    !> - Ocotber, 2014- Initial version 
     1094   !> @date Ocotber, 2014 - Initial version 
    10951095   ! 
    10961096   !> @param[in] td_file file structure 
     
    11811181   !> 
    11821182   !> @author J.Paul 
    1183    !> - October, 2014 - Initial version 
     1183   !> @date October, 2014 - Initial version 
    11841184   ! 
    11851185   !> @param[in] td_mpp   mpp file structure 
     
    14611461   !> 
    14621462   !> @author J.Paul 
    1463    !> - October, 2014 - Initial version 
     1463   !> @date October, 2014 - Initial version 
    14641464   !> 
    14651465   !> @param[in] td_file   file structure 
     
    15541554   !> 
    15551555   !> @author J.Paul 
    1556    !> - October, 2014 - Initial version 
     1556   !> @date October, 2014 - Initial version 
    15571557   ! 
    15581558   !> @param[in] td_mpp   mpp file structure 
     
    17551755   !> 
    17561756   !> @author J.Paul 
    1757    !> - October, 2014- Initial Version 
     1757   !> @date October, 2014 - Initial Version 
    17581758   !> 
    17591759   !> @param[in] td_file file structure  
     
    18621862   !> 
    18631863   !> @author J.Paul 
    1864    !> - November, 2013- Initial Version 
     1864   !> @date November, 2013 - Initial Version 
    18651865   !> 
    18661866   !> @param[in] td_lat latitude variable structure  
     
    28842884   ! 
    28852885   !> @author J.Paul 
    2886    !> - November, 2013- Initial Version 
     2886   !> @date November, 2013 - Initial Version 
    28872887   ! 
    28882888   !> @param[in] td_lon longitude structure  
     
    31623162   ! 
    31633163   !> @author J.Paul 
    3164    !> - November, 2013- Initial Version 
     3164   !> @date November, 2013 - Initial Version 
    31653165   ! 
    31663166   !> @param[in] dd_lon    grid longitude array 
     
    43024302   !>  
    43034303   !> @author J.Paul 
    4304    !> - November, 2013- Initial Version 
     4304   !> @date November, 2013 - Initial Version 
    43054305   ! 
    43064306   !> @param[in] dd_lon0   array of coarse grid longitude 
     
    44614461   ! 
    44624462   !> @author J.Paul 
    4463    !> - November, 2013- Initial Version 
     4463   !> @date November, 2013 - Initial Version 
    44644464   ! 
    44654465   !> @param[in] dd_lat0   array of coarse grid latitude  
     
    45314531   !>  
    45324532   !> @author J.Paul 
    4533    !> - November, 2013-Initial version 
     4533   !> @date November, 2013 - Initial version 
    45344534   ! 
    45354535   !> @param[inout] td_var array of variable structure  
     
    46074607   !>  
    46084608   !> @author J.Paul 
    4609    !> - November, 2013-Initial version 
     4609   !> @date November, 2013 - Initial version 
    46104610   ! 
    46114611   !> @param[inout] td_var array of variable structure  
     
    46864686   !> 
    46874687   !> @author J.Paul 
    4688    !> - September, 2014- Initial Version 
     4688   !> @date September, 2014 - Initial Version 
    46894689   ! 
    46904690   !> @param[in] td_var variable sturcture  
     
    48894889   !> 
    48904890   !> @author J.Paul 
    4891    !> - November, 2013- Initial Version 
     4891   !> @date November, 2013 - Initial Version 
    48924892   ! 
    48934893   !> @param[in] td_var    variable strucutre  
     
    49884988   !> 
    49894989   !> @author J.Paul 
    4990    !> - November, 2013- Initial Version 
     4990   !> @date November, 2013 - Initial Version 
    49914991   !> 
    49924992   !> @param[inout] td_var    variable structure 
     
    50545054   !> 
    50555055   !> @author J.Paul 
    5056    !> - Ferbruay, 2015- Initial Version 
     5056   !> @date Ferbruay, 2015 - Initial Version 
    50575057   !> 
    50585058   !> @param[inout] id_mask      domain mask (from grid_split_domain) 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/interp.f90

    r5608 r5616  
    137137   !> 
    138138   !> @author J.Paul 
    139    !> - November, 2013- Initial Version 
     139   !> @date November, 2013 - Initial Version 
    140140   ! 
    141141   !> @param[in] cd_method interpolation method 
     
    179179   !> 
    180180   !> @author J.Paul 
    181    !> - November, 2013- Initial Version 
     181   !> @date November, 2013 - Initial Version 
    182182   !> 
    183183   !> @param[in] td_mix mixed grid variable (to interpolate) 
     
    244244   !> 
    245245   !> @author J.Paul 
    246    !> - November, 2013- Initial Version 
     246   !> @date November, 2013 - Initial Version 
    247247   ! 
    248248   !> @param[in] td_mix mixed grid variable (to interpolate) 
     
    363363   !> 
    364364   !> @author J.Paul 
    365    !> - November, 2013- Initial Version 
     365   !> @date November, 2013 - Initial Version 
    366366   !> 
    367367   !> @param[in] td_var    coarse grid variable (should be extrapolated) 
     
    449449   !> 
    450450   !> @author J.Paul 
    451    !> - November, 2013- Initial Version 
     451   !> @date November, 2013 - Initial Version 
    452452   !> 
    453453   !> @param[inout] td_mix mixed grid variable 
     
    610610   !> 
    611611   !> @author J.Paul 
    612    !> - November, 2013- Initial Version 
     612   !> @date November, 2013 - Initial Version 
    613613   !> @date September, 2014 
    614614   !> - use offset to save useful domain 
     
    716716   !> 
    717717   !> @author J.Paul 
    718    !> - November, 2013- Initial Version 
     718   !> @date November, 2013 - Initial Version 
    719719   !> 
    720720   !> @param[inout] td_var variable structure 
     
    828828   !>  
    829829   !> @author J.Paul 
    830    !> - November, 2013- Initial Version 
     830   !> @date November, 2013 - Initial Version 
    831831   !> @date September, 2014 
    832832   !> - use interpolation method modules 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/interp_linear.f90

    r5608 r5616  
    2424!> J.Paul 
    2525! REVISION HISTORY: 
    26 !> @date September, 2014 -Initial version 
     26!> @date September, 2014 - Initial version 
    2727!> 
    2828!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     
    6363   !> 
    6464   !> @author J.Paul 
    65    !> - September, 2014- Initial Version 
     65   !> @date September, 2014 - Initial Version 
    6666   !> @date July, 2015 - reinitialise detect array for each level 
    6767   !> 
     
    170170   !> 
    171171   !> @author J.Paul 
    172    !> - September, 2014- Initial Version 
     172   !> @date September, 2014 - Initial Version 
    173173   !> 
    174174   !> @param[inout] dd_value  2D array of variable value  
     
    305305   !> 
    306306   !> @author J.Paul 
    307    !> - September, 2014- Initial Version 
     307   !> @date September, 2014 - Initial Version 
    308308   !> 
    309309   !> @param[inout] dd_value  1D array of variable value  
     
    417417   !>  
    418418   !> @author J.Paul 
    419    !> - September, 2014- Initial Version 
     419   !> @date September, 2014 - Initial Version 
    420420   !> 
    421421   !> @param[in] dd_value  2D array of value 
     
    454454   !>  
    455455   !> @author J.Paul 
    456    !> - September, 2014- Initial Version 
     456   !> @date September, 2014 - Initial Version 
    457457   !> 
    458458   !> @param[inout] dd_value  2D array of mixed grid value 
     
    514514   !>  
    515515   !> @author J.Paul 
    516    !> - September, 2014- Initial Version 
     516   !> @date September, 2014 - Initial Version 
    517517   !> 
    518518   !> @param[in] dd_value  1D array of value 
     
    549549   !>  
    550550   !> @author J.Paul 
    551    !> - September, 2014- Initial Version 
     551   !> @date September, 2014 - Initial Version 
    552552   !>  
    553553   !> @param[inout] dd_value  1D array of mixed grid value 
     
    600600   !>  
    601601   !> @author J.Paul 
    602    !> - September, 2014- Initial Version 
     602   !> @date September, 2014 - Initial Version 
    603603   !> 
    604604   !> @param[in] dd_weight interpolation weight of 2D array 
     
    669669   !>  
    670670   !> @author J.Paul 
    671    !> - September, 2014- Initial Version 
     671   !> @date September, 2014 - Initial Version 
    672672   !> 
    673673   !> @param[in] dd_weight interpolation weight of 1D array 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/interp_nearest.f90

    r5608 r5616  
    2424!> J.Paul 
    2525! REVISION HISTORY: 
    26 !> @date September, 2014 -Initial version 
     26!> @date September, 2014 - Initial version 
    2727!> 
    2828!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     
    5555   !>  
    5656   !> @author J.Paul 
    57    !> - September, 2014- Initial Version 
     57   !> @date September, 2014 - Initial Version 
    5858   !> 
    5959   !> @param[inout] dd_value  2D array of variable value  
     
    123123   !>  
    124124   !> @author J.Paul 
    125    !> - September, 2014- Initial Version 
     125   !> @date September, 2014 - Initial Version 
    126126   !> 
    127127   !> @param[inout] dd_value  2D array of variable value  
     
    178178   !>  
    179179   !> @author J.Paul 
    180    !> - September, 2014- Initial Version 
     180   !> @date September, 2014 - Initial Version 
    181181   !> 
    182182   !> @param[inout] dd_value  1D array of variable value  
     
    223223   !>  
    224224   !> @author J.Paul 
    225    !> - September, 2014- Initial Version 
     225   !> @date September, 2014 - Initial Version 
    226226   !> 
    227227   !> @param[inout] dd_value  2D array of mixed grid value 
     
    307307   !>  
    308308   !> @author J.Paul 
    309    !> - September, 2014- Initial Version 
     309   !> @date September, 2014 - Initial Version 
    310310   !> 
    311311   !> @param[inout] dd_value  1D array of mixed grid value 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom.f90

    r5608 r5616  
    156156   !> 
    157157   !> @author J.Paul 
    158    !> - November, 2013- Initial Version 
     158   !> @date November, 2013 - Initial Version 
    159159   ! 
    160160   !> @param[inout] td_file file structure 
     
    186186   !>  
    187187   !> @author J.Paul 
    188    !> - November, 2013- Initial Version 
     188   !> @date November, 2013 - Initial Version 
    189189   ! 
    190190   !> @param[inout] td_file file structure 
     
    223223   !> 
    224224   !> @author J.Paul 
    225    !> - November, 2013- Initial Version 
     225   !> @date November, 2013 - Initial Version 
    226226   ! 
    227227   !> @param[inout] td_file file structure 
     
    252252   ! 
    253253   !> @author J.Paul 
    254    !> - November, 2013- Initial Version 
     254   !> @date November, 2013 - Initial Version 
    255255   ! 
    256256   !> @param[in] td_file      file structure 
     
    300300   !> 
    301301   !> @author J.Paul 
    302    !> - November, 2013- Initial Version 
     302   !> @date November, 2013 - Initial Version 
    303303   ! 
    304304   !> @param[in] td_file   file structure 
     
    338338   ! 
    339339   !> @author J.Paul 
    340    !> - November, 2013- Initial Version 
     340   !> @date November, 2013 - Initial Version 
    341341   ! 
    342342   !> @param[in] td_file      file structure 
     
    386386   ! 
    387387   !> @author J.Paul 
    388    !> - November, 2013- Initial Version 
     388   !> @date November, 2013 - Initial Version 
    389389   ! 
    390390   !> @param[in] td_file      file structure 
     
    422422   ! 
    423423   !> @author J.Paul 
    424    !> - November, 2013- Initial Version 
     424   !> @date November, 2013 - Initial Version 
    425425   ! 
    426426   !> @param[in] td_file   file structure 
     
    452452   ! 
    453453   !> @author J.Paul 
    454    !> - November, 2013- Initial Version 
     454   !> @date November, 2013 - Initial Version 
    455455   ! 
    456456   !> @param[in] td_file   file structure 
     
    485485   ! 
    486486   !> @author J.Paul 
    487    !> - November, 2013- Initial Version 
     487   !> @date November, 2013 - Initial Version 
    488488   ! 
    489489   !> @param[in] td_file   file structure 
     
    529529   ! 
    530530   !> @author J.Paul 
    531    !> - November, 2013- Initial Version 
     531   !> @date November, 2013 - Initial Version 
    532532   ! 
    533533   !> @param[in] td_file   file structure 
     
    569569   !> 
    570570   !> @author J.Paul 
    571    !> - November, 2013- Initial Version 
     571   !> @date November, 2013 - Initial Version 
    572572   !> @date July, 2015 - add dimension order option 
    573573   ! 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_cdf.f90

    r5608 r5616  
    144144   !> 
    145145   !> @author J.Paul 
    146    !> - November, 2013- Initial Version 
     146   !> @date November, 2013 - Initial Version 
    147147   !> @date May, 2015 - add optional message to netcdf error message 
    148148   !> 
     
    181181   !> 
    182182   !> @author J.Paul 
    183    !> - November, 2013- Initial Version 
     183   !> @date November, 2013 - Initial Version 
    184184   ! 
    185185   !> @param[inout] td_file   file structure 
     
    277277   !> 
    278278   !> @author J.Paul 
    279    !> - November, 2013- Initial Version 
     279   !> @date November, 2013 - Initial Version 
    280280   ! 
    281281   !> @param[inout] td_file   file structure 
     
    317317   !> 
    318318   !> @author J.Paul 
    319    !> - November, 2013- Initial Version 
     319   !> @date November, 2013 - Initial Version 
    320320   ! 
    321321   !> @param[inout] td_file   file structure 
     
    355355   ! 
    356356   !> @author J.Paul 
    357    !> - November, 2013- Initial Version 
     357   !> @date November, 2013 - Initial Version 
    358358   ! 
    359359   !> @param[inout] td_file   file structure 
     
    406406   ! 
    407407   !> @author J.Paul 
    408    !> - November, 2013- Initial Version 
     408   !> @date November, 2013 - Initial Version 
    409409   !> @date September, 2014 
    410410   !> - use attribute periodicity read from the file if present. 
     
    449449   ! 
    450450   !> @author J.Paul 
    451    !> - November, 2013- Initial Version 
     451   !> @date November, 2013 - Initial Version 
    452452   ! 
    453453   !> @param[inout] td_file   file structure 
     
    535535   ! 
    536536   !> @author J.Paul 
    537    !> - November, 2013- Initial Version 
     537   !> @date November, 2013 - Initial Version 
    538538   ! 
    539539   !> @param[inout] td_file   file structure 
     
    576576   ! 
    577577   !> @author J.Paul 
    578    !> - November, 2013- Initial Version 
     578   !> @date November, 2013 - Initial Version 
    579579   !> @date February, 2015 - create unused dimension, when reading dimension 
    580580   !> of length less or equal to zero 
     
    633633   ! 
    634634   !> @author J.Paul 
    635    !> - November, 2013 - Initial Version 
     635   !> @date November, 2013 - Initial Version 
    636636   ! 
    637637   !> @param[in] td_file   file structure 
     
    673673   ! 
    674674   !> @author J.Paul 
    675    !> - November, 2013- Initial Version 
     675   !> @date November, 2013 - Initial Version 
    676676   ! 
    677677   !> @param[in] td_file   file structure 
     
    894894   ! 
    895895   !> @author J.Paul 
    896    !> - November, 2013- Initial Version 
     896   !> @date November, 2013 - Initial Version 
    897897   ! 
    898898   !> @param[in] td_file   file structure 
     
    939939   ! 
    940940   !> @author J.Paul 
    941    !> - November, 2013- Initial Version 
     941   !> @date November, 2013 - Initial Version 
    942942   ! 
    943943   !> @param[in] td_file   file structure 
     
    997997   ! 
    998998   !> @author J.Paul 
    999    !> - November, 2013- Initial Version 
     999   !> @date November, 2013 - Initial Version 
    10001000   ! 
    10011001   !> @param[in] td_file   file structure 
     
    10641064   ! 
    10651065   !> @author J.Paul 
    1066    !> - November, 2013- Initial Version 
     1066   !> @date November, 2013 - Initial Version 
    10671067   ! 
    10681068   !> @param[inout] td_file   file structure 
     
    11061106   ! 
    11071107   !> @author J.Paul 
    1108    !> - November, 2013- Initial Version 
     1108   !> @date November, 2013 - Initial Version 
    11091109   ! 
    11101110   !> @param[inout] td_file   file structure 
     
    11691169   ! 
    11701170   !> @author J.Paul 
    1171    !> - November, 2013- Initial Version 
     1171   !> @date November, 2013 - Initial Version 
    11721172   ! 
    11731173   !> @param[inout] td_file   file structure 
     
    12201220   ! 
    12211221   !> @author J.Paul 
    1222    !> - November, 2013- Initial Version 
     1222   !> @date November, 2013 - Initial Version 
    12231223   !> @date September, 2014 
    12241224   !> - force to use FillValue=1.e20 if no FillValue for coordinate variable. 
     
    13751375   ! 
    13761376   !> @author J.Paul 
    1377    !> - November, 2013 - Initial Version 
     1377   !> @date November, 2013 - Initial Version 
    13781378   !> @date July, 2015  
    13791379   !> - Bug fix: use order to disorder table (see dim_init) 
     
    14501450   ! 
    14511451   !> @author J.Paul 
    1452    !> - November, 2013- Initial Version 
     1452   !> @date November, 2013 - Initial Version 
    14531453   ! 
    14541454   !> @param[in] td_file   file structure 
     
    14991499   ! 
    15001500   !> @author J.Paul 
    1501    !> - November, 2013 - Initial Version 
     1501   !> @date November, 2013 - Initial Version 
    15021502   !> @date June, 2015  
    15031503   !> - use scale factor and offset, as soon as read variable value 
     
    17081708   !> 
    17091709   !> @author J.Paul 
    1710    !> - November, 2013 - Initial Version 
     1710   !> @date November, 2013 - Initial Version 
    17111711   !> @date July, 2015  
    17121712   !> - add dimension order option  
     
    18271827   ! 
    18281828   !> @author J.Paul 
    1829    !> - November, 2013- Initial Version 
     1829   !> @date November, 2013 - Initial Version 
    18301830   ! 
    18311831   !> @param[inout] td_file   file structure 
     
    18851885   ! 
    18861886   !> @author J.Paul 
    1887    !> - November, 2013- Initial Version 
     1887   !> @date November, 2013 - Initial Version 
    18881888   ! 
    18891889   !> @param[inout] td_file   file structure 
     
    19421942   ! 
    19431943   !> @author J.Paul 
    1944    !> - November, 2013- Initial Version 
     1944   !> @date November, 2013 - Initial Version 
    19451945   ! 
    19461946   !> @param[inout] td_file   file structure 
     
    20312031   ! 
    20322032   !> @author J.Paul 
    2033    !> - November, 2013- Initial Version 
     2033   !> @date November, 2013 - Initial Version 
    20342034   ! 
    20352035   !> @param[in] td_file   file structure 
     
    21672167   ! 
    21682168   !> @author J.Paul 
    2169    !> - November, 2013 - Initial Version 
     2169   !> @date November, 2013 - Initial Version 
    21702170   !> @date June, 2015 
    21712171   !> - reuse scale factor and offset, before writing variable 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_dom.f90

    r5037 r5616  
    7171   !> 
    7272   !> @author J.Paul 
    73    !> - October, 2014- Initial Version 
     73   !> @date October, 2014 - Initial Version 
    7474   ! 
    7575   !> @param[inout] td_mpp mpp structure 
     
    106106   !> 
    107107   !> @author J.Paul 
    108    !> - October, 2014- Initial Version 
     108   !> @date October, 2014 - Initial Version 
    109109   ! 
    110110   !> @param[in] td_mpp mpp structure 
     
    130130   !> 
    131131   !> @author J.Paul 
    132    !> - October, 2014- Initial Version 
     132   !> @date October, 2014 - Initial Version 
    133133   !> 
    134134   !> @param[in] td_mpp    mpp structure 
     
    194194   ! 
    195195   !> @author J.Paul 
    196    !> - October, 2014- Initial Version 
     196   !> @date October, 2014 - Initial Version 
    197197   ! 
    198198   !> @param[in] td_mpp    mpp structure 
     
    246246   !> 
    247247   !> @author J.Paul 
    248    !> - October, 2014- Initial Version 
     248   !> @date October, 2014 - Initial Version 
    249249   !> 
    250250   !> @todo 
     
    411411   !> 
    412412   !> @author J.Paul 
    413    !> - October, 2014- Initial Version 
     413   !> @date October, 2014 - Initial Version 
    414414   ! 
    415415   !> @param[in] td_mpp    mpp structure 
     
    465465   !> 
    466466   !> @author J.Paul 
    467    !> - October, 2014- Initial Version 
     467   !> @date October, 2014 - Initial Version 
    468468   !> 
    469469   !> @param[in] td_mpp    mpp structure 
     
    524524   !> 
    525525   !> @author J.Paul 
    526    !> - October, 2014- Initial Version 
     526   !> @date October, 2014 - Initial Version 
    527527   !> 
    528528   !> @param[in] td_mpp    mpp structure 
     
    636636   !> 
    637637   !> @author J.Paul 
    638    !> - October, 2014- Initial Version 
     638   !> @date October, 2014 - Initial Version 
    639639   ! 
    640640   !> @param[in] td_mpp    mpp structure 
     
    663663   !> 
    664664   !> @author J.Paul 
    665    !> - October, 2014- Initial Version 
     665   !> @date October, 2014 - Initial Version 
    666666   ! 
    667667   !> @param[in] td_mpp    mpp structure 
     
    691691   !> 
    692692   !> @author J.Paul 
    693    !> - October, 2014- Initial Version 
     693   !> @date October, 2014 - Initial Version 
    694694   ! 
    695695   !> @param[in] td_mpp    mpp structure 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_mpp.f90

    r5608 r5616  
    8787!> J.Paul 
    8888! REVISION HISTORY: 
    89 !> @date Nov, 2013 - Initial Version 
     89!> @date November, 2013 - Initial Version 
    9090!> 
    9191!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     
    137137   !> 
    138138   !> @author J.Paul 
    139    !> - November, 2013- Initial Version 
     139   !> @date November, 2013 - Initial Version 
    140140   ! 
    141141   !> @param[inout] td_mpp mpp structure 
     
    224224   !>  
    225225   !> @author J.Paul 
    226    !> - November, 2013- Initial Version 
     226   !> @date November, 2013 - Initial Version 
    227227   ! 
    228228   !> @param[inout] td_mpp mpp structure 
     
    251251   !> 
    252252   !> @author J.Paul 
    253    !> - November, 2013- Initial Version 
     253   !> @date November, 2013 - Initial Version 
    254254   ! 
    255255   !> @param[in] td_mpp mpp structure 
     
    291291   !> 
    292292   !> @author J.Paul 
    293    !> - November, 2013- Initial Version 
     293   !> @date November, 2013 - Initial Version 
    294294   !> @date October, 2014 
    295295   !> - use start and count array instead of domain structure. 
     
    367367   ! 
    368368   !> @author J.Paul 
    369    !> - November, 2013- Initial Version 
     369   !> @date November, 2013 - Initial Version 
    370370   !> @date October, 2014 
    371371   !> - use start and count array instead of domain structure. 
     
    433433   ! 
    434434   !> @author J.Paul 
    435    !> - November, 2013- Initial Version 
     435   !> @date November, 2013 - Initial Version 
    436436   !> @date October, 2014 
    437437   !> - use start and count array instead of domain structure. 
     
    623623   ! 
    624624   !> @author J.Paul 
    625    !> - November, 2013 - Initial Version 
     625   !> @date November, 2013 - Initial Version 
    626626   !> @date July, 2015 - add dimension order option  
    627627   ! 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/iom_rstdimg.f90

    r5608 r5616  
    131131   !> 
    132132   !> @author J.Paul 
    133    !> - November, 2013- Initial Version 
     133   !> @date November, 2013 - Initial Version 
    134134   ! 
    135135   !> @param[inout] td_file   file structure 
     
    284284   !> 
    285285   !> @author J.Paul 
    286    !> - November, 2013- Initial Version 
     286   !> @date November, 2013 - Initial Version 
    287287   ! 
    288288   !> @param[inout] td_file   file structure 
     
    328328   !> 
    329329   !> @author J.Paul 
    330    !> - November, 2013- Initial Version 
     330   !> @date November, 2013 - Initial Version 
    331331   ! 
    332332   !> @param[inout] td_file   file structure 
     
    394394   !> 
    395395   !> @author J.Paul 
    396    !> - November, 2013- Initial Version 
     396   !> @date November, 2013 - Initial Version 
    397397   ! 
    398398   !> @param[inout] td_file   file structure 
     
    544544   ! 
    545545   !> @author J.Paul 
    546    !> - November, 2013- Initial Version 
     546   !> @date November, 2013 - Initial Version 
    547547   ! 
    548548   !> @param[inout] td_file   file structure 
     
    636636   ! 
    637637   !> @author J.Paul 
    638    !> - November, 2013- Initial Version 
     638   !> @date November, 2013 - Initial Version 
    639639   ! 
    640640   !> @param[inout] td_file   file structure 
     
    688688   ! 
    689689   !> @author J.Paul 
    690    !> - November, 2013- Initial Version 
     690   !> @date November, 2013 - Initial Version 
    691691   ! 
    692692   !> @param[inout] td_file   file structure 
     
    733733   ! 
    734734   !> @author J.Paul 
    735    !> - November, 2013- Initial Version 
     735   !> @date November, 2013 - Initial Version 
    736736   ! 
    737737   !> @param[inout] td_file   file structure 
     
    778778   ! 
    779779   !> @author J.Paul 
    780    !> - November, 2013- Initial Version 
     780   !> @date November, 2013 - Initial Version 
    781781   ! 
    782782   !> @param[inout] td_file   file structure 
     
    820820   ! 
    821821   !> @author J.Paul 
    822    !> - Nov, 2013- Initial Version 
     822   !> @date November, 2013 - Initial Version 
    823823   ! 
    824824   !> @param[in] td_file   file structure 
     
    863863   ! 
    864864   !> @author J.Paul 
    865    !> - Nov, 2013- Initial Version 
     865   !> @date November, 2013 - Initial Version 
    866866   ! 
    867867   !> @param[in] td_file   file structure 
     
    907907   ! 
    908908   !> @author J.Paul 
    909    !> - November, 2013- Initial Version 
     909   !> @date November, 2013 - Initial Version 
    910910   ! 
    911911   !> @param[in] td_file   file structure 
     
    972972   ! 
    973973   !> @author J.Paul 
    974    !> - November, 2013- Initial Version 
     974   !> @date November, 2013 - Initial Version 
    975975   ! 
    976976   !> @param[in] td_file   file structure 
     
    10371037   !> 
    10381038   !> @author J.Paul 
    1039    !> - November, 2013- Initial Version 
     1039   !> @date November, 2013 - Initial Version 
    10401040   ! 
    10411041   !> @param[in] td_file   file structure 
     
    12251225   !> 
    12261226   !> @author J.Paul 
    1227    !> - November, 2013- Initial Version 
     1227   !> @date November, 2013 - Initial Version 
    12281228   !> @date September, 2014 
    12291229   !> - use iom_rstdimg__get_rec 
     
    13211321   !> 
    13221322   !> @author J.Paul 
    1323    !> - September, 2014- Initial Version 
     1323   !> @date September, 2014 - Initial Version 
    13241324   ! 
    13251325   !> @param[inout] td_file   file structure 
     
    14261426   ! 
    14271427   !> @author J.Paul 
    1428    !> - November, 2013- Initial Version 
     1428   !> @date November, 2013 - Initial Version 
    14291429   ! 
    14301430   !> @param[inout] td_file   file structure 
     
    16431643   !> 
    16441644   !> @author J.Paul 
    1645    !> - November, 2013- Initial Version 
     1645   !> @date November, 2013 - Initial Version 
     1646   !> @date July, 2015 
     1647   !> - bug fix: do not use scale factor an offset for case no0d, no1d... 
    16461648   !> 
    1647    !> @param[in] id_fileid file id 
     1649   !> @param[in] td_file file structure 
    16481650   !------------------------------------------------------------------- 
    16491651   SUBROUTINE iom_rstdimg__write_var(td_file) 
     
    16731675         ! change FillValue to 0. 
    16741676         CALL var_chg_FillValue(td_file%t_var(ji),0._dp) 
    1675  
    1676          ! use scale factor and offset 
    1677          WHERE( td_file%t_var(ji)%d_value(:,:,:,:) /= & 
    1678          &      td_file%t_var(ji)%d_fill ) 
    1679             td_file%t_var(ji)%d_value(:,:,:,:) = & 
    1680             &  (td_file%t_var(ji)%d_value(:,:,:,:)-td_file%t_var(ji)%d_ofs) /& 
    1681             &    td_file%t_var(ji)%d_scf 
    1682          END WHERE 
    16831677 
    16841678         cl_name(ji)  = TRIM(td_file%t_var(ji)%c_name) 
     
    16881682            CASE('no0d','no1d','no2d','no3d') 
    16891683            CASE DEFAULT 
     1684                
     1685               ! use scale factor and offset 
     1686               WHERE( td_file%t_var(ji)%d_value(:,:,:,:) /= & 
     1687               &      td_file%t_var(ji)%d_fill ) 
     1688                  td_file%t_var(ji)%d_value(:,:,:,:) = & 
     1689                  &   ( td_file%t_var(ji)%d_value(:,:,:,:) - & 
     1690                  &     td_file%t_var(ji)%d_ofs ) / & 
     1691                  &   td_file%t_var(ji)%d_scf 
     1692               END WHERE 
     1693 
    16901694               DO jk=1,td_file%t_var(ji)%t_dim(3)%i_len 
    16911695                  SELECT CASE (td_file%t_var(ji)%i_ndim) 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/logger.f90

    r5608 r5616  
    121121!> J.Paul 
    122122! REVISION HISTORY: 
    123 !> @date November, 2013- Initial Version 
     123!> @date November, 2013 - Initial Version 
    124124!> @date February, 2015 
    125125!> - check verbosity validity 
     
    191191   !> 
    192192   !> @author J.Paul 
    193    !> - November, 2013- Initial Version 
     193   !> @date November, 2013 - Initial Version 
    194194   ! 
    195195   !> @param[in] cd_file      log file name 
     
    268268   !> 
    269269   !> @author J.Paul 
    270    !> - November, 2013- Initial Version 
     270   !> @date November, 2013 - Initial Version 
    271271   !------------------------------------------------------------------- 
    272272   SUBROUTINE logger_close() 
     
    293293   !> 
    294294   !> @author J.Paul 
    295    !> - November, 2013- Initial Version 
     295   !> @date November, 2013 - Initial Version 
    296296   !------------------------------------------------------------------- 
    297297   SUBROUTINE logger_flush() 
     
    315315   !> 
    316316   !> @author J.Paul 
    317    !> - November, 2013- Initial Version 
     317   !> @date November, 2013 - Initial Version 
    318318   !------------------------------------------------------------------- 
    319319   RECURSIVE SUBROUTINE logger_header() 
     
    344344   !> 
    345345   !> @author J.Paul 
    346    !> - November, 2013- Initial Version 
     346   !> @date November, 2013 - Initial Version 
    347347   !------------------------------------------------------------------- 
    348348   SUBROUTINE logger_footer() 
     
    377377   !> 
    378378   !> @author J.Paul 
    379    !> - November, 2013- Initial Version 
     379   !> @date November, 2013 - Initial Version 
    380380   ! 
    381381   !> @param[in] cd_msg    message to write 
     
    413413   !> 
    414414   !> @author J.Paul 
    415    !> - November, 2013- Initial Version 
     415   !> @date November, 2013 - Initial Version 
    416416   ! 
    417417   !> @param[in] cd_msg    message to write 
     
    449449   !> 
    450450   !> @author J.Paul 
    451    !> - November, 2013- Initial Version 
     451   !> @date November, 2013 - Initial Version 
    452452   ! 
    453453   !> @param[in] cd_msg    message to write 
     
    485485   !> 
    486486   !> @author J.Paul 
    487    !> - November, 2013- Initial Version 
     487   !> @date November, 2013 - Initial Version 
    488488   ! 
    489489   !> @param[in] cd_msg    message to write 
     
    521521   !> 
    522522   !> @author J.Paul 
    523    !> - November, 2013- Initial Version 
     523   !> @date November, 2013 - Initial Version 
    524524   ! 
    525525   !> @param[in] cd_msg    message to write 
     
    570570   !> 
    571571   !> @author J.Paul 
    572    !> - November, 2013- Initial Version 
     572   !> @date November, 2013 - Initial Version 
    573573   ! 
    574574   !> @param[in] cd_msg message to write 
     
    605605   !> 
    606606   !> @author J.Paul 
    607    !> - November, 2013- Initial Version 
     607   !> @date November, 2013 - Initial Version 
    608608   ! 
    609609   !> @param[in] cd_verb   verbosity of the message to write 
     
    659659   !> 
    660660   !> @author J.Paul 
    661    !> - February, 2015 - Initial Version 
     661   !> @date February, 2015 - Initial Version 
    662662   ! 
    663663   !> @param[in] cd_verb   verbosity of the message to write 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/math.f90

    r5608 r5616  
    144144   !  
    145145   !> @author J.Paul  
    146    !> - January, 2015- Initial Version  
     146   !> @date January, 2015 - Initial Version  
    147147   !  
    148148   !> @param[in] dd_array  1D array  
     
    189189   !  
    190190   !> @author J.Paul  
    191    !> - January, 2015- Initial Version  
     191   !> @date January, 2015 - Initial Version  
    192192   !  
    193193   !> @param[in] dd_array  2D array  
     
    235235   !  
    236236   !> @author J.Paul  
    237    !> - January, 2015- Initial Version  
     237   !> @date January, 2015 - Initial Version  
    238238   !  
    239239   !> @param[in] dd_array  1D array  
     
    288288   !  
    289289   !> @author J.Paul  
    290    !> - January, 2015- Initial Version  
     290   !> @date January, 2015 - Initial Version  
    291291   !  
    292292   !> @param[in] dd_array  2D array  
     
    334334   !  
    335335   !> @author J.Paul  
    336    !> - January, 2015- Initial Version  
     336   !> @date January, 2015 - Initial Version  
    337337   !  
    338338   !> @param[in] dd_array  1D array  
     
    401401   !  
    402402   !> @author J.Paul  
    403    !> - January, 2015- Initial Version  
     403   !> @date January, 2015 - Initial Version  
    404404   !  
    405405   !> @param[in] dd_array  2D array  
     
    457457   !>  
    458458   !> @author J.Paul  
    459    !> - January, 2015- Rewrite with SIREN coding rules  
     459   !> @date January, 2015 - Rewrite with SIREN coding rules  
    460460   !  
    461461   !> @param[inout] dd_array  1D array  
     
    486486   !>  
    487487   !> @author J.Paul  
    488    !> - January, 2015- Rewrite with SIREN coding rules  
     488   !> @date January, 2015 - Rewrite with SIREN coding rules  
    489489   !  
    490490   !> @param[inout] dd_array  1D array  
     
    553553   !> 
    554554   !> @author J.Paul  
    555    !> - Marsh, 2015- Rewrite in fortran, with SIREN coding rules  
     555   !> @date Marsh, 2015 - Rewrite in fortran, with SIREN coding rules  
    556556   !  
    557557   !> @param[inout] dd_array  1D array  
     
    628628   !> 
    629629   !> @author J.Paul  
    630    !> - June, 2015- initial release 
     630   !> @date June, 2015 - initial version 
    631631   !  
    632632   !> @param[in] cd_var operation to compute (string of character)   
     
    700700   !> 
    701701   !> @author J.Paul  
    702    !> - June, 2015- initial release 
     702   !> @date June, 2015 - initial version 
    703703   !  
    704704   !> @param[in] cd_varin  string of character with operation inside 
     
    750750   !> 
    751751   !> @author J.Paul 
    752    !> - November, 2013- Initial Version 
     752   !> @date November, 2013 - Initial Version 
    753753   ! 
    754754   !> @param[in] dd_value     1D array of variable to be extrapolated 
     
    862862   !> 
    863863   !> @author J.Paul 
    864    !> - November, 2013- Initial Version 
     864   !> @date November, 2013 - Initial Version 
    865865   ! 
    866866   !> @param[in] dd_value     2D array of variable to be extrapolated 
     
    10481048   !> 
    10491049   !> @author J.Paul 
    1050    !> - November, 2013- Initial Version 
     1050   !> @date November, 2013 - Initial Version 
    10511051   ! 
    10521052   !> @param[inout] dd_value  3D array of variable to be extrapolated 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/mpp.f90

    r5608 r5616  
    350350   !> 
    351351   !> @author J.Paul 
    352    !> - November, 2013- Initial Version 
     352   !> @date November, 2013 - Initial Version 
    353353   !> @date November, 2014 
    354354   !>    - use function instead of overload assignment operator  
     
    424424   !> 
    425425   !> @author J.Paul 
    426    !> - November, 2013- Initial Version 
     426   !> @date November, 2013 - Initial Version 
    427427   !> @date November, 2014 
    428428   !>    - use function instead of overload assignment operator  
     
    453453   ! 
    454454   !> @author J.Paul 
    455    !> - Nov, 2013- Initial Version 
     455   !> @date November, 2013 - Initial Version 
    456456   ! 
    457457   !> @param[in] td_mpp mpp structure 
     
    911911   !> 
    912912   !> @author J.Paul 
    913    !> - November, 2013- Initial Version 
     913   !> @date November, 2013 - Initial Version 
    914914   ! 
    915915   !> @param[in] td_file   file strcuture 
     
    11291129   ! 
    11301130   !> @author J.Paul 
    1131    !> - November, 2013 - Initial Version 
     1131   !> @date November, 2013 - Initial Version 
    11321132   !> @date July, 2015 - add only use dimension in MPP structure 
    11331133   !> 
     
    13161316   ! 
    13171317   !> @author J.Paul 
    1318    !> - November, 2013- Initial Version 
     1318   !> @date November, 2013 - Initial Version 
    13191319   ! 
    13201320   !> @param[in] td_file   file strcuture 
     
    15361536   ! 
    15371537   !> @author J.Paul 
    1538    !> - Nov, 2013- Initial Version 
     1538   !> @date November, 2013 - Initial Version 
    15391539   ! 
    15401540   !> @param[in] td_mpp    mpp structure 
     
    16781678   ! 
    16791679   !> @author J.Paul 
    1680    !> - November, 2013- Initial Version 
     1680   !> @date November, 2013 - Initial Version 
    16811681   ! 
    16821682   !> @param[in] td_mpp    mpp structure 
     
    18431843   !> @author J.Paul 
    18441844   !> @date November, 2013 - Initial version 
    1845    !> @date February, 2015 - define local variable structure to avoid mistake 
    1846    !> with pointer 
     1845   !> @date February, 2015  
     1846   !> - define local variable structure to avoid mistake with pointer 
    18471847   ! 
    18481848   !> @param[inout] td_mpp    mpp strcuture 
     
    22002200   !> 
    22012201   !> @author J.Paul 
    2202    !> - November, 2013- Initial Version 
    2203    !> @date July, 2015 - rewrite the same as way var_add_dim 
     2202   !> @date November, 2013 - Initial Version 
     2203   !> @date July, 2015  
     2204   !> - rewrite the same as way var_add_dim 
    22042205   !> 
    22052206   !> @param[inout] td_mpp mpp structure 
     
    22582259   !> 
    22592260   !> @author J.Paul 
    2260    !> - November, 2013- Initial Version 
    2261    !> @date July, 2015 - rewrite the same as way var_del_dim 
     2261   !> @date November, 2013 - Initial Version 
     2262   !> @date July, 2015  
     2263   !> - rewrite the same as way var_del_dim 
    22622264   !> 
    22632265   !> @param[inout] td_mpp mpp structure 
     
    23102312   !> 
    23112313   !> @author J.Paul 
    2312    !> - November, 2013- Initial Version 
     2314   !> @date November, 2013 - Initial Version 
    23132315   !> 
    23142316   !> @param[inout] td_mpp mpp structure 
     
    24862488   !> @author J.Paul 
    24872489   !> @date November, 2013 - Initial version 
    2488    !> @date February, 2015 - define local attribute structure to avoid mistake 
    2489    !> with pointer 
     2490   !> @date February, 2015  
     2491   !> - define local attribute structure to avoid mistake with pointer 
    24902492   ! 
    24912493   !> @param[inout] td_mpp    mpp strcuture 
     
    31253127   !> 
    31263128   !> @author J.Paul 
    3127    !> @date November, 2013 
     3129   !> @date November, 2013 - Initial version 
    31283130   !> 
    31293131   !> @param[inout] td_mpp mpp strcuture 
     
    31633165   !> 
    31643166   !> @author J.Paul 
    3165    !> @date November, 2013 
     3167   !> @date November, 2013 - Initial version 
    31663168   !> 
    31673169   !> @param[in] td_mpp    mpp strcuture 
     
    32283230   ! 
    32293231   !> @author J.Paul 
    3230    !> @date November, 2013 
     3232   !> @date November, 2013 - Initial version 
    32313233   ! 
    32323234   !> @param[in] td_mpp    mpp strcuture 
     
    32903292   !> 
    32913293   !> @author J.Paul 
    3292    !> @date November, 2013 
     3294   !> @date November, 2013 - Initial version 
    32933295   !> 
    32943296   !> @param[inout] td_mpp mpp strcuture 
     
    33833385   !> 
    33843386   !> @author J.Paul 
    3385    !> - November, 2013- Initial Version 
     3387   !> @date November, 2013 - Initial Version 
    33863388   !> 
    33873389   !> @param[in] td_mpp mpp structure 
     
    34343436   ! 
    34353437   !> @author J.Paul 
    3436    !> - November, 2013- Initial Version 
     3438   !> @date November, 2013 - Initial Version 
    34373439   ! 
    34383440   !> @param[in] td_file   array of file structure 
     
    34743476   ! 
    34753477   !> @author J.Paul 
    3476    !> - Ocotber, 2014- Initial Version 
     3478   !> @date Ocotber, 2014 - Initial Version 
    34773479   ! 
    34783480   !> @param[in] td_mpp   mpp file structure 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/multi.f90

    r5608 r5616  
    6161!> @date October, 2014 
    6262!> - use mpp file structure instead of file 
    63 !> @date November, 2014 - Fix memory leaks bug 
     63!> @date November, 2014  
     64!> - Fix memory leaks bug 
    6465! 
    6566!> @note Software governed by the CeCILL licence     (NEMOGCM/NEMO_CeCILL.txt) 
     
    118119   !>    
    119120   !> @author J.Paul 
    120    !> - November, 2013- Initial Version 
     121   !> @date November, 2013 - Initial Version 
    121122   !> @date November, 2014 
    122123   !>    - use function instead of overload assignment operator (to avoid memory leak) 
     
    169170   !> 
    170171   !> @author J.Paul 
    171    !> - November, 2013- Initial Version 
    172    !> @date July, 2015 - check if variable to be read is in file 
     172   !> @date November, 2013 - Initial Version 
     173   !> @date July, 2015  
     174   !> - check if variable to be read is in file 
    173175   !> 
    174176   !> @param[in] cd_varfile   variable location information (from namelist)  
     
    327329   ! 
    328330   !> @author J.Paul 
    329    !> - November, 2013- Initial Version 
     331   !> @date November, 2013 - Initial Version 
    330332   ! 
    331333   !> @param[in] td_multi  multi file structure 
     
    358360   ! 
    359361   !> @author J.Paul 
    360    !> - November, 2013- Initial Version 
     362   !> @date November, 2013 - Initial Version 
    361363   ! 
    362364   !> @param[in] td_multi multi file structure 
     
    401403   ! 
    402404   !> @author J.Paul 
    403    !> - November, 2013- Initial Version 
     405   !> @date November, 2013 - Initial Version 
    404406   !> @date October, 2014 
    405407   !> - use mpp file structure instead of file 
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/variable.f90

    r5608 r5616  
    529529   !> 
    530530   !> @author J.Paul 
    531    !> - November, 2013- Initial Version 
     531   !> @date November, 2013 - Initial Version 
    532532   !> @date November, 2014 
    533533   !> - use function instead of overload assignment operator (to avoid memory leak) 
     
    642642   !> 
    643643   !> @author J.Paul 
    644    !> - November, 2013- Initial Version 
     644   !> @date November, 2013 - Initial Version 
    645645   !> @date November, 2014 
    646646   !> - use function instead of overload assignment operator  
     
    671671   !> 
    672672   !> @author J.Paul 
    673    !> - November, 2013- Initial Version 
     673   !> @date November, 2013 - Initial Version 
    674674   !> 
    675675   !> @param[inout] td_var variable strucutre 
     
    710710   ! 
    711711   !> @author J.Paul 
    712    !> - September, 2014- Initial Version 
     712   !> @date September, 2014 - Initial Version 
    713713   ! 
    714714   !> @param[inout] td_var array of variable strucutre 
     
    733733   ! 
    734734   !> @author J.Paul 
    735    !> - September, 2014- Initial Version 
     735   !> @date September, 2014 - Initial Version 
    736736   ! 
    737737   !> @param[inout] td_var array of variable strucutre 
     
    759759   ! 
    760760   !> @author J.Paul 
    761    !> - September, 2014- Initial Version 
     761   !> @date September, 2014 - Initial Version 
    762762   ! 
    763763   !> @param[inout] td_var array of variable strucutre 
     
    824824   !> 
    825825   !> @author J.Paul 
    826    !> - November, 2013- Initial Version 
    827    !> @date February, 2015 - Bug fix: conversion of the FillValue type (float case) 
    828    !> @date June, 2015 - add unit factor (to change unit) 
     826   !> @date November, 2013 - Initial Version 
     827   !> @date February, 2015  
     828   !> - Bug fix: conversion of the FillValue type (float case) 
     829   !> @date June, 2015  
     830   !> - add unit factor (to change unit) 
    829831   !> 
    830832   !> @param[in] cd_name         variable name 
     
    11111113   ! 
    11121114   !> @author J.Paul 
    1113    !> - November, 2013- Initial Version 
     1115   !> @date November, 2013 - Initial Version 
    11141116   !> @date June, 2015 
    11151117   !> - add interp, extrap, and filter argument 
     
    12981300   ! 
    12991301   !> @author J.Paul 
    1300    !> - November, 2013- Initial Version 
    1301    !> @date February, 2015 - bug fix: array initialise with dimension 
     1302   !> @date November, 2013 - Initial Version 
     1303   !> @date February, 2015  
     1304   !> - bug fix: array initialise with dimension 
    13021305   !> array not only one value 
    13031306   !> @date June, 2015 
     
    15131516   ! 
    15141517   !> @author J.Paul 
    1515    !> - November, 2013- Initial Version 
     1518   !> @date November, 2013 - Initial Version 
    15161519   !> @date June, 2015 
    15171520   !> - add interp, extrap, and filter argument 
     
    17251728   ! 
    17261729   !> @author J.Paul 
    1727    !> - November, 2013- Initial Version 
     1730   !> @date November, 2013 - Initial Version 
    17281731   !> @date June, 2015 
    17291732   !> - add interp, extrap, and filter argument 
     
    18801883   ! 
    18811884   !> @author J.Paul 
    1882    !> - November, 2013- Initial Version 
     1885   !> @date November, 2013 - Initial Version 
    18831886   !> @date June, 2015 
    18841887   !> - add interp, extrap, and filter argument 
     
    20352038   ! 
    20362039   !> @author J.Paul 
    2037    !> - November, 2013- Initial Version 
     2040   !> @date November, 2013 - Initial Version 
    20382041   !> @date June, 2015 
    20392042   !> - add interp, extrap, and filter argument 
     
    21912194   ! 
    21922195   !> @author J.Paul 
    2193    !> - November, 2013- Initial Version 
     2196   !> @date November, 2013 - Initial Version 
    21942197   !> @date June, 2015 
    21952198   !> - add interp, extrap, and filter argument 
     
    23482351   ! 
    23492352   !> @author J.Paul 
    2350    !> - November, 2013- Initial Version 
     2353   !> @date November, 2013 - Initial Version 
    23512354   !> @date June, 2015 
    23522355   !> - add interp, extrap, and filter argument 
     
    25062509   ! 
    25072510   !> @author J.Paul 
    2508    !> - November, 2013- Initial Version 
     2511   !> @date November, 2013 - Initial Version 
    25092512   !> @date June, 2015 
    25102513   !> - add interp, extrap, and filter argument 
     
    26602663   ! 
    26612664   !> @author J.Paul 
    2662    !> - November, 2013- Initial Version 
     2665   !> @date November, 2013 - Initial Version 
    26632666   !> @date June, 2015 
    26642667   !> - add interp, extrap, and filter argument 
     
    28142817   ! 
    28152818   !> @author J.Paul 
    2816    !> - November, 2013- Initial Version 
     2819   !> @date November, 2013 - Initial Version 
    28172820   !> @date June, 2015 
    28182821   !> - add interp, extrap, and filter argument 
     
    29712974   ! 
    29722975   !> @author J.Paul 
    2973    !> - November, 2013- Initial Version 
     2976   !> @date November, 2013 - Initial Version 
    29742977   !> @date June, 2015 
    29752978   !> - add interp, extrap, and filter argument 
     
    31303133   ! 
    31313134   !> @author J.Paul 
    3132    !> - November, 2013- Initial Version 
     3135   !> @date November, 2013 - Initial Version 
    31333136   !> @date June, 2015 
    31343137   !> - add interp, extrap, and filter argument 
     
    32843287   ! 
    32853288   !> @author J.Paul 
    3286    !> - November, 2013- Initial Version 
     3289   !> @date November, 2013 - Initial Version 
    32873290   !> @date June, 2015 
    32883291   !> - add interp, extrap, and filter argument 
     
    34403443   ! 
    34413444   !> @author J.Paul 
    3442    !> - November, 2013- Initial Version 
     3445   !> @date November, 2013 - Initial Version 
    34433446   !> @date June, 2015 
    34443447   !> - add interp, extrap, and filter argument 
     
    35973600   ! 
    35983601   !> @author J.Paul 
    3599    !> - November, 2013- Initial Version 
     3602   !> @date November, 2013 - Initial Version 
    36003603   !> @date June, 2015 
    36013604   !> - add interp, extrap, and filter argument 
     
    37563759   ! 
    37573760   !> @author J.Paul 
    3758    !> - November, 2013- Initial Version 
     3761   !> @date November, 2013 - Initial Version 
    37593762   !> @date June, 2015 
    37603763   !> - add interp, extrap, and filter argument 
     
    39113914   ! 
    39123915   !> @author J.Paul 
    3913    !> - November, 2013- Initial Version 
     3916   !> @date November, 2013 - Initial Version 
    39143917   !> @date June, 2015 
    39153918   !> - add interp, extrap, and filter argument 
     
    40684071   ! 
    40694072   !> @author J.Paul 
    4070    !> - November, 2013- Initial Version 
     4073   !> @date November, 2013 - Initial Version 
    40714074   !> @date June, 2015 
    40724075   !> - add interp, extrap, and filter argument 
     
    42254228   ! 
    42264229   !> @author J.Paul 
    4227    !> - November, 2013- Initial Version 
     4230   !> @date November, 2013 - Initial Version 
    42284231   !> @date June, 2015 
    42294232   !> - add interp, extrap, and filter argument 
     
    43834386   ! 
    43844387   !> @author J.Paul 
    4385    !> - November, 2013- Initial Version 
     4388   !> @date November, 2013 - Initial Version 
    43864389   !> @date June, 2015 
    43874390   !> - add interp, extrap, and filter argument 
     
    45374540   ! 
    45384541   !> @author J.Paul 
    4539    !> - November, 2013- Initial Version 
     4542   !> @date November, 2013 - Initial Version 
    45404543   !> @date June, 2015 
    45414544   !> - add interp, extrap, and filter argument 
     
    46934696   ! 
    46944697   !> @author J.Paul 
    4695    !> - November, 2013- Initial Version 
     4698   !> @date November, 2013 - Initial Version 
    46964699   !> @date June, 2015 
    46974700   !> - add interp, extrap, and filter argument 
     
    48504853   ! 
    48514854   !> @author J.Paul 
    4852    !> - November, 2013- Initial Version 
     4855   !> @date November, 2013 - Initial Version 
    48534856   !> @date June, 2015 
    48544857   !> - add interp, extrap, and filter argument 
     
    50005003   !> 
    50015004   !> @author J.Paul 
    5002    !> - November, 2013- Initial Version 
     5005   !> @date November, 2013 - Initial Version 
    50035006   ! 
    50045007   !> @param[in] td_var1   variable structure 
     
    50505053   !>  
    50515054   !> @author J.Paul 
    5052    !> - November, 2013- Initial Version 
     5055   !> @date November, 2013 - Initial Version 
    50535056   ! 
    50545057   !> @param[in] td_var1   variable structure 
     
    51225125   !>  
    51235126   !> @author J.Paul 
    5124    !> - November, 2013- Initial Version 
     5127   !> @date November, 2013 - Initial Version 
    51255128   ! 
    51265129   !> @param[in] td_var1   variable structure 
     
    51975200   !>  
    51985201   !> @author J.Paul 
    5199    !> - November, 2013- Initial Version 
     5202   !> @date November, 2013 - Initial Version 
    52005203   ! 
    52015204   !> @param[in] td_var1   variable structure 
     
    52725275   !>  
    52735276   !> @author J.Paul 
    5274    !> - November, 2013- Initial Version 
     5277   !> @date November, 2013 - Initial Version 
    52755278   ! 
    52765279   !> @param[in] td_var1   variable structure 
     
    53475350   !> 
    53485351   !> @author J.Paul 
    5349    !> - November, 2013- Initial Version 
    5350    !> @date June, 2015 - add all element of the array in the same time 
     5352   !> @date November, 2013 - Initial Version 
     5353   !> @date June, 2015  
     5354   !> - add all element of the array in the same time 
    53515355   !> 
    53525356   !> @param[inout] td_var variable structure 
     
    54775481   ! 
    54785482   !> @author J.Paul 
    5479    !> - November, 2013 - Initial Version 
    5480    !> @date June, 2015 - use var__add_att_arr subroutine 
     5483   !> @date November, 2013 - Initial Version 
     5484   !> @date June, 2015  
     5485   !> - use var__add_att_arr subroutine 
    54815486   ! 
    54825487   !> @param[inout] td_var variable structure 
     
    55075512   ! 
    55085513   !> @author J.Paul 
    5509    !> - November, 2013- Initial Version 
    5510    !> @date February, 2015 - define local attribute structure to avoid mistake  
     5514   !> @date November, 2013 - Initial Version 
     5515   !> @date February, 2015  
     5516   !> - define local attribute structure to avoid mistake  
    55115517   !> with pointer 
    55125518   ! 
     
    55525558   ! 
    55535559   !> @author J.Paul 
    5554    !> - November, 2013- Initial Version 
    5555    !> @date February, 2015 - delete highlight attribute too, when attribute  
     5560   !> @date November, 2013- Initial Version 
     5561   !> @date February, 2015  
     5562   !> - delete highlight attribute too, when attribute  
    55565563   !> is deleted 
    55575564   ! 
     
    56695676   ! 
    56705677   !> @author J.Paul 
    5671    !> - November, 2013- Initial Version 
     5678   !> @date November, 2013 - Initial Version 
    56725679   ! 
    56735680   !> @param[inout] td_var variable structure 
     
    57045711   ! 
    57055712   !> @author J.Paul 
    5706    !> - November, 2013- Initial Version 
     5713   !> @date November, 2013 - Initial Version 
    57075714   ! 
    57085715   !> @param[inout] td_var variable structure 
     
    57435750   ! 
    57445751   !> @author J.Paul 
    5745    !> - November, 2013- Initial Version 
     5752   !> @date November, 2013 - Initial Version 
    57465753   ! 
    57475754   !> @param[inout] td_var variable structure 
     
    58025809   ! 
    58035810   !> @author J.Paul 
    5804    !> - November, 2013- Initial Version 
     5811   !> @date November, 2013 - Initial Version 
    58055812   ! 
    58065813   !> @param[inout] td_var variable structure 
     
    58665873   ! 
    58675874   !> @author J.Paul 
    5868    !> - November, 2013- Initial Version 
     5875   !> @date November, 2013 - Initial Version 
    58695876   ! 
    58705877   !> @param[inout] td_var variable structure 
     
    59095916   !> 
    59105917   !> @author J.Paul 
    5911    !> - June, 2014- Initial Version 
     5918   !> @date June, 2014 - Initial Version 
    59125919   ! 
    59135920   !> @param[in] td_var array of variables structure 
     
    59355942   !> 
    59365943   !> @author J.Paul 
    5937    !> - November, 2013- Initial Version 
     5944   !> @date November, 2013 - Initial Version 
    59385945   ! 
    59395946   !> @param[in] td_var    variable structure 
     
    60426049   !> 
    60436050   !> @author J.Paul 
    6044    !> - November, 2013- Initial Version 
     6051   !> @date November, 2013 - Initial Version 
    60456052   !> 
    60466053   !> @param[inout] td_var variable structure 
     
    61806187   !> 
    61816188   !> @author J.Paul 
    6182    !> - November, 2013- Initial Version 
     6189   !> @date November, 2013 - Initial Version 
    61836190   !> 
    61846191   !> @param[inout] td_var variable structure 
     
    62346241   !> 
    62356242   !> @author J.Paul 
    6236    !> - November, 2013- Initial Version 
     6243   !> @date November, 2013 - Initial Version 
    62376244   ! 
    62386245   !> @param[inout] td_var variable structure 
     
    63106317   ! 
    63116318   !> @author J.Paul 
    6312    !> - November, 2013- Initial Version 
     6319   !> @date November, 2013 - Initial Version 
    63136320   ! 
    63146321   !> @param[inout] td_var variabele structure 
     
    63866393   ! 
    63876394   !> @author J.Paul 
    6388    !> - November, 2013- Initial Version 
     6395   !> @date November, 2013 - Initial Version 
    63896396   ! 
    63906397   !> @param[inout] td_var variabele structure 
     
    64626469   ! 
    64636470   !> @author J.Paul 
    6464    !> - November, 2013- Initial Version 
     6471   !> @date November, 2013 - Initial Version 
    64656472   ! 
    64666473   !> @param[inout] td_var variabele structure 
     
    65366543   !> 
    65376544   !> @author J.Paul 
    6538    !> - November, 2013- Initial Version 
     6545   !> @date November, 2013 - Initial Version 
    65396546   ! 
    65406547   !> @param[inout] td_var variable structure 
     
    66066613   !> 
    66076614   !> @author J.Paul 
    6608    !> - November, 2013- Initial Version 
     6615   !> @date November, 2013 - Initial Version 
    66096616   !> 
    66106617   !> @param[inout] td_var variable structure 
     
    66296636   !> 
    66306637   !> @author J.Paul 
    6631    !> - September, 2014- Initial Version 
     6638   !> @date September, 2014 - Initial Version 
    66326639   !> 
    66336640   !> @param[in] td_var       array of variable structure 
     
    66946701   !> 
    66956702   !> @author J.Paul 
    6696    !> - November, 2013- Initial Version 
     6703   !> @date November, 2013 - Initial Version 
    66976704   ! 
    66986705   !> @param[in] td_var       array of variable structure 
     
    67496756   !> 
    67506757   !> @author J.Paul 
    6751    !> - November, 2013- Initial Version 
     6758   !> @date November, 2013 - Initial Version 
    67526759   ! 
    67536760   !> @param[in] td_var array of variable structure 
     
    67886795   !>  
    67896796   !> @author J.Paul 
    6790    !> - November, 2013- Initial Version 
     6797   !> @date November, 2013 - Initial Version 
    67916798   ! 
    67926799   !> @param[inout] td_var array of variable structure 
     
    68716878   !>  
    68726879   !> @author J.Paul 
    6873    !> - November, 2013 - Initial Version 
     6880   !> @date November, 2013 - Initial Version 
    68746881   !> @date June, 2015  
    68756882   !> - new namelist format to get extra information (interpolation,...) 
     
    70277034   !> 
    70287035   !> @author J.Paul 
    7029    !> - November, 2013 - Initial Version 
    7030    !> @date July, 2015 - get unit and unit factor (to change unit)  
     7036   !> @date November, 2013 - Initial Version 
     7037   !> @date July, 2015  
     7038   !> - get unit and unit factor (to change unit)  
    70317039   ! 
    70327040   !> @param[in] cd_varinfo   variable information from namelist 
     
    71677175   !> 
    71687176   !> @author J.Paul 
    7169    !> - November, 2013- Initial Version 
     7177   !> @date November, 2013 - Initial Version 
    71707178   ! 
    71717179   !> @param[inout] td_var variable structure 
     
    72617269   !>  
    72627270   !> @author J.Paul 
    7263    !> - November, 2013- Initial Version 
     7271   !> @date November, 2013 - Initial Version 
    72647272   !> 
    72657273   !> @param[inout] td_var variable structure 
     
    74137421   !> 
    74147422   !> @author J.Paul 
    7415    !> - November, 2013 - Initial Version 
    7416    !> @date June, 2015 - change way to get information in namelist,  
     7423   !> @date November, 2013 - Initial Version 
     7424   !> @date June, 2015  
     7425   !> - change way to get information in namelist,  
    74177426   !> value follows string "min =" 
    74187427   ! 
     
    74767485   !> 
    74777486   !> @author J.Paul 
    7478    !> - November, 2013 - Initial Version 
    7479    !> @date June, 2015 - change way to get information in namelist,  
     7487   !> @date November, 2013 - Initial Version 
     7488   !> @date June, 2015  
     7489   !> - change way to get information in namelist,  
    74807490   !> value follows string "max =" 
    74817491   ! 
     
    75397549   !> 
    75407550   !> @author J.Paul 
    7541    !> - June, 2015- Initial Version 
     7551   !> @date June, 2015 - Initial Version 
    75427552   ! 
    75437553   !> @param[in] cd_name      variable name 
     
    76127622   !> 
    76137623   !> @author J.Paul 
    7614    !> - November, 2013 - Initial Version 
    7615    !> @date June, 2015 - change way to get information in namelist,  
     7624   !> @date November, 2013 - Initial Version 
     7625   !> @date June, 2015  
     7626   !> - change way to get information in namelist,  
    76167627   !> value follows string "int =" 
    76177628   ! 
     
    77317742   !> 
    77327743   !> @author J.Paul 
    7733    !> - November, 2013 - Initial Version 
    7734    !> @date June, 2015 - change way to get information in namelist,  
     7744   !> @date November, 2013 - Initial Version 
     7745   !> @date June, 2015  
     7746   !> - change way to get information in namelist,  
    77357747   !> value follows string "ext =" 
    77367748   ! 
     
    78067818   !> 
    78077819   !> @author J.Paul 
    7808    !> - November, 2013 - Initial Version 
    7809    !> @date June, 2015 - change way to get information in namelist,  
     7820   !> @date November, 2013 - Initial Version 
     7821   !> @date June, 2015  
     7822   !> - change way to get information in namelist,  
    78107823   !> value follows string "flt =" 
    78117824   !> 
     
    79117924   !> 
    79127925   !> @author J.Paul 
    7913    !> - June, 2015- Initial Version 
     7926   !> @date June, 2015 - Initial Version 
    79147927   ! 
    79157928   !> @param[in] cd_name      variable name 
     
    79627975   !> 
    79637976   !> @author J.Paul 
    7964    !> - November, 2013- Initial Version 
     7977   !> @date November, 2013 - Initial Version 
    79657978   ! 
    79667979   !> @param[in] td_var array of variable structure 
     
    80208033   !>  
    80218034   !> @author J.Paul 
    8022    !> - November, 2013- Initial Version 
     8035   !> @date November, 2013 - Initial Version 
    80238036   ! 
    80248037   !> @param[inout] td_var variable structure 
     
    80658078   !> 
    80668079   !> @author J.Paul 
    8067    !> - June, 2015- Initial Version 
     8080   !> @date June, 2015 - Initial Version 
    80688081   ! 
    80698082   !> @param[inout] td_var variable structure 
     
    81158128   !> 
    81168129   !> @author J.Paul 
    8117    !> - November, 2013- Initial Version 
     8130   !> @date November, 2013 - Initial Version 
    81188131   ! 
    81198132   !> @param[inout] td_var    variable structure 
     
    82008213   !>  
    82018214   !> @author J.Paul 
    8202    !> - August, 2014 - Initial Version 
    8203    !> @date July 2015 - do not use dim_disorder anymore 
     8215   !> @date August, 2014 - Initial Version 
     8216   !> @date July 2015  
     8217   !> - do not use dim_disorder anymore 
    82048218   ! 
    82058219   !> @param[inout] td_var       variable structure 
     
    82568270   !>  
    82578271   !> @author J.Paul 
    8258    !> - September, 2014- Initial Version 
     8272   !> @date September, 2014 - Initial Version 
    82598273   ! 
    82608274   !> @param[in] td_var array of variable structure  
     
    82818295   !>  
    82828296   !> @author J.Paul 
    8283    !> - November, 2014- Initial Version 
     8297   !> @date November, 2014 - Initial Version 
    82848298   ! 
    82858299   !> @param[in] td_var time variable structure  
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/vgrid.f90

    r5608 r5616  
    119119   !> 
    120120   !> @author G. Madec 
    121    !> - 03,08-  G. Madec: F90: Free form and module 
     121   !> @date Marsh,2008 - F90: Free form and module 
    122122   ! 
    123123   !> @note Reference : Marti, Madec & Delecluse, 1992, JGR, 97, No8, 12,763-12,766. 
     
    373373   ! 
    374374   !> @author A. Bozec, G. Madec 
    375    !> - 02-09 (A. Bozec, G. Madec) F90: Free form and module 
    376    !> - 02-09 (A. de Miranda)  rigid-lid + islands 
     375   !> @date February, 2009 - F90: Free form and module 
     376   !> @date February, 2009  
     377   !> - A. de Miranda : rigid-lid + islands 
    377378   !> 
    378379   !> @note Reference : Pacanowsky & Gnanadesikan 1997, Mon. Wea. Rev., 126, 3248-3270. 
     
    496497 
    497498   !> @author G.Madec 
    498    !> - 03-08 Original code 
     499   !> @date Marsh, 2008 - Original code 
    499500   ! 
    500501   !> @param[in] id_mbathy  
     
    605606   !> 
    606607   !> @author J.Paul 
    607    !> - November, 2013- Initial Version 
     608   !> @date November, 2013 - Initial Version 
    608609   ! 
    609610   !> @param[in] td_bathy     Bathymetry file structure  
Note: See TracChangeset for help on using the changeset viewer.