Commit c4600751 authored by Markus Pahlow's avatar Markus Pahlow

add comments to #endif directives

parent 89c310cd
......@@ -156,7 +156,7 @@
enddo
call setbcx (cba0, imt, jmt)
# endif
# endif ! O_mom && O_embm
# endif ! O_mom && O_embm (72)
!-----------------------------------------------------------------------
! update boundary conditions from the land model
......@@ -214,7 +214,7 @@
# endif
# else
sbc(:,:,iro) = sbc(:,:,iro)*f1a
# endif ! O_mtlm
# endif ! O_mtlm (171)
call setbcx (sbc(1,1,iro), imt, jmt)
# if defined O_embm
......@@ -280,8 +280,8 @@
endif
enddo
enddo
# endif ! O_weathering (230)
# endif ! O_embm (220)
# endif ! O_save_carbon_totals (238)
# endif ! O_sed (228)
# ifndef O_TMM
# if defined O_sealev_data_transient && defined O_sealev_salinity
!-----------------------------------------------------------------------
......@@ -347,7 +347,7 @@
endif
# endif
# endif ! O_TMM
# endif ! O_TMM (300)
# if defined O_carbon || defined O_npzd_alk || defined O_npzd_o2 || defined O_npzd || defined O_cfcs_data || defined O_cfcs_data_transient
!-----------------------------------------------------------------------
! add normalized virtual fluxes to other tracers
......@@ -481,15 +481,15 @@
call setbcx (sbc(1,1,icfc11flx), imt, jmt)
call setbcx (sbc(1,1,icfc12flx), imt, jmt)
# endif
# endif | O_TMM
# endif
# endif
# endif ! O_TMM (432)
# endif ! O_carbon (351)
# endif ! O_mom (299)
# if defined O_embm_read_sflx
call read_var ("F_salt.nc", "F_salt", sbc(1,1,isflx), ntrec)
# elif defined O_embm_write_sflx
call write_var ("F_salt.nc", "F_salt", sbc(1,1,isflx), ntrec)
# endif
#endif
#endif ! O_mom (3)
#if defined O_embm && defined O_sulphate_data || defined O_sulphate_data_transient
!-----------------------------------------------------------------------
......@@ -541,7 +541,7 @@
endif
enddo
enddo
#endif
#endif ! O_embm (493)
return
end
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment