https://github.com/alphaparrot/ExoPlaSim
Tip revision: 08ae8f818a5792695431d5a94f36fbf12ed20027 authored by Adiv Paradise on 26 June 2018, 03:13:15 UTC
Small changes to carbonmod.f90: handle planet radius and land fraction appropriately.
Small changes to carbonmod.f90: handle planet radius and land fraction appropriately.
Tip revision: 08ae8f8
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);
}