https://github.com/alphaparrot/ExoPlaSim
Tip revision: 9f69f6e970c50cae27581eb9ae4fc6710a9eae3d authored by Adiv Paradise on 14 August 2019, 21:22:17 UTC
Fixed bug where surface temperature in the time-averaged output file was erroneously low on the first write. This was a purely diagnostic bug--no impact on physics.
Fixed bug where surface temperature in the time-averaged output file was erroneously low on the first write. This was a purely diagnostic bug--no impact on physics.
Tip revision: 9f69f6e
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);
}
