Changeset 36 for trunk/src


Ignore:
Timestamp:
04/19/11 14:43:18 (13 years ago)
Author:
jbrlod
Message:

add xsavegrad instruction

Location:
trunk/src
Files:
6 edited

Legend:

Unmodified
Added
Removed

  • trunk/src/Yworkdir/Y2sinobad.h

    r34 r36  
    2445024450         else if (strcmp(argv[0], "xwriteout") == 0) 
    2445124451                 xwriteout(argc, argv); 
     24452         else if (strcmp(argv[0], "xwritegrad") == 0) 
     24453                 xwritegrad(argc, argv); 
    2445224454         else if (strcmp(argv[0], "xinitnc") == 0) 
    2445324455                 xinitnc(argc, argv); 

  • trunk/src/Yworkdir/Ysinobad.cpp

    r9 r36  
    561561#include "Y2sinobad.h"  
    562562#define PRJNAME  "sinobad"  
    563 #define VERREF   "YaoI V.9 01.11.2008 (release 01.11.2008)  -O3 "  
     563#define VERREF   "YaoI V.9 01.11.2008 (release 01.11.2008)  "  
    564564 
    565565//============================================================================= 

  • trunk/src/cost.dat

    r34 r36  
    11 0.0000000000000000e+00 
    22 0.0000000000000000e+00 
    3  0.0000000000000000e+00 
    4  2.1474823164582097e+02 
    5  2.8694847833241877e+01 
    6  2.4944848044628429e+01 
    7  1.4763784723205688e+01 
    8  6.1068119701407007e+00 
    9  3.0562522504307394e+00 
    10  1.8957965606743279e+00 
    11  7.7197175823267772e-01 
    12  4.1414583724508541e-01 
    13  3.5745466891179140e-01 
    14  3.0504160549496384e-01 
    15  2.0632293155561307e-01 
    16  5.2503828452358924e-02 
    17  2.7362851470415533e-02 
    18  1.2053659848629640e-02 
    19  4.2299073388657685e-03 
    20  1.9391678622987709e-03 
    21  3.9999493044819460e-04 
    22  4.7808973082814036e-04 
    23  3.1932272727113592e-04 
    24  2.4004168963586060e-04 
    25  1.8255244331540424e-04 
    26  1.3626773582866303e-04 
    27  8.3046419077861583e-05 
    28  1.4878373725618521e-04 
    29  7.3549327869314594e-05 
    30  6.8010748698499148e-05 
    31  1.8396341279073525e-02 
    32  1.8385214655752883e-02 
    33  1.8297866286185290e-02 
    34  6.7122354195302088e-05 
    35  6.2793901469873690e-05 
    36  1.0567410183153228e-04 
    37  5.9048531588033596e-05 
    38  5.6432743905617639e-05 
    39  1.8672500710634261e-02 
    40  1.8659958764906493e-02 
    41  5.1159707227869254e-05 
    42  1.0860501107129996e-04 
    43  1.0155417489346165e-04 
    44  9.0588681973202866e-05 
    45  8.7670895907238729e-05 
    46  5.0738236764616567e-05 

  • trunk/src/sinobad.d

    r34 r36  
    793793 
    794794insert_fct arg xwriteout 
     795insert_fct arg xwritegrad 
    795796insert_fct arg xinitnc 
    796797#insert_fct  arg load_shape_func 

  • trunk/src/sinobad.h

    r16 r36  
    900900 
    901901} 
     902void xwritegrad (int argc, char *argv[]) { 
     903  //xwritegrad t suff ncfile  
     904  //Ecrit dans le fichier ncfile les grad des variables u,v,t,s,ssh avec le suffixe suff au pas de temps t 
     905  if (argc!=4) 
     906   {  
     907     printf("\n not enough arguments in writeout\n"); 
     908     exit(1); 
     909   } 
     910 
     911  int t; 
     912  char suff[200]; 
     913  char ncfile[200]; 
     914  int ncfile_id; 
     915  t=atoi(argv[1]); 
     916  strcpy(suff,argv[2]); 
     917  strcpy(ncfile,argv[3]); 
     918  ncfile_id=Ouvre_nc_add(ncfile); 
     919  write_grad_var(t,ncfile_id,suff); 
     920  nc_close(ncfile_id); 
     921 
     922} 
    902923 
    903924void xinitnc(int argc,char *argv[]) { 
Note: See TracChangeset for help on using the changeset viewer.