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 2715 for trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/DiversListe.c – NEMO

Ignore:
Timestamp:
2011-03-30T17:58:35+02:00 (13 years ago)
Author:
rblod
Message:

First attempt to put dynamic allocation on the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/EXTERNAL/AGRIF/LIB/DiversListe.c

    r2528 r2715  
    348348/*                                                                            */ 
    349349/******************************************************************************/ 
    350 void Add_NameOfCommon_1(char *nom) 
     350void Add_NameOfCommon_1(char *nom,char *cursubroutinename) 
    351351{ 
    352352   listnom *newnom; 
     
    362362         newnom=(listnom *) malloc (sizeof (listnom)); 
    363363         strcpy(newnom->o_nom,nom); 
     364         strcpy(newnom->o_subroutinename,cursubroutinename); 
    364365         Save_Length(nom,23); 
    365366         newnom->suiv = List_NameOfCommon; 
     
    524525     /* Creation of the string for the dimension of this variable             */ 
    525526     dimsempty = 1; 
     527 
    526528     if ( d ) 
    527529     { 
     
    542544        if ( dimsempty == 1 ) newvar->var->v_dimsempty=1; 
    543545     } 
    544      strcpy(newvar->var->v_readedlistdimension,listdimension); 
    545      Save_Length(listdimension,15); 
     546 
     547/*     strcpy(newvar->var->v_readedlistdimension,listdimension); 
     548     Save_Length(listdimension,15);*/ 
    546549     /*                                                                       */ 
    547550     newvar->suiv = NULL; 
Note: See TracChangeset for help on using the changeset viewer.