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 7371 – NEMO

Changeset 7371


Ignore:
Timestamp:
2016-11-29T16:07:17+01:00 (8 years ago)
Author:
jpaul
Message:

see ticket #1807

Location:
branches/2016/dev_MERCATOR_2016/NEMOGCM/TOOLS/SIREN
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • branches/2016/dev_MERCATOR_2016/NEMOGCM/TOOLS/SIREN/src/docsrc/2_quickstart.md

    r7314 r7371  
    3636Here after we briefly describe how to use each programs, 
    3737and so how to create your own regional configuration. 
    38 @note As demonstrator for a first start a set of GLORYS files (global reanalysis on *ORCA025* grid), as well as examples of namelists are available [here](https://cloud.mercator-ocean.fr/public.php?service=files&t=f2a19864f95f1944a51851479b627e2e). 
     38@note As demonstrator for a first start a set of GLORYS files (global reanalysis on *ORCA025* grid), as well as examples of namelists are available [here](https://cloud.mercator-ocean.fr/public.php?service=files&t=acf44730538cdda0da548ffc5f99fb55). 
    3939 
    4040<!-- ######################################################################  --> 
  • branches/2016/dev_MERCATOR_2016/NEMOGCM/TOOLS/SIREN/src/iom_cdf.f90

    r7314 r7371  
    14821482 
    14831483      ! local variable 
    1484       INTEGER(i4), DIMENSION(1) :: il_ind 
    1485       INTEGER(i4) :: il_xyzt2 
     1484      INTEGER(i4), DIMENSION(ip_maxdim) :: il_xyzt2 
    14861485 
    14871486      TYPE(TDIM) , DIMENSION(ip_maxdim) :: tl_dim 
     
    15201519                  &  "dimension "//TRIM(fct_str(ji)) ) 
    15211520 
    1522                il_ind(:)= MINLOC(td_file%t_dim(:)%i_id, & 
    1523                         &        td_file%t_dim(:)%i_id==id_dimid(ji) ) 
    1524                il_xyzt2 = td_file%t_dim(il_ind(1))%i_xyzt2 
    1525  
     1521               il_xyzt2(ii)=td_file%t_dim(id_dimid(ji))%i_xyzt2 
     1522                
    15261523               ! read dimension information 
    1527                tl_dim(ii) = dim_init( td_file%t_dim(il_xyzt2)%c_name, & 
    1528                &                      td_file%t_dim(il_xyzt2)%i_len ) 
     1524               tl_dim(ii) = dim_init( td_file%t_dim(il_xyzt2(ii))%c_name, & 
     1525               &                      td_file%t_dim(il_xyzt2(ii))%i_len ) 
    15291526 
    15301527               ii=ii+1 
Note: See TracChangeset for help on using the changeset viewer.