Skip to content

Commit

Permalink
Remove 2nd line of {} comments from *_INIT blocks in small_strato.def
Browse files Browse the repository at this point in the history
The second line of {} comments within the F90_INIT caused a compilation
error.  These have now been removed for all *_INIT blocks in
small_strato.def.  The manual page has also been updated.

Signed-off-by: Bob Yantosca <yantosca@seas.harvard.edu>
  • Loading branch information
yantosca committed May 18, 2022
1 parent ec607c9 commit fb12e9b
Show file tree
Hide file tree
Showing 2 changed files with 6 additions and 6 deletions.
6 changes: 3 additions & 3 deletions docs/source/getting_started/02_running_kpp_sample_mech.rst
Original file line number Diff line number Diff line change
Expand Up @@ -155,22 +155,22 @@ KPP language code (cf. :ref:`bnf-description`):
M = 8.120E+16 ;
#INLINE F90_INIT { Fortran90 code to be inlined }
TSTART = (12*3600) { into small_strato_Global.F90 }
TSTART = (12*3600)
TEND = TSTART + (3*24*3600)
DT = 0.25*3600
TEMP = 270
#ENDINLINE
#INLINE MATLAB_INIT { Matlab code to be inlined }
global TSTART TEND DT TEMP { into small_strato_Global.m }
global TSTART TEND DT TEMP
TSTART = (12*3600);
TEND = TSTART + (3*24*3600);
DT = 0.25*3600;
TEMP = 270;
#ENDINLINE
#INLINE C_INIT { C code to be inlined }
TSTART = (12*3600); { into small_strato_Global.c }
TSTART = (12*3600);
TEND = TSTART + (3*24*3600);
DT = 0.25*3600;
TEMP = 270;
Expand Down
6 changes: 3 additions & 3 deletions models/small_strato.def
Original file line number Diff line number Diff line change
Expand Up @@ -17,22 +17,22 @@
M = 8.120E+16 ;

#INLINE F90_INIT { Fortran90 code to be inlined }
TSTART = (12*3600) { into small_strato_Global.F90 }
TSTART = (12*3600)
TEND = TSTART + (3*24*3600)
DT = 0.25*3600
TEMP = 270
#ENDINLINE

#INLINE MATLAB_INIT { Matlab code to be inlined }
global TSTART TEND DT TEMP { into small_strato_Global.m }
global TSTART TEND DT TEMP
TSTART = (12*3600);
TEND = TSTART + (3*24*3600);
DT = 0.25*3600;
TEMP = 270;
#ENDINLINE

#INLINE C_INIT { C code to be inlined }
TSTART = (12*3600); { into small_strato_Global.c }
TSTART = (12*3600);
TEND = TSTART + (3*24*3600);
DT = 0.25*3600;
TEMP = 270;
Expand Down

0 comments on commit fb12e9b

Please sign in to comment.