https://github.com/alphaparrot/ExoPlaSim
Raw File
Tip revision: c4366f3657ca1c17f0da500b7940eb8f77043d20 authored by Adiv Paradise on 15 September 2020, 18:52:09 UTC
Added tunings to better-capture extant storms and avoid generating too much output
Tip revision: c4366f3
csub.c
void csub_(int *i, float *r)
{
   if (*i == 257 && *r == 1.0)
      setenv("MOSTF90CALL","csub_",1);
}

void CSUB(int *i, float *r)
{
   if (*i == 257 && *r == 1.0)
      setenv("MOSTF90CALL","CSUB",1);
}

void csub(int *i, float *r)
{
   if (*i == 257 && *r == 1.0)
      setenv("MOSTF90CALL","csub",1);
}

back to top