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

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5617 for trunk/NEMOGCM/TOOLS/SIREN/src/variable.f90 – NEMO

Ignore:
Timestamp:
2015-07-20T12:10:49+02:00 (9 years ago)
Author:
jpaul
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/TOOLS/SIREN/src/variable.f90

    r5609 r5617  
    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  
Note: See TracChangeset for help on using the changeset viewer.