Skip to main content

Browse the archive

Revision 58383f69eb2cc2496381f6b544dc89c3b0c6a0ab authored by Adiv Paradise on 17 October 2019, 22:38:55 UTC, committed by Adiv Paradise on 17 October 2019, 22:38:55 UTC 
Attempting to have nice=0 turn into no sea ice....
1 parent 16162c6
Raw File
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