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 774 for trunk/AGRIF/LIB/WorkWithlistdatavariable.c – NEMO

Ignore:
Timestamp:
2007-12-18T17:45:53+01:00 (16 years ago)
Author:
rblod
Message:

Update Agrif, see ticket:#39

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/AGRIF/LIB/WorkWithlistdatavariable.c

    r663 r774  
    3131/* knowledge of the CeCILL-C license and that you accept its terms.           */ 
    3232/******************************************************************************/ 
    33 /* version 1.6                                                                */ 
     33/* version 1.7                                                                */ 
    3434/******************************************************************************/ 
    3535#include <stdio.h> 
     
    6161     if ( inmoduledeclare == 1 ) newvar->var->v_module=1; 
    6262     strcpy(newvar->var->v_nomvar,name); 
     63     Save_Length(name,4); 
    6364     strcpy(newvar->var->v_subroutinename,subroutinename); 
     65     Save_Length(subroutinename,11); 
    6466     strcpy(newvar->var->v_modulename,curmodulename); 
     67     Save_Length(curmodulename,6); 
    6568     strcpy(newvar->var->v_commoninfile,mainfile); 
     69     Save_Length(mainfile,10); 
    6670     strcpy(newvar->var->v_initialvalue,values); 
     71     Save_Length(values,14); 
    6772     newvar->suiv = NULL; 
    6873 
Note: See TracChangeset for help on using the changeset viewer.