(1) analytical.F: few changes in this user routine.
(2) biology.F: replace CPP directive from # ifdef BIO_FASHAM to # if defined BIO_FASHAM in line 21. In some computers compilation may fail when nonstandard CPP constructs are used.
(3) def_his.F, def_rst.F: Add conditional to use mod_sediment when BBL_MODEL is activated in line 19.
Code: Select all
Change
#ifdef SEDIMENT
to
#if defined SEDIMENT || defined BBL_MODEL
Code: Select all
#if defined SEDIMENT || defined BBL_MODEL
USE mod_sediment
#endif
Code: Select all
110 FORMAT (/,' READ_StaPAR - variable info not yet loaded, ', a)
(7) mod_ncparam.F: If BIO_FASHAM is defined and CARBON undefined, the compiler stops with undefined variable messages for this module during compilation. This is because the carbon-related variables are not wrapped in an #ifdef CARBON ... #endif block. Insert a # ifdef CARBON in line 856, just before CASE ('idTvar(iTIC_)') and # endif at line 863, after the statement idTvar(iSDeC)=varid. Similarly, insert a # ifdef CARBON in line 922, just before CASE ('idTbry (iwest,iSDeC)') and # endif at line 951, after the statement idTbry(inorth,iTALK)=varid.
(8) master.F: add #include "cppdefs.h" at the top on line 1. Otherwise, the conditional for AIR_OCEAN will never executed.
(9) mod_ocean.F: remove the conditional for BBL_MODEL in line 246. That is, change line 246 to:
Code: Select all
# ifdef SEDIMENT
(11) sg_bbl.F: A comma is missing at the end of the angler argument to routine bblm_tile at line 74.
(12) sg_bbl.F: Add declaration for real scalar cff3 in the local variable declaration section around line 170.
(13) step_floats.F: The shape matching rules of actual arguments and dummy arguments have been violated at line 210 when FLOAT_VWALK is defined.
Code: Select all
Change
CALL nrng (iseed, nudg(Lstr), Lend-Lstr+1, ierr)
to
CALL nrng (iseed, nudg(Lstr:Lend), Lend-Lstr+1, ierr)
Code: Select all
Change
#if defined VAR_RHO_2D && defined SOLVE3D
& (h(i,j)-h(i,j-1))* &
to
#if defined VAR_RHO_2D && defined SOLVE3D
& (h(i,j-1)-h(i,j))* &
Code: Select all
Change
#ifdef SEDIMENT
to
#if defined SEDIMENT || defined BBL_MODEL
Code: Select all
& scale, OCEAN(ng)%bottom(:,;,i), &