source: trunk/src/solsor_flag.h @ 39

/***************************************************************************
                 module classe solsor_dynspg_flt.h  -  description
***************************************************************************/
// Julien Brajard
// locean-ipsl.upmc, Paris, April 25, 2011
//===========================================================================
//                          methode forward
forward (YREAL x1, YREAL x2, YREAL x3, YREAL x4)
{
/*      1       from    solsor_gcx_gcr          2  i    j    k    t
        2       from    solsor_flag             1  i    j    k-1  t
        3       from    solsor_flag             1  i-1  j    k  t
        4       from    solsor_flag             1  i    j-1  k  t
} */

//jn (current iteration) = Yk+1

if (Yk<nmin)
{
YS1=0;
}

if (Yi==0) {