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 5616 for branches/2015/nemo_v3_6_STABLE/NEMOGCM/TOOLS/SIREN/src/extrap.f90 – NEMO

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

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

File:
1 edited

Legend:

Unmodified
Added
Removed

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