Custom Query (969 matches)

Line 2699 and 2700 of def_his.F. The 'END DO' should be inside the 'ifdef SOLVE3D' statement. Otherwise, it cannot be compiled under 2D mode.

I propose a few changes to the platform-specific make files:

• CYGWIN-g95.mk, Linux-g95.mk: A while ago I suggested adding -ftrace=full to FFLAGS and said this had no effect on performance. Actually it does affect performance (my bad), slowing the model down at run-time by 10-20%. So it should be used only when USE_DEBUG is in effect.

• MINGW-gfortran.mk: In the section entitled "Set free form format in source files...", the "-free" flag is added to FFLAGS. There is no such flag for this compiler: it should be -ffree-form.

Modified files are attached. They are based on revision 47.

Remove Msrc from mod_param.F and allocate to the needed number of point Sources/Sinks available in the input forcing NetCDF file. The variable Msrc is still set to 200 in mod_sources.F but for analytical point Sources/Sinks (ANA_PSOURCE) applications. It is very unlikely that we need more than 200 analytical point Sources/Sinks.